userdocumentform.pas

图书管理系统,使用Delphi开发,数据库为Microsoft SQL Server 2

unit UserDocumentForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, ADODB, ImgList, DB, Grids, DBGrids, ExtCtrls, StdCtrls,
  Buttons, ComCtrls, ToolWin, DBCtrls, Mask;

type
  TUserDocument = class(TParent)
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBMemo1: TDBMemo;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    ADOQuery2: TADOQuery;
    Panel2: TPanel;
    MonthCalendar1: TMonthCalendar;
    procedure FormShow(Sender: TObject);
    procedure DBComboBox2DropDown(Sender: TObject);
    procedure MonthCalendar1DblClick(Sender: TObject);
    procedure DBComboBox6DropDown(Sender: TObject);
    procedure DBComboBox6Exit(Sender: TObject);
    procedure DBComboBox4Exit(Sender: TObject);
    procedure DBComboBox4DblClick(Sender: TObject);
    procedure DBComboBox5DblClick(Sender: TObject);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure DBComboBox5DropDown(Sender: TObject);
    procedure DBComboBox4DropDown(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserDocument: TUserDocument;

implementation

{$R *.dfm}
uses
DataMod;

procedure TUserDocument.FormShow(Sender: TObject);
var
  name:string;
begin
  inherited;
  //
  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add('select distinct ReaderType_Type from ReaderType');
  adoquery2.Open;
  //
  dbcombobox2.Items.Clear;
  //
  while not adoquery2.Eof do
    begin
      name:=adoquery2.fieldbyname('ReaderType_Type').AsString;
      dbcombobox2.Items.Add(name);
      adoquery2.Next;
    end;

end;

procedure TUserDocument.DBComboBox2DropDown(Sender: TObject);
begin
  inherited;
  dbcombobox2.text:=dbcombobox2.text;

end;

procedure TUserDocument.MonthCalendar1DblClick(Sender: TObject);
begin
  inherited;
if dbcombobox4.focused then
   dbcombobox4.text:=datetostr(monthcalendar1.date);
if dbcombobox5.focused then
   dbcombobox5.text:=datetostr(monthcalendar1.date);
if dbcombobox6.focused then
   dbcombobox6.text:=datetostr(monthcalendar1.date);
   panel2.visible:=false;
end;

procedure TUserDocument.DBComboBox6DropDown(Sender: TObject);
begin
  inherited;
panel2.visible:=true;
end;

procedure TUserDocument.DBComboBox6Exit(Sender: TObject);
begin
  inherited;
panel2.visible:=false;
end;

procedure TUserDocument.DBComboBox4Exit(Sender: TObject);
begin
  inherited;
panel2.visible:=false;
end;

procedure TUserDocument.DBComboBox4DblClick(Sender: TObject);
begin
  inherited;
//panel2.visible:=true;
end;

procedure TUserDocument.DBComboBox5DblClick(Sender: TObject);
begin
  inherited;
//panel2.visible:=true;
end;

procedure TUserDocument.DBComboBox5Exit(Sender: TObject);
begin
  inherited;
panel2.visible:=false;
end;

procedure TUserDocument.DBComboBox5DropDown(Sender: TObject);
begin
  inherited;
panel2.visible:=true;
end;

procedure TUserDocument.DBComboBox4DropDown(Sender: TObject);
begin
  inherited;
panel2.visible:=true;
end;

procedure TUserDocument.BitBtn1Click(Sender: TObject);
var
condition:integer;
begin
  inherited;
  condition:=7;
  if label3.Visible=false then
    condition:=(condition)and(3);
  if label4.Visible=false then
    condition:=(condition)and(5);
  if label5.Visible=false then
    condition:=(condition)and(6);

  if condition=7 then
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add('where(ReaderInfo_BarCode like ''%'+edit1.Text+'%'')');
      adoquery1.SQL.Add('and(ReaderInfo_No like ''%'+edit2.Text+'%'')');
      adoquery1.SQL.Add('and(ReaderInfo_Name like ''%'+edit3.Text+'%'')');
      adoquery1.Open;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;

  if condition=6 then //
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add('where(ReaderInfo_BarCode like ''%'+edit2.Text+'%'')');
      adoquery1.SQL.Add('and(ReaderInfo_No like''%'+edit2.Text+'%'')');
      adoquery1.Open;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;

  if condition=4 then //
    begin
      adoquery1.Close;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add(' where(ReaderInfo_BarCode like ''%'+edit1.Text+'%'')');
      adoquery1.Open;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;
end;

end.