1、我设计的程序有多个FORM,每个FORM里面有多个MASKEDIT,我想在第一个FORM里加一个BUTTON,功能是“下一条记录”,我把代码编好后,点“下一条记录”,为什么只有第一个FORM里的maskedit显示下一条记录,其他FORM里面的maskedit不跟着显示下一条记录啊?
2、如何使form1.maskedit1.text的内容等于form2.maskedit1.text的内容一样啊?
请各位专家们回答一下,谢谢了~~~~
2、如何使form1.maskedit1.text的内容等于form2.maskedit1.text的内容一样啊?
请各位专家们回答一下,谢谢了~~~~
解决方案 »
- Delphi的关键字问题
- 仅使用 mmsystem.pas 可否选择声卡同时播放不同音乐?
- 如何将adoquery设置为只读的?
- 哪位有passcal的从入门到精通的书呀?
- 我在往Blob字段写数据时,总是创建TBlobStream失败,不是为什么,请高手指点!
- 如何实现主从的结构,数据库的
- ***如何制作一个类似Object Inspector的窗口?一定给分!!!***
- 高手请帮我看看这段代码1有关OLE的
- ado对空表操作为什么都出错????
- 联接sql 服务器问题
- Oracle数据库 dephi 7.0,在修改DBGridEh2一个字段时发生错误“缺少用于更新或刷新的基本表信息”
- delphi中如何使用OpenGL导入3ds模型
你怎样控制其它form的
解决了第一个问题,第二个就不是问题了
在FORM1裏要引用你需要賦值的其它單元。且其它窗體已經建立起來,不然會出錯。
在unit1中uses unit2然后在unit1中就可以使用form2.,来访问form2的属性了
因为你为没刷新
在你FORM2的maskedit1 OnChange事件下加赋值语句
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;
这是我的语句,应该怎么修改才能实现那种功能?
form3.ADOTable1.next;
form4.ADOTable1.next;
form5.ADOTable1.next;
form6.ADOTable1.next; 分别uses 上面窗体所在的单元
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了啊
两个MaskEdit同步显示,根据你的描述好像不太可能实现!
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;
maskedit1.text:=adotable1.fieldbyname('w1').asstring;
你现有的代码不用改