(登录代码)
procedure TForm1.Button1Click(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('select * from biao1 where passwords='''+e_mm.Text + ''''); adoquery1.Open; if adoquery1.RecordCount=1 then begin form1.Hide; form2.Show; end else begin showmessage('用户名或密码错误'); end; end;
user='''
+
e_yhm.Text
+
'''and
(
注册代码)
procedure TForm3.Button1Click(Sender: TObject); begin adotable2.Insert; adotable2.fieldbyname('user').asstring:=e_ZCHU.text; adotable2.fieldbyname('pass
words'). asstring:=e_zcmm.text; adotable2.Post; end; procedure TForm3.FormCreate(Sender: TObject); begin adotable2.Active:=true; end;
(添加代码)
procedure TForm5.Button1Click(Sender: TObject); begin adotable1.Insert; adotable1.fieldbyname('读者').asstring:=edit1.text; adotable1.fieldbyname('读者编号'). asstring:=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; edit1.Text:=''; edit2.Text:=''; edit3.Text:=''; edit4.Text:=''; edit5.Text:=''; edit6.Text:=''; edit7.Text:=''; edit8.Text:=''; adotable1.Post; end; procedure TForm5.FormCreate(Sender: TObject); begin adotable1.Active:=true; end;
(查询代码)
procedure TForm6.Button1Click(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 TForm6.Button2Click(Sender: TObject); begin ADOTable1.Edit; //将数据集设为编辑状态 ADOTable1.FieldValues['读者']:=Edit2.Text; //将 Edit2 中的内容赋给字段 ADOTable1.FieldValues['读者编号']:=Edit3.Text;//将 Edit3 中的内容赋给字段 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.Post; //提交到数据库保存 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('借阅图书').asst
ring ; edit7.Text:=adotable1.FieldByName('书号').asstring ; edit8.Text:=adotable1.FieldByName('借阅时间').asstring ; edit9.Text:=adotable1.FieldByName('应还时间').asstring ; adoTable1.Delete;
end; procedure TForm7.Button2Click(Sender: TObject