unit1.pas

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label3: TLabel;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  user,pass:string;
  flag:integer;
begin
  if RadioButton1.Checked then
   begin
    flag:=1;
    user:=edit1.Text;
    pass:=edit2.Text;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM 用户清单 WHERE 用户名 = ''' + user + '''');
    ADOQuery1.open;
    if ADOQuery1.RecordCount <> 1 then
      begin
        MessageBox(handle,'没有此用户，请重新输入。','系统提示',  MB_ICONASTERISK + MB_OK);
        edit1.Clear;
        edit2.Clear;
      end
    else
      begin
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('SELECT * FROM 用户清单 WHERE 用户名 = ''' + user + '''and 密码=''' + pass + '''');
        ADOQuery1.open;
        if ADOQuery1.RecordCount <> 1 then
         begin
           MessageBox(handle,'密码不对，请重新输入。','系统提示',  MB_ICONASTERISK + MB_OK);
           edit2.Clear;
         end
        else
         begin
           Form2.initialize(flag);
           Form2.show;
           Form1.hide;
         end;
      end;
   end;
  if RadioButton2.Checked then
   begin
    flag:=0;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM 读者信息 WHERE 条形码 = ''' + edit3.Text + '''');
    ADOQuery1.open;
    if ADOQuery1.RecordCount <> 1 then
      begin
        MessageBox(handle,'此卡不存在，请重新输入。','系统提示',  MB_ICONASTERISK + MB_OK);
        edit3.Clear;
      end
    else
      begin
        Form2.initialize(flag);
        Form2.show;
        Form1.hide;
      end;
   end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
   label1.Visible:=true;
   label2.Visible:=true;
   label3.Visible:=false;
   edit1.Visible:=true;
   edit2.Visible:=true;
   edit3.Visible:=false;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
   label1.Visible:=false;
   label2.Visible:=false;
   label3.Visible:=true;
   edit1.Visible:=false;
   edit2.Visible:=false;
   edit3.Visible:=true;
   edit2.Clear;
end;

end.