carddm.pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

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.