?? ucx.pas
字號:
unit ucx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
type
Tfrmcx = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
comxm1: TComboBox;
comtj1: TComboBox;
editz1: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
comxm2: TComboBox;
comtj2: TComboBox;
Button1: TButton;
Button2: TButton;
editz2: TEdit;
adocx: TADOQuery;
RadioButton3: TRadioButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmcx: Tfrmcx;
implementation
uses uconst;
{$R *.dfm}
procedure Tfrmcx.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tfrmcx.FormCreate(Sender: TObject);
begin
comxm1.Items.Clear;
comxm2.Items.Clear;
comtj1.Items.Clear;
comtj2.Items.Clear;
comtj1.Items.Add('=');
comtj1.Items.Add('>');
comtj1.Items.Add('<');
comtj1.Items.Add('like');
comtj2.Items.Add('=');
comtj2.Items.Add('>');
comtj2.Items.Add('<');
comtj2.Items.Add('like');
end;
procedure Tfrmcx.Button1Click(Sender: TObject);
begin
if (comxm1.text='') or (comtj1.text='') then begin
messagebox(handle,'查詢項目不完整','警告',mb_ok+mb_iconwarning);
exit;
end;
strcx:='';
if trim(comtj1.Text)='like' then
begin
strcx:=trim(comxm1.Text) +' like ' + ''''+'%'+trim(editz1.Text)+ '%'+'''';
end else begin
strcx:=trim(comxm1.Text) + trim(comtj1.Text) + ''''+trim(editz1.Text)+'''';
end;
if RadioButton1.Checked then begin
if trim(comtj2.Text)='like' then begin
strcx:=strcx+' and '+trim(comxm2.Text) +' like ' + ''''+'%'+trim(editz2.Text)+ '%'+'''';
end else begin
strcx:=strcx+' and '+trim(comxm2.Text)+trim(comtj2.Text) +''''+ trim(editz2.Text)+'''';
end;
end;
if RadioButton2.Checked then begin
if trim(comtj2.Text)='like' then begin
strcx:=strcx+' or '+trim(comxm2.Text) + ' like ' + ''''+'%'+trim(editz2.Text)+ '%'+'''';
end else begin
strcx:=strcx+' or '+trim(comxm2.Text) + trim(comtj2.Text) +''''+ trim(editz2.Text)+'''';
end;
end;
adocx.Filtered:=true;
adocx.Recordset.Filter:=strcx;
close;
end;
procedure Tfrmcx.FormShow(Sender: TObject);
var
i:integer;
begin
comxm1.Items.Clear;
comxm2.Items.Clear;
for i:=0 to adocx.Recordset.Fields.Count-1 do begin
comxm1.Items.Add(adocx.Recordset.Fields[i].name);
comxm2.Items.Add(adocx.Recordset.Fields[i].name);
next;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -