u_holiday.~pas

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

unit u_holiday;

interface

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

type
  TF_holiday = class(TForm)
    DBGrid1: TDBGrid;
    Label3: TLabel;
   
    Ds_holiday: TDataSource;
    Label6: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    MaskEdit1: TMaskEdit;
    DateTimePicker1: TDateTimePicker;
    Label5: TLabel;
    Edit2: TEdit;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Button1: TSpeedButton;
    Button2: TSpeedButton;
    Label1: TLabel;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label7: TLabel;
    ComboBox2: TComboBox;
    Label8: TLabel;
    Edit4: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations}
     sql:string;

    Procedure EXE_sql(s:string);
  public
    { Public declarations }
  end;

var
  F_holiday: TF_holiday;

implementation
uses u_dm,u_empteams;

{$R *.dfm}

procedure TF_holiday.EXE_sql(s:string);
begin
  with DM.QV_dep_emp_holi do
    begin
      close;
      sql.Clear;
      sql.Add(s);
      sql.Add(' order by name,ht_date,ht_name');
      open;
    end;
end;

procedure TF_holiday.SpeedButton1Click(Sender: TObject);
begin
with DM.Qv_dep_emp_holi do
 begin
 close;
 sql.clear;
 sql.add('select * from v_dep_emp_holi where ht_name='+''''+edit1.text+'''');
 open;
 end;
end;

procedure TF_holiday.SpeedButton2Click(Sender: TObject);
begin
if edit2.text='' then
with DM.qv_dep_emp_holi do
 begin
 close;
 sql.clear;
 sql.add('select * from v_dep_emp_holi where name='+''''+edit2.text+'''');
 open;
 end;
end;

procedure TF_holiday.SpeedButton3Click(Sender: TObject);
begin
with DM.qv_dep_emp_holi do
  begin
  close;
  sql.clear;
  sql.add('select * from v_dep_emp_holi where ht_date='+''''+maskedit1.text+'''');
  open;
  end;
end;

procedure TF_holiday.Button1Click(Sender: TObject);
begin

with DM.QV_dep_emp_holi do
  begin
  close;
  sql.clear;
  sql.add('select * from v_dep_emp_holi where ht_name='+''''+combobox2.text+'''');
  sql.add(' and work_num='+''''+edit4.text+'''');
  sql.add('order by ht_date');
  try
  open;
  except
  showmessage('对不起,此员工没有请假！');
  end;
  end;
end;

procedure TF_holiday.DateTimePicker1Change(Sender: TObject);
begin
maskedit1.Text:=datetostr(datetimepicker1.Date);
end;

procedure TF_holiday.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
F_holiday:=nil;
end;

procedure TF_holiday.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TF_holiday.SpeedButton5Click(Sender: TObject);
begin
 if F_empteams=nil then
    F_empteams:=TF_empteams.Create(self);
    F_empteams.Panel1.Visible:=true;
    F_empteams.Label10.Visible:=true;
    F_empteams.Edit3.Visible:=true;
    F_empteams.Caption:='$员工补假登记$';
    F_empteams.Show;
 
end;

procedure TF_holiday.SpeedButton4Click(Sender: TObject);
begin
with DM.qv_dep_emp_holi do
  begin
  close;
  sql.clear;
  sql.add('select * from v_dep_emp_holi where work_num='+''''+edit2.text+'''');
  open;
  end;
end;

procedure TF_holiday.SpeedButton6Click(Sender: TObject);
begin
 if DM.QV_dep_emp_holi.RecordCount=0 then exit;
  if MessageDlg('你确实要销除'+DM.QV_dep_emp_holi.FieldByName('name').asstring+'的请假记录吗?',mtConfirmation,[mbYes,mbNo],0)=mrNo then exit ;
  with DM.Q_temp do
    begin
      close;
      sql.Clear;
      sql.Add('delete from holiday_time where empid='+DM.QV_dep_emp_holi.FieldByName('empid').asstring);
      sql.Add(' and ht_name='+''''+DM.QV_dep_emp_holi.FieldByName('ht_name').asstring+'''');
      sql.Add(' and ht_date='+''''+DM.QV_dep_emp_holi.FieldByName('ht_date').asstring+'''');
      sql.Add(' and begin_time='+DM.QV_dep_emp_holi.FieldByName('begin_time').asstring);
      ExecSQL;
    end;
  showmessage('员工' + DM.QV_dep_emp_holi.FieldByName('name').asstring+'的请假记录已销去');
  EXE_sql(sql);
end;

procedure TF_holiday.ComboBox1Click(Sender: TObject);
begin
edit1.Text:=combobox1.Text;

end;

procedure TF_holiday.ComboBox2Click(Sender: TObject);
begin
//--
end;

procedure TF_holiday.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton1.Click;
end;

procedure TF_holiday.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton2.click;
end;

procedure TF_holiday.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton4.Click ;
end;

procedure TF_holiday.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton3.click;
end;

procedure TF_holiday.Button2Click(Sender: TObject);
begin
close; 
end;

procedure TF_holiday.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button1.Click;
end;

end.