uqueryfordate.pas

说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄弟可以看看. 本程序类型：delphi7 + Access2000 桌面数据库 初始用户名/密码:admin

unit UQueryForDate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ComCtrls, StdCtrls, ExtCtrls;

type
  TForm_QueryForDate = class(TForm)
    StartDateQuery: TDateTimePicker;
    StopDateQuery: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_QueryForDate: TForm_QueryForDate;

implementation
uses Umain;
{$R *.dfm}

procedure TForm_QueryForDate.SpeedButton1Click(Sender: TObject);
var FieldName:string;//查询的字段名
    SQLstring:string;//查询语句
begin
  if RadioGroup1.ItemIndex <> -1 then
  begin
  //选择要查询的字段
    case RadioGroup1.ItemIndex of
      0:
        begin
          FieldName := 'Employee_Birthday';
        end;
      1:
        begin
          FieldName := 'Employee_StartWorkDate';
        end;
      2:
        begin
          FieldName := 'Employee_JoinDate';
        end;
      3:
        begin
          FieldName := 'Employee_BargainStart';
        end;
      4:
        begin
          FieldName := 'Employee_Bargainstop';
        end;
    end;
    //根据字段和日期段构造查询语句
    SQLstring := 'SELECT * FROM Employee WHERE ';
    SQLstring := SQLstring + FieldName + '>=' + '''' + datetostr(startdatequery.Date) + '''';
    SQLstring := SQLstring + ' and ' + FieldName + '<=' + '''' + datetostr(stopdatequery.Date) + '''';
    //显示一下语句看看是否正确
    // showmessage(SQLstring);
    //根据刚才构造的语句执行查询
    with Form_main.ADOQDBGrid do
    begin
      close;
      SQL.Clear;
      SQL.Add(SQLstring);
      open;
    end;
    showmessage('当前查到有 '+IntToStr(Form_main.ADOQDBGrid.RecordCount)+'  条符合条件记录');
    Form_QueryForDate.WindowState:=wsMinimized;
  end
  else
  begin
    beep;
    showmessage('请选中您要查询的日期种类');
  end;
end;

end.