uawardandpenalize.pas

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

unit UAwardAndPenalize;

interface

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

type
  TForm_AwardAndPenalize = class(TForm)
    EditAwardRecord: TSpeedButton;
    DeleteAwardRecord: TSpeedButton;
    OutputAwardRecord: TSpeedButton;
    DS4: TDataSource;
    ADOQAward: TADOQuery;
    DBGridLeave: TDBGridEh;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    ResetRecord: TSpeedButton;
    AddAwardRecord: TSpeedButton;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    SelectEmployeeID: TButton;
    Edit2: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    AwardDateTime: TDateTimePicker;
    StopAwardDateTime: TDateTimePicker;
    Edit3: TEdit;
    Edit5: TEdit;
    SpeedButton1: TSpeedButton;
    procedure SelectEmployeeIDClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EditAwardRecordClick(Sender: TObject);
    procedure ResetRecordClick(Sender: TObject);
    procedure AddAwardRecordClick(Sender: TObject);
    procedure DeleteAwardRecordClick(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure OutputAwardRecordClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
    NotEdit: string;
  public
    { Public declarations }
  end;

var
  Form_AwardAndPenalize: TForm_AwardAndPenalize;

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

procedure TForm_AwardAndPenalize.SelectEmployeeIDClick(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;
    edit2.Enabled := true;
    edit3.Enabled := true;
    edit1.Text := Form_SelectEmployee.Edit1.Text;
    edit2.Text := Form_SelectEmployee.Edit3.Text;
    edit3.Text := Form_SelectEmployee.Edit4.Text;
    edit1.Enabled := false;
    edit2.Enabled := false;
    edit3.Enabled := false;
    Form_AwardAndPenalize.Caption := '编辑职工：' + Form_SelectEmployee.Edit2.Text + '的奖惩记录';
    FormShow(Sender);
  end;
end;

procedure TForm_AwardAndPenalize.FormShow(Sender: TObject);
begin
  AddAwardRecord.Caption := '确定';
  AwardDateTime.DateTime := now(); //默认当前时间
  StopAwardDateTime.DateTime := now+7;
  ComboBox1.Clear;
  ComboBox1.Items.Clear;
  ComboBox1.Text := '奖励';
  ComboBox1.Items.Add('奖励');
  ComboBox1.Items.Add('惩罚');
  edit4.Clear;
  edit5.Clear;
  if edit1.Text <> '' then
  begin

  //显示当前职工已经设置了的成员列表
    try
      with ADOQAward do
      begin
        close;
        SQL.Clear;
        SQL.Add('SELECT * FROM AwardAndPenalize');
        SQL.Add('WHERE AP_EmployeeID=''' + edit1.Text + '''');
        open;
      end;
    except
      showmessage('无法打开奖惩表，请检查数据库文件是否存在');
    end;
  end;
end;

procedure TForm_AwardAndPenalize.EditAwardRecordClick(Sender: TObject);
begin
  if ADOQAward.eof then
  begin
    showmessage('请选中一条记录');
    exit;
  end
  else
  begin
    edit1.Enabled := true;
    edit2.Enabled := true;
    edit3.Enabled := true;
    edit1.Text := ADOQAward.FieldByName('AP_EmployeeID').AsString;
    edit2.Text := ADOQAward.FieldByName('AP_FirstDept').AsString;
    edit3.Text := ADOQAward.FieldByName('AP_SecondDept').AsString;
    edit1.Enabled := false;
    edit2.Enabled := false;
    edit3.Enabled := false;
    ComboBox1.Text := ADOQAward.FieldByName('AP_Type').AsString;
    AwardDateTime.Date := StrToDate(ADOQAward.FieldByName('AP_StartDate').AsString);
    StopAwardDateTime.Date := StrToDate(ADOQAward.FieldByName('AP_StopDate').AsString);
    edit4.Text := ADOQAward.FieldByName('AP_StartExplain').AsString;
    edit5.Text := ADOQAward.FieldByName('AP_StopExplain').AsString;
    AddAwardRecord.Caption := '更 新';
  end;
end;

procedure TForm_AwardAndPenalize.ResetRecordClick(Sender: TObject);
begin
  FormShow(Sender);
end;

procedure TForm_AwardAndPenalize.AddAwardRecordClick(Sender: TObject);
begin
  if (ComboBox1.Text <> '奖励') and (ComboBox1.Text <> '惩罚') then
  begin
    showmessage('请选择奖惩类型');
    ComboBox1.SetFocus;
    exit;
  end;
  if (trim(edit1.Text) <> '') and (AddAwardRecord.Caption = '确定') then
  begin
    try
      with Form_Main.TabAward do
      begin
        close;
        open;
        insert;
        FieldValues['AP_EmployeeID'] := trim(edit1.Text);
        FieldValues['AP_FirstDept'] := trim(edit2.Text);
        FieldValues['AP_SecondDept'] := trim(edit3.Text);
        FieldValues['AP_Type'] := trim(ComboBox1.Text);
        FieldValues['AP_StartDate'] := FormatDateTime('yyyy-mm-dd', AwardDateTime.Date);
        FieldValues['AP_StopDate'] := FormatDateTime('yyyy-mm-dd', StopAwardDateTime.Date);
        if (trim(edit4.Text) <> '') and (Length(Trim(edit4.Text)) < 50) then
        begin
          FieldValues['AP_StartExplain'] := trim(edit4.Text);
        end
        else
        begin
          showmessage('因为"奖惩原因"为空或超过25个汉字，此资料将不保存');
        end;
        if (trim(edit5.Text) <> '') and (Length(Trim(edit5.Text)) < 50) then
        begin
          FieldValues['AP_StopExplain'] := trim(edit5.Text);
        end
        else
        begin
          showmessage('因为"解除原因"为空或超过25个汉字，此资料将不保存');
        end;
        post;
        close;
        showmessage('添加成功');
      end;
    except
      showmessage('无法打开奖惩表，请检查数据库文件是否存在');
    end;
  end
  else
  begin
    if (trim(edit1.Text) <> '') and (AddAwardRecord.Caption = '更新') then

    try
      with Form_Main.TabAward do
      begin
        close;
        open;
        first;
        while not eof do
        begin
          if FieldValues['AP_ID'] = ADOQAward.FieldValues['AP_ID'] then
          begin
            update;
            Form_Main.TabAward.Edit;
            FieldValues['AP_EmployeeID'] := trim(edit1.Text);
            FieldValues['AP_FirstDept'] := trim(edit2.Text);
            FieldValues['AP_SecondDept'] := trim(edit3.Text);
            FieldValues['AP_Type'] := trim(ComboBox1.Text);
            FieldValues['AP_StartDate'] := FormatDateTime('yyyy-mm-dd', AwardDateTime.Date);
            FieldValues['AP_StopDate'] := FormatDateTime('yyyy-mm-dd', StopAwardDateTime.Date);
            if (trim(edit4.Text) <> '') and (Length(Trim(edit4.Text)) < 50) then
            begin
              FieldValues['AP_SecondDept'] := trim(edit4.Text);
            end
            else
            begin
              showmessage('因为"奖惩原因"为空或超过25个汉字，此资料将不保存');
            end;
            if (trim(edit5.Text) <> '') and (Length(Trim(edit5.Text)) < 50) then
            begin
              FieldValues['AP_SecondDept'] := trim(edit5.Text);
            end
            else
            begin
              showmessage('因为"解除原因"为空或超过25个汉字，此资料将不保存');
            end;
            post;
            last;
            showmessage('添加成功');
          end;
          next;
        end;
        close;
      end;
    except
      showmessage('无法打开奖惩表，请检查数据库文件是否存在');
    end;
  end;
  FormShow(sender);
end;

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

procedure TForm_AwardAndPenalize.Edit5KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    AddAwardRecordClick(Sender);
end;

procedure TForm_AwardAndPenalize.OutputAwardRecordClick(Sender: TObject);
var ExpClass: TDBGridEhExportClass;
  Ext: string;
begin
  if ADOQAward.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;

procedure TForm_AwardAndPenalize.SpeedButton1Click(Sender: TObject);
begin
    try
      with ADOQAward do
      begin
        close;
        SQL.Clear;
        SQL.Add('SELECT * FROM AwardAndPenalize');
        open;
      end;
    except
      showmessage('无法打开奖惩表，请检查数据库文件是否存在');
    end;
end;

end.