lyploge.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 116 行

unit LypLogE;

interface

uses Variants,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, ObeyTable, Buttons,
  CodeEd, OleCtnrs, ComCtrls, TimeIntField, ADODB, ADOQry, AdoCodeEd;

type
  TfrmLypLogE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    cedEmp: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    lblCode: TLabel;
    qryEmpID: TIntegerField;
    qryEmpState: TSmallintField;
    Label2: TLabel;
    cedLyp: TAdoCodeEd;
    qryLypZl: TADOQry;
    qryEditID: TIntegerField;
    qryEditEmpID: TIntegerField;
    qryEditLyDate: TDateTimeField;
    qryEditLyType: TSmallintField;
    qryEditLypCode: TStringField;
    qryEditQty: TFloatField;
    qryEditYaJin: TFloatField;
    qryEditGhDate: TDateTimeField;
    qryEditNote: TStringField;
    qryLypZlCode: TStringField;
    qryLypZlName: TStringField;
    qryLypZlUnit: TStringField;
    qryLypZlPrice: TFloatField;
    DataSource2: TDataSource;
    panLyType: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label17: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    rgLyType0: TRadioButton;
    rgLyType1: TRadioButton;
    Label9: TLabel;
    DBEdit18: TDBEdit;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    qryEditCzy: TStringField;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    qryEditKouKuan: TFloatField;
    panGuiHuan: TPanel;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure cedEmpCodeChange(Sender: TObject);
    procedure cedEmpGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormCreate(Sender: TObject);
    procedure cedLypGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedLypCodeChange(Sender: TObject);
    procedure rgLyType1Click(Sender: TObject);
    procedure qryEditBeforePost(DataSet: TDataSet);
    procedure qryEditQtyChange(Sender: TField);
  private
    { Private declarations }
  	lIsNew :Boolean;
  public
	Function Add():Boolean;
	Function Edit(tnID:integer):Boolean;
	{ Public declarations }
  end;

var
  frmLypLogE: TfrmLypLogE;

implementation

uses SelfFunc, LypLog, Main;

{$R *.DFM}

Function TfrmLypLogE.Add():Boolean;
begin
	lIsNew :=True;

    with qryEdit do
    begin
    	Close;
        Parameters[0].Value :=Null;
        Open;
        Append;
	end;
	NewRecDefa(qryEdit, ['LyDate',Date(), 'czy',frmMain.czyName
    	,'LyType',GetRdsIndex(panLyType)]);

    cedEmp.CodeText :='';
    cedLyp.CodeText :='';
    Self.ActiveControl :=cedEmp;

    cmdOK.Caption :='睰