xygdj.pas

实现人力资源的管理

unit xygdj;

interface

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

type
  Txygdjfrm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: 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;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    MaskEdit1: TMaskEdit;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    MaskEdit2: TMaskEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Panel2: TPanel;
    Image1: TImage;
    OpenDialog1: TOpenDialog;
    SpeedButton1: TSpeedButton;
    GroupBox2: TGroupBox;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    MaskEdit3: TMaskEdit;
    ComboBox6: TComboBox;
    Edit11: TEdit;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    MaskEdit4: TMaskEdit;
    Edit12: TEdit;
    MaskEdit5: TMaskEdit;
    Memo1: TMemo;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure editclear;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure MaskEdit2Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
    procedure MaskEdit3Change(Sender: TObject);
    procedure ComboBox6Change(Sender: TObject);
    procedure Edit11Change(Sender: TObject);
    procedure ComboBox7Change(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure ComboBox9Change(Sender: TObject);
    procedure MaskEdit4Change(Sender: TObject);
    procedure Edit12Change(Sender: TObject);
    procedure MaskEdit5Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox3KeyDown(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 Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit2KeyDown(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 Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit4KeyDown(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 Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    yy,mm,dd:string;
  end;

var
  xygdjfrm: Txygdjfrm;

implementation

uses dbdata, ygxxll, main, ypdj, ypxxll;

{$R *.dfm}

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

procedure Txygdjfrm.FormShow(Sender: TObject);
begin
if mainfrm.log=0 then
begin
maskedit4.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit5.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit1.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit3.Text:=formatdatetime('yyyy-mm-dd',now);
end;
if mainfrm.log=2 then
begin
maskedit5.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit1.Text:=formatdatetime('yyyy-mm-dd',now);
maskedit3.Text:=formatdatetime('yyyy-mm-dd',now);
end;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 性别 from 人事表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
   begin
     ComboBox1.Items.Add(Data.ADOpublic.FieldByName('性别').Value);
     Data.ADOpublic.Next;
  end;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 民族 from 民族表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
   begin
     ComboBox2.Items.Add(Data.ADOpublic.FieldByName('民族').Value);
     Data.ADOpublic.Next;
  end;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 婚姻状况 from 人事表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
   begin
     ComboBox3.Items.Add(Data.ADOpublic.FieldByName('婚姻状况').Value);
     Data.ADOpublic.Next;
  end;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 政治面貌 from 政治面貌表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
  begin
    ComboBox5.Items.Add(Data.ADOpublic.FieldByName('政治面貌').Value);
    Data.ADOpublic.Next;
  end;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 文化程度 from 文化程度表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
  begin
    ComboBox4.Items.Add(Data.ADOpublic.FieldByName('文化程度').Value);
    Data.ADOpublic.Next;
  end;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 工种 from 工种表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
  begin
    ComboBox6.Items.Add(Data.ADOpublic.FieldByName('工种').Value);
    Data.ADOpublic.Next;
  end;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 部门名称 from 部门表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
  begin
    ComboBox7.Items.Add(Data.ADOpublic.FieldByName('部门名称').Value);
    Data.ADOpublic.Next;
  end;
  with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 职务名称 from 职务表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
  begin
    ComboBox8.Items.Add(Data.ADOpublic.FieldByName('职务名称').Value);
    Data.ADOpublic.Next;
  end;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 职称名称 from 职称表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
  begin
    ComboBox9.Items.Add(Data.ADOpublic.FieldByName('职称名称').Value);
    Data.ADOpublic.Next;
  end;
end;

procedure Txygdjfrm.editclear;
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit11.Clear;
edit12.Clear;
maskedit1.Clear;
maskedit2.Clear;
maskedit3.Clear;
maskedit4.Text:='';
maskedit5.Text:='';
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
combobox4.Text:='';
combobox5.Text:='';
combobox6.Text:='';
combobox7.Text:='';
combobox8.Text:='';
combobox9.Text:='';
memo1.Clear;
end;

procedure Txygdjfrm.SpeedButton2Click(Sender: TObject);
var
s,m:string;
n:integer;
begin
editclear;
s:='rs';
With data.ADOpublic do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(编号) as ss From 人事表 ');
    Open;
  end;
If data.ADOpublic.FieldByName('ss').Value = null then
    s :=s+'001'
  else
  begin
    m:= Trim(data.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 Txygdjfrm.FormCreate(Sender: TObject);
begin
if mainfrm.log=1 then
begin
xygdjfrm.SpeedButton3.Visible:=false;
combobox2.Clear;
combobox5.Clear;
combobox6.Clear;
combobox7.Clear;