u_kqsource.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_KQSource;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Form_base, DB, ADODB, Grids, DBGridEh, ComCtrls, ExtCtrls,
  StdCtrls, Buttons;

type
  TF_KQSource = class(TF_Form_base)
    Panel1: TPanel;
    Q_mainICcardNO: TStringField;
    Q_mainMachNO: TStringField;
    Q_mainFdate: TDateTimeField;
    Q_mainFtime: TDateTimeField;
    Q_mainEmp_bmname: TStringField;
    Q_mainEmp_id: TStringField;
    Q_mainEmp_name: TStringField;
    D1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    D2: TDateTimePicker;
    BitQuery: TBitBtn;
    Bitprint: TBitBtn;
    Bitexit: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Edit2: TEdit;
    EDep: TEdit;
    SpeedButton1: TSpeedButton;
    DBGridEh1: TDBGridEh;
    procedure BitexitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitQueryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_KQSource: TF_KQSource;

implementation

uses U_Departselect, U_data;

{$R *.dfm}

procedure TF_KQSource.BitexitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_KQSource.FormShow(Sender: TObject);
begin
  inherited;
  D1.Date := Date;
  D2.Date := date;
end;

procedure TF_KQSource.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  application.CreateForm(TF_DepartSelect, F_DepartSelect);
  if F_DepartSelect.ShowModal = mrok then
    EDep.Text := F_DepartSelect.SDep_name;
  F_DepartSelect.Free;
end;

procedure TF_KQSource.BitQueryClick(Sender: TObject);
begin
  inherited;
  SQL_S := 'Select * from V_KQSource where Convert(varchar(10),FDate,120)>='''
    + Datetostr(D1.Date) + ''' and convert(varchar(10),Fdate,120)<''' + Datetostr(D2.Date + 1) + '''';
  if EDep.Text <> '' then
    Sql_s := sql_s + ' and Emp_bmname=''' + Edep.text + '''';
  if trim(Edit1.Text) <> '' then
    Sql_S := Sql_s + ' and Emp_id like ''%' + Trim(edit1.Text) + '%''';
  if Trim(edit2.Text) <> '' then
    Sql_s := Sql_s + ' and IcCardno like ''%' + Trim(edit2.Text) + '%''';
  Sql_change(Q_main, sql_s);
end;

initialization
  RegisterClass(TF_KQSource);

end.