?? unit1.txt
字號(hào):
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, DB, ADODB;
type
Ttscx = 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
tscx: Ttscx;
implementation
{$R *.dfm}
procedure Ttscx.BitBtn2Click(Sender: TObject);
begin
close
end;
procedure Ttscx.ComboBox1Change(Sender: TObject);
begin
edit1.Text:=''
end;
procedure Ttscx.BitBtn1Click(Sender: TObject);
var g,gz:string;
begin
g:=trim(combobox1.Text);
gz:=trim(edit1.Text);
if(g='')and(gz='')then
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from tsbm order by sh');
prepared;
open;
end
else
if(g<>'')and (gz='') then
showmessage('請(qǐng)輸入"查詢的關(guān)鍵字"信息!')
else
if (g='') and (gz<>'') then
showmessage('請(qǐng)選擇"關(guān)鍵字設(shè)置"信息')
else
begin
gz:=gz+'%';
if g='圖書(shū)編號(hào)' then
with adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from tsbm where sh like :name order by sh');
Parameters.ParamByName('name').Value:=gz;
Prepared;
Open;
end
else
if g='圖書(shū)名稱' then
with adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from tsbm where sm like :name order by sh');
Parameters.ParamByName('name').Value:=gz;
Prepared;
Open;
end
else
if g='圖書(shū)類別' then
with adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from tsbm where lb like :name order by sh');
Parameters.ParamByName('name').Value:=gz;
Prepared;
Open;
end
else
if g='作者姓名' then
with adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from tsbm where zz like :name order by sh');
Parameters.ParamByName('name').Value:=gz;
Prepared;
Open;
end
else
if g='出版社' then
with adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from tsbm where cbs like :name order by sh');
Parameters.ParamByName('name').value:=gz;
Prepared;
Open;
end
end;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -