empinfomanage.pas

关于DEPHI7.0的人力资源信息管理系统源代码

unit EmpInfoManage;

interface

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

type
  TFormEmpInfoManage = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EditEMPID: TDBEdit;
    Label5: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    EditIDCARD: TDBEdit;
    EditNATIVE: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    EditJOBFROM: TDBEdit;
    EditJOBYEAR: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    EditENTERDATE: TDBEdit;
    Label15: TLabel;
    Label16: TLabel;
    EditTECHTITLE: TDBEdit;
    EditPOSITIONTITLE: TDBEdit;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label6: TLabel;
    Label7: TLabel;
    Label21: TLabel;
    Label20: TLabel;
    Label30: TLabel;
    EditPHONE: TDBEdit;
    EditEMAIL: TDBEdit;
    Label31: TLabel;
    Label32: TLabel;
    EditOFFICE: TDBEdit;
    Label28: TLabel;
    Label29: TLabel;
    Label14: TLabel;
    EditHOMEADDRESS: TDBEdit;
    EditEMPNAME: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    EditADMINPOSITION: TDBEdit;
    EditPOSTCLASS: TDBEdit;
    Label25: TLabel;
    Label27: TLabel;
    EditADMINSIGN: TDBEdit;
    Label34: TLabel;
    EditCLANDATE: TDBEdit;
    Label33: TLabel;
    Label24: TLabel;
    EditEMPSTATE: TDBEdit;
    Label23: TLabel;
    EditJOBTYPE: TDBEdit;
    Label22: TLabel;
    EditJOBKIND: TDBEdit;
    Label26: TLabel;
    EditSPECIALITY: TDBEdit;
    Label35: TLabel;
    EditSCHOOL: TDBEdit;
    Label36: TLabel;
    EditGRADUATEDate: TDBEdit;
    Label37: TLabel;
    DBEdit1: TDBEdit;
    Label38: TLabel;
    EditSPECIALITY2: TDBEdit;
    EditGRADUATEDate2: TDBEdit;
    Label39: TLabel;
    Label40: TLabel;
    EditSCHOOL2: TDBEdit;
    Label41: TLabel;
    EditEDUDEGREE: TDBEdit;
    TabSheet5: TTabSheet;
    Label42: TLabel;
    EditStartDate: TDBEdit;
    Label43: TLabel;
    EditEndDate: TDBEdit;
    Label44: TLabel;
    EditTECHGRADE: TDBEdit;
    Label45: TLabel;
    EditTECHPOSITION: TDBEdit;
    Label46: TLabel;
    EditADMINGRADE: TDBEdit;
    Label47: TLabel;
    DBEdit2: TDBEdit;
    Label48: TLabel;
    EditJOBPOSITION: TDBEdit;
    Label49: TLabel;
    DBEdit3: TDBEdit;
    Label50: TLabel;
    DBEdit4: TDBEdit;
    Label51: TLabel;
    DBEdit5: TDBEdit;
    ListBox1: TListBox;
    Label52: TLabel;
    Label53: TLabel;
    DBEdit6: TDBEdit;
    Label54: TLabel;
    DBEdit7: TDBEdit;
    BTNAdd: TBitBtn;
    BTNDel: TBitBtn;
    DBNavigator1: TDBNavigator;
    Bevel1: TBevel;
    Bevel2: TBevel;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Label55: TLabel;
    DBEdit8: TDBEdit;
    Label56: TLabel;
    DBEdit9: TDBEdit;
    Label57: TLabel;
    DBEdit10: TDBEdit;
    Label58: TLabel;
    Label59: TLabel;
    DBEdit12: TDBEdit;
    Label60: TLabel;
    DBEdit13: TDBEdit;
    Label61: TLabel;
    DBEdit14: TDBEdit;
    Label62: TLabel;
    DBEdit15: TDBEdit;
    Label63: TLabel;
    DBEdit16: TDBEdit;
    Label64: TLabel;
    DBEdit17: TDBEdit;
    Label65: TLabel;
    DBEdit18: TDBEdit;
    Label66: TLabel;
    DBComboBox4: TDBComboBox;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBEdit11: TDBEdit;
    BTNPhoto: TBitBtn;
    DBImage1: TDBImage;
    CmbEdu: TDBComboBox;
    CmbDegree: TDBComboBox;
    CmbPolity: TDBComboBox;
    CmbHealth: TDBComboBox;
    CmbMarriage: TDBComboBox;
    CmbNation: TDBComboBox;
    ComboBox1: TDBComboBox;
    ComboBox2: TDBComboBox;
    procedure BTNPhotoClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormEmpInfoManage: TFormEmpInfoManage;

implementation

uses Data, Photo, Main;

{$R *.dfm}

procedure TFormEmpInfoManage.BTNPhotoClick(Sender: TObject);
begin
 FormPhoto := TFormPhoto.Create(Application);
 FormPhoto.Show;
 Self.Hide;
end;

procedure TFormEmpInfoManage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  FormMain.CloseDataSource1;
  DBImage1.Free;
  FormMain.Show;
  Self.Destroy;
end;

end.