searchpas.pas

来自「DELPHI 编写个人工作计划事务管理软件」· PAS 代码 · 共 81 行

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.