umoveto.pas

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

unit UMoveTo;

interface

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

type
  TForm_MoveTo = class(TForm)
    EditMTRecord: TSpeedButton;
    DeleteMTRecord: TSpeedButton;
    OutputMTRecord: TSpeedButton;
    SBshowAll: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    AddMTRecord: TSpeedButton;
    Edit1: TEdit;
    SelectEmployeeID: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    MoveToDateTime: TDateTimePicker;
    DBGridMoveTo: TDBGridEh;
    DS10: TDataSource;
    ADOQMoveTo: TADOQuery;
    Label5: TLabel;
    ComboBox2: TComboBox;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label11: TLabel;
    Edit4: TEdit;
    procedure FormShow(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure AddMTRecordClick(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure EditMTRecordClick(Sender: TObject);
    procedure SelectEmployeeIDClick(Sender: TObject);
    procedure DeleteMTRecordClick(Sender: TObject);
    procedure SBshowAllClick(Sender: TObject);
    procedure OutputMTRecordClick(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    NotEdit: string;
    procedure LoadFirstDept;
    procedure LoadSecondDept(var FirstDeptName: string);
  public
    { Public declarations }
  end;

var
  Form_MoveTo: TForm_MoveTo;

implementation
uses Umain, USelectEmployee, UFamily;
{$R *.dfm}
//====================
// 加载一级部门
//====================

procedure TForm_MoveTo.LoadFirstDept;
begin
  ComboBox3.Clear;
  try
    with Form_main.TabDept do
    begin
      close;
      open;
      first;
      while not eof do
      begin
        if FieldByName('dept_upid').AsInteger = 0 then
        begin
          ComboBox3.Items.Add(FieldByName('dept_name').AsString);
        end
        else
          next;
        next;
      end; // while
      close;
    end; // with
  except
    beep;
    showmessage('打开部门表失败，请检查数据库是否存在');
  end;
end;
//===================
//加载二级部门
//===================

procedure TForm_MoveTo.LoadSecondDept(var FirstDeptName: string);
var DeptUpID: integer;
begin
  ComboBox4.Clear;
  ComboBox4.Items.Add('无');
  ComboBox4.Text := '无';
  try
    with form_main.TabDept do
    begin
      close;
      open;
      first;
      while not eof do
      begin
        if (FirstDeptName = FieldByName('dept_name').AsString) then
          DeptUpID := FieldByName('dept_id').AsInteger
        else
        begin
          if deptUpID <> 0 then
          begin
            if deptUpID = FieldByName('dept_upid').AsInteger then
              ComboBox4.Items.Add(fieldByName('dept_name').AsString);
          end;
        end;
        next;
      end; // while
      close;
    end; // with
  except
    showmessage('打开部门表失败，请检查数据库文件是否存在');
    exit;
  end;
end;

procedure TForm_MoveTo.FormShow(Sender: TObject);
begin
  MoveToDateTime.DateTime := now;
//  showmessage(edit1.Text);
  try
    with ADOQMoveTo do
    begin
      close;
      sql.Clear;
      sql.Add('select * from MoveTo');
      sql.Add('Where MT_EmployeeID=''' + edit1.Text + '''');
      open;
    end;
  except
    beep;
    showmessage('无法打开调动表');
  end;
//====================
//加载部门列表
//====================
  LoadFirstDept;
end;

procedure TForm_MoveTo.ComboBox3Click(Sender: TObject);
var deptname: string;
begin
  deptname := ComboBox3.Text;
  if (deptname <> '') then
    LoadSecondDept(deptname);
end;

procedure TForm_MoveTo.AddMTRecordClick(Sender: TObject);
begin
  if (ComboBox3.Text = '') and (length(trim(ComboBox3.Text)) > 50) then
  begin
    beep;
    showmessage('请在下拉列表中选择您需要的部门名');
    ComboBox3.SetFocus;
    exit;
  end;
  if (ComboBox4.Text = '') and (length(trim(ComboBox4.Text)) > 50) then
  begin
    beep;
    showmessage('请在下拉列表中选择您需要的部门名');
    ComboBox4.SetFocus;
    exit;
  end;
  if (trim(edit1.Text) <> '') and (AddMTRecord.Caption = '确定') then
  begin
    try
      with Form_main.TabMoveTo do
      begin
        close;
        open;
        insert;
        FieldByName('MT_EmployeeID').AsString := trim(edit1.Text);
        FieldByName('MT_Date').AsString := FormatdateTime('yyyy-mm-dd', MoveToDateTime.Date);
        FieldByName('MT_OldFirstDept').AsString := trim(ComboBox1.Text);
        FieldByName('MT_OldSecondDept').AsString := trim(ComboBox2.Text);
        FieldByName('MT_NewFirstDept').AsString := trim(ComboBox3.Text);
        FieldByName('MT_NewSecondDept').AsString := trim(ComboBox4.Text);
        if (trim(edit2.Text) <> '') and (length(trim(edit2.Text)) < 10) then
          FieldByName('MT_OldPay').AsString := trim(edit2.Text);
        if (trim(edit3.Text) <> '') and (length(trim(edit3.Text)) < 10) then
          FieldByName('MT_NewPay').AsString := trim(edit3.Text);
        if (trim(edit4.Text) <> '') and (length(trim(edit4.Text)) < 50) then
          FieldByName('MT_Explain').AsString := trim(edit4.Text);
        post;
        close;
      end;
    except
      beep;
      showmessage('打开调动表失败');
    end;
    Edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    FormShow(sender);
    exit;
  end;
  if (trim(edit1.Text) <> '') and (AddMTRecord.Caption = '更新') then
  begin
    try
      with Form_main.TabMoveTo do
      begin
        close;
        open;
        first;
        while not eof do
        begin
          if FieldValues['MT_ID'] = ADOQMoveTo.FieldValues['MT_ID'] then
          begin
            Update;
            edit;
            FieldByName('MT_EmployeeID').AsString := trim(edit1.Text);
            FieldByName('MT_Date').AsString := FormatdateTime('yyyy-mm-dd', MoveToDateTime.Date);
            FieldByName('MT_OldFirstDept').AsString := trim(ComboBox1.Text);
            FieldByName('MT_OldSecondDept').AsString := trim(ComboBox2.Text);
            FieldByName('MT_NewFirstDept').AsString := trim(ComboBox3.Text);
            FieldByName('MT_NewSecondDept').AsString := trim(ComboBox4.Text);
            if (trim(edit2.Text) <> '') and (length(trim(edit2.Text)) < 10) then
              FieldByName('MT_OldPay').AsString := trim(edit2.Text);
            if (trim(edit3.Text) <> '') and (length(trim(edit3.Text)) < 10) then
              FieldByName('MT_NewPay').AsString := trim(edit3.Text);
            if (trim(edit4.Text) <> '') and (length(trim(edit4.Text)) < 50) then
              FieldByName('MT_Explain').AsString := trim(edit4.Text);
            post;
            AddMTRecord.Caption := '确定';
            last; //记录指针指向未指针
          end;
          next;
        end;
        close;
        Edit2.Clear;
        edit3.Clear;
        edit4.Clear;
        FormShow(sender);
      end;
    except
      beep;
      showmessage('打开调动表失败');
    end;
  end;
end;
//==============
// 设置输入过滤
//==============

procedure TForm_MoveTo.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9']) then
    key := #0;
end;
//=====================
// 编辑选中记录
//=====================

procedure TForm_MoveTo.EditMTRecordClick(Sender: TObject);
begin
  if ADOQMoveTo.eof then
  begin
    showmessage('请选择一条记录！');
    exit;
  end;
  try
    with ADOQMoveTo do
    begin
      edit1.Enabled := true;
      edit1.Text := FieldByName('MT_EmployeeID').asstring;
      edit1.Enabled := false;
      edit2.Text := FieldByName('MT_OldPay').asstring;
      edit3.Text := FieldByName('MT_NewPay').asstring;
      edit4.Text := FieldByName('MT_Explain').asstring;
      MoveToDateTime.Date := StrToDate(FieldValues['MT_Date']);
      ComboBox1.Text := FieldByName('MT_OldFirstDept').AsString;
      ComboBox2.Text := FieldByName('MT_OldSecondDept').AsString;
      ComboBox3.Text := FieldByName('MT_NewFirstDept').AsString;
      ComboBox4.Text := FieldByName('MT_NewSecondDept').AsString;
      AddMTRecord.Caption := '更新';
    end;
  except
    beep;
    showmessage('打开调动表失败');
  end;
end;

procedure TForm_MoveTo.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;
    edit1.Text := Form_SelectEmployee.Edit1.Text;
    edit1.Enabled := false;
    ComboBox1.Text := Form_SelectEmployee.ADOQSelectEmployee.FieldValues['Employee_FirstDept'];
    ComboBox2.Text := Form_SelectEmployee.ADOQSelectEmployee.FieldValues['Employee_SecondDept'];
    Form_MoveTo.Caption := '编辑职工：' + Form_SelectEmployee.Edit2.Text + '的调动表';
    Form_SelectEmployee.Free;
    FormShow(Sender);
  end;
end;

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

procedure TForm_MoveTo.SBshowAllClick(Sender: TObject);
begin
  try
    with ADOQMoveTo do
    begin
      close;
      SQL.Clear;
      SQL.Add('SELECT * FROM MoveTo');
      open;
    end;
  except
    beep;
    showmessage('无法打开调动表，请检查数据库文件是否存在');
  end;
end;

procedure TForm_MoveTo.OutputMTRecordClick(Sender: TObject);
var ExpClass: TDBGridEhExportClass;
  Ext: string;
begin
  if ADOQMoveTo.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, DBGridMoveTo,
        Form_main.SaveDialog1.FileName, true);
    end;
  end;
end;

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

end.