plmsdm.pas

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

unit PlmsDM;

interface

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

type
  TDM = class(TDataModule)
    cnnRemote: TADOConnection;
    cnnLocal: TADOConnection;
    tblGetFee: TADOTable;
    tblFixCardUse: TADOTable;
    tblTempCardUse: TADOTable;
    tblFeeStation: TADOTable;
    ADOQuery1: TADOQuery;
    tblCard: TADOTable;
    dsCardUse: TDataSource;
    tblShiftRecord: TADOTable;
    tblFeeMaintain: TADOTable;
    tblFeeStationDisplay: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.DFM}

end.