?? unit3.pas
字號:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, DB, ADODB;
type
Tcjts = class(TForm)
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBGrid1: TDBGrid;
Label3: TLabel;
procedure BitBtn2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
cjts: Tcjts;
implementation
{$R *.dfm}
procedure Tcjts.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure Tcjts.ComboBox1Change(Sender: TObject);
begin
edit1.Text:=''
end;
procedure Tcjts.BitBtn1Click(Sender: TObject);
var g,gz,j,s:string;
begin
g:=trim(combobox1.Text);
gz:=trim(edit1.Text);
j:='借出';
s:='在庫';
if(g='')and(gz='')then
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
sql.add('from tsbm,dzmc,tsjy');
sql.Add('where (tsbm.sh=tsjy.sh)and (dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jn)');
sql.Add('order by tsbm.sh');
Parameters.ParamByName('jn').Value:=j;
prepared;
open;
end
else
if(g<>'')and (gz='') then
showmessage('請輸入"查詢的關鍵字"信息!')
else
if (g='') and (gz<>'') then
showmessage('請選擇"關鍵字設置"信息')
else
begin
gz:=gz+'%';
if g='圖書編號' then
with adoquery1 do
begin
Close;
SQL.Clear;
sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
sql.add('from tsbm,dzmc,tsjy');
sql.Add('where (tsbm.sh=tsjy.sh)and (dzmc.jszh=tsjy.jszh)and(tsjy.sh like :name) and(tsjy.jcbz=:jn)');
sql.Add('order by tsbm.sh');
Parameters.ParamByName('jn').Value:=j;
Parameters.ParamByName('name').Value:=gz;
Prepared;
Open;
end
else
if g='圖書名稱' then
with adoquery1 do
begin
Close;
SQL.Clear;
sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
sql.add('from tsbm,dzmc,tsjy');
sql.Add('where (tsbm.sh=tsjy.sh)and (dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jn)and(tsbm.sm like :name)');
sql.Add('order by tsbm.sh');
Parameters.ParamByName('jn').Value:=j;
Parameters.ParamByName('name').Value:=gz;
Prepared;
Open;
end
else
if g='借書證號' then
with adoquery1 do
begin
Close;
SQL.Clear;
sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
sql.add('from tsbm,dzmc,tsjy');
sql.Add('where (tsbm.sh=tsjy.sh)and (dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jn)and(tsjy.jszh like :name)');
sql.Add('order by tsbm.sh');
Parameters.ParamByName('jn').Value:=j;
Parameters.ParamByName('name').Value:=gz;
Prepared;
Open;
end
else
if g='讀者姓名' then
with adoquery1 do
begin
Close;
SQL.Clear;
sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
sql.add('from tsbm,dzmc,tsjy');
sql.Add('where (tsbm.sh=tsjy.sh)and (dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jn)and(dzmc.xm like :name)');
sql.Add('order by tsbm.sh');
Parameters.ParamByName('jn').Value:=j;
Parameters.ParamByName('name').Value:=gz;
Prepared;
Open;
end
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -