📄 personnelmanage.pas

📁 人事工资考勤管理信息系统
💻 PAS
字号:
unit PersonnelManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, DB, ADODB, Mask, DBCtrls, Grids,
  DBGrids, ImgList;

type
  TPersonnelManageFrm = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBImage1: TDBImage;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBComboBox1: TDBComboBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    TabSheet2: TTabSheet;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBComboBox3: TDBComboBox;
    TabSheet3: TTabSheet;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    OpenDialog1: TOpenDialog;
    DBComboBox2: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label22: TLabel;
    Label23: TLabel;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    GroupBox2: TGroupBox;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Label2: TLabel;
    DBComboBox5: TDBComboBox;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    procedure DBImage1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PersonnelManageFrm: TPersonnelManageFrm;

implementation
     uses PersonnelDataDM,Main,PersonnelSQL;
{$R *.dfm}

 //新增相片字段数据
procedure TPersonnelManageFrm.DBImage1Click(Sender: TObject);
begin
 //打开【增加相片字段】的文件选取对话窗口
   if OpenDialog1.Execute then
   begin
   //进入记录编辑模式
    PersonnelData.Personnel_infoADOTable.Edit;
    //将指定的图片文件加载对应相片字段的Tfield组件内
    PersonnelData.Personnel_infoADOTablePicture.LoadFromFile(OpenDialog1.FileName);
   end;
end;

//新增按钮
procedure TPersonnelManageFrm.Button5Click(Sender: TObject);
begin
     //对表preson_info进行添加
     PersonnelData.Personnel_infoADOTable.Insert;
     //对表depart_info进行添加
     PersonnelData.Depart_infoADOTable.Insert;
     //对表wage_manage进行添加
     PersonnelData.Wage_manageADOTable.Insert;
     //对表attend_info进行添加
     PersonnelData.Attend_infoADOTable.Insert;
end;

 //上一个按钮
procedure TPersonnelManageFrm.Button2Click(Sender: TObject);
begin
   PersonnelData.Personnel_infoADOTable.Prior;
   PersonnelData.Wage_manageADOTable.Prior;
   PersonnelData.Depart_infoADOTable.Prior;
   PersonnelData.Attend_infoADOTable.Prior;
end;

//下一个按钮
procedure TPersonnelManageFrm.Button3Click(Sender: TObject);
begin
   PersonnelData.Personnel_infoADOTable.Next;
   PersonnelData.Wage_manageADOTable.Next;
   PersonnelData.Depart_infoADOTable.Next;
   PersonnelData.Attend_infoADOTable.Next;
end;

//最后按钮
procedure TPersonnelManageFrm.Button4Click(Sender: TObject);
begin
   PersonnelData.Personnel_infoADOTable.Last;
   PersonnelData.Wage_manageADOTable.Last;
   PersonnelData.Depart_infoADOTable.Last;
   PersonnelData.Attend_infoADOTable.Last;
end;

//最前按钮
procedure TPersonnelManageFrm.Button1Click(Sender: TObject);
begin
  PersonnelData.Personnel_infoADOTable.First;
  PersonnelData.Wage_manageADOTable.First;
  PersonnelData.Depart_infoADOTable.First;
  PersonnelData.Attend_infoADOTable.First;
end;

//删除按钮
procedure TPersonnelManageFrm.Button6Click(Sender: TObject);
var userid:string;
begin
   userid:=DBEdit1.Text;
   //如果还有记录可删除
   if not PersonnelData.Personnel_infoADOTable.Eof then
    begin
     //确定删除对话框
    if Application.MessageBox('确定删除这笔数据？','注意',MB_YESNO+MB_ICONQUESTION)=IDYES then
     begin
     //进行删除定位
     PersonnelData.Personnel_infoADOTable.Locate('EmployeeID',userid,[]);
     PersonnelData.Personnel_infoADOTable.Delete;
     PersonnelData.Wage_manageADOTable.Locate('EmployeeID',userid,[]);
     PersonnelData.Wage_manageADOTable.Delete;
     PersonnelData.Attend_infoADOTable.Locate('EmployeeID',userid,[]);
     PersonnelData.Attend_infoADOTable.Delete;
     PersonnelData.Depart_infoADOTable.Locate('EmployeeID',userid,[]);
     PersonnelData.Depart_infoADOTable.Delete;
     end;
    end;
end;

//保存按钮
procedure TPersonnelManageFrm.Button7Click(Sender: TObject);
begin
   if Application.MessageBox('确定增加这笔数据？','注意',MB_YESNO+MB_ICONQUESTION)=IDYES then
   begin
    //对表preson_info进行添加
    PersonnelData.Personnel_infoADOTable.Next;

    //对表depart_info进行添加
    PersonnelData.Depart_infoADOTable.Edit;
    PersonnelData.Depart_infoADOTable['EmployeeID']:=DBEdit1.Text;
    PersonnelData.Depart_infoADOTable['Name']:=DBEdit2.Text;
    PersonnelData.Depart_infoADOTable['Duty']:=DBComboBox4.Text;
    PersonnelData.Depart_infoADOTable['DepartName']:=DBComboBox5.Text;
      if DBComboBox4.Text='管理人员' then
      PersonnelData.Depart_infoADOTable['EmployeeClass']:='A'
      else
      PersonnelData.Depart_infoADOTable['EmployeeClass']:='B';
    if DBComboBox5.Text='管理部门' then
      PersonnelData.Depart_infoADOTable['DepartID']:='101';
    if DBComboBox5.Text='办公室' then
      PersonnelData.Depart_infoADOTable['DepartID']:='102';
    if DBComboBox5.Text='财务部' then
      PersonnelData.Depart_infoADOTable['DepartID']:='103';
    if DBComboBox5.Text='市场管理部' then
      PersonnelData.Depart_infoADOTable['DepartID']:='104';
    if DBComboBox5.Text='采购管理部' then
      PersonnelData.Depart_infoADOTable['DepartID']:='105';
    if DBComboBox5.Text='公关部' then
      PersonnelData.Depart_infoADOTable['DepartID']:='106';
    if DBComboBox5.Text='生产车间' then
      PersonnelData.Depart_infoADOTable['DepartID']:='107';
      PersonnelData.Depart_infoADOTable.Next;

    //对表wage_manage进行添加
     PersonnelData.Wage_manageADOTable.Edit;
     PersonnelData.Wage_manageADOTable['EmployeeID']:=DBEdit1.Text;
     PersonnelData.Wage_manageADOTable['Name']:=DBEdit2.Text;
     PersonnelData.Wage_manageADOTable['DepartName']:=DBComboBox5.Text;
      if DBComboBox4.Text='管理人员' then
      PersonnelData.Wage_manageADOTable['EmployeeClass']:='A'
      else
      PersonnelData.Wage_manageADOTable['EmployeeClass']:='B';
    if DBComboBox5.Text='管理部门' then
      PersonnelData.Wage_manageADOTable['DepartID']:='101';
    if DBComboBox5.Text='办公室' then
      PersonnelData.Wage_manageADOTable['DepartID']:='102';
    if DBComboBox5.Text='财务部' then
      PersonnelData.Wage_manageADOTable['DepartID']:='103';
    if DBComboBox5.Text='市场管理部' then
      PersonnelData.Wage_manageADOTable['DepartID']:='104';
    if DBComboBox5.Text='采购管理部' then
      PersonnelData.Wage_manageADOTable['DepartID']:='105';
    if DBComboBox5.Text='公关部' then
      PersonnelData.Wage_manageADOTable['DepartID']:='106';
    if DBComboBox5.Text='生产车间' then
      PersonnelData.Wage_manageADOTable['DepartID']:='107';
      PersonnelData.Wage_manageADOTable.Next;

     //对表attend_info进行添加
      PersonnelData.Attend_infoADOTable.Edit;
      PersonnelData.Attend_infoADOTable['EmployeeID']:=DBEdit1.Text;
      PersonnelData.Attend_infoADOTable['Name']:=DBEdit2.Text;
      PersonnelData.Attend_infoADOTable.Next;
      showmessage('新增用户成功！');
     end
     else
     //取消数据的增加
       begin
         //对表attend_info进行添加的取消
        PersonnelData.Attend_infoADOTable.Cancel;
        PersonnelData.Attend_infoADOTable.Next;

        //对表depart_info进行添加的取消
        PersonnelData.Depart_infoADOTable.Cancel;
        PersonnelData.Depart_infoADOTable.Next;

        //对表wage_manage进行添加的取消
        PersonnelData.Wage_manageADOTable.Cancel;
        PersonnelData.Wage_manageADOTable.Next;

        //对表depart_info进行添加的取消
        PersonnelData.Personnel_infoADOTable.Cancel;
        PersonnelData.Personnel_infoADOTable.Next;
        showmessage('新增用户取消！');
       end;
     PersonnelData.Attend_infoADOTable.Prior;
     PersonnelData.Depart_infoADOTable.Prior;
     PersonnelData.Wage_manageADOTable.Prior;
     PersonnelData.Personnel_infoADOTable.Prior;
end;



//查询按钮
procedure TPersonnelManageFrm.Button9Click(Sender: TObject);
begin
     if PersonnelSQLFrm=nil then
     Application.CreateForm(TPersonnelSQLFrm, PersonnelSQLFrm); //创建窗口
     PersonnelSQLFrm.Show;
     PersonnelManageFrm.Close;
end;



//返回按钮
procedure TPersonnelManageFrm.Button8Click(Sender: TObject);
begin
     PersonnelManageFrm.Close;
     MainFrm.Show;
end;

procedure TPersonnelManageFrm.FormCreate(Sender: TObject);
begin

end;

//修改按钮
procedure TPersonnelManageFrm.Button10Click(Sender: TObject);
var userid:string;
begin
   userid:=DBEdit1.Text;

   if Application.MessageBox('确定修改这笔数据？','注意',MB_YESNO+MB_ICONQUESTION)=IDYES then
   begin
    //对表preson_info进行添加
     //进行修改定位
    PersonnelData.Personnel_infoADOTable.Locate('EmployeeID',userid,[]);
    PersonnelData.Personnel_infoADOTable.Edit;
    PersonnelData.Personnel_infoADOTable.Post;

    //对表depart_info进行添加
    PersonnelData.Depart_infoADOTable.Locate('EmployeeID',userid,[]);
    PersonnelData.Depart_infoADOTable.Edit;
    PersonnelData.Depart_infoADOTable['Name']:=DBEdit2.Text;
    PersonnelData.Depart_infoADOTable['Duty']:=DBComboBox4.Text;
    PersonnelData.Depart_infoADOTable['DepartName']:=DBComboBox5.Text;
      if DBComboBox4.Text='管理人员' then
      PersonnelData.Depart_infoADOTable['EmployeeClass']:='A'
      else
      PersonnelData.Depart_infoADOTable['EmployeeClass']:='B';
    if DBComboBox5.Text='管理部门' then
      PersonnelData.Depart_infoADOTable['DepartID']:='101';
    if DBComboBox5.Text='办公室' then
      PersonnelData.Depart_infoADOTable['DepartID']:='102';
    if DBComboBox5.Text='财务部' then
      PersonnelData.Depart_infoADOTable['DepartID']:='103';
    if DBComboBox5.Text='市场管理部' then
      PersonnelData.Depart_infoADOTable['DepartID']:='104';
    if DBComboBox5.Text='采购管理部' then
      PersonnelData.Depart_infoADOTable['DepartID']:='105';
    if DBComboBox5.Text='公关部' then
      PersonnelData.Depart_infoADOTable['DepartID']:='106';
    if DBComboBox5.Text='生产车间' then
      PersonnelData.Depart_infoADOTable['DepartID']:='107';
      PersonnelData.Depart_infoADOTable.post;

    //对表wage_manage进行添加
    PersonnelData.Attend_infoADOTable.Locate('EmployeeID',userid,[]);
    PersonnelData.Wage_manageADOTable.Edit;
    PersonnelData.Wage_manageADOTable['Name']:=DBEdit2.Text;
    PersonnelData.Wage_manageADOTable['DepartName']:=DBComboBox5.Text;
    if DBComboBox4.Text='管理人员' then
     PersonnelData.Wage_manageADOTable['EmployeeClass']:='A'
    else
     PersonnelData.Wage_manageADOTable['EmployeeClass']:='B';
    if DBComboBox5.Text='管理部门' then
      PersonnelData.Wage_manageADOTable['DepartID']:='101';
    if DBComboBox5.Text='办公室' then
      PersonnelData.Wage_manageADOTable['DepartID']:='102';
    if DBComboBox5.Text='财务部' then
      PersonnelData.Wage_manageADOTable['DepartID']:='103';
    if DBComboBox5.Text='市场管理部' then
      PersonnelData.Wage_manageADOTable['DepartID']:='104';
    if DBComboBox5.Text='采购管理部' then
      PersonnelData.Wage_manageADOTable['DepartID']:='105';
    if DBComboBox5.Text='公关部' then
      PersonnelData.Wage_manageADOTable['DepartID']:='106';
    if DBComboBox5.Text='生产车间' then
      PersonnelData.Wage_manageADOTable['DepartID']:='107';
    PersonnelData.Wage_manageADOTable.Post;

     //对表attend_info进行添加
      PersonnelData.Wage_manageADOTable.Locate('EmployeeID',userid,[]);
      PersonnelData.Attend_infoADOTable.Edit;
      PersonnelData.Attend_infoADOTable['Name']:=DBEdit2.Text;
      PersonnelData.Attend_infoADOTable.Post;
      showmessage('修改成功！');
     end;

end;

end.
⌨️ 快捷键说明

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