unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables;
type
Tmodifyreaderfrm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button1: TButton;
Button2: TButton;
Table1: TTable;
Label7: TLabel;
Edit7: TEdit;
Label8: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Label9: TLabel;
procedure Edit1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
modifyreaderfrm: Tmodifyreaderfrm;
implementation
{$R *.dfm}
procedure Tmodifyreaderfrm.Edit1Change(Sender: TObject);
begin
table1.IndexFieldNames:='学号';
if table1.FindKey([edit1.Text]) then
begin
edit2.Text:=table1.fieldbyname('姓名').AsString;
edit3.Text:=table1.fieldbyname('专业').AsString;
edit4.text:=table1.fieldbyname('性别').AsString;
//combobox1.Text:=edit4.Text;
edit5.Text:=table1.fieldbyname('联系电话').AsString;
edit6.Text:=table1.fieldbyname('E-mail').AsString;
edit9.Text:=table1.fieldbyname('最大借书数量').asvariant;
edit8.Text:=table1.fieldbyname('密码').AsString;
edit7.Text:=table1.fieldbyname('密码').asstring;
end;
end;
procedure Tmodifyreaderfrm.Button2Click(Sender: TObject);
begin
edit3.Text:='';
edit5.Text:='';
edit6.Text:='';
end;
procedure Tmodifyreaderfrm.Button1Click(Sender: TObject);
begin
if(edit7.text='')or (edit8.text='')or(edit7.text<>edit8.Text)
then
begin
showmessage('请重新检查密码');
abort;
end;
table1.Open;
table1.Edit;
table1.fieldbyname('姓名').AsString:=edit2.Text;
table1.fieldbyname('专业').AsString:=edit3.Text;
//table1.fieldbyname('性别').AsString:=edit4.Text;
//combobox1.Text:=edit4.Text;
table1.fieldbyname('联系电话').AsString:=edit5.Text;
table1.fieldbyname('E-mail').AsString:=edit6.Text;
table1.fieldbyname('密码').AsString:=edit8.Text;
table1.fieldbyname('最大借书数量').Asvariant:=strtoint(edit9.Text);
table1.Append;
showmessage('修改成功!');
end;
end.
.rar （79个子文件） 
课设 
修改信息.txt 3KB 新建 文本文档 (2).txt 2KB 课程设计 
Unit4.~ddp 51B Unit8.~pas 3KB Unit6.~pas 1KB Unit3.dfm 3KB Unit2.ddp 51B Unit9.~dfm 4KB Unit2.dfm 3KB Unit4.~dfm 5KB Unit8.dfm 5KB Project1.dof 2KB Unit5.~dfm 4KB Unit1.dcu 6KB Unit3.ddp 51B Unit3.~dfm 3KB Unit7.~ddp 51B Unit7.~dfm 2KB Unit4.ddp 51B
Project1.exe 843KB Unit4.pas 3KB Unit6.pas 1KB Unit7.dcu 5KB Unit4.~pas 3KB Unit5.pas 2KB Unit2.~pas 2KB Unit5.~pas 2KB Unit2.~dfm 2KB Unit9.ddp 51B db1.mdb 456KB Unit7.~pas 1KB Unit4.dfm 5KB Unit6.dcu 5KB Unit1.dfm 3KB Unit8.ddp 51B Project1.cfg 434B Unit8.~ddp 51B Unit3.~ddp 51B Project1.dpr 788B Unit3.pas 2KB Unit9.dfm 4KB Unit5.ddp 51B Unit1.~dfm 3KB Unit9.~ddp 51B Unit9.pas 2KB Unit1.pas 2KB Unit6.~ddp 51B Unit8.dcu 7KB Project1.res 876B Unit7.dfm 2KB Unit9.~pas 2KB Unit2.pas 2KB db1.ldb 1KB Unit3.~pas 1KB Unit3.dcu 6KB Unit5.dfm 5KB Unit9.dcu 7KB Unit5.dcu 7KB Unit2.dcu 5KB Unit6.dfm 3KB Unit6.ddp 51B Unit1.ddp 51B Project1.~dpr 788B Unit7.ddp 51B Unit4.dcu 7KB Unit1.~pas 2KB Unit1.~ddp 51B Unit8.~dfm 5KB Unit7.pas 1KB Unit8.pas 3KB Unit2.~ddp 51B Unit5.~ddp 51B Unit6.~dfm 3KB 新建 文本文档.txt 2KB 增加读者信息.txt 2KB 书目检索.txt 790B 查询.txt 1KB 修改读者信息.txt 3KB 增加读者信息2.txt 944B资源评论
