bookqueryu.pas

包含详细的代码设计,实现图书管理系统功能.是一个很好的实例

unit BookQueryU;

interface

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

type
  TBookQueryF = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton7: TRadioButton;
    TabSheet2: TTabSheet;
    GroupBox2: TGroupBox;
    StaticText1: TStaticText;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    GroupBox3: TGroupBox;
    ListView1: TListView;
    BitBtn4: TBitBtn;
    GroupBox4: TGroupBox;
    ComboBox1: TComboBox;
    StaticText2: TStaticText;
    Edit2: TEdit;
    StaticText3: TStaticText;
    GroupBox5: TGroupBox;
    ListView2: TListView;
    BitBtn5: TBitBtn;
    CheckBox1: TCheckBox;
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
    QueryStr:string;   //查询项目
  end;

var
  BookQueryF: TBookQueryF;

implementation

uses MainU,DataModule, ExportExcelU,ShareU;
{$R *.dfm}

procedure TBookQueryF.WMNCPaint(var Msg: TWMNCPaint);
begin
  inherited;
  draw(BookQueryF);
end;

procedure TBookQueryF.RadioButton2Click(Sender: TObject);
begin
    if radiobutton2.Checked then
      QueryStr:='BookName';
end;

procedure TBookQueryF.RadioButton3Click(Sender: TObject);
begin
    if radiobutton3.Checked then
      QueryStr:='BookAuthor';
end;

procedure TBookQueryF.RadioButton4Click(Sender: TObject);
begin
    if radiobutton4.Checked then
      QueryStr:='BookMan';
end;

procedure TBookQueryF.RadioButton5Click(Sender: TObject);
begin
    if radiobutton5.Checked then
      QueryStr:='BookTypeID';
end;

procedure TBookQueryF.RadioButton7Click(Sender: TObject);
begin
    if radiobutton7.Checked then
      QueryStr:='BookRemark';
end;

procedure TBookQueryF.RadioButton1Click(Sender: TObject);
begin
     if radiobutton1.Checked then
      QueryStr:='BookID';
end;

procedure TBookQueryF.BitBtn1Click(Sender: TObject);
  procedure ShowData;
  var
    temp:string;
  begin
      dm.ADODataSetBookQuery.Filtered:=false;
      if radiobutton5.Checked then
          temp:=dm.GetBookTypeID(trim(edit1.Text))
      else
          temp:=trim(edit1.Text);
      if temp<>'' then
        if checkbox1.Checked then
          dm.ADODataSetBookQuery.Filter:=QueryStr+ ' like ' +
                                             quotedstr('%'+temp+'%')
        else
          dm.ADODataSetBookQuery.Filter:=QueryStr+ ' = ' +
                                             quotedstr(temp);
      dm.ADODataSetBookQuery.Filtered:=true;
      dm.ADODataSetBookQuery.First;
      while not dm.ADODataSetBookQuery.Eof do
      begin
          with listview1.Items.Add do
          begin
              caption:=dm.ADODataSetBookQuery.FieldValues['BookID'];
              subitems.Add(dm.ADODataSetBookQuery.FieldValues['BookName']);
              subitems.Add(dm.ADODataSetBookQuery.FieldValues['BookAuthor']);
              subitems.Add(dm.ADODataSetBookQuery.FieldValues['BookMan']);
              subitems.Add(dm.GetBookTypeName(dm.ADODataSetBookQuery.FieldValues['BookTypeID']));
              subitems.Add(dm.ADODataSetBookQuery.FieldValues['bookprice']);
              subitems.Add(dm.ADODataSetBookQuery.FieldValues['BookRemark']);
          end;
          dm.ADODataSetBookQuery.Next;
      end;
  end;
begin
    if radiobutton1.Checked then
      QueryStr:='BookID'
    else if radiobutton2.Checked then
      QueryStr:='BookName'
    else if radiobutton3.Checked then
      QueryStr:='BookAuthor'
    else if radiobutton4.Checked then
      QueryStr:='BookMan'
    else if radiobutton5.Checked then
      QueryStr:='BookTypeID'
    else if radiobutton7.Checked then
      QueryStr:='BookRemark'
     else if radiobutton1.Checked then
      QueryStr:='BookID';

    listview1.Items.Clear;
    ShowData;
end;

procedure TBookQueryF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    dm.ADODataSetBookQuery.Close;
    dm.ADODataSetBookStockQuery.Close;
    BookQueryF:=nil;
    action:=cafree;
end;

procedure TBookQueryF.BitBtn4Click(Sender: TObject);
begin
    close;
end;

procedure TBookQueryF.FormCreate(Sender: TObject);
begin
    caption:='图书查询';
    Icon:=mainf.Icon;
    dm.ADODataSetBookQuery.Connection:=dm.ADOConnection1;
    dm.ADODataSetBookQuery.CommandText:='select * from book_info';
    dm.ADODataSetBookQuery.Open;
    dm.ADODataSetBookStockQuery.Connection:=dm.ADOConnection1;
    dm.ADODataSetBookStockQuery.CommandText:='select * from book_stock';
    dm.ADODataSetBookStockQuery.Open;
end;

procedure TBookQueryF.BitBtn5Click(Sender: TObject);

begin
  listview2.Items.Clear;
  with dm.ADODataSetBookStockQuery do
  begin
    first;
    while not Eof do
    begin
      with listview2.Items.Add do
      begin
        caption:=dm.GetBookName(FieldValues['bookid']);
        subitems.Add(FieldValues['bookinnumber']);
        subitems.Add(FieldValues['bookindate']);
        subitems.Add(FieldValues['bookoutnumber']);
        subitems.Add(FieldValues['bookoutdate']);
      end;
      Next;
    end;
  end;
end;

procedure TBookQueryF.BitBtn2Click(Sender: TObject);
begin
   if tabsheet1.Showing=true then
        ExportExcelListView:=listview1.Name
    else if tabsheet2.Showing=true then
        ExportExcelListView:=listview2.name;
    OpenForm(TExportExcelF,ExportExcelF,BookQueryF,true);
end;

procedure TBookQueryF.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=13 then BitBtn1Click(Sender);
end;

end.