lyprce.pas

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

unit LypRcE;

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
  TfrmLypRcE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    Label2: TLabel;
    cedLyp: TAdoCodeEd;
    qryLypZl: TADOQry;
    qryEditID: TIntegerField;
    qryEditLypCode: TStringField;
    qryEditQty: TFloatField;
    qryEditNote: TStringField;
    qryLypZlCode: TStringField;
    qryLypZlName: TStringField;
    qryLypZlUnit: TStringField;
    qryLypZlPrice: TFloatField;
    DataSource2: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label17: TLabel;
    DBEdit6: TDBEdit;
    Label9: TLabel;
    DBEdit18: TDBEdit;
    qryEditFDate: TDateTimeField;
    qryEditPrice: TBCDField;
    qryEditCost: TBCDField;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure cedLypGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedLypCodeChange(Sender: TObject);
    procedure qryEditPriceChange(Sender: TField);
    procedure qryEditQtyChange(Sender: TField);
  private
    { Private declarations }
  	lIsNew :Boolean;
  public
	Function Add():Boolean;
	Function Edit(tnID:integer):Boolean;
	{ Public declarations }
  end;

var
  frmLypRcE: TfrmLypRcE;

implementation

uses SelfFunc, LypRc, Main;

{$R *.DFM}

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

    with qryEdit do
    begin
    	Close;
        Parameters[0].Value :=Null;
        Open;
        Append;
	end;
	NewRecDefa(qryEdit, ['FDate',Date()]);

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

    cmdOK.Caption :='睰