?? searchpas.pas
字號:
unit Searchpas;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons;
type
TSearchForm = class(TForm)
SelectWordBox: TGroupBox;
CB_UseName: TComboBox;
AllDateSel: TRadioButton;
SiteDateSel: TRadioButton;
DatePick: TDateTimePicker;
UseNameLabel: TLabel;
IsokBut: TBitBtn;
CancelBut: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure SiteDateSelClick(Sender: TObject);
procedure AllDateSelClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure IsokButClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SearchForm: TSearchForm;
implementation
uses Share_Date;
{$R *.dfm}
procedure TSearchForm.FormCreate(Sender: TObject);
begin
//==== 窗體創建時的過程代碼 ====//
CB_UseName.Clear;
CB_UseName.Items.AddStrings(Share_Str);
CB_UseName.ItemIndex := 0;
SiteDateSel.Checked := TRUE;
DatePick.Format := 'yyyy-MM-dd';
DatePick.Date := Now();
end;
procedure TSearchForm.SiteDateSelClick(Sender: TObject);
begin
if SiteDateSel.Checked = TRUE then DatePick.Enabled := TRUE
else DatePick.Enabled := FALSE;
end;
procedure TSearchForm.AllDateSelClick(Sender: TObject);
begin
SiteDateSelClick(SiteDateSel);
end;
procedure TSearchForm.FormActivate(Sender: TObject);
begin
CB_UseName.SetFocus;
end;
procedure TSearchForm.IsokButClick(Sender: TObject);
begin
Share_Sqlstr := 'SELECT * FROM JihuaTable WHERE JihuaName LIKE ''';
if CompareText(Trim(CB_UseName.Text), 'ALL Uses') <> 0 then
Share_Sqlstr := Share_Sqlstr + Trim(CB_UseName.Text) + ''''
else Share_Sqlstr := Share_Sqlstr + '%''';
if SiteDateSel.Checked = TRUE then begin
Share_Sqlstr := Share_Sqlstr + ' AND CreateDate>=''';
Share_Sqlstr := Share_Sqlstr + FormatDateTime('yyyymmdd',DatePick.Date) + ''' AND CreateDate<''';
Share_Sqlstr := Share_Sqlstr + FormatDateTime('yyyymmdd',DatePick.Date + 1) + '''';
end;
Share_Sqlstr := Share_Sqlstr + ' ORDER BY JihuaName';
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -