atddata.pas

pasa人力资源考勤管理系统

unit atddata;

interface

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

type
  TFormatddata = class(TForm)
    PopupMenu2: TPopupMenu;
    sche: TMenuItem;
    original: TMenuItem;
    modify: TMenuItem;
    ImageList1: TImageList;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    tbnprint: TToolButton;
    ToolButton10: TToolButton;
    DBNavigator1: TDBNavigator;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    DBGrid2: TDBGrid;
    Splitter1: TSplitter;
    Panel3: TPanel;
    DBGrid3: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    MaskEdit1: TMaskEdit;
    DateTimePicker1: TDateTimePicker;
    Label4: TLabel;
    Label5: TLabel;
    MaskEdit2: TMaskEdit;
    DateTimePicker2: TDateTimePicker;
    Panel4: TPanel;
    Label7: TLabel;
    Splitter2: TSplitter;
    Adoatdmonth: TADODataSet;
    Dsatdmonth: TDataSource;
    Adoatdmonthsun: TADODataSet;
    Dsatdmonthsun: TDataSource;
    Edit4: TEdit;
    Label13: TLabel;
    MaskEdit3: TMaskEdit;
    Label2: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    ToolButton2: TToolButton;
    DBGrid4: TDBGrid;
    Button1: TButton;
    ComboBox1: TComboBox;
    ToolButton3: TToolButton;
    ADOQuery1: TADOQuery;
    Panel5: TPanel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Animate1: TAnimate;
    DateTimePicker3: TDateTimePicker;
    BitBtn1: TBitBtn;
    DateTimePicker4: TDateTimePicker;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ComboBox2: TComboBox;
    Adoatdmonthsunrq: TDateTimeField;
    Adoatdmonthsunworkno: TStringField;
    Adoatdmonthsuncardno: TStringField;
    Adoatdmonthsunname: TStringField;
    Adoatdmonthsundept: TStringField;
    Adoatdmonthsunprof: TStringField;
    Adoatdmonthsunmusthours: TBCDField;
    Adoatdmonthsunfacthours: TBCDField;
    Adoatdmonthsunfactday: TBCDField;
    Adoatdmonthsunyouxinday: TBCDField;
    Adoatdmonthsunwuxinday: TBCDField;
    Adoatdmonthsuneveninghours: TBCDField;
    Adoatdmonthsunlate: TIntegerField;
    Adoatdmonthsunlatetimes: TIntegerField;
    Adoatdmonthsunearly: TIntegerField;
    Adoatdmonthsunearlytimes: TIntegerField;
    Adoatdmonthsunkuanggong: TBCDField;
    Adoatdmonthsunkuanggongtimes: TIntegerField;
    AdoatdmonthsunkuanggongL: TBCDField;
    AdoatdmonthsunkuanggongtimesL: TIntegerField;
    Adoatdmonthsunkuanggongtimese: TIntegerField;
    Adoatdmonthsunleavehave: TBCDField;
    Adoatdmonthsunleavenohave: TBCDField;
    Adoatdmonthsunmustot: TBCDField;
    Adoatdmonthsunotpingshi: TBCDField;
    Adoatdmonthsunotjieri: TBCDField;
    Adoatdmonthsunotjiari: TBCDField;
    Adoatdmonthsunotnotgive: TBCDField;
    AdoatdmonthsunlateOt: TIntegerField;
    AdoatdmonthsunlatetimesOt: TIntegerField;
    AdoatdmonthsunearlyOt: TIntegerField;
    AdoatdmonthsunearlytimesOt: TIntegerField;
    AdoatdmonthsunkuanggongOt: TBCDField;
    AdoatdmonthsunkuanggongtimesOt: TIntegerField;
    AdoatdmonthsunkuanggongOtL: TBCDField;
    AdoatdmonthsunkuanggongtimesOtL: TIntegerField;
    Adoatdmonthsunkuanggongote: TBCDField;
    Adoatdmonthsunkuanggongtimesote: TIntegerField;
    AdoatdmonthsunleavehaveOt: TBCDField;
    AdoatdmonthsunleavenohaveOt: TBCDField;
    Adoatdmonthsunleavekind: TStringField;
    Adoatdmonthworkno: TStringField;
    Adoatdmonthcardno: TStringField;
    Adoatdmonthname: TStringField;
    Adoatdmonthdept: TStringField;
    Adoatdmonthmonthy: TStringField;
    Adoatdmonthmusthours: TBCDField;
    Adoatdmonthfacthours: TBCDField;
    Adoatdmonthfactday: TBCDField;
    Adoatdmonthyouxinday: TBCDField;
    Adoatdmonthwuxinday: TBCDField;
    Adoatdmonthlate: TIntegerField;
    Adoatdmonthlatetimes: TIntegerField;
    Adoatdmonthearly: TIntegerField;
    Adoatdmonthearlytimes: TIntegerField;
    Adoatdmonthkuanggong: TBCDField;
    Adoatdmonthkuanggongtimes: TIntegerField;
    AdoatdmonthkuanggongL: TBCDField;
    AdoatdmonthkuanggongtimesL: TIntegerField;
    Adoatdmonthleavehave: TBCDField;
    Adoatdmonthleavenohave: TBCDField;
    Adoatdmonthmustot: TBCDField;
    Adoatdmonthotpingshi: TBCDField;
    Adoatdmonthotjieri: TBCDField;
    Adoatdmonthotjiari: TBCDField;
    Adoatdmonthotnotgive: TBCDField;
    AdoatdmonthlateOt: TIntegerField;
    AdoatdmonthlatetimesOt: TIntegerField;
    AdoatdmonthearlyOt: TIntegerField;
    AdoatdmonthearlytimesOt: TIntegerField;
    AdoatdmonthkuanggongOt: TBCDField;
    AdoatdmonthkuanggongtimesOt: TIntegerField;
    AdoatdmonthkuanggongOtL: TBCDField;
    AdoatdmonthkuanggongtimesOtL: TIntegerField;
    AdoatdmonthleavehaveOt: TBCDField;
    AdoatdmonthleavenohaveOt: TBCDField;
    Adoatdmonthqiankatimes: TIntegerField;
    Adoatdmonthkuanggonge: TBCDField;
    Adoatdmonthkuanggongtimese: TIntegerField;
    Adoatdmonthkuanggongote: TBCDField;
    Adoatdmonthkuanggongtimesote: TIntegerField;
    Adoatdmonthsunkuanggonge: TBCDField;
    Adoatdmonthsunotbu: TIntegerField;
    Adoatdmonthotbu: TIntegerField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBEXITClick(Sender: TObject);
    procedure modifyClick(Sender: TObject);
    procedure scheClick(Sender: TObject);
    procedure originalClick(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure dbgrid1TitleClick(Column: TColumn);
    procedure DBGrid3TitleClick(Column: TColumn);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure PopupMenu2Popup(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure MaskEdit3Exit(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure tbnfindClick(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure tbnsortClick(Sender: TObject);
    procedure DBGrid1Enter(Sender: TObject);
    procedure DBGrid2Enter(Sender: TObject);
    procedure DBGrid3Enter(Sender: TObject);
    procedure FormkeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure tbnprintClick(Sender: TObject);
    procedure ppDBText17GetText(Sender: TObject; var Text: String);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure DateTimePicker2CloseUp(Sender: TObject);
    procedure MaskEdit2Exit(Sender: TObject);
    procedure DBGrid4TitleClick(Column: TColumn);
    procedure DBGrid4DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);  private
    { Private declarations }
    manyfield:boolean;
    findex:array[1..5] of integer;
    fsort:array[1..5] of string;
    fcount:0..5;
    dbgrid:0..3;
    f:string;
  public
    book:tbookmark;
    { Public declarations }
  end;

var
  Formatddata: TFormatddata;
  cardno,workno,scheno,dothing,otkind,mustgo,mustout:string;
  whichatd,item:integer;
  add,con,otherot:boolean;
  rq,factgo,factout:TDateTime;
  musthours,decrease:real;
  qry,atdtable:string;
implementation

uses main,publicfunction, qianka, schebrow, original,otbc,
  datamol, Unit1, Unit3;
{$R *.DFM}

procedure TFormatddata.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    SetDBGridLength(self.name,dbgrid1,datamod.adodaytotal);
    SetDBGridLength(self.name,dbgrid2,datamod.adoatddata);
    SetDBGridLength(self.name,dbgrid3,adoatdmonth);
    SetDBGridLength(self.name,dbgrid4,adoatdmonthsun);
    with datamod do
    begin
      adodaytotal.close;
      adootlist.close;
      adoatddata.close;
    end;
    adoatdmonth.close;
    adoatdmonthsun.close;
    formatddata:=nil;
    action:=cafree;
end;

procedure TFormatddata.FormCreate(Sender: TObject);
var
  qry1:TAdoquery;
begin
  Qry1:=TAdoquery.create(application);
  Qry1.Connection:=datamod.Database1;
  qry1.SQL.Clear;
  qry1.SQL.Add('select distinct dept from per24010');
  qry1.open;
  qry1.First;
  combobox2.Items.Clear;
  combobox2.Items.Add('全部');
  while not qry1.Eof do
  begin
    combobox2.Items.Add(qry1.fieldbyname('dept').asstring);
    qry1.next;
  end;
  combobox2.ItemIndex:=0; 
  datetimepicker1.date:=now;
  datetimepicker2.date:=now;
  datetimepicker3.Date :=now;
  datetimepicker4.Date :=now;
  maskedit1.text:=datetostr(date);
  maskedit2.text:=datetostr(date);
  maskedit3.text:=copy(datetostr(date),1,7);
  pagecontrol1.activepageindex:=0;
   with datamod do
   begin
       adodaytotal.close;
       adodaytotal.Filtered:=false;
       adodaytotal.Filter :='rq<='''+maskedit2.text+''' and rq>='''+maskedit1.text+''' ';
       adodaytotal.Filtered:=true;
       adodaytotal.open;
       adootlist.open;
       adoatddata.open;
       whichatd:=0;
   end;
  GetDBGridLength(self.name,dbgrid1);
  GetDBGridLength(self.name,dbgrid2);
  GetDBGridLength(self.name,dbgrid3);
  GetDBGridLength(self.name,dbgrid4);

  Adoatdmonthsun.close;
  Adoatdmonthsun.Open ;
end;
procedure TFormatddata.TBEXITClick(Sender: TObject);
begin
  close;
end;

procedure TFormatddata.modifyClick(Sender: TObject);
begin
  if datamod.ADOatddatatrans.asboolean then
  begin
     Application.messagebox('不能对签卡资料进行再签卡,请从原始资料开始签卡,即其异动档栏位值为False','Warning',mb_ok+mb_iconwarning);
     exit;
  end;
    formqianka:=TFormqianka.create(application);
    formqianka.showmodal;
    formqianka.free;
end;

procedure TFormatddata.scheClick(Sender: TObject);
begin
     if not assigned(formschebrow) then
        formschebrow:=TFormschebrow.create(application);
        formschebrow.show;
end;