readtxtv.pas

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

unit ReadTxtV;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, Buttons, Mask, DBCtrls, ComCtrls,
  CheckLst, ExtCtrls, FormStore, Grids, DBGrids, MyGrid, ADODB, ADOQry;

type
  TfrmReadTxtV = class(TForm)
    qryBrowse: TADOQry;
    qryBrowseFDateTime: TDateTimeField;
    qryBrowseCardNo: TStringField;
    qryBrowseMachNo: TStringField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryMach: TADOQry;
    DataSource2: TDataSource;
    qryMachMachNo: TStringField;
    MyGrid1: TMyGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    qryCount: TADOQry;
    qryCountV: TIntegerField;
    lblCount: TLabel;
    procedure qryMachAfterScroll(DataSet: TDataSet);
    procedure cmdOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Function View(tnLastID :integer) :Boolean;
  end;

var
  frmReadTxtV: TfrmReadTxtV;

implementation

uses SelfFunc;

{$R *.DFM}

Function TfrmReadTxtV.View(tnLastID :integer) :Boolean;
begin
	qryBrowse.Close;
	qryBrowse.Parameters[0].Value :=tnLastID;
	qryMach.Close;
	qryMach.Parameters[0].Value :=tnLastID;
    qryMach.Open;

	qryCount.Close;
	qryCount.Parameters[0].Value :=tnLastID;
    qryCount.Open;
    lblCount.Caption :='