mc_data.pas

来自「1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2」· PAS 代码 · 共 81 行

unit MC_Data;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB;

type
  TData = class(TDataModule)
    XQXXB: TTable;
    XQXXBBDEDesigner: TStringField;
    XQXXBBDEDesigner2: TStringField;
    XQXXBBDEDesigner3: TStringField;
    XQXXBBDEDesigner4: TStringField;
    XQXXBBDEDesigner5: TIntegerField;
    XQXXBBDEDesigner6: TStringField;
    XQXXBBDEDesigner7: TMemoField;
    XQXXBBDEDesigner8: TBlobField;
    DLXXB: TTable;
    DLXXBBDEDesigner: TStringField;
    DLXXBBDEDesigner2: TStringField;
    DLXXBBDEDesigner3: TStringField;
    DLXXBBDEDesigner4: TStringField;
    DLXXBBDEDesigner5: TIntegerField;
    DLXXBBDEDesigner6: TStringField;
    DLXXBBDEDesigner7: TStringField;
    DLXXBBDEDesigner8: TMemoField;
    DLXXBBDEDesigner9: TBlobField;
    FWXXB: TTable;
    FWXXBBDEDesigner: TStringField;
    FWXXBBDEDesigner2: TStringField;
    FWXXBBDEDesigner3: TStringField;
    FWXXBBDEDesigner4: TStringField;
    FWXXBBDEDesigner5: TStringField;
    FWXXBBDEDesigner6: TStringField;
    FWXXBBDEDesigner7: TStringField;
    FWXXBBDEDesigner8: TStringField;
    FWXXBBDEDesigner9: TStringField;
    FWXXBBDEDesigner10: TStringField;
    FWXXBBDEDesigner11: TStringField;
    FWXXBBDEDesigner12: TStringField;
    FWXXBBDEDesigner13: TStringField;
    FWXXBBDEDesigner14: TFloatField;
    FWXXBBDEDesigner15: TFloatField;
    FWXXBBDEDesigner16: TFloatField;
    FWXXBBDEDesigner17: TFloatField;
    FWXXBBDEDesigner18: TStringField;
    FWXXBBDEDesigner19: TMemoField;
    XQXXBBDEDesigner9: TIntegerField;
    XQXXBBDEDesigner10: TFloatField;
    XQXXBBDEDesigner11: TFloatField;
    XQXXBBDEDesigner12: TIntegerField;
    DLXXBBDEDesigner10: TIntegerField;
    DLXXBBDEDesigner11: TIntegerField;
    FWXXBBDEDesigner20: TStringField;
    FWXXBBDEDesigner21: TStringField;
    XQXXBBDEDesigner13: TDateTimeField;
    XQXXBBDEDesigner14: TDateTimeField;
    XQXXBBDEDesigner15: TFloatField;
    DLXXBBDEDesigner12: TFloatField;
    DLXXBBDEDesigner13: TDateTimeField;
    DLXXBBDEDesigner14: TDateTimeField;
    DLXXBBDEDesigner15: TStringField;
    DLXXBBDEDesigner16: TStringField;
    DLXXBBDEDesigner17: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data: TData;

implementation

{$R *.DFM}

end.