unit13.~pas

一个可以用于书店的图书信息管理系统

unit Unit13;

interface

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

type
  TForm13 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Edit2: TEdit;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    procedure Button3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm13.Button3Click(Sender: TObject);
begin
form13.Close;
form2.show;
end;

procedure TForm13.Edit1Change(Sender: TObject);

begin
 adoquery2.Close;
 adoquery2.SQL.Clear;
 adoquery2.SQL.add('select 图书名称,作者,出版社,价格 from 图书信息');
 adoquery2.SQL.Add('where 图书编号='''+edit1.text+'''');
 adoquery2.Open;
end;

procedure TForm13.Edit2Change(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.add('select 读者姓名,性别,系别,联系方式,登记日期 from 读者信息');
 adoquery1.sql.add('where 读者编号='''+edit2.text+'''');
 adoquery1.Open;

end;

procedure TForm13.Button2Click(Sender: TObject);
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.add('select * from 图书外借 where 书目编号='''+edit1.text+''' and 读者编号='''+edit2.text+'''');
adoquery3.Open;
if adoquery3.RecordCount=1 then
begin
adoquery3.Delete;
showmessage('该书已归还!!');
adoquery1.Close;
adoquery2.close;
edit1.text:='';
edit2.text:='';
end
else
application.MessageBox('没有该学生的借书记录','图书管理系统-提示信息',mb_ok);
end;

procedure TForm13.Button1Click(Sender: TObject);
begin
adoquery3.append;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('insert into 图书外借 values('''+edit2.text+''','''+edit1.text+''')');
adoquery3.ExecSQL;
application.MessageBox('图书外借成功','图书管理系统-提示信息',mb_ok);
edit1.text:='';
edit2.text:='';
end;

end.