carddm.~pas

来自「***智能监视系统*** 程序运行时需要视频捕捉设备」· ~PAS 代码 · 共 51 行

unit CardDM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB;

type
  TDMMain = class(TDataModule)
    cnnMain: TADOConnection;
    tblCard: TADOTable;
    tblEmployee: TADOTable;
    tblCardcard_id: TStringField;
    tblCarduser_id: TStringField;
    tblCardcreate_date: TDateTimeField;
    tblCardmoney: TFloatField;
    tblCardstate: TStringField;
    tblEmployeeaccount: TStringField;
    tblEmployeepassword: TStringField;
    tblEmployeename: TStringField;
    tblStudent: TADOTable;
    tblStudentuser_id: TStringField;
    tblStudentname: TStringField;
    tblStudentage: TBCDField;
    tblStudentaddress: TStringField;
    procedure tblCardstateGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMMain: TDMMain;

implementation

{$R *.DFM}

procedure TDMMain.tblCardstateGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
    if Sender.AsString = '0' then Text := '正常'
    else if Sender.AsString = '1' then Text := '挂失'
    else Text := '错误';
end;

end.