unit5.pas

图书馆管理系统dephi版

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.