unitdm.pas

评估系统

unit UnitDM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    AC: TADOConnection;
    atabc: TADOTable;
    DataSource1: TDataSource;
    atab0: TADOTable;
    dsAdd: TDataSource;
    atabcID: TAutoIncField;
    atabcCityID: TIntegerField;
    atabcEName: TIntegerField;
    atabcDate1: TDateTimeField;
    atabcisevergefingue: TBooleanField;
    atabcEB000000: TFloatField;
    atabcEB000000Memo: TWideStringField;
    atabcEB010000: TFloatField;
    atabcEB010000Memo: TWideStringField;
    atabcEB010100: TFloatField;
    atabcEB010100Memo: TWideStringField;
    atabcEB010101: TFloatField;
    atabcEB010101Memo: TWideStringField;
    atabcEB010102: TFloatField;
    atabcEB010102Memo: TWideStringField;
    atabcEB010103: TFloatField;
    atabcEB010103Memo: TWideStringField;
    atabcEB010104: TFloatField;
    atabcEB010104Memo: TWideStringField;
    atabcEB010105: TFloatField;
    atabcEB010105Memo: TWideStringField;
    atabcEB010106: TFloatField;
    atabcEB010106Memo: TWideStringField;
    atabcEB010200: TFloatField;
    atabcEB010200Memo: TWideStringField;
    atabcEB010300: TFloatField;
    atabcEB010300Memo: TWideStringField;
    atabcEB020000: TFloatField;
    atabcEB020000Memo: TWideStringField;
    atabcEB020100: TFloatField;
    atabcEB020100Memo: TWideStringField;
    atabcEB020101: TFloatField;
    atabcEB020101Memo: TWideStringField;
    atabcEB020102: TFloatField;
    atabcEB020102Memo: TWideStringField;
    atabcEB020103: TFloatField;
    atabcEB020103Memo: TWideStringField;
    atabcEB020104: TFloatField;
    atabcEB020104Memo: TWideStringField;
    atabcEB020105: TFloatField;
    atabcEB020105Memo: TWideStringField;
    atabcEB020106: TFloatField;
    atabcEB020106Memo: TWideStringField;
    atabcEB020107: TFloatField;
    atabcEB020107Memo: TWideStringField;
    atabcEB020200: TIntegerField;
    atabcEB020200Memo: TWideStringField;
    atabcEB020300: TFloatField;
    atabcEB020300Memo: TWideStringField;
    atabcEB020301: TFloatField;
    atabcEB020301Memo: TWideStringField;
    atabcEB020302: TFloatField;
    atabcEB020302Memo: TWideStringField;
    atabcEB020400: TFloatField;
    atabcEB020400Memo: TWideStringField;
    atabcEB030000: TFloatField;
    atabcEB030000Memo: TWideStringField;
    atabcEB030100: TFloatField;
    atabcEB030100Memo: TWideStringField;
    atabcEB030101: TFloatField;
    atabcEB030101Memo: TWideStringField;
    atabcEB030102: TFloatField;
    atabcEB030102Memo: TWideStringField;
    atabcEB030103: TFloatField;
    atabcEB030103Memo: TWideStringField;
    atabcEB030104: TFloatField;
    atabcEB030104Memo: TWideStringField;
    atabcEB030105: TFloatField;
    atabcEB030105Memo: TWideStringField;
    atabcEB030200: TFloatField;
    atabcEB030200Memo: TWideStringField;
    atabcEB030201: TFloatField;
    atabcEB030201Memo: TWideStringField;
    atabcEB030202: TFloatField;
    atabcEB030202Memo: TWideStringField;
    atabcEB030203: TFloatField;
    atabcEB030203Memo: TWideStringField;
    atabcEB030204: TFloatField;
    atabcEB030204Memo: TWideStringField;
    atabcEB030205: TFloatField;
    atabcEB030205Memo: TWideStringField;
    atabcEB030300: TFloatField;
    atabcEB030300Memo: TWideStringField;
    atabcEB030301: TFloatField;
    atabcEB030301Memo: TWideStringField;
    atabcEB030302: TFloatField;
    atabcEB030302Memo: TWideStringField;
    atabcEB030303: TFloatField;
    atabcEB030303Memo: TWideStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.