向各位大侠们问两个问题

Question

１、我设计的程序有多个FORM，每个FORM里面有多个MASKEDIT,我想在第一个FORM里加一个BUTTON，功能是“下一条记录”，我把代码编好后，点“下一条记录”，为什么只有第一个FORM里的maskedit显示下一条记录，其他FORM里面的maskedit不跟着显示下一条记录啊？
２、如何使form1.maskedit1.text的内容等于form2.maskedit1.text的内容一样啊？
请各位专家们回答一下，谢谢了～～～～

Answer 1

其他FORM里面的maskedit不跟着显示??
你怎样控制其它form的
解决了第一个问题,第二个就不是问题了

Answer 2

form2.maskedit1.text := form1.maskedit1.text
 在FORM1裏要引用你需要賦值的其它單元。且其它窗體已經建立起來，不然會出錯。

Answer 3

两个form,form1(unit1),form2(unit2)
在unit1中uses unit2然后在unit1中就可以使用form2.,来访问form2的属性了

Answer 4

因为你为没刷新
在你FORM2的maskedit1 OnChange事件下加赋值语句

Answer 5

procedure displayrecord;
begin
form2.MaskEdit1.text:=form2.adotable1.fieldbyname('w1').asstring;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Visible:=false;
form3.visible:=true;
end;procedure TForm2.FormCreate(Sender: TObject);
begin
displayrecord;
end;procedure TForm2.Button2Click(Sender: TObject);
begin
form2.adotable1.next;
form3.ADOTable1.next;
form4.ADOTable1.next;
form5.ADOTable1.next;
form6.ADOTable1.next;
displayrecord;
end;
这是我的语句，应该怎么修改才能实现那种功能？

Answer 6

form2.adotable1.next; 
form3.ADOTable1.next; 
form4.ADOTable1.next; 
form5.ADOTable1.next; 
form6.ADOTable1.next; 分别uses 上面窗体所在的单元

Answer 7

implementationuses Unit3, Unit4, Unit5, Unit6, Unit7;{$R *.dfm}
procedure displayrecord;
begin
form2.MaskEdit1.text:=form2.adotable1.fieldbyname('w1').asstring;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Visible:=false;
form3.visible:=true;
end;procedure TForm2.FormCreate(Sender: TObject);
begin
displayrecord;
end;procedure TForm2.Button2Click(Sender: TObject);
begin
form2.adotable1.next;
form3.ADOTable1.next;
form4.ADOTable1.next;
form5.ADOTable1.next;
form6.ADOTable1.next;
displayrecord;
end;end.
你看，我USES了啊　

Answer 8

你的MaskEdit不是数据感知控件，adotable1.next是不会起作用的。
两个MaskEdit同步显示，根据你的描述好像不太可能实现！

Answer 9

在ADOTable的OnAfterScroll事件当中写类似下面的代码:
procedure TForm2.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  MaskEdit1.text:=adotable1.fieldbyname('w1').asstring;
end;或者procedure TForm2.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  MaskEdit1.text:=DataSet.fieldbyname('w1').asstring;
end;

Answer 10

在form3,form4,form5,form6表单的ADOTable1的AfterScroll事件里加上:
maskedit1.text:=adotable1.fieldbyname('w1').asstring;
你现有的代码不用改