umain.pas

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

            next;
          end;
          close;
        end;
        try
          with ADOQDBGrid do
          begin
            SQL.Clear;
            SQL.Add('Select * from Employee');
            SQL.Add('Where Employee_SecondDept=''' + SecondDeptName + '''');
            SQL.Add('And Employee_Type<>''' + '辞职' + '''');
            open;
            if FirstDeptName = '' then
              FirstDeptName := CourNode.Parent.Text;
            label2.Caption := FirstDeptName + '－' + SecondDeptName +
              '　现总共有 ' + inttostr(ADOQDBGrid.RecordCount) + ' 位职工';
            StatusBar1.Panels[5].Text := '载入' + FirstDeptName + '－' +
              SecondDeptName + '职工耗时： ' + inttostr(RunStoptime) + ' 毫秒';
          end;
        except
          beep;
          showmessage('打开职工表失败，请检查数据库文件是否存在');
        end;
      end;
  end;
  //初始化职工表右键菜单
  if ADOQDBGrid.RecordCount = 0 then
  begin
    PMEmployeeBeginning;
  end
  else
  begin
    PMEmployeeOK;
  end;
end;

//=========================================
//载入全体职工
//=========================================

procedure TForm_Main.TBEmployeeListClick(Sender:TObject);
begin
  try
    with ADOQDBGrid do
    begin
      sql.Clear;
      sql.Add('select * from Employee');
      OPEN;
    end;
    StatusBar1.Panels[5].Text := '载入全体在职职工耗时： ' +
      inttostr(RunStoptime) + ' 毫秒';
  except
    showmessage('查看列表失败！请检查数据库是否存在');
  end;
end;

procedure TForm_Main.ToolButton7Click(Sender:TObject);
begin
  EditEmployeeClick(Sender);
end;

procedure TForm_Main.N21Click(Sender:TObject);
begin
  TBEmployeeListClick(Sender);
end;

procedure TForm_Main.TBPrepSetClick(Sender:TObject);
begin
  N6Click(Sender);
end;

procedure TForm_Main.TBNewEmployeeClick(Sender:TObject);
begin
  AddNewEmployeeClick(Sender);
end;

procedure TForm_Main.ToolButton16Click(Sender:TObject);
begin
  DeleteEmployeeClick(Sender);
end;

procedure TForm_Main.ToolButton8Click(Sender:TObject);
begin
  MoveToDeptClick(Sender);
end;

procedure TForm_Main.N16Click(Sender:TObject);
begin
  ToolButton24Click(Sender);
end;

procedure TForm_Main.N15Click(Sender:TObject);
begin
  ToolButton23Click(Sender);
end;

procedure TForm_Main.MainMenu_EditEmployeeClick(Sender:TObject);
begin
  EditEmployeeClick(Sender);
end;

//=========================================
//编辑当前职工的家庭成员表
//=========================================

procedure TForm_Main.FamilyClick(Sender:TObject);
begin
  if ADOQDBGrid.RecordCount > 0 then
  begin
    form_Family := Tform_Family.Create(self);
    //传送职工编号
    form_Family.edit1.Enabled := true;
    form_Family.edit1.Text := ADOQDBGrid.FieldValues['employee_id'];
    //职工的编号不能改
    form_Family.edit1.Enabled := false;
    form_Family.Caption := '编辑职工：' + ADOQDBGrid.FieldValues['employee_Name']
      + ' 的家庭成员';
    form_Family.ShowModal;
    form_Family.Free;
  end
  else
    showmessage('当前没有选中职工');
end;

//=========================================
//查找职工
//=========================================

procedure TForm_Main.BBSeachClick(Sender:TObject);
begin
  if trim(edit1.Text) = '' then
  begin
    Showmessage('请输入内容后再进行查询');
    exit;
  end;
  if ComboBox1.Text = '按工号查询' then
  begin
    try
      with ADOQDBGrid do
      begin
        close;
        SQL.Clear;
        SQL.Add('select * from Employee');
        SQL.Add('WHERE Employee_ID=''' + trim(edit1.Text) + '''');
        open;
        label2.Caption := '共有 ' + inttostr(ADOQDBGrid.RecordCount) +
          ' 位符合查询条件的职工';
      end;
      if ADOQDBGrid.RecordCount = 0 then
        showmessage('没找到职工编号为：' + Trim(edit1.Text) + ' 的职工');
    except
      Showmessage('职工表打开失败，请检查数据库文件是否存在');
    end;
    exit;
  end;
  if ComboBox1.Text = '按姓名模糊查询' then
  begin
    try
      with ADOQDBGrid do
      begin
        close;
        SQL.Clear;
        SQL.Add('select * from Employee');
        SQL.Add('WHERE Employee_name like''%' + trim(edit1.Text) + '%''');
        open;
        label2.Caption := '共有 ' + inttostr(ADOQDBGrid.RecordCount) +
          ' 位符合查询条件的职工';
      end;
      if ADOQDBGrid.RecordCount = 0 then
        showmessage('没找到姓名包含：' + Trim(edit1.Text) + ' 的职工');
    except
      Showmessage('职工表打开失败，请检查数据库文件是否存在');
    end;
    exit;
  end;
  showmessage('请选择查询方式');
end;

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

procedure TForm_Main.TBFamilyClick(Sender:TObject);
begin
  FamilyClick(Sender);
end;

procedure TForm_Main.MainMenu_FamilyClick(Sender:TObject);
begin
  FamilyClick(Sender);
end;

procedure TForm_Main.MainMenu_MoveOtherDeptClick(Sender:TObject);
begin
  MoveOtherDeptClick(Sender);
end;

//=========================================
//编辑当前职工的奖惩表
//=========================================

procedure TForm_Main.AwardClick(Sender:TObject);
begin
  if not (ADOQDBGrid.RecordCount = 0) then
  begin
    Form_AwardAndPenalize := TForm_AwardAndPenalize.Create(self);
    Form_AwardAndPenalize.Caption := '编辑职工：' +
      ADOQDBGrid.FieldValues['employee_Name'] + ' 的奖惩记录';
    Form_AwardAndPenalize.Edit1.Enabled := true;
    Form_AwardAndPenalize.Edit1.Text := ADOQDBGrid.FieldValues['employee_ID'];
    Form_AwardAndPenalize.Edit1.Enabled := false;
    Form_AwardAndPenalize.Edit2.Enabled := true;
    Form_AwardAndPenalize.Edit2.Text :=
      ADOQDBGrid.FieldValues['employee_FirstDept'];
    Form_AwardAndPenalize.Edit2.Enabled := false;
    Form_AwardAndPenalize.Edit3.Enabled := true;
    Form_AwardAndPenalize.Edit3.Text :=
      ADOQDBGrid.FieldValues['employee_SecondDept'];
    Form_AwardAndPenalize.Edit3.Enabled := false;
    Form_AwardAndPenalize.ShowModal;
    Form_AwardAndPenalize.Free;
  end
  else
  begin
    showmessage('当前没有选中职工');
  end
end;

//=========================================
//编辑当前职工的培训记录
//=========================================

procedure TForm_Main.CultivateClick(Sender:TObject);
begin
  if not ADOQDBGrid.Eof then
  begin
    form_Cultivate := Tform_Cultivate.Create(self);
    //传送职工编号
    form_Cultivate.edit1.Enabled := true;
    form_Cultivate.edit1.Text := ADOQDBGrid.FieldValues['employee_id'];
    //职工的编号不能改
    form_Cultivate.edit1.Enabled := false;
    form_Cultivate.Caption := '编辑职工：' +
      ADOQDBGrid.FieldValues['employee_Name'] + ' 的培训记录';
    form_Cultivate.ShowModal;
    form_Cultivate.Free;
  end
  else
    showmessage('当前没有选中职工');
end;

//=========================================
//编辑当前职工的工作单位记录
//=========================================

procedure TForm_Main.WorkStoyClick(Sender:TObject);
begin
  if ADOQDBGrid.RecordCount > 0 then
  begin
    form_WorkStoy := Tform_WorkStoy.Create(self);
    //传送职工编号
    form_WorkStoy.edit1.Enabled := true;
    form_WorkStoy.edit1.Text := ADOQDBGrid.FieldValues['employee_id'];
    //职工的编号不能改
    form_WorkStoy.edit1.Enabled := false;
    form_WorkStoy.Caption := '编辑职工：' +
      ADOQDBGrid.FieldValues['employee_Name'] + ' 的工作单位记录';
    form_WorkStoy.ShowModal;
    form_WorkStoy.Free;
  end
  else
    showmessage('当前没有选中职工');
end;

procedure TForm_Main.TBWorkstoyClick(Sender:TObject);
begin
  WorkStoyClick(Sender);
end;

procedure TForm_Main.MainMenu_WorkStoyClick(Sender:TObject);
begin
  WorkStoyClick(Sender);
end;

procedure TForm_Main.TBAwardClick(Sender:TObject);
begin
  AwardClick(Sender);
end;

procedure TForm_Main.MainMenu_AwardClick(Sender:TObject);
begin
  AwardClick(Sender);
end;

procedure TForm_Main.TBCultivateClick(Sender:TObject);
begin
  CultivateClick(Sender);
end;

procedure TForm_Main.MainMenu_LeaveClick(Sender:TObject);
begin
  LeaveClick(Sender);
end;

procedure TForm_Main.TBFindClick(Sender:TObject);
begin
  Form_FindEmployee := TForm_FindEmployee.Create(Self);
  Form_FindEmployee.Edit1.Enabled := false;
  Form_FindEmployee.Caption := '查找职工';
  Form_FindEmployee.ShowModal;
  Form_FindEmployee.Free;
end;

procedure TForm_Main.ToolButton20Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[3] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N25Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[0] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N26Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[1] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N27Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[2] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N33Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[3] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N34Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[4] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N35Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[5] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N36Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[6] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N37Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[7] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N38Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[8] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N39Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[9] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N40Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[10] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N41Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[11] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N42Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[12] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N43Click(Sender:TObject);
begin
  Form_DBChart := Tform_DBchart.Create(self);
  Form_DBChart.CountListBox.Selected[13] := true;
  Form_DBChart.ShowModal;
  Form_DBChart.Free;
end;

procedure TForm_Main.N65Click(Sender:TObject);
begin
  N43Click(Sender);
end;

procedure TForm_Main.N62Click(Sender:TObject);
begin
  N42Click(Sender);
end;

procedure TForm_Main.N61Click(Sender:TObject);
begin
  N41Click(Sender);
end;

procedure TForm_Main.N60Click(Sender:TObject);
begin
  N40Click(Sender);
end;

procedure TForm_Main.N59Click(Sender:TObject);
begin
  N39Click(Sender);
end;

procedure TForm_Main.N58Click(Sender:TObject);