u_deletedemp.pas

人事考勤管理系統源代碼

unit U_deletedemp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, ComCtrls, Mask;

type
  TF_deletedemp = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1emp_id: TIntegerField;
    Query1work_num: TStringField;
    Query1card_num: TStringField;
    Query1name: TStringField;
    Query1IC_id: TStringField;
    Query1birthday: TStringField;
    Query1sex: TStringField;
    Query1Marry: TStringField;
    Query1In_date: TStringField;
    Query1Now_add: TStringField;
    Query1TelePhone: TStringField;
    Query1home_ori: TStringField;
    Query1home_add: TStringField;
    Query1home_mem: TStringField;
    Query1home_relation: TStringField;
    Query1grd_zy: TStringField;
    Query1grd_date: TDateTimeField;
    Query1degree: TStringField;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    StatusBar1: TStatusBar;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    SpeedButton1: TSpeedButton;
    RadioGroup2: TRadioGroup;
    Query2: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_deletedemp: TF_deletedemp;

implementation

{$R *.DFM}

procedure TF_deletedemp.BitBtn1Click(Sender: TObject);
begin
  if Edit1.Text='' then
    with Query1 do
      begin
        close;
        sql.Clear;
        sql.Add('select * from V_deletedempdata');
        open;
        exit;
      end;
  if RadioGroup1.ItemIndex=0 then
    begin
      Query1.Locate('work_num',Edit1.text,[loCaseInsensitive]);
    end
  else
    begin
      Query1.Locate('name',Edit1.text,[loCaseInsensitive]);
    end;
end;

procedure TF_deletedemp.Query1AfterOpen(DataSet: TDataSet);
begin
  StatusBar1.Panels[1].Text:=inttostr(Query1.RecordCount);

end;

procedure TF_deletedemp.SpeedButton1Click(Sender: TObject);
begin
  if RadioGroup2.ItemIndex=0 then
    begin
      with Query1 do
        begin
          close;
          sql.Clear;
          sql.Add('select * from V_deletedempdata ');
          sql.Add(' where substring(CONVERT (char(11), grd_date , 111),1,7)='+''''+copy(Maskedit1.Text,1,7)+'''');
          open;
        end;
    end
  else
    begin
      with Query1 do
        begin
          close;
          sql.Clear;
          sql.Add('select * from V_deletedempdata ');
          sql.Add(' where CONVERT (char(11), grd_date , 111)='+''''+Maskedit1.Text+'''');
          open;
        end;
    end;

end;

procedure TF_deletedemp.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Query1.close;
end;

end.