unit6.pas

用DELPHI来编写的图书管理系统

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls, DB, Grids,
  DBGrids, ADODB;

type
  TForm6 = class(TForm)
    Image1: TImage;
    DBGrid1: TDBGrid;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    DataSource2: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    ADOTable1: TADOTable;
    StaticText7: TStaticText;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses Unit1;

{$R *.dfm}
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 管理员表 where 编号= (select 编号 from 管理员图书馆帐号表 where 帐号= '+form1.Edit1.Text+')');
adoquery1.Open;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
BitBtn2.Enabled:=true;
end;

procedure TForm6.BitBtn3Click(Sender: TObject);
begin
form6.Close;
end;

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
if Edit2.Text<>'' then
begin
adotable1.Edit;
adotable1.FieldByName('姓名').AsString:=edit2.Text;
adotable1.Post;
Edit2.Clear;
application.MessageBox('修改成功。点击查看更新内容或继续修改!','提示',64)
end
else
if Edit3.Text<>'' then
begin
adotable1.Edit;
adotable1.FieldByName('出生日期').AsString:=edit3.Text;
adotable1.Post;
Edit3.Clear;
application.MessageBox('修改成功。点击查看更新内容或继续修改!','提示',64)
end
else
if Edit4.Text<>'' then
begin
adotable1.Edit;
adotable1.FieldByName('性别').AsString:=edit4.Text;
adotable1.Post;
Edit4.Clear;
application.MessageBox('修改成功。点击查看更新内容或继续修改!','提示',64)
end
else
if Edit5.Text<>'' then
begin
adotable1.Edit;
adotable1.FieldByName('工资').AsString:=edit5.Text;
adotable1.Post;
Edit5.Clear;
application.MessageBox('修改成功。点击查看更新内容或继续修改!','提示',64)
end
else
if Edit6.Text<>'' then
begin
adotable1.Edit;
adotable1.FieldByName('联系电话').AsString:=edit6.Text;
adotable1.Post;
Edit6.Clear;
application.MessageBox('修改成功。点击查看更新内容或继续修改!','提示',64)
end
end;

procedure TForm6.Edit2Change(Sender: TObject);
begin
if Edit2.Text<>'' then
begin
Edit3.Enabled:=false;
Edit4.Enabled:=false;
Edit5.Enabled:=false;
Edit6.Enabled:=false;
end
else
begin
Edit2.Enabled:=true;
Edit3.Enabled:=true;
Edit4.Enabled:=true;
Edit5.Enabled:=true;
Edit6.Enabled:=true;
end
end;

procedure TForm6.Edit3Change(Sender: TObject);
begin
if Edit3.Text<>'' then
begin
Edit2.Enabled:=false;
Edit4.Enabled:=false;
Edit5.Enabled:=false;
Edit6.Enabled:=false;
end
else
begin
Edit2.Enabled:=true;
Edit3.Enabled:=true;
Edit4.Enabled:=true;
Edit5.Enabled:=true;
Edit6.Enabled:=true;
end
end;

procedure TForm6.Edit4Change(Sender: TObject);
begin
if Edit4.Text<>'' then
begin
Edit2.Enabled:=false;
Edit3.Enabled:=false;
Edit5.Enabled:=false;
Edit6.Enabled:=false;
end
else
begin
Edit2.Enabled:=true;
Edit3.Enabled:=true;
Edit4.Enabled:=true;
Edit5.Enabled:=true;
Edit6.Enabled:=true;
end
end;

procedure TForm6.Edit5Change(Sender: TObject);
begin
if Edit5.Text<>'' then
begin
Edit2.Enabled:=false;
Edit3.Enabled:=false;
Edit4.Enabled:=false;
Edit6.Enabled:=false;
end
else
begin
Edit2.Enabled:=true;
Edit3.Enabled:=true;
Edit4.Enabled:=true;
Edit5.Enabled:=true;
Edit6.Enabled:=true;
end
end;

procedure TForm6.Edit6Change(Sender: TObject);
begin
if Edit6.Text<>'' then
begin
Edit2.Enabled:=false;
Edit3.Enabled:=false;
Edit4.Enabled:=false;
Edit5.Enabled:=false;
end
else
begin
Edit2.Enabled:=true;
Edit3.Enabled:=true;
Edit4.Enabled:=true;
Edit5.Enabled:=true;
Edit6.Enabled:=true;
end
end;

end.