gz_jje.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit Gz_JjE;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, ObeyTable, Buttons,
  CodeEd, OleCtnrs, Grids, DBGrids, ComCtrls;

type
  TfrmGz_JjE = class(TForm)
    DBGrid1: TDBGrid;
    qryGz_Jj: TQuery;
    DataSource2: TDataSource;
    qryGz_JjID: TIntegerField;
    qryGz_JjFDate: TDateTimeField;
    qryGz_JjEmpID: TIntegerField;
    qryGz_JjGxID: TIntegerField;
    qryGz_JjPerCost: TFloatField;
    qryGz_JjAmount: TFloatField;
    qryGz_JjCost: TFloatField;
    qryGz_JjCode: TStringField;
    qryGz_JjName: TStringField;
    panFooter: TPanel;
    qryEmp: TQuery;
    qryEmpID: TIntegerField;
    qryEmpName: TStringField;
    cmdJjDel: TBitBtn;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    UpdateSQL1: TUpdateSQL;
    qryGz_JjCostNum: TIntegerField;
    Panel1: TPanel;
    Label4: TLabel;
    dpDate: TDateTimePicker;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryGz_JjEmpGwh: TStringField;
    qryGz_JjEmpName: TStringField;
    qrySum: TQuery;
    UpdateSQL2: TUpdateSQL;
    DataSource1: TDataSource;
    qryEmpCode: TStringField;
    qryGx: TQuery;
    qryGxID: TIntegerField;
    qryGxCode: TStringField;
    qryGxName: TStringField;
    qryGxUnit: TStringField;
    qryGxCostNum: TIntegerField;
    qryGxPerCost: TFloatField;
    qrySumAmount: TFloatField;
    procedure cmdJjDelClick(Sender: TObject);
    procedure qryGz_JjNewRecord(DataSet: TDataSet);
    procedure qryGz_JjAfterDelete(DataSet: TDataSet);
    procedure qryGz_JjAfterPost(DataSet: TDataSet);
    procedure qryGz_JjAmountChange(Sender: TField);
    procedure qryGz_JjBeforePost(DataSet: TDataSet);
    procedure cmdOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure qryGz_JjCodeChange(Sender: TField);
    procedure qryGz_JjEmpGwhChange(Sender: TField);
    procedure cmdCancelClick(Sender: TObject);
  private
    { Private declarations }
    nEmpID,nGxID,nCostNum :integer;
    sEmpGwh,sEmpName,sGxCode,sGxName :string;
    nPerCost :double;
  public
	{ Public declarations }
  end;

var
  frmGz_JjE: TfrmGz_JjE;

implementation

uses SelfFunc;

{$R *.DFM}

procedure TfrmGz_JjE.cmdJjDelClick(Sender: TObject);
begin
	if qryGz_Jj.IsEmpty then MessageBeep(0)
	else qryGz_Jj.Delete;
end;

procedure TfrmGz_JjE.qryGz_JjNewRecord(DataSet: TDataSet);
begin
	NewRecDefa(qryGz_Jj, ['FDate', dpDate.Date]);

    qryGz_jjEmpID.Value :=nEmpID;
    qryGz_jjEmpGwh.Value :=sEmpGwh;
    qryGz_jjEmpName.Value :=sEmpName;
    qryGz_jjGxID.Value :=nGxID;
    qryGz_jjCode.Value :=sGxCode;
    qryGz_jjName.Value :=sGxName;
    qryGz_jjPerCost.Value :=nPerCost;
    qryGz_jjCostNum.Value :=nCostNum;
end;

procedure TfrmGz_JjE.qryGz_JjAfterDelete(DataSet: TDataSet);
begin
	SumRecord(qryGz_Jj,[qryGz_JjAmount, qrySumAmount]);
end;

procedure TfrmGz_JjE.qryGz_JjAfterPost(DataSet: TDataSet);
begin
	SumRecord(qryGz_Jj,[qryGz_JjAmount, qrySumAmount]);
end;

procedure TfrmGz_JjE.qryGz_JjAmountChange(Sender: TField);
var nCost :double;
begin
	nCost :=qryGz_JjPerCost.Value /qryGz_JjCostNum.Value *qryGz_JjAmount.Value;
    nCost :=StrToFloat(FormatFloat('0.00', nCost));
    qryGz_JjCost.Value :=nCost;
end;

procedure TfrmGz_JjE.qryGz_JjBeforePost(DataSet: TDataSet);
begin
	if qryGz_jjEmpID.Value =0 then
    begin
    	MsgBox('叫块