unit9.pas

可以显示数据库中图书的信息以及读者的信息

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TForm9 = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    Label11: TLabel;
    Edit11: TEdit;
    Label12: TLabel;
    Edit12: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label13: TLabel;
    Memo1: TMemo;
    procedure Formclose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm9.Formclose(Sender: TObject; var Action: TCloseAction);
begin
   Form2.show;
   Form9.hide;
end;

procedure TForm9.Button1Click(Sender: TObject);
begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('SELECT * FROM 图书信息 WHERE 条形码 = ''' + edit6.Text + '''');
   ADOQuery1.open;
   if ADOQuery1.RecordCount = 1 then
    begin
      MessageBox(handle,'此条形码已存在，请重新输入。','测试结果',  MB_ICONASTERISK + MB_OK);
      edit6.Clear;
    end;
   edit7.SetFocus;
   Button2.Enabled:=true;
end;

procedure TForm9.Button2Click(Sender: TObject);
begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('INSERT INTO 图书信息([条形码],[编号],[书名],[类型],[作者],[译者],[出版社],[页码],');
   ADOQuery1.SQL.Add('[书库名称],[库存总量],[现存量],[入库时间],[操作员],[简介],[是否注销])');
   ADOQuery1.SQL.Add('VALUES('''+edit6.Text+''','''+edit9.Text+''','''+edit1.Text+''','''+edit5.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''',');
   ADOQuery1.SQL.Add(''''+edit8.Text+''','''+edit10.Text+''',''1'',''1'','''+edit11.Text+''','''+edit12.Text+''','''+memo1.Text+''',''0'')');
   ADOQuery1.Execsql;

   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('UPDATE 图书信息 SET 价格=cast('''+edit7.Text+''' as money) where 条形码='''+edit6.Text+'''');
   ADOQuery1.Execsql;
   
   Button2.Enabled:= false;
   edit1.Clear;
   edit2.Clear;
   edit3.Clear;
   edit4.Clear;
   edit5.Clear;
   edit6.Clear;
   edit7.Clear;
   edit8.Clear;
   edit9.Clear;
   edit10.Clear;
   edit11.Clear;
   edit12.Clear;
   memo1.Clear;
end;

end.