); begin if edit1.text<>'' then if ADOTable1.Locate('读者编号',edit1.text,[loPartialKey]) then begin edit2.Text:= ADOTable1.FieldValues['读者']; edit3.Text:= ADOTable1.FieldValues['读者编号']; edit4.Text:= ADOTable1.FieldValues['性别']; edit5.Text:= ADOTable1.FieldValues['年龄']; edit6.Text:= ADOTable1.FieldValues['借阅图书']; edit7.Text:= ADOTable1.FieldValues['书号']; edit8.Text:= ADOTable1.FieldValues['借阅时间']; edit9.Text:= ADOTable1.FieldValues['应还时间'] end; end; end.
(修改代码)
procedure TForm7.Button1Click(Sender: TObject); begin edit2.Text:=adotable1.FieldByName('读者').asstring ; edit3.Text:=adotable1.FieldByName('读者编号').asstring ; edit4.Text:=adotable1.FieldByName('性别').asstring ; edit5.Text:=adotable1.FieldByName('年龄').asstring ;
edit6.Text:=adotable1.FieldByName('借阅图书').asstring ; edit7.Text:=adotable1.FieldByName('书号').asstring ; edit8.Text:=adotable1.FieldByName('借阅时间').asstring ; edit9.Text:=adotable1.FieldByName('应还时间').asstring ; adoTable1.Delete;
end; procedure TForm7.Button2Click(Sender: TObject); begin if edit1.text<>'' then if ADOTable1.Locate('读者编号',edit1.text,[loPartialKey]) then begin edit2.Text:= ADOTable1.FieldValues['读者']; edit3.Text:= ADOTable1.FieldValues['读者编号']; edit4.Text:= ADOTable1.FieldValues['性别']; edit5.Text:= ADOTable1.FieldValues['年龄']; edit6.Text:= ADOTable1.FieldValues['借阅图书']; edit7.Text:= ADOTable1.FieldValues['书号']; edit8.Text:= ADOTable1.FieldValues['借阅时间']; edit9.Text:= ADOTable1.FieldValues['应还时间'] end; end;
(高级
查询代码)
procedure TForm10.Button1Click(Sender: TObject); var qstr:string; begin qstr:='select * from biao2 where ' +trim(combobox1.Text)+ trim(combobox2.Text) + ''''+trim(edit1.Text)+''''; adoquery1.Close; adoquery1.SQL.Clear ; adoquery1.SQL.Add(qstr); adoquery1.Open;