formperson.pas

pasa人力资源考勤管理系统

//***********************************************************************//
//人事主档作业，该界面功能只是显示人事主档，可利用dbnavigator进行新增，//
//修改，删除资料。利用查询可以找出符合条件的值，根据需要选择报表。不论//
//不论是新增，修改，它调用的窗体是formpersonal.                       //
//********************************************************************//
unit formperson;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, ImgList,
  ToolWin, OleCtrls,  Menus, adodb,Quickrpt,qrextra, ppCtrls, ppBands,
  ppClass, ppPrnabl, ppProd, ppReport, ppDB, ppComm, ppRelatv, ppCache,
  ppDBPipe, ppViewr,ppTypes, ppVar, ppModule, daDatMod, ppDBBDE, raCodMod,
  XPBarMenu, RXDBCtrl,DB ,ShellAPI, TeeProcs, TeEngine, Chart, DBChart,
  RXSplit, fcdbtreeview, Series;

type
  Tformpeople = class(TForm)
    ImageList1: TImageList;
    Panel1: TPanel;
    Editworkno: TEdit;
    Editname: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    ToolBar1: TToolBar;
    clear: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    tbnprint: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    SpeedButton2: TSpeedButton;
    DBGrid3: TDBGrid;
    DBNavigator3: TDBNavigator;
    Button2: TButton;
    DBGrid4: TDBGrid;
    fcDBTreeView1: TfcDBTreeView;
    RxSplitter1: TRxSplitter;
    PageControl2: TPageControl;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    DBChart1: TDBChart;
    ADOprof: TADOQuery;
    Series1: TLineSeries;
    DBChart2: TDBChart;
    ADOdept: TADOQuery;
    Series2: TBarSeries;
    DBChart3: TDBChart;
    ADOprovname: TADOQuery;
    Series3: TAreaSeries;
    ADOdepta: TADODataSet;
    ADOpersonal: TADODataSet;
    Dsdepta: TDataSource;
    Dspersonal: TDataSource;
    ADOdeptadept: TStringField;
    ADOdeptacou: TIntegerField;
    ADOsjzdiao: TADODataSet;
    ADOkaoqin: TADODataSet;
    ADOjiaoyu: TADODataSet;
    ADOjianchen: TADODataSet;
    ADOtiaoxing: TADODataSet;
    Dskaoqin: TDataSource;
    PageControl3: TPageControl;
    TabSheet8: TTabSheet;
    DBGrid6: TDBGrid;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    TabSheet12: TTabSheet;
    DBGrid5: TDBGrid;
    Dssjzdiao: TDataSource;
    Dsjianchen: TDataSource;
    Dsjiaoyu: TDataSource;
    Dstiaoxing: TDataSource;
    ADOjianchenworkno: TStringField;
    ADOjianchenname: TStringField;
    ADOjianchenprof: TStringField;
    ADOjianchenjc: TStringField;
    ADOjianchenyears: TStringField;
    ADOjianchenjctimes: TIntegerField;
    ADOjianchenjcmoney: TBCDField;
    DBGrid7: TDBGrid;
    DBGrid8: TDBGrid;
    ADOsjzdiaoworkno: TStringField;
    ADOsjzdiaocardno: TStringField;
    ADOsjzdiaoname: TStringField;
    ADOsjzdiaosexname: TStringField;
    ADOsjzdiaodept: TStringField;
    ADOsjzdiaoprof: TStringField;
    ADOsjzdiaoldept: TStringField;
    ADOsjzdiaolprof: TStringField;
    ADOsjzdiaousefuldate: TDateTimeField;
    ADOsjzdiaomovek: TStringField;
    ADOsjzdiaocdate: TDateTimeField;
    ADOsjzdiaooperator: TStringField;
    DBGrid9: TDBGrid;
    ADOjiaoyuworkno: TStringField;
    ADOjiaoyucardno: TStringField;
    ADOjiaoyuname: TStringField;
    ADOjiaoyudept: TStringField;
    ADOjiaoyucourse: TStringField;
    ADOjiaoyurq: TStringField;
    ADOjiaoyuresult: TBCDField;
    ADOjiaoyupa: TStringField;
    ImageList2: TImageList;
    ADOtiaoxingid: TStringField;
    ADOtiaoxingworkno: TStringField;
    ADOtiaoxingcardno: TStringField;
    ADOtiaoxingname: TStringField;
    ADOtiaoxingdept: TStringField;
    ADOtiaoxingprof: TStringField;
    ADOtiaoxinggradename: TStringField;
    ADOtiaoxingbasepay: TBCDField;
    ADOtiaoxingprofpay: TBCDField;
    ADOtiaoxingtechpay: TBCDField;
    ADOtiaoxingdeptpay: TBCDField;
    ADOtiaoxingpwho: TStringField;
    ADOtiaoxingpdate: TDateTimeField;
    ADOtiaoxingcpgrade: TStringField;
    ADOtiaoxingCbasepay: TBCDField;
    ADOtiaoxingCprofpay: TBCDField;
    ADOtiaoxingCtechpay: TBCDField;
    ADOtiaoxingCdeptpay: TBCDField;
    ADOtiaoxingCpusedate: TDateTimeField;
    ADOtiaoxingcheckman: TStringField;
    ADOtiaoxingcheckdate: TStringField;
    ADOtiaoxingcdate: TDateTimeField;
    ADOtiaoxingoperator: TStringField;
    ADOtiaoxingtry: TBooleanField;
    ADOkaoqinworkno: TStringField;
    ADOkaoqincardno: TStringField;
    ADOkaoqinname: TStringField;
    ADOkaoqindept: TStringField;
    ADOkaoqinmusthours: TBCDField;
    ADOkaoqinfacthours: TBCDField;
    ADOkaoqinfactday: TBCDField;
    ADOkaoqinlate: TIntegerField;
    ADOkaoqinlatetimes: TIntegerField;
    ADOkaoqinearly: TIntegerField;
    ADOkaoqinearlytimes: TIntegerField;
    ADOkaoqinkuanggong: TBCDField;
    ADOkaoqinkuanggongtimes: TIntegerField;
    ADOkaoqinkuanggongL: TBCDField;
    ADOkaoqinkuanggongtimesL: TIntegerField;
    ADOkaoqinkuanggonge: TBCDField;
    ADOkaoqinkuanggongtimese: TIntegerField;
    ADOkaoqinleavehave: TBCDField;
    ADOkaoqinleavenohave: TBCDField;
    ADOkaoqinmustot: TBCDField;
    ADOkaoqinotpingshi: TBCDField;
    ADOkaoqinlateOt: TIntegerField;
    ADOkaoqinlatetimesOt: TIntegerField;
    ADOkaoqinearlyOt: TIntegerField;
    ADOkaoqinearlytimesOt: TIntegerField;
    ADOkaoqinkuanggongOt: TBCDField;
    ADOkaoqinkuanggongtimesOt: TIntegerField;
    ADOkaoqinkuanggongOtL: TBCDField;
    ADOkaoqinkuanggongtimesOtL: TIntegerField;
    ADOkaoqinleavehaveOt: TBCDField;
    ADOkaoqinleavenohaveOt: TBCDField;
    ADOkaoqinkuanggongote: TBCDField;
    ADOkaoqinkuanggongtimesote: TIntegerField;
    ADOkaoqinqiankatimes: TIntegerField;
    ADOkaoqinyears: TStringField;
    ADOkaoqinotjieri: TIntegerField;
    ADOkaoqinotjiari: TBCDField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure tbnprintClick(Sender: TObject);
    procedure tbnfindClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure Panel2DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure DBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure N1Click(Sender: TObject);
    procedure tbnsortClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure DBGrid1Enter(Sender: TObject);
    procedure DBGrid2Enter(Sender: TObject);
    procedure DBGrid1Exit(Sender: TObject);
    procedure DBGrid2Exit(Sender: TObject);
    procedure EditworknoExit(Sender: TObject);
    procedure EditnameExit(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1Exit(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure ToolButton5Click(Sender: TObject);
    procedure clearClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure PageControl2Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure PageControl3Change(Sender: TObject);
    procedure fcDBTreeView1DblClick(TreeView: TfcDBCustomTreeView;
      Node: TfcDBTreeNode; Button: TMouseButton; Shift: TShiftState; X,
      Y: Integer);
  private
    manyfield:boolean;
    findex:array[1..5] of integer;
    fsort:array[1..5] of string;
    fcount:0..5;
    dbgrid:0..2;
    f:string;   //排序的字段
    angry:0..2;
    { Private declarations }
    FReport : TQuickRep;
    procedure SetReport(Value : TQuickRep);
  public
    { Public declarations }
    property Report : TQuickRep read FReport write SetReport;
  end;

var
  formpeople: Tformpeople;
implementation

uses datamol, formpersonal1, main,publicfunction, canfind, 
  personalreport, reportforpeople, pubpersonal, mulchange;
{$R *.DFM}
procedure Tformpeople.setreport(Value:TQuickRep);
begin
  FReport:=Value;
end;

procedure Tformpeople.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  adoprof.close;
  adodept.close;
  adoprovname.Close;
   setdbgridwidth(dbgrid1,'p'+'people'); //在注册表中存入栏位宽度，以便它下次重新读取
   action:=cafree;  //从内存卸载窗体
   formpeople:=nil;
end;

procedure Tformpeople.DBGrid1DblClick(Sender: TObject);
begin
  if not assigned(formpersonal) then  formpersonal:=Tformpersonal.create(self);
  formmain.timer1.enabled:=false;
  menuname:='per_basic';
  formname:=formpersonal;
  GetRight(menuname,formname);
  formpersonal.show;
  formpersonal.Image1.Picture.LoadFromFile(datamod.adopersonal.fieldbyname('photo').asstring);
  formmain.timer1.enabled:=true;
end;
procedure Tformpeople.FormActivate(Sender: TObject);
begin
   adodepta.Close;
   adodepta.Open;
   adopersonal.Close;
   adopersonal.Open;
   getdbgridwidth(dbgrid1,'p'+'people');   //读取dbgrid栏位宽度；p是系统名，people取的是窗体名的一部份
   datamod.qryexchange.open;