unit8.pas

利用delphi编写的原代码

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}
uses unit1;

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  Form_show:=False;
  
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
  Form_show:=True;  
end;

procedure TForm8.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TForm8.Button2Click(Sender: TObject);
var
  command_exe:Boolean;
begin
   command_exe:=True;
    if trim(edit1.Text)<>'' then
       if ((trim(combobox1.Text)<>'请选择') and (trim(combobox1.Text)<>'')) then
         begin
           //两个条件都满足
           Adodataset1.Active:=false;
           Adodataset1.CommandText:='select BOOK_ID as 图书编号,Shumin as  书名,Jieshuzhe as 借书人,JCZBumen as 借书人部门,Jiage as 价格,ZhuTai as 状态,Chu_riqi as 借出日期,YH_riqi as 应还日期 from shuku where Jieshuzhe='''+Trim(edit1.Text)+''' and JCZBumen='''+Trim(combobox1.Text)+'''';
           //showmessage(Adodataset1.CommandText);
           Adodataset1.Active:=True;
         end
       else
         begin
           //只有读者姓名作为查询条件
           Adodataset1.Active:=false;
           Adodataset1.CommandText:='select BOOK_ID as 图书编号,Shumin as  书名,Jieshuzhe as 借书人,JCZBumen as 借书人部门,Jiage as 价格,ZhuTai as 状态,Chu_riqi as 借出日期,YH_riqi as 应还日期 from shuku where Jieshuzhe='''+Trim(edit1.Text)+'''';
           //showmessage(Adodataset1.CommandText);
           Adodataset1.Active:=True;


         end

end;

end.