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

📄 u_xygdj.pas

📁 人力资源管理系统自动计算员工工资。自动生成员工工资报表。实现员工岗位调动操作。实现员工离职、复职操作。支持数据的模糊查询机制。运行环境 操作系统：Windows 2000/NT/XP/ME 开发工
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
unit U_xygdj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Mask, Buttons, DB, ADODB;

type
  Tfrm_xygdj = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit12: TEdit;
    Panel2: TPanel;
    Image1: TImage;
    Edit13: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label7: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Button1: TButton;
    Edit15: TEdit;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    Edit16: TEdit;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Label28: TLabel;
    Label29: TLabel;
    MaskEdit3: TMaskEdit;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    MaskEdit4: TMaskEdit;
    ComboBox9: TComboBox;
    MaskEdit5: TMaskEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn6: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure editclear;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure MaskEdit3Change(Sender: TObject);
    procedure ComboBox7Change(Sender: TObject);
    procedure ComboBox9Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit13Change(Sender: TObject);
    procedure MaskEdit4Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
    procedure Edit12Change(Sender: TObject);
    procedure MaskEdit5Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure Edit15Change(Sender: TObject);
    procedure ComboBox6Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure MaskEdit2Change(Sender: TObject);
    procedure Edit16Change(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit13KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit15KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit16KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    yy,mm,dd:string;
  end;

var
  frm_xygdj: Tfrm_xygdj;

implementation

uses U_data, U_ygxxll, U_main, U_yp, U_ypll;

{$R *.dfm}

procedure Tfrm_xygdj.Button1Click(Sender: TObject);
begin
opendialog1.Title:='选择照片';
if opendialog1.Execute then
   image1.Picture.LoadFromFile(opendialog1.FileName);
end;

procedure Tfrm_xygdj.FormShow(Sender: TObject);
begin
if frm_main.log=0 then
begin
maskedit1.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit2.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit3.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit5.Text:=formatdatetime('yyyy-mm-dd',now);
end;
if frm_main.log=2 then
begin
maskedit2.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit3.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit5.Text:=formatdatetime('yyyy-mm-dd',now);
end;
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 民族 from 民族表');
      open;
   end;
   while Not Data1.ADOpublic.Eof do
   begin
     ComboBox1.Items.Add(Data1.ADOpublic.FieldByName('民族').Value);
     Data1.ADOpublic.Next;
  end;
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 政治面貌 from 政治面貌表');
      open;
   end;
   while Not Data1.ADOpublic.Eof do
  begin
    ComboBox2.Items.Add(Data1.ADOpublic.FieldByName('政治面貌').Value);
    Data1.ADOpublic.Next;
  end;
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 文化程度 from 文化程度表');
      open;
   end;
   while Not Data1.ADOpublic.Eof do
  begin
    ComboBox9.Items.Add(Data1.ADOpublic.FieldByName('文化程度').Value);
    Data1.ADOpublic.Next;
  end;
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 工种 from 工种表');
      open;
   end;
   while Not Data1.ADOpublic.Eof do
  begin
    ComboBox3.Items.Add(Data1.ADOpublic.FieldByName('工种').Value);
    Data1.ADOpublic.Next;
  end;
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 部门名称 from 部门表');
      open;
   end;
   while Not Data1.ADOpublic.Eof do
  begin
    ComboBox4.Items.Add(Data1.ADOpublic.FieldByName('部门名称').Value);
    Data1.ADOpublic.Next;
  end;
  with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 职务名称 from 职务表');
      open;
   end;
   while Not Data1.ADOpublic.Eof do
  begin
    ComboBox5.Items.Add(Data1.ADOpublic.FieldByName('职务名称').Value);
    Data1.ADOpublic.Next;
  end;
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 职称名称 from 职称表');
      open;
   end;
   while Not Data1.ADOpublic.Eof do
  begin
    ComboBox6.Items.Add(Data1.ADOpublic.FieldByName('职称名称').Value);
    Data1.ADOpublic.Next;
  end;

end;

procedure Tfrm_xygdj.BitBtn2Click(Sender: TObject);
var
s,m:string;
n:integer;
begin
s:='mr';
With data1.ADOpublic do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(bh) as ss From 人事表 ');
    Open;
  end;
If data1.ADOpublic.FieldByName('ss').Value = null then
    s :=s+'001'
  else
  begin
    m:= Trim(data1.ADOpublic.FieldByName('ss').Value) ;
    n:= StrToInt(copy(m,4,5)) ;
    if n<9 then
      s:= s+'00'+ InttoStr(n +1)
    else if n<99 then
      s:=s+'0'+ InttoStr(n +1)
    else
      s:= s+InttoStr(n +1);
  end;
  edit1.Text:=s;
end;

procedure Tfrm_xygdj.editclear;
begin
edit1.Clear;
edit2.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit12.Clear;
edit13.Clear;
maskedit4.Clear;
edit15.Clear;
edit16.Clear;
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
combobox4.Text:='';
combobox5.Text:='';
combobox6.Text:='';
combobox7.Text:='';
combobox8.Text:='';
combobox9.Text:='';
maskedit1.Text:='1999-01-01';
maskedit2.Text:='1999-01-01';
memo1.Clear;
end;

procedure Tfrm_xygdj.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
i:=strtoint(edit15.Text);
try
with data1.ADOQYygxx do
   begin
      close;
      sql.Clear;
      sql.Add('insert 人事表 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v,:w,:x,:y,:z,:aa,:ab,:ac,:ad,:ae,:af)');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      parameters.ParamByName('b').Value:=trim(edit2.Text);
      parameters.ParamByName('c').Value:=trim(combobox8.Text);
      parameters.ParamByName('d').Value:=trim(edit10.Text);
      parameters.ParamByName('e').Value:=strtodate(maskedit3.Text);
      parameters.ParamByName('f').Value:=trim(combobox1.Text);
      parameters.ParamByName('g').Value:=trim(combobox7.Text);
      parameters.ParamByName('h').Value:=trim(combobox2.Text);
      parameters.ParamByName('i').Value:=trim(edit5.Text);
      parameters.ParamByName('j').Value:=maskedit4.Text;
      parameters.ParamByName('k').Value:=trim(edit9.Text);
      parameters.ParamByName('l').Value:=trim(edit13.Text);
      parameters.ParamByName('m').Value:=trim(edit12.Text);
      parameters.ParamByName('n').Value:=trim(edit6.Text);
      parameters.ParamByName('o').Value:=trim(edit7.Text);
      parameters.ParamByName('p').Value:=trim(combobox9.Text);
      parameters.ParamByName('q').Value:=trim(edit8.Text);
      parameters.ParamByName('r').Value:=trim(maskedit5.Text);
      parameters.ParamByName('s').Value:=strtoint(edit15.Text);/////
      parameters.ParamByName('t').Assign(image1.Picture.Bitmap);
      parameters.ParamByName('u').Value:=trim(combobox4.Text);
123

⌨️ 快捷键说明

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