raisepay.pas

pasa人力资源考勤管理系统

//调薪作业,通过调职等职改变薪资
unit raisepay;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ComCtrls, DBCtrls, ExtCtrls, StdCtrls, Mask, Buttons,
  ToolWin, ImgList, Menus,Adodb,db,tiaoxing, wwdblook;

type
  Tformraisepay = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    PopupMenu2: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    DBGrid1: TDBGrid;
    ToolBar1: TToolBar;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    tbnprint: TToolButton;
    ToolButton4: TToolButton;
    ToolButton3: TToolButton;
    DSraisepay: TDataSource;
    Adoraisepay: TADODataSet;
    Dsrmoney1: TDataSource;
    AdoRmoney1: TADODataSet;
    Panel4: TPanel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Edit2: TEdit;
    MaskEdit3: TMaskEdit;
    DateTimePicker6: TDateTimePicker;
    MaskEdit4: TMaskEdit;
    DateTimePicker7: TDateTimePicker;
    tbnseeall: TToolButton;
    Query1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery1: TADOQuery;
    Label23: TLabel;
    DBText12: TDBText;
    ADODataSet1: TADODataSet;
    ADODataSet1Gno: TStringField;
    ADODataSet1Jno: TStringField;
    ADODataSet1Bmoney1: TBCDField;
    ADODataSet1Bmoney2: TBCDField;
    ADODataSet1Tmoney3: TBCDField;
    ADODataSet1Tmoney1: TBCDField;
    ADODataSet1Tmoney2: TBCDField;
    ADODataSet1Qmoney: TBCDField;
    ADODataSet1operator: TStringField;
    ADODataSet1cdate: TDateTimeField;
    Splitter1: TSplitter;
    ADODataSet2: TADODataSet;
    ADODataSet2prof1: TStringField;
    ADODataSet2prof2: TStringField;
    ADODataSet2prof: TStringField;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    AdoRmoney1id: TStringField;
    AdoRmoney1workno: TStringField;
    AdoRmoney1cardno: TStringField;
    AdoRmoney1name: TStringField;
    AdoRmoney1dept: TStringField;
    AdoRmoney1prof: TStringField;
    AdoRmoney1gradename: TStringField;
    AdoRmoney1basepay: TBCDField;
    AdoRmoney1profpay: TBCDField;
    AdoRmoney1techpay: TBCDField;
    AdoRmoney1deptpay: TBCDField;
    AdoRmoney1pwho: TStringField;
    AdoRmoney1pdate: TDateTimeField;
    AdoRmoney1cpgrade: TStringField;
    AdoRmoney1Cbasepay: TBCDField;
    AdoRmoney1Cprofpay: TBCDField;
    AdoRmoney1Ctechpay: TBCDField;
    AdoRmoney1Cdeptpay: TBCDField;
    AdoRmoney1Cpusedate: TDateTimeField;
    AdoRmoney1checkman: TStringField;
    AdoRmoney1checkdate: TStringField;
    AdoRmoney1cdate: TDateTimeField;
    AdoRmoney1operator: TStringField;
    AdoRmoney1try: TBooleanField;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText7: TDBText;
    Label25: TLabel;
    DBText13: TDBText;
    Label28: TLabel;
    Label29: TLabel;
    Label31: TLabel;
    DBEdit1: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DateTimePicker2: TDateTimePicker;
    wwDBLookupCombo3: TwwDBLookupCombo;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText8: TDBText;
    DBText10: TDBText;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label15: TLabel;
    DBText9: TDBText;
    Label16: TLabel;
    DBText11: TDBText;
    Adoraisepayid: TStringField;
    Adoraisepayworkno: TStringField;
    Adoraisepaycardno: TStringField;
    Adoraisepayname: TStringField;
    Adoraisepaydept: TStringField;
    Adoraisepayprof: TStringField;
    Adoraisepaygradename: TStringField;
    Adoraisepaybasepay: TBCDField;
    Adoraisepayprofpay: TBCDField;
    Adoraisepaytechpay: TBCDField;
    Adoraisepaydeptpay: TBCDField;
    Adoraisepaypwho: TStringField;
    Adoraisepaypdate: TDateTimeField;
    Adoraisepaycpgrade: TStringField;
    AdoraisepayCbasepay: TBCDField;
    AdoraisepayCprofpay: TBCDField;
    AdoraisepayCtechpay: TBCDField;
    AdoraisepayCdeptpay: TBCDField;
    AdoraisepayCpusedate: TDateTimeField;
    Adoraisepaycheckman: TStringField;
    Adoraisepaycheckdate: TStringField;
    Adoraisepaycdate: TDateTimeField;
    Adoraisepayoperator: TStringField;
    Adoraisepaytry: TBooleanField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageControl1Change(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure tbnfindClick(Sender: TObject);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure tbnsortClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure ToolButton3Click(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure tbnprintClick(Sender: TObject);
    procedure AdoRmoney1tryGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure AdoRmoney1trySetText(Sender: TField; const Text: String);
    procedure Edit2Exit(Sender: TObject);
    procedure MaskEdit4Exit(Sender: TObject);
    procedure DateTimePicker6Exit(Sender: TObject);
    procedure DateTimePicker7Exit(Sender: TObject);
    procedure DateTimePicker2CloseUp(Sender: TObject);
    procedure tbnseeallClick(Sender: TObject);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure FormCreate(Sender: TObject);
    procedure AdoRmoney1worknoChange(Sender: TField);
    procedure wwDBLookupCombo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure wwDBLookupCombo2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure wwDBLookupCombo3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure AdoRmoney1BeforePost(DataSet: TDataSet);


  private
    { Private declarations }
    manyfield:boolean;
    findex:array[1..5] of integer;
    fsort:array[1..5] of string;
    fcount:0..5;
    db:0..3;
    f:string;
  public
    { Public declarations }
  end;

var
  formraisepay: Tformraisepay;

implementation

uses datamol,publicfunction, main, personalreport, reportforraisepay,
  reportforreward, canfind;
{$R *.DFM}

procedure Tformraisepay.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  SetDBGridLength(self.name,DBGrid1,adormoney1);
  SetDBGridLength(self.name,DBGrid2,adoraisepay);
  action:=cafree;
  formraisepay:=nil;
end;

procedure Tformraisepay.PageControl1Change(Sender: TObject);
begin
  (sender as Tpagecontrol).activepage.highlighted:=true;
  case pagecontrol1.ActivePageIndex of
  0:begin tbnseeall.enabled:=false; toolbutton3.enabled:=true; dbnavigator1.DataSource :=DsRmoney1; end;
  1:begin tbnseeall.enabled:=true; toolbutton3.enabled:=false; dbnavigator1.DataSource :=Dsraisepay; end;
  end;
end;

procedure Tformraisepay.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (activecontrol=dbgrid1) or (activecontrol=dbgrid2) then
    exit
  else
     if key=#13 then
     begin
        key:=#0;
        if activecontrol=dbedit20 then
        begin
         if adormoney1.state in [dsinsert,dsedit] then
         begin
          adormoney1.post;
          adormoney1.Append ;
          dbedit1.setfocus;
          end;
          end else
          begin
        selectnext(activecontrol,true,true);
        end;
     end;
end;
procedure Tformraisepay.FormActivate(Sender: TObject);
begin
   Adoraisepay.close;
   Adoraisepay.open;
   Adormoney1.Close;
   Adormoney1.CursorType :=ctkeyset;
   adormoney1.LockType :=ltpessimistic;
  AdoRmoney1.Open;

  GetDBGridLength(self.name,DBGrid1);
  GetDBGridLength(self.name,DBGrid2);
 // GetColorSize(self);
  Datetimepicker2.Date :=date ;
  Datetimepicker6.Date :=date ;
  Datetimepicker7.Date :=date ;
  edit2.setfocus;
end;

procedure Tformraisepay.ToolButton4Click(Sender: TObject);
begin
  close;
end;

procedure Tformraisepay.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
    dbgrid_keypress(dbgrid1,key);
end;

procedure Tformraisepay.tbnfindClick(Sender: TObject);
begin
  if assigned(formcanfind) then  formcanfind.close;
 findrecorder(adoraisepay,'Adoraisepay','per27012');   //调用publicfuction中的查询功能
end;

procedure Tformraisepay.DBGrid2TitleClick(Column: TColumn);
begin
   if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
   ADOraisepay.Sort :=column.FieldName+' '+f;
end;

procedure Tformraisepay.DBGrid1TitleClick(Column: TColumn);
begin
   if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
   ADOrmoney1.Sort :=column.FieldName+' '+f;
end;

procedure Tformraisepay.tbnsortClick(Sender: TObject);
var i:1..5;
begin
  if manyfield then
   begin
     manyfield:=false;
     tbnsort.hint:='设定多字段排序';
     popupmenu2.Items[0].Enabled :=false;
     popupmenu2.Items[1].Enabled :=false;
     popupmenu2.Items[2].Enabled :=false;