怎样 把 查询出的数据结果,一次读到控件中:
procedure TF_student.TabSheet4Show(Sender: TObject);
begin
with adoqsjingli do
begin
Close;
SQL.Clear;
SQL.Text:='select * from stu_jingli where sjno='+quotedstr(edit4.Text);
open;
//if not adoqstijian.eof then
//begin
maskedit14.Text:=adoqsjingli.FieldByName('rudata').asstring;
maskedit15.Text:=adoqsjingli.FieldByName('bidata').asstring;
edit22.Text:=adoqsjingli.FieldByName('schooladdress').asstring;
//doqstijian.next;
//end; //
//while not adoqs.eof do
//begin
maskedit16.text:=adoqsjingli.fieldbyname('rudata').asstring;
maskedit17.Text:=adoqsjingli.fieldbyname('bidata').asstring;
edit23.Text:=adoqsjingli.fieldbyname('schooladdress').asstring;
// qstijian.next;
//end;
end;
一表为学生经历表:学生号,入学时间,毕业时间,所在学校及见证人 等四个字段。
一个学生 都有 好几条,我想把结果放到 maskedit 中。
入学时间 毕业时间 所在学校及见证人
maskedit15 maskedit17 edit22
maskedit16 maskedit18 edit23
这样 依次排列:急。请教各位了。
procedure TF_student.TabSheet4Show(Sender: TObject);
begin
with adoqsjingli do
begin
Close;
SQL.Clear;
SQL.Text:='select * from stu_jingli where sjno='+quotedstr(edit4.Text);
open;
//if not adoqstijian.eof then
//begin
maskedit14.Text:=adoqsjingli.FieldByName('rudata').asstring;
maskedit15.Text:=adoqsjingli.FieldByName('bidata').asstring;
edit22.Text:=adoqsjingli.FieldByName('schooladdress').asstring;
//doqstijian.next;
//end; //
//while not adoqs.eof do
//begin
maskedit16.text:=adoqsjingli.fieldbyname('rudata').asstring;
maskedit17.Text:=adoqsjingli.fieldbyname('bidata').asstring;
edit23.Text:=adoqsjingli.fieldbyname('schooladdress').asstring;
// qstijian.next;
//end;
end;
一表为学生经历表:学生号,入学时间,毕业时间,所在学校及见证人 等四个字段。
一个学生 都有 好几条,我想把结果放到 maskedit 中。
入学时间 毕业时间 所在学校及见证人
maskedit15 maskedit17 edit22
maskedit16 maskedit18 edit23
这样 依次排列:急。请教各位了。
解决方案 »
- msi_cpu.pas\MSI_Common.pas谁知道这是什么控件的源文件?
- 急!!!!!调用VC的dll错误,无法定位程序输入点
- 请问怎样在ClientDataSet中查找 fieldA(字段A)=‘1’所在的行?
- 给出圆心点坐标,角度和半径长度,如何画出这条半径线?
- 关于websnap+intraweb+apache的问题,确实很需要帮助
- TQuery.Delete的问题,痛苦中
- delphi编辑框用鼠标点击里面文字怎样删除啊?
- 请问,哪有免费个人主页空间?谢谢!
- 使用DELPHI开发扫描控件ActiveX,准备在浏览器中使用,在win2k下正常,但是到了98和xp就出现DAX Error,该如何解决呢?急!在线等待!
- 我将一个空的DBF文件扩展名改为dat,然后用文件读写文件的方法,每一次在对DBF操作前都读这个dat文件,然后生成原来的DBF文件,可是原来D
- sql语句问题
- 在delphi中能把ini文件封装进dll中,并且在dll中调用(去ini文件读内容)吗?
用 timer 应该可以,如果只是一次显示一遍容易的多,如果要循环,就要先把这个学生的信息存储下来,用数组或者链表都可以。
搞一个过程就行了。
procedure SetEditText(ADOQuery1: TADOQuery;aMaskEdit:TCustomEdit;bMaskEdit:TCustomEdit=nil;cMaskEdit:TCustomEdit=nil;dMaskEdit:TCustomEdit=nil);
begin
if aMaskEdit is TCustomEdit then
TCustomEdit(aMaskEdit).Text:=ADOQuery1.fieldByName('×××').AsString;
//其余的就不详细写了
end;---调用
procedure TForm1.Button1Click(Sender: TObject);
begin
if ADOQuery1.IsEmpty then Exit;
while not ADOQuery1.Eof do
begin
SetEditText(ADOQuery1,MaskEdit1,MaskEdit2,MaskEdit3);//-----此处对于MaskEdit的设置在于自己程序的控制,建议用控件数组
ADOQuery1.Next;
end;
end;
begin
...........//这里循环存放你的信息。
end;不过,非常不明白为什么要用那么多edit控件显示学生教育经历信息。