datamodules.pas

来自「群星医药系统源码」· PAS 代码 · 共 32 行

unit DataModules;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect, ckDBClient;

type
  TdmModules = class(TDataModule)
    cdsModules: TckClientDataSet;
    cdsPublic: TckClientDataSet;
    cdsModlsOfUser: TckClientDataSet;
    cdsModlsOfUserModuleID: TIntegerField;
    cdsModlsOfUserParentID: TIntegerField;
    cdsModlsOfUserMenuIndex: TIntegerField;
    cdsModlsOfUserMenuName: TStringField;
    cdsModlsOfUserShortCut: TIntegerField;
    cdsModlsOfUserPrivChar: TStringField;
    cdsModlsOfUserICON: TBlobField;
    cdsModlsOfUserMFileCName: TStringField;
    cdsModlsOfUserBillType: TStringField;
  private
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

end.