empface.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 779 行 · 第 1/2 页

unit empface;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, RXDBCtrl, StdCtrls, Mask, DBCtrls, Buttons, ImgList,
  ExtCtrls, ComCtrls, ToolWin,DB,Shellapi, Menus, ppDB, ppDBPipe, ppDBBDE,
  ppVar, ppBands, ppCtrls, ppPrnabl, ppClass, ppCache, ppComm, ppRelatv,
  ppProd, ppReport,ppviewr, ADODB, RxLookup, ppStrtch, ppMemo, myChkBox;

type
  Tformempface = class(TForm)
    ImageList1: TImageList;
    ScrollBox1: TScrollBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label14: TLabel;
    Label1: TLabel;
    Label9: TLabel;
    Label13: TLabel;
    Label18: TLabel;
    DBEdit2: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit26: TDBEdit;
    dbprovince: TDBComboBox;
    DBComboBox3: TDBComboBox;
    dbdegree: TDBComboBox;
    DBEdit15: TDBEdit;
    DBComboBox2: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBComboBox7: TDBComboBox;
    DBComboBox8: TDBComboBox;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBMemo1: TDBMemo;
    DBCheckBox1: TDBCheckBox;
    DateTimePicker1: TDateTimePicker;
    DBComboBox9: TDBComboBox;
    Label29: TLabel;
    DBEdit11: TDBEdit;
    Label30: TLabel;
    DBEdit12: TDBEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    Splitter1: TSplitter;
    Edit1: TEdit;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    TbPRINT: TToolButton;
    TBCLOSE: TToolButton;
    DBNavigator1: TDBNavigator;
    DBComboBox1: TDBComboBox;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppTitleBand1: TppTitleBand;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppLabel4: TppLabel;
    ppDBText4: TppDBText;
    ppLabel5: TppLabel;
    ppDBText8: TppDBText;
    ppLabel9: TppLabel;
    ppDBText9: TppDBText;
    ppLabel10: TppLabel;
    ppDBText10: TppDBText;
    ppLabel11: TppLabel;
    ppDBText11: TppDBText;
    ppLabel12: TppLabel;
    ppDBText12: TppDBText;
    ppLabel13: TppLabel;
    ppDBText13: TppDBText;
    ppLabel14: TppLabel;
    ppDBText14: TppDBText;
    ppLabel15: TppLabel;
    ppDBText15: TppDBText;
    ppLabel16: TppLabel;
    ppDBMemo1: TppDBMemo;
    ppLabel17: TppLabel;
    ppDBText17: TppDBText;
    ppLabel19: TppLabel;
    ppDBText18: TppDBText;
    ppLabel20: TppLabel;
    ppDBText19: TppDBText;
    ppLabel21: TppLabel;
    ppDBText20: TppDBText;
    ppLabel22: TppLabel;
    ppDBText21: TppDBText;
    ppLabel23: TppLabel;
    ppDBText22: TppDBText;
    ppLabel24: TppLabel;
    ppLabel26: TppLabel;
    ppDBText30: TppDBText;
    ppLabel32: TppLabel;
    ppDBText31: TppDBText;
    ppLabel33: TppLabel;
    ppLine1: TppLine;
    ppSummaryBand1: TppSummaryBand;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppSystemVariable5: TppSystemVariable;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppSystemVariable6: TppSystemVariable;
    ppLabel57: TppLabel;
    ppLabel67: TppLabel;
    ppDBCalc4: TppDBCalc;
    ppLabel68: TppLabel;
    ppLine8: TppLine;
    myDBCheckBox1: TmyDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Label22: TLabel;
    DBEdit4: TDBEdit;
    DateTimePicker2: TDateTimePicker;
    Label27: TLabel;
    Label28: TLabel;
    Label31: TLabel;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    procedure btexitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure Label25Click(Sender: TObject);
    procedure qryempfaceBeforeEdit(DataSet: TDataSet);
    procedure qryempfaceBeforeDelete(DataSet: TDataSet);
    procedure ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure RxDBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Panel2DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure FormDockOver(Sender: TObject; Source: TDragDockObject; X,
      Y: Integer; State: TDragState; var Accept: Boolean);
    procedure qryempfaceBeforePost(DataSet: TDataSet);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure tbnsortClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure DBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure tbnfindClick(Sender: TObject);
    procedure DBComboBox3Exit(Sender: TObject);
    procedure DBComboBox5DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure DBComboBox5DropDown(Sender: TObject);
    procedure DBComboBox9Exit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure DBComboBox5Enter(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure TbPRINTClick(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
  private
    manyfield:boolean;
    findex:array[1..5] of integer;
    fsort:array[1..5] of string;
    fcount:0..5;
    f:string;
   { Private declarations }
  public
    useform:0..10;   //标识点击绿色的label会调用哪个窗体
    { Public declarations }
  end;

var
  formempface: Tformempface;
implementation

uses main, datamol, formzonghe, formdepatment, empset,publicfunction;

{$R *.DFM}

procedure Tformempface.btexitClick(Sender: TObject);
begin
  close;
end;

procedure Tformempface.FormCreate(Sender: TObject);
begin
  datamod.adoempface.open;
  useform:=0;
  datetimepicker1.date:=date;
  datetimepicker2.date:=date;
end;

procedure Tformempface.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  setdbgridwidth(dbgrid1,'p'+'empface');
  formempface:=nil;
  action:=cafree;
end;

procedure Tformempface.ToolButton2Click(Sender: TObject);
begin
  panel2.Visible :=true;
  datamod.qryexchange.open;
end;

procedure Tformempface.FormShow(Sender: TObject);
begin
      with datamod do
      begin
           query1.Close;
           //加载学历
           query1.SQL.Text:='Select * from per04010 ';
           query1.Open;
           query1.First;
           dbdegree.items.clear;
           while not query1.Eof do
           begin
                dbdegree.Items.Add(query1.fieldbyname('degreename').value);
                query1.next;
           end;
           query1.close;
           //加载部门
           query1.sql.text:='Select * from pub05010 order by dno';
           query1.open;
           query1.first;
           dbcombobox5.items.clear;
           while not query1.eof do
           begin
                dbcombobox5.items.add(query1.fieldbyname('dno').asstring);
                query1.next;
           end;
           query1.close;
           //加载科系
           query1.sql.text:='select * from per05010 ';
           query1.open;
           query1.first;
           dbcombobox2.items.clear;
           while not query1.eof do
           begin
                dbcombobox2.items.add(query1.fieldbyname('coursename').value);
                query1.next;
           end;
           query1.close;
           //加载职称
           query1.sql.text:='select * from per01010 ';
           query1.open;
           query1.first;
           dbcombobox4.Items.clear;
           dbcombobox6.items.clear;
           dbcombobox8.items.clear;
           while not query1.eof do
           begin
                dbcombobox4.items.add(query1.fieldbyname('profname').value);
                dbcombobox6.items.add(query1.fieldbyname('profname').value);
                dbcombobox8.items.add(query1.fieldbyname('profname').value);
                query1.next;
           end;
           query1.close;
           //加载籍贯
           query1.sql.text:='select * from per03010 ';
           query1.open;
           query1.first;
           dbprovince.Items.clear;
           while not query1.eof do
           begin
                dbprovince.items.add(query1.fieldbyname('provname').value);
                query1.next;
           end;
           query1.close;
           //加载应聘来源
           query1.sql.text:='select * from emp02010 ';
           query1.open;
           query1.first;
           dbcombobox7.Items.clear;
           while not query1.eof do
           begin
                dbcombobox7.items.add(query1.fieldbyname('source').value);
                query1.next;
           end;
           query1.close;
      end;
end;

procedure Tformempface.Label3Click(Sender: TObject);
begin
     case (sender as tlabel).tag of
       0:begin
           useform:=4;
           returnzhi(formempface,4);          //学历
         end;
       1:begin
           useform:=5;
           returnzhi(formempface,5);        //科系
         end;
       2:begin
           useform:=1;                         //招聘职务
           returnzhi(formempface,1);
         end;
       3:begin
          useform:=3;
          returnzhi(formempface,3);    //籍贯
         end;
       4:begin
          useform:=10;
          returnzhi(formempface,10);    //应聘来源
         end;
       5:begin
           useform:=7;                         //应聘职务
           returnzhi(formempface,1);
         end;
       6:begin
           useform:=6;                         //给予职务
           returnzhi(formempface,1);
         end;
     end;
end;

procedure Tformempface.Label4Click(Sender: TObject);
begin
 if not assigned(formdept) then
      formdept:=tformdept.create(application);
      formdept.show;
  useform:=6;     
end;

procedure Tformempface.DateTimePicker1Change(Sender: TObject);
begin
  dbedit1.Text :=datetostr(datetimepicker1.date);
end;

procedure Tformempface.Label25Click(Sender: TObject);
var f:Tformallkind;
begin
   f:=tformallkind.Create (application);
   f.ShowModal;
end;

procedure Tformempface.qryempfaceBeforeEdit(DataSet: TDataSet);
begin
  writerecorder(datamod.adoempface,false);
end;