?? unit8.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -