⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 umain.pas

📁 说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄弟可以看看. 本程序类型：delphi7 + Access2000 桌面数据库 初始用户名/密码:admin
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
begin
  N38Click(Sender);
end;

procedure TForm_Main.N57Click(Sender:TObject);
begin
  N37Click(Sender);
end;

procedure TForm_Main.N56Click(Sender:TObject);
begin
  N36Click(Sender);
end;

procedure TForm_Main.N55Click(Sender:TObject);
begin
  N35Click(Sender);
end;

procedure TForm_Main.N54Click(Sender:TObject);
begin
  N34Click(Sender);
end;

procedure TForm_Main.N53Click(Sender:TObject);
begin
  N33Click(Sender);
end;

procedure TForm_Main.N52Click(Sender:TObject);
begin
  N27Click(Sender);
end;

procedure TForm_Main.N51Click(Sender:TObject);
begin
  N26Click(Sender);
end;

procedure TForm_Main.N49Click(Sender:TObject);
begin
  N25Click(Sender);
end;

//=========================================
//导出字段设置
//=========================================

procedure TForm_Main.OutFieldSetClick(Sender:TObject);
begin
  Form_OutFieldSet := TForm_OutFieldSet.Create(self);
  Form_OutFieldSet.SelectNumber.Text := UserFieldList;
  Form_OutFieldSet.SelectSQL.Text := UserFieldSql;
  Form_OutFieldSet.EdUserName.Text := UserName;
  Form_OutFieldSet.ShowModal;
  //更新用户导出字段信息
  if UserFieldList <> Form_OutFieldSet.SelectNumber.Text then
  begin
    UserFieldList := Form_OutFieldSet.SelectNumber.Text;
    UserFieldSql := Form_OutFieldSet.SelectSQL.Text;
  end;
  Form_OutFieldSet.Free;
end;

procedure TForm_Main.MainMenu_CombinationQueryClick(Sender:TObject);
begin
  Form_CombinationQuery := TForm_CombinationQuery.Create(self);
  Form_CombinationQuery.Show;
  //  Form_CombinationQuery.Free;
end;

//=========================================
//窗口显示时载入用户信息
//=========================================

procedure TForm_Main.FormShow(Sender:TObject);
begin
  //载入部门树
  LoadDataForDeptTree;
  //获取当前登录用户资料
 { try
    with TabUser do
    begin
      close;
      open;
      first;
      UserName := FieldByName('User_Name').AsString;
      UserFieldList := FieldByName('User_FieldList').AsString;
      UserFieldSql := FieldByName('User_FieldSql').AsString;
      close;
    end;
  except
    showmessage('无法打开用户表');
  end; }
  //显示全部员工
  with ADOQDBGrid do
  begin
    sql.Clear;
    sql.Add('select * From Employee');
    OPEN;
    label2.Caption := '本单位现总共有　' + inttostr(ADOQDBGrid.RecordCount) +
      '　位职工';
  end;
  // showmessage(UserFieldSql);
  //状态栏显示
  StatusBar1.Panels[0].Text := '匆匆人事档案管理';
  StatusBar1.Panels[2].Text := '当前用户：' + UserName;
  StatusBar1.Panels[4].Text := '当前公司： ' + CorpName;
  StatusBar1.Panels[5].Text := '载入程序耗时： ' + inttostr(RunStoptime) +
    ' 毫秒';
end;

procedure TForm_Main.MainMemu_QueryForDateClick(Sender:TObject);
begin
  Form_QueryForDate := TForm_QueryForDate.Create(self);
  Form_QueryForDate.Show;

end;

procedure TForm_Main.MainMemu_WorkAgeClick(Sender:TObject);
begin
  Form_WorkAge := TForm_WorkAge.Create(self);
  Form_WorkAge.ShowModal;
  form_WorkAge.Free;
end;

procedure TForm_Main.AllmenClick(Sender:TObject);
begin
  try
    with ADOQDBGrid do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM EMPLOYEE');
      sql.Add('WHERE Employee_Sex =''' + '男' + '''');
      open;
      label2.Caption := '本单位共有 ' + inttostr(ADOQDBGrid.RecordCount) +
        ' 位男职工';
    end;
  except
    showmessage('打开职工表失败');
  end;
end;

procedure TForm_Main.AllWomenClick(Sender:TObject);
begin
  try
    with ADOQDBGrid do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM EMPLOYEE');
      sql.Add('WHERE Employee_Sex =''' + '女' + '''');
      open;
      label2.Caption := '本单位共有 ' + inttostr(ADOQDBGrid.RecordCount) +
        ' 位女职工';
    end;
  except
    showmessage('打开职工表失败');
  end;
end;
//===========================================
//查询本年度新增职工
//===========================================

procedure TForm_Main.ALLJoinThisYearClick(Sender:TObject);
begin
  try
    with ADOQDBGrid do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM EMPLOYEE');
      sql.Add('WHERE year(Employee_JoinDate) =year(now())');
      open;
      label2.Caption := '本年度新增 ' + inttostr(ADOQDBGrid.RecordCount) +
        ' 位职工';
    end;
  except
    showmessage('打开职工表失败');
  end;
end;

//===========================================
//查询本月度新增职工
//===========================================

procedure TForm_Main.ALLJoinThisMonthClick(Sender:TObject);
begin
  try
    with ADOQDBGrid do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM EMPLOYEE');
      sql.Add('WHERE year(Employee_JoinDate) =year(now()) and month(Employee_JoinDate) =month(now())');
      open;
      label2.Caption := '本月度新增 ' + inttostr(ADOQDBGrid.RecordCount) +
        ' 位职工';
    end;
  except
    showmessage('打开职工表失败');
  end;
end;

//===========================================
//查询所有离职职工
//===========================================

procedure TForm_Main.AllOutClick(Sender:TObject);
begin
  with ADOQDBGrid do
  begin
    close;
    SQL.Clear;
    SQL.Add('SELECT * FROM Employee');
    SQL.Add('WHERE  Employee_Type like''' + '离' + '%''');
    open;
    label2.Caption := '共有 ' + inttostr(ADOQDBGrid.RecordCount) +
      ' 位离职职工';
  end;
end;

//===========================================
//显示所有职工
//===========================================

procedure TForm_Main.AllEmployeeClick(Sender:TObject);
begin
  with ADOQDBGrid do
  begin
    close;
    SQL.Clear;
    SQL.Add('SELECT * FROM Employee');
    open;
    label2.Caption := '本单位共有 ' + inttostr(ADOQDBGrid.RecordCount) +
      ' 位职工';
  end;
end;

procedure TForm_Main.MainMenu_AllEmployeeNumberClick(Sender:TObject);
begin
  AllEmployeeNumberClick(Sender);
end;

//===========================================
//输出文本文件
//===========================================

procedure TForm_Main.OutEXCELClick(Sender:TObject);
begin
  SaveExeclDialog.Filter := 'EXCEL文件(*.xls)|*.xls';
  if ADOQDBGrid.RecordCount > 0 then
  begin
    SaveExeclDialog.DefaultExt := '*.xls';
    if SaveExeclDialog.Execute then
      SaveDBGridEhToExportFile(TDBGridEhExportAsXls, DBGridEhEmployee,
        SaveExeclDialog.FileName, True);
  end
  else
    showmessage('当前没有记录');
end;

//===========================================
//查询生日到期职工
//===========================================

procedure TForm_Main.BirthdayEmployeeClick(Sender:TObject);
begin
  Form_AtTerm := TForm_AtTerm.Create(self);
  Form_AtTerm.PageControl1.ActivePage := Form_AtTerm.PageControl1.Pages[0];
  Form_AtTerm.ShowModal;
  Form_AtTerm.Free;
end;

//===========================================
//查询合同到期职工
//===========================================

procedure TForm_Main.BargainEmployeeClick(Sender:TObject);
begin
  Form_AtTerm := TForm_AtTerm.Create(self);
  Form_AtTerm.PageControl1.ActivePage := Form_AtTerm.PageControl1.Pages[1];
  Form_AtTerm.ShowModal;
  Form_AtTerm.Free;
end;

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

//===========================================
//定义职工表右键菜单状态
//===========================================

procedure TForm_Main.DBGridEhEmployeeCellClick(Column:TColumnEh);
begin
  if not (ADOQDBGrid.RecordCount > 0) then //ADOQDBGRID是表的数据源
  begin
    PMEmployeeBeginning; //菜单至不可用
    exit;
  end
  else
  begin
    PMEmployeeOK; //菜单至可用
  end;
end;

//===========================================
//输出网页文件
//===========================================

procedure TForm_Main.OutHTMLClick(Sender:TObject);
begin
  SaveExeclDialog.Filter := '网页文件(*.htm)|*.htm';
  if not (ADOQDBGrid.RecordCount = 0) then
  begin
    SaveExeclDialog.DefaultExt := '*.htm';
    if SaveExeclDialog.Execute then
      SaveDBGridEhToExportFile(TDBGridEhExportAshtml, DBGridEhEmployee,
        SaveExeclDialog.FileName, True);
  end
  else
    showmessage('当前没有记录');
end;

procedure TForm_Main.OutTxtClick(Sender:TObject);
begin
  SaveExeclDialog.Filter := '文本文件(*.txt)|*.txt';
  if not (ADOQDBGrid.RecordCount = 0) then
  begin
    SaveExeclDialog.DefaultExt := '*.txt';
    if SaveExeclDialog.Execute then
      SaveDBGridEhToExportFile(TDBGridEhExportAstext, DBGridEhEmployee,
        SaveExeclDialog.FileName, True);
  end
  else
    showmessage('当前没有记录');
end;

procedure TForm_Main.MainMenu_OutHtmlClick(Sender:TObject);
begin
  OutHTMLClick(Sender);
end;

procedure TForm_Main.MainMenu_OutExcelClick(Sender:TObject);
begin
  OutExcelClick(Sender);
end;

procedure TForm_Main.MainMenu_OutTxtClick(Sender:TObject);
begin
  OutTxtClick(Sender);
end;

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

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

procedure TForm_Main.N19Click(Sender:TObject);
begin
  OutTxtClick(Sender);
end;

procedure TForm_Main.EXECL1Click(Sender:TObject);
begin
  OutEXCELClick(Sender);
end;

procedure TForm_Main.HTML1Click(Sender:TObject);
begin
  OutHTMLClick(Sender);
end;

procedure TForm_Main.N89Click(Sender:TObject);
begin
  MainMenu_CombinationQueryClick(Sender);
end;

procedure TForm_Main.N88Click(Sender:TObject);
begin
  MainMemu_QueryForDateClick(Sender);
end;

procedure TForm_Main.N87Click(Sender:TObject);
begin
  MainMemu_WorkAgeClick(Sender);
end;

procedure TForm_Main.N78Click(Sender:TObject);
begin
  AllmenClick(Sender);
end;

procedure TForm_Main.N80Click(Sender:TObject);
begin
  AllWomenClick(Sender);
end;

procedure TForm_Main.N83Click(Sender:TObject);
begin
  ALLJoinThisMonthClick(Sender);
end;

procedure TForm_Main.N74Click(Sender:TObject);
begin
  AllOutClick(Sender);
end;

procedure TForm_Main.N75Click(Sender:TObject);
begin
  AllEmployeeClick(Sender);
end;

procedure TForm_Main.N17Click(Sender:TObject);
begin
  BargainEmployeeClick(Sender);
end;

procedure TForm_Main.N18Click(Sender:TObject);
begin
  BirthdayEmployeeClick(Sender);
end;

procedure TForm_Main.N81Click(Sender:TObject);
begin
  ALLJoinThisYearClick(Sender);
end;

procedure TForm_Main.ToolButton19Click(Sender:TObject);
begin
  MainMenu_CombinationQueryClick(Sender);
end;

procedure TForm_Main.N45Click(Sender:TObject);
begin
  Skindata1.Active := false;
end;

procedure TForm_Main.WinXP1Click(Sender:TObject);
begin
  skindata1.LoadFromCollection(SkinStore1, 0);
  if not SkinData1.Active then
    SkinData1.Active := true;
end;

procedure TForm_Main.Mac1Click(Sender:TObject);
begin
  skindata1.LoadFromCollection(SkinStore1, 1);
  if not SkinData1.Active then
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -