u_deletedemp.pas

小型劳资管理系统,用visual basic+access编写

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;
    StatusBar1: TStatusBar;
    Query2: TQuery;
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Edit1: TEdit;
    bitbtn1: TSpeedButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    RadioGroup2: TRadioGroup;
    SpeedButton1: TSpeedButton;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    SpeedButton3: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox2: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox3: TComboBox;
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_deletedemp: TF_deletedemp;

implementation

{$R *.DFM}

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

end;

procedure TF_deletedemp.Button1Click(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.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Query1.close;
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.DateTimePicker1Change(Sender: TObject);
begin
maskedit1.Text:=datetostr(datetimepicker1.date);
end;

procedure TF_deletedemp.SpeedButton3Click(Sender: TObject);
begin
with query1 do
     begin
      close;
      sql.Clear;
      sql.Add('select * from v_deletedempdata where sex='+''''+combobox1.text+'''');
      sql.Add(' and marry='+''''+combobox2.Text+'''');
      sql.Add('and home_ori='+''''+combobox3.text+'''');
      sql.add('order by work_num');
      open;
      end;
end;

procedure TF_deletedemp.FormShow(Sender: TObject);
begin
query1.Active:=true;
end;

procedure TF_deletedemp.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
bitbtn1.click;
end;

end.