unit5.~pas

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

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label3: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    Edit8: TEdit;
    Label11: TLabel;
    Edit9: TEdit;
    Label12: TLabel;
    Edit10: TEdit;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Label13: TLabel;
    Edit11: TEdit;
    Button3: TButton;
    GroupBox3: TGroupBox;
    Label14: TLabel;
    Edit12: TEdit;
    Button4: TButton;
    GroupBox4: TGroupBox;
    Label15: TLabel;
    Edit13: TEdit;
    Button5: TButton;
    Label16: TLabel;
    Edit14: TEdit;
    Label17: TLabel;
    Edit15: TEdit;
    Label18: TLabel;
    Edit16: TEdit;
    Edit17: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure Formclose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit2;

{$R *.dfm}

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

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

procedure TForm5.Button2Click(Sender: TObject);
var
   sex:string;
begin
   if RadioButton1.Checked then sex:=RadioButton1.Caption;
   if RadioButton2.Checked then sex:=RadioButton2.Caption;
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('INSERT INTO 读者信息([条形码],[姓名],[性别],[类型],[出生日期],[有效证件],[证件号码],');
   ADOQuery1.SQL.Add('[联系方式],[登记日期],[有效期至],[操作员],[备注],[是否挂失])');
   ADOQuery1.SQL.Add('VALUES('''+edit2.Text+''','''+edit1.Text+''','''+sex+''','''+edit3.Text+''','''+edit4.Text+''','''+edit17.Text+''','''+edit5.Text+''',');
   ADOQuery1.SQL.Add(''''+edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''','''+edit9.Text+''','''',''0'')');
   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;
   edit17.Clear;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM 读者信息 WHERE 条形码 = ''' + edit11.Text + '''');
  ADOQuery1.open;
  if ADOQuery1.RecordCount <> 1 then
    begin
      MessageBox(handle,'此卡不存在，请重新输入。','系统提示',  MB_ICONASTERISK + MB_OK);
      edit11.Clear;
      edit14.Clear;
    end
  else
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT * FROM 读者信息 WHERE 条形码 = ''' + edit11.Text + '''and 姓名=''' + edit14.Text + '''');
      ADOQuery1.open;
      if ADOQuery1.RecordCount <> 1 then
       begin
         MessageBox(handle,'姓名不对，请重新输入。','系统提示',  MB_ICONASTERISK + MB_OK);
         edit14.Clear;
       end
      else
       begin
         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add('UPDATE 读者信息 SET 是否挂失=1 where 条形码='''+edit11.Text+'''');
         ADOQuery1.Execsql;
         MessageBox(handle,'修改成功','系统提示',  MB_ICONASTERISK + MB_OK);
       end;
    end;
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM 读者信息 WHERE 条形码 = ''' + edit12.Text + '''');
  ADOQuery1.open;
  if ADOQuery1.RecordCount <> 1 then
    begin
      MessageBox(handle,'此卡不存在，请重新输入。','系统提示',  MB_ICONASTERISK + MB_OK);
    end
  else
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT * FROM 读者信息 WHERE 条形码 = ''' + edit12.Text + '''and 姓名=''' + edit15.Text + '''');
      ADOQuery1.open;
      if ADOQuery1.RecordCount <> 1 then
       begin
         MessageBox(handle,'姓名不对，请重新输入。','系统提示',  MB_ICONASTERISK + MB_OK);
         edit15.Clear;
       end
      else
       begin
         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add('UPDATE 读者信息 SET 是否挂失=0 where 条形码='''+edit12.Text+'''');
         ADOQuery1.Execsql;
         MessageBox(handle,'修改成功','系统提示',  MB_ICONASTERISK + MB_OK);
       end;
    end;
end;

procedure TForm5.Button5Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM 读者信息 WHERE 条形码 = ''' + edit13.Text + '''');
  ADOQuery1.open;
  if ADOQuery1.RecordCount <> 1 then
    begin
      MessageBox(handle,'此卡不存在，请重新输入。','系统提示',  MB_ICONASTERISK + MB_OK);
      edit13.Clear;
      edit16.Clear;
    end
  else
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT * FROM 读者信息 WHERE 条形码 = ''' + edit13.Text + '''and 姓名=''' + edit16.Text + '''');
      ADOQuery1.open;
      if ADOQuery1.RecordCount <> 1 then
       begin
         MessageBox(handle,'姓名不对，请重新输入。','系统提示',  MB_ICONASTERISK + MB_OK);
         edit16.Clear;
       end
      else
       begin
         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add('DELETE FROM 读者信息 where 条形码='''+edit13.Text+'''');
         ADOQuery1.Execsql;
         MessageBox(handle,'修改成功','系统提示',  MB_ICONASTERISK + MB_OK);
       end;
    end;
end;

end.