unit5.~pas

2个用Delphi做的图书管理系统

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;

type
  TForm5 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox2: TGroupBox;
    StaticText1: TStaticText;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    GroupBox3: TGroupBox;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    GroupBox4: TGroupBox;
    StaticText2: TStaticText;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    CheckBox2: TCheckBox;
    DBGrid2: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.show;
end;

procedure TForm5.BitBtn1Click(Sender: TObject);
var
datatemp,querystr:string;
begin
if radiobutton1.checked then datatemp:='book_inf.bookid';
if radiobutton2.checked then datatemp:='bookname';
if radiobutton3.checked then datatemp:='bookauthor';
if radiobutton4.checked then datatemp:='bookman';
if radiobutton5.checked then datatemp:='typename';

if checkbox1.Checked then
  datatemp:=datatemp+' like "'+edit1.Text+'%"'
  else datatemp:=datatemp+'="'+edit1.Text+'"';
querystr:='select book_inf.bookid,bookname,bookauthor,bookman,typename,bookremark ';
querystr:=querystr+'from book_inf,book_type ';
querystr:=querystr+'where book_inf.booktypeid=book_type.booktypeid ';
querystr:=querystr+'and '+datatemp;
querystr:=querystr+'order by book_inf.bookid';
dm.ADOQuery6.Close;
dm.ADOQuery6.SQL.Clear;
dm.ADOQuery6.SQL.Add(querystr);
dm.ADOQuery6.open;

end;

procedure TForm5.TabSheet1Show(Sender: TObject);
begin
form5.Caption:='数据查询--图书信息查询';
dm.ADOQuery6.Close;
end;

procedure TForm5.TabSheet2Show(Sender: TObject);
begin
form5.Caption:='数据查询--读者信息查询';
dm.ADOQuery6.Close;
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
var
datatemp,querystr:string;
begin
if radiobutton6.checked then datatemp:='reader_inf.readercardid';
if radiobutton7.checked then datatemp:='name';
if radiobutton8.checked then datatemp:='id';
if radiobutton9.checked then datatemp:='sextype';
if checkbox2.Checked then
  datatemp:=datatemp+' like "'+edit2.Text+'%"'
  else datatemp:=datatemp+'="'+edit2.Text+'"';
querystr:='select reader_inf.readercardid,name,id,sextype,email ';
querystr:=querystr+'from reader_inf,reader_relation,sex_inf ';
querystr:=querystr+'where reader_inf.readercardid=reader_relation.readercardid ';
querystr:=querystr+'and reader_inf.sex=sex_inf.sex ';
querystr:=querystr+'and '+datatemp;
querystr:=querystr+'order by reader_inf.readercardid';
dm.ADOQuery6.Close;
dm.ADOQuery6.SQL.Clear;
dm.ADOQuery6.SQL.Add(querystr);
dm.ADOQuery6.open;

end;

end.