frm_c_cardkcpas.pas

是一个用delphi设计的考勤系统

unit frm_c_cardkcpas;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, DB, ADODB, ComCtrls, Grids, DBGrids, StdCtrls, Menus,
   ExtCtrls, YLabelButton, ChangeImage;

type
   Tfrm_c_cardkc = class(TMyModalForm)
      GroupBox1: TGroupBox;
      DBGrid1: TDBGrid;
      stb: TStatusBar;
      DataSource1: TDataSource;
      qryzx_c_cardkc: TADOQuery;
      qryzx_c_cardkcrq: TStringField;
      qryzx_c_cardkclksl: TIntegerField;
      qryzx_c_cardkcfksl: TIntegerField;
      qryzx_c_cardkcbksl: TIntegerField;
      qryzx_c_cardkcgssl: TIntegerField;
      qryzx_c_cardkcjgsl: TIntegerField;
      qryzx_c_cardkcbssl: TIntegerField;
      qryzx_c_cardkchssl: TIntegerField;
      qryzx_c_cardkctksl: TIntegerField;
      qryzx_c_cardkcczy: TStringField;
      qryzx_c_cardkcbz: TMemoField;
      BtnNew: TChangeImg;
      LbtnNew: TLabelB;
      LBtnEdit: TLabelB;
      BtnEdit: TChangeImg;
      BtnDelete: TChangeImg;
      LBtnDelete: TLabelB;
      BtnFind: TChangeImg;
      LBtnFind: TLabelB;
      BtnHelp: TChangeImg;
      LBtnHelp: TLabelB;
      GroupBox2: TGroupBox;
      Label1: TLabel;
      dtpksrq: TDateTimePicker;
      Label2: TLabel;
      dtpjsrq: TDateTimePicker;
      procedure BtnNewClick(Sender: TObject);
      procedure BtnEditClick(Sender: TObject);
      procedure BtnDeleteClick(Sender: TObject);
      procedure FormShow(Sender: TObject);
      procedure BtnFindClick(Sender: TObject);
      procedure BtnHelpClick(Sender: TObject);
   private
    { Private declarations }
      procedure cardkc(czfs: integer; sl: integer);
      procedure ShowData(ksrq: string; jsrq: string);
   public
    { Public declarations }
   end;

var
   frm_c_cardkc: Tfrm_c_cardkc;

implementation

uses DM_DataModal, frmInputDatapas, UGlobal, UGeneralFunc;

{$R *.dfm}

procedure Tfrm_c_cardkc.BtnNewClick(Sender: TObject);
begin
   inherited;
   frmInputData := TfrmInputData.Create(self);
   frmInputData.InputMode := 1;
   frmInputData.lbCaption.Caption := '卡入库登记';
   frmInputData.DW := '(张)';
   frmInputData.Value := '';
   frmInputData.ShowModal;
   if trim(frmInputData.Value) <> '' then
      cardkc(1, strtoint(frmInputData.Value));
   frmInputData.Free;
end;

procedure Tfrm_c_cardkc.cardkc(czfs, sl: integer);
var
   i: integer;
begin
   try
      with winddata.pZx_c302_Cardkc do
      begin
         for i := 2 to 9 do parameters[i].Value := 0;
         parameters.ParamByName('@rq').Value := datetostr(now);
         case czfs of
            1:
               parameters.ParamByName('@lksl').Value := sl;
            2:
               parameters.ParamByName('@tksl').Value := sl;
            3:
               parameters.ParamByName('@bssl').Value := sl;
         end;
         parameters.ParamByName('@czy').Value := gtUser.UsrName;
         execproc;
         stb.Panels[1].Text := parameters.ParamByName('@retmsg').Value;
         ShowData(datetostr(now), datetostr(now));
      end;
   except
      stb.Panels[1].Text := '登记异常';
   end;
end;

procedure Tfrm_c_cardkc.BtnEditClick(Sender: TObject);
begin
   inherited;
   frmInputData := TfrmInputData.Create(self);
   frmInputData.InputMode := 1;
   frmInputData.lbCaption.Caption := '退卡登记';
   frmInputData.DW := '(张)';
   frmInputData.Value := '';
   frmInputData.ShowModal;
   if trim(frmInputData.Value) <> '' then
      cardkc(2, strtoint(frmInputData.Value));
   frmInputData.Free;
end;

procedure Tfrm_c_cardkc.BtnDeleteClick(Sender: TObject);
begin
   inherited;
   frmInputData := TfrmInputData.Create(self);
   frmInputData.InputMode := 1;
   frmInputData.lbCaption.Caption := '卡报损登记';
   frmInputData.DW := '(张)';
   frmInputData.Value := '';
   frmInputData.ShowModal;
   if trim(frmInputData.Value) <> '' then
      cardkc(3, strtoint(frmInputData.Value));
   frmInputData.Free;
end;

procedure Tfrm_c_cardkc.ShowData(ksrq, jsrq: string);
var
   i, j, z: integer;
begin
   with qryzx_c_cardkc do
   begin
      close;
      parameters.ParamByName('ksrq').Value := ksrq;
      parameters.ParamByName('jsrq').Value := jsrq;
      open;
      i := 0;
      j := 0;
      z := 0;
      while not eof do
      begin
         i := i + fieldbyname('lksl').asinteger;
         j := j + fieldbyname('fksl').asinteger;
         z := z + fieldbyname('bksl').asinteger;
         next;
      end;
      stb.Panels[3].Text := inttostr(i);
      stb.Panels[5].Text := inttostr(j);
      stb.Panels[7].Text := inttostr(z);

   end;
end;

procedure Tfrm_c_cardkc.FormShow(Sender: TObject);
begin
   inherited;
   if gtsyscs.sAzrq = '' then
      dtpksrq.Date := strtodate('2002-01-01')
   else
      dtpksrq.Date := strtodate(gtsyscs.sAzrq);
   dtpjsrq.Date := now;
   showdata(datetostr(dtpksrq.Date), datetostr(dtpjsrq.Date));
end;

procedure Tfrm_c_cardkc.BtnFindClick(Sender: TObject);
begin
   inherited;
   showdata(datetostr(dtpksrq.Date), datetostr(dtpjsrq.Date));
end;

procedure Tfrm_c_cardkc.BtnHelpClick(Sender: TObject);
begin
   inherited;
   HtmlHelp(Handle, gtSyscs.sHelpFileName, $0001, DWORD(PChar('Introduction.htm')));
end;

end.