uleave.pas

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

unit ULeave;

interface

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

type
  TForm_Leave = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    StartDateTime: TDateTimePicker;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    StopDateTime: TDateTimePicker;
    Edit3: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Memo1: TMemo;
    DS2: TDataSource;
    ADOQLeave: TADOQuery;
    Button3: TButton;
    AddLeaveRecord: TSpeedButton;
    PlayAllLeaveRecord: TSpeedButton;
    OutputLeaveRecord: TSpeedButton;
    EditLeaveRecord: TSpeedButton;
    DeleteLeaveRecord: TSpeedButton;
    DBGridLeave: TDBGridEh;
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PlayAllLeaveRecordClick(Sender: TObject);
    procedure AddLeaveRecordClick(Sender: TObject);
    procedure EditLeaveRecordClick(Sender: TObject);
    procedure DeleteLeaveRecordClick(Sender: TObject);
    procedure OutputLeaveRecordClick(Sender: TObject);
  private
    { Private declarations }
    NotEdit: string; //保存当前职工编号
  public
    { Public declarations }
  end;

var
  Form_Leave: TForm_Leave;

implementation
uses Umain, USelectEmployee;
{$R *.dfm}

procedure TForm_Leave.FormShow(Sender: TObject);
begin
  startDateTime.DateTime := now();
  StopDateTime.DateTime := now();
  AddLeaveRecord.Caption := '确定';
  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('病假');
  ComboBox1.Items.Add('事假');
  ComboBox1.Items.Add('休假');
  ComboBox1.Items.Add('产假');
  try
    ADOQLeave.Connection := Form_main.ADOC1;
    with ADOQLeave do
    begin
      SQL.Clear;
      SQL.Add('select * from Leave');
      SQL.Add('where Leave_EmployeeID=''' + edit1.Text + '''');
      open;
    end;
  except
    showmessage('假期表打开失败，请检查数据库文件是否存在');
  end;
end;

procedure TForm_Leave.Button3Click(Sender: TObject);
begin
 //取得当前编辑的职工编号
  NotEdit := edit1.text;
  Form_SelectEmployee := TForm_SelectEmployee.Create(Self);
  //传送当前职工编号到职工选择窗口的EDIT控件
  Form_SelectEmployee.Edit1.Text := edit1.Text;
  Form_SelectEmployee.ShowModal;
  if NotEdit <> Form_SelectEmployee.Edit1.Text then //判断有没改变
  begin
    edit1.Enabled := true;
    edit1.Text := Form_SelectEmployee.Edit1.Text;
    edit1.Enabled := false;
    form_Leave.Caption := '编辑职工：' + Form_SelectEmployee.Edit2.Text + ' 的假期表';
    Form_SelectEmployee.Free;
    FormShow(Sender);
  end;
end;

procedure TForm_Leave.PlayAllLeaveRecordClick(Sender: TObject);
begin
  try
    with ADOQLeave do
    begin
      SQL.Clear;
      SQL.Add('select * from Leave');
      open;
    end;
  except
    showmessage('显示记录失败，请检查数据库文件是否存在');
  end;
end;

procedure TForm_Leave.AddLeaveRecordClick(Sender: TObject);
var StartTime, StopTime: integer; //保存输入的时间
begin
//判断输入数据的正确性
  if (trim(ComboBox1.Text) = '') or (Length(trim(ComboBox1.Text)) > 20) then
  begin
    showmessage('请选择或输入正确的假期类型(不能为空或超过十个汉字)');
    exit;
  end;

  try
    StartTime := strToint(edit2.Text);
    if (StartTime < 0) or (StartTime > 24) then
    begin
      showmessage('您输入时间格式不正确，请输入0~24之间的数字');
      edit2.SetFocus;
      exit;
    end;
  except
    showmessage('您输入时间格式不正确，请输入0~24之间的数字');
    edit2.SetFocus;
    exit;
  end;

  try
    StopTime := strToint(edit3.Text);
    if (StopTime < 0) or (StopTime > 24) then
    begin
      showmessage('您输入时间格式不正确，请输入0~24之间的数字');
      edit3.SetFocus;
      exit;
    end;
  except
    showmessage('您输入时间格式不正确，请输入0~24之间的数字');
    edit3.SetFocus;
    exit;
  end;
  if (edit1.Text <> '') and (AddLeaveRecord.Caption = '确定') then
  begin
    try
      with Form_Main.TabLeave do
      begin
        close;
        open;
        insert;
        FieldValues['Leave_EmployeeID'] := edit1.Text;
        FieldValues['Leave_Type'] := trim(ComboBox1.Text);
        FieldValues['Leave_StartDate'] := Formatdatetime('yyyy-mm-dd', startDateTime.Date);
        FieldValues['Leave_StopDate'] := Formatdatetime('yyyy-mm-dd', stopDatetime.Date);
        FieldValues['Leave_StartTime'] := trim(edit2.Text);
        FieldValues['Leave_StopTime'] := trim(edit3.Text);
        if (Memo1.Text <> '') or (Length(trim(Memo1.Text)) < 200) then
        begin
          FieldValues['Leave_Explain'] := trim(Memo1.Text);
        end
        else
        begin
          showmessage('备注为空或太长(100个汉字以内)');
        end;
        post;
        close;
        showmessage('添加成功');
      end;
    except
      showmessage('添加失败，请检查数据库文件是否存在');
    end;
  end
  else
  begin
    try
      with Form_Main.TabLeave do
      begin
        close;
        open;
        first;
        while not eof do
        begin
          if FieldValues['Leave_id'] = ADOQLeave.FieldValues['Leave_id'] then
          begin
            update;
            Form_Main.TabLeave.Edit;
            FieldValues['Leave_EmployeeID'] := edit1.Text;
            FieldValues['Leave_Type'] := trim(ComboBox1.Text);
            FieldValues['Leave_StartDate'] := Formatdatetime('yyyy-mm-dd', startDateTime.Date);
            FieldValues['Leave_StopDate'] := Formatdatetime('yyyy-mm-dd', stopDatetime.Date);
            FieldValues['Leave_StartTime'] := trim(edit2.Text);
            FieldValues['Leave_StopTime'] := trim(edit3.Text);
            if (Memo1.Text <> '') or (Length(trim(Memo1.Text)) < 200) then
            begin
              FieldValues['Leave_Explain'] := trim(Memo1.Text);
            end
            else
            begin
              showmessage('备注为空或太长(100个汉字以内)');
            end;
            post;
            close;
            showmessage('添加成功');
          end;
          next;
        end;
      end;
    except
      showmessage('添加失败，请检查数据库文件是否存在');
    end;
    AddLeaveRecord.Caption := '确定';
  end;
  ComboBox1.Clear;
//  edit2.Clear;
//  edit3.Clear;
  startDateTime.DateTime := now();
  StopDateTime.DateTime := now();
  AddLeaveRecord.Caption := '确定';
  memo1.Clear;
  FormShow(Sender);
end;

procedure TForm_Leave.EditLeaveRecordClick(Sender: TObject);
begin
  if ADOQLeave.eof then
  begin
    showmessage('请选中一条记录');
    exit;
  end
  else
  begin
    with ADOQLeave do
    begin
      edit1.Enabled := true;
      edit1.Text := FieldValues['Leave_EmployeeID'];
      ComboBox1.Text := FieldValues['Leave_Type'];
      startDateTime.Date := strtodate(FieldValues['Leave_StartDate']);
      stopDateTime.Date := strtodate(FieldValues['Leave_StopDate']);
      edit2.Text := FieldByName('Leave_StartTime').AsString;
      edit3.Text := FieldByName('Leave_StopTime').AsString;
      Memo1.Text := FieldByName('Leave_Explain').AsString;
      edit1.Enabled := false;
      AddLeaveRecord.Caption := '更新';
    end;
  end;
end;

procedure TForm_Leave.DeleteLeaveRecordClick(Sender: TObject);
begin
  if ADOQLeave.eof then
  begin
    showmessage('请选择一条记录');
    exit;
  end
  else
  begin
    if ((MessageDlg('您确定要删除此记录吗？', mtConfirmation,
      [mbYes, mbNo], 0)) = mrYes) then
    begin
      ADOQLeave.Delete;
      showmessage('记录已删除');
    end;
  end;

end;

procedure TForm_Leave.OutputLeaveRecordClick(Sender: TObject);
var ExpClass: TDBGridEhExportClass;
  Ext: string;
begin
  if ADOQLeave.RecordCount = 0 then
  begin
    beep;
    showmessage('当前没有任何记录！');
    exit;
  end;
  Form_main.SaveDialog1.FileName := 'file1';
  if Form_main.SaveDialog1.Execute then
  begin
    case Form_main.SaveDialog1.FilterIndex of
      1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
      2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
      3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
      4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
      5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
    else
      ExpClass := nil; Ext := '';
    end;
    if ExpClass <> nil then
    begin
      if UpperCase(Copy(Form_main.SaveDialog1.FileName, Length(Form_main.SaveDialog1.FileName) - 2, 3)) <>
        UpperCase(Ext) then
        Form_main.SaveDialog1.FileName := Form_main.SaveDialog1.FileName + '.' + Ext;
      SaveDBGridEhToExportFile(ExpClass, DBGridLeave,
        Form_main.SaveDialog1.FileName, true);
    end;
  end;
end;

end.