u_employ.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Employ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_base, DB, ADODB, StdCtrls, Buttons, ExtCtrls, ComCtrls, Mask,
  DBCtrls, Grids, DBGridEh, Wwdbspin, Wwdotdot, wwdbdatetimepicker,
  Wwdbcomb, wwdbedit, Menus, ImgList, dxtree, dxdbtree, ExtDlgs, jpeg;

type
  TF_employ = class(TF_base)
    Q_JL_JL: TADOQuery;
    DS_JL_JL: TDataSource;
    DS_FAM: TDataSource;
    Q_FAM: TADOQuery;
    Q_LEARN: TADOQuery;
    DS_LEARN: TDataSource;
    Q_JNTC: TADOQuery;
    DS_JNTC: TDataSource;
    Q_jl: TADOQuery;
    DS_JL: TDataSource;
    Q_cf: TADOQuery;
    DS_CF: TDataSource;
    Q_move: TADOQuery;
    DS_MOVE: TDataSource;
    Q_cc: TADOQuery;
    DS_cc: TDataSource;
    Q_qj: TADOQuery;
    DS_QJ: TDataSource;
    DS_SALARY: TDataSource;
    Q_temp1: TADOQuery;
    Q_temp2: TADOQuery;
    ImageList1: TImageList;
    Q_SALARY: TADOQuery;
    Q_JL_JLSID: TGuidField;
    Q_JL_JLCNID: TGuidField;
    Q_JL_JLOrderno: TIntegerField;
    Q_JL_JLFromTO: TStringField;
    Q_JL_JLAddressDEP: TStringField;
    Q_JL_JLPosiation: TStringField;
    Q_JL_JLCertify_man: TStringField;
    Q_JL_JLMemo: TStringField;
    Q_FAMSid: TGuidField;
    Q_FAMCnid: TGuidField;
    Q_FAMOrderno: TIntegerField;
    Q_FAMF_name: TStringField;
    Q_FAMF_age: TIntegerField;
    Q_FAMRealation: TStringField;
    Q_FAMWorkDep: TStringField;
    Q_FAMphone: TStringField;
    Q_FAMmemo: TStringField;
    Q_LEARNSid: TGuidField;
    Q_LEARNCNID: TGuidField;
    Q_LEARNOrderno: TIntegerField;
    Q_LEARNDateFromTO: TStringField;
    Q_LEARNSchoolName: TStringField;
    Q_LEARNDeGree: TStringField;
    Q_LEARNGrade: TStringField;
    Q_LEARNYears: TIntegerField;
    Q_LEARNzhanye: TStringField;
    Q_LEARNmemo: TStringField;
    Q_JNTCSid: TGuidField;
    Q_JNTCCNID: TGuidField;
    Q_JNTCOrderNO: TIntegerField;
    Q_JNTCJntc: TStringField;
    Q_JNTCTrain: TStringField;
    Q_JNTCGz: TStringField;
    Q_JNTCZs: TStringField;
    Q_JNTCJL: TStringField;
    Q_jlSId: TGuidField;
    Q_jlCnid: TGuidField;
    Q_jlOrderno: TIntegerField;
    Q_jlBillDate: TDateTimeField;
    Q_jlReason: TStringField;
    Q_jlResult: TStringField;
    Q_jlMoney: TStringField;
    Q_cfSid: TGuidField;
    Q_cfCNID: TGuidField;
    Q_cfOrderNO: TIntegerField;
    Q_cfBilldate: TDateTimeField;
    Q_cfReason: TStringField;
    Q_cfResult: TStringField;
    Q_cfMoney: TStringField;
    Q_moveSid: TGuidField;
    Q_moveCNid: TGuidField;
    Q_moveOrderno: TIntegerField;
    Q_moveReg_date: TDateTimeField;
    Q_moveMov_date: TDateTimeField;
    Q_moveMov_Reason: TStringField;
    Q_moveOld_dep: TStringField;
    Q_moveNew_Dep: TStringField;
    Q_moveOld_pos: TStringField;
    Q_moveNew_pos: TStringField;
    Q_moveOld_Gz: TStringField;
    Q_moveNew_Gz: TStringField;
    Q_ccSid: TGuidField;
    Q_ccCNID: TGuidField;
    Q_ccOrderNO: TIntegerField;
    Q_ccBilldate: TDateTimeField;
    Q_ccReason: TStringField;
    Q_ccTO_address: TStringField;
    Q_ccBegin_time: TDateTimeField;
    Q_ccEnd_time: TDateTimeField;
    Q_ccReal_end_time: TDateTimeField;
    Q_ccMemo: TStringField;
    Q_ccCome_Flag: TBooleanField;
    Q_qjSid: TGuidField;
    Q_qjCNId: TGuidField;
    Q_qjOrderNO: TIntegerField;
    Q_qjBilldate: TDateTimeField;
    Q_qjKind: TStringField;
    Q_qjReason: TStringField;
    Q_qjBegin_time: TDateTimeField;
    Q_qjEND_time: TDateTimeField;
    Q_qjReal_endTime: TDateTimeField;
    Q_qjTimeCount: TIntegerField;
    Q_qjMemo: TStringField;
    Q_SALARYSid: TGuidField;
    Q_SALARYCNID: TGuidField;
    Q_SALARYOrderno: TIntegerField;
    Q_SALARYBilldate: TDateTimeField;
    Q_SALARYOld_salary: TFloatField;
    Q_SALARYNew_Salary: TFloatField;
    Q_SALARYReason: TStringField;
    Q_SALARYCheckby: TStringField;
    Q_SALARYCheckDate: TDateTimeField;
    Q_SALARYMemo: TStringField;
    Panel2: TPanel;
    Splitter1: TSplitter;
    PageControl2: TPageControl;
    TabSheet9: TTabSheet;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label14: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label12: TLabel;
    Label16: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label26: TLabel;
    Label13: TLabel;
    Label17: TLabel;
    Label21: TLabel;
    Label25: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label41: TLabel;
    Label43: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Panel3: TPanel;
    DBCheckBox1: TDBCheckBox;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit1: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    wwDBEdit4: TwwDBEdit;
    wwDBEdit8: TwwDBEdit;
    wwDBComboBox2: TwwDBComboBox;
    wwDBComboBox1: TwwDBComboBox;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwDBComboBox3: TwwDBComboBox;
    wwDBComboBox5: TwwDBComboBox;
    wwDBComboBox6: TwwDBComboBox;
    wwDBComboDlg1: TwwDBComboDlg;
    wwDBComboBox7: TwwDBComboBox;
    wwDBEdit12: TwwDBEdit;
    wwDBComboBox10: TwwDBComboBox;
    wwDBEdit5: TwwDBEdit;
    wwDBComboBox11: TwwDBComboBox;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    wwDBComboBox13: TwwDBComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    DBCheckBox2: TDBCheckBox;
    wwDBComboBox4: TwwDBComboBox;
    wwDBSpinEdit1: TwwDBSpinEdit;
    DBCheckBox4: TDBCheckBox;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBComboBox8: TwwDBComboBox;
    wwDBComboBox9: TwwDBComboBox;
    wwDBComboBox12: TwwDBComboBox;
    TabSheet2: TTabSheet;
    GRID_JL: TDBGridEh;
    TabSheet3: TTabSheet;
    GRID_FAM: TDBGridEh;
    TabSheet10: TTabSheet;
    grid_learn: TDBGridEh;
    TabSheet7: TTabSheet;
    GRID_JNTC: TDBGridEh;
    TabSheet5: TTabSheet;
    DBGridEh4: TDBGridEh;
    TabSheet6: TTabSheet;
    DBGridEh5: TDBGridEh;
    TabSheet8: TTabSheet;
    DBGridEh3: TDBGridEh;
    TabSheet4: TTabSheet;
    DBGridEh2: TDBGridEh;
    TabSheet11: TTabSheet;
    DBGridEh1: TDBGridEh;
    TabSheet12: TTabSheet;
    Grid_SALARY: TDBGridEh;
    Tree: TTreeView;
    wwDBComboBox14: TwwDBComboBox;
    wwDBComboBox15: TwwDBComboBox;
    Q_mainEmp_image: TBlobField;
    openimage: TOpenPictureDialog;
    PM: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Image1: TImage;
    Q_mainSid: TGuidField;
    procedure FormShow(Sender: TObject);
    procedure wwDBComboBox2Enter(Sender: TObject);
    procedure wwDBComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Btn_newClick(Sender: TObject);
    procedure Btn_EditClick(Sender: TObject);
    procedure wwDBComboDlg1CustomDlg(Sender: TObject);
    procedure Btn_DeleteClick(Sender: TObject);
    procedure PageControl2Change(Sender: TObject);
    procedure Btn_SaveClick(Sender: TObject);
    procedure GRID_FAMExit(Sender: TObject);
    procedure GRID_JLExit(Sender: TObject);
    procedure GRID_JNTCExit(Sender: TObject);
    procedure DBGridEh4Exit(Sender: TObject);
    procedure DBGridEh5Exit(Sender: TObject);
    procedure DBGridEh3Exit(Sender: TObject);
    procedure DBGridEh1Exit(Sender: TObject);
    procedure Grid_SALARYExit(Sender: TObject);
    procedure grid_learnExit(Sender: TObject);
    procedure DBGridEh2Exit(Sender: TObject);
    procedure Q_JL_JLBeforeInsert(DataSet: TDataSet);
    procedure Q_JL_JLAfterInsert(DataSet: TDataSet);
    procedure Q_mainEmp_CardValidate(Sender: TField);
    procedure wwDBEdit3Exit(Sender: TObject);
    procedure Q_mainEmp_testdayValidate(Sender: TField);
    procedure TreeChange(Sender: TObject; Node: TTreeNode);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Q_mainAfterScroll(DataSet: TDataSet);
    procedure Image1DblClick(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    ActiveQuery: Tadoquery;
    Old_orderno: integer;
    function settree(node: ttreenode = nil; Motherid: string = ''): TTreenode;
    function IsPicture(A_FileName: TFileName): Boolean;
    { Public declarations }
  end;

var
  F_employ: TF_employ;

implementation

uses U_data, U_Departselect, U_Select;

{$R *.dfm}


function TF_employ.settree(node: ttreenode = nil; Motherid: string = ''): TTreenode;
var
  T1: TTreenode;
  Q: Tadoquery;
begin
  Q := Tadoquery.Create(nil);
  Q.Connection := Current_Con;
  SQL_s := 'Select * from TB_department where isnull(Dep_motherid,'''')=''' + motherid + '''';
  Sql_change(Q, sql_s);
  while not Q.Eof do
  begin
    T1 := Tree.Items.AddChild(node, Q.fieldbyname('Dep_id').asstring + '@' + Q.fieldbyname('Dep_name').asstring);
    settree(T1, Q.fieldbyname('Dep_id').asstring);
    Q.Next;
  end;

  Q.Close;
  Q.Free;
end;


procedure TF_employ.FormShow(Sender: TObject);
begin
  inherited;
  Activequery := Q_main;
  Q_main.Open;
  Q_JL_JL.Open;
  Q_FAM.Open;
  Q_LEARN.Open;
  Q_JNTC.Open;
  Q_jl.Open;
  Q_cf.Open;
  Q_move.Open;
  Q_cc.Open;
  Q_qj.Open;
  Q_SALARY.Open;
  settree(nil, '');
end;

procedure TF_employ.wwDBComboBox2Enter(Sender: TObject);
begin
  inherited;
  SET_WWCOM(TwwDBCOMBOBOX(sender), name + '-' + TwwDBCOMBOBOX(sender).NAME);
end;

procedure TF_employ.wwDBComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key <> 112 then EXIT;
  SET_COM_ITEM(name + '-' + TWWDBCOMBOBOX(sender).NAME, 'TB_Employ', TWWDBCOMBOBOX(SENDER).DATAFIELD);
  SET_WWCOM(TwwDBCOMBOBOX(sender), name + '-' + TwwDBCOMBOBOX(sender).NAME);
end;

procedure TF_employ.Btn_newClick(Sender: TObject);
begin