datafrm.pas

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

unit Datafrm;

interface

uses
  SysUtils, Classes;

type
  TDM = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.