unit_dm.pas

美汇美容网网站管理系统

unit Unit_DM;

interface

uses
  SysUtils, Classes, DBXpress, DB, SqlExpr ,IniFiles, FMTBcd, 
  ADODB, ImgList, Controls;

type
  Tdm = class(TDataModule)
    adoc: TADOConnection;
    atInfoClass: TADOTable;
    dsInfoClass: TDataSource;
    adocm: TADOCommand;
    adsInfo: TADODataSet;
    dsInfo: TDataSource;
    adsInfoiNo: TAutoIncField;
    adsInfovCaption: TStringField;
    adsInfotContent: TMemoField;
    adsInfovManagerAccount: TStringField;
    adsInfoiClass2No: TIntegerField;
    adsInfoiClass3No: TIntegerField;
    adsInfovLink: TStringField;
    adsInfodDate: TDateField;
    adsInfovImageType: TStringField;
    adsInfovType: TStringField;
    il_Button: TImageList;
    adsInfoClass1Name: TStringField;
    adsInfoClass2Name: TStringField;
    adsInfoClass3name: TStringField;
    adods: TADODataSet;
    dsEnterprise: TDataSource;
    atProvinceCity: TADOTable;
    dsProvinceCity: TDataSource;
    dsOrder: TDataSource;
    atOrderItem: TADOTable;
    dsOrderItem: TDataSource;
    atOrderItemiNo: TLargeintField;
    atOrderItemiOrderNo: TIntegerField;
    atOrderItemiNum: TIntegerField;
    atOrderItemfUnitPrice: TFloatField;
    atOrderItemfDiscount: TFloatField;
    adsEnterprise: TADODataSet;
    adsEnterprisevCity: TStringField;
    adsEnterprisevProvince: TStringField;
    adsComm: TADODataSet;
    dsComm: TDataSource;
    adsEnterpriseiNo: TAutoIncField;
    adsEnterprisevUserName: TStringField;
    adsEnterprisevName: TStringField;
    adsEnterprisevPrin: TStringField;
    adsEnterpriseiProvince: TIntegerField;
    adsEnterpriseiCity: TIntegerField;
    adsEnterprisevPhone: TStringField;
    adsEnterprisevAddress: TStringField;
    adsEnterprisevEmail: TStringField;
    adsEnterprisevPassword: TStringField;
    adsCommiNo: TAutoIncField;
    adsCommvSN: TStringField;
    adsCommvName: TStringField;
    adsCommvIntro: TMemoField;
    adsCommiClass1No: TIntegerField;
    adsCommiClass2No: TIntegerField;
    atOrderItemiGoodsNo: TIntegerField;
    atOrderItemvGoodsName: TStringField;
    atOrderItemvGoodsSN: TStringField;
    adsJob: TADODataSet;
    dsJob: TDataSource;
    adsJobiNo: TAutoIncField;
    adsJobvName: TStringField;
    adsJobiNum: TIntegerField;
    adsJobvRequire: TMemoField;
    adsJobvLiaison: TMemoField;
    adsJobdStartDate: TDateTimeField;
    adsJobdEndDate: TDateTimeField;
    adsJobiEnterpriseNo: TIntegerField;
    adsJobvEnterpriseName: TStringField;
    adsOrder: TADODataSet;
    adsOrderiNo: TAutoIncField;
    adsOrderiEnterpriseNo: TIntegerField;
    adsOrderfMoney: TFloatField;
    adsOrdervFettle: TStringField;
    adsOrdervChamberlain: TStringField;
    adsOrdervShipper: TStringField;
    adsOrderdDate: TDateTimeField;
    adsOrdervEnterpriseName: TStringField;
    adsInfovImage: TStringField;
    adsCommvImage: TStringField;
    adsCommvImageType: TStringField;
    adsCommfEPrice: TFloatField;
    adsCommfPPrice: TFloatField;
    adsCommvProducer: TStringField;
    adsResume: TADODataSet;
    dsResume: TDataSource;
    adsResumeiNo: TAutoIncField;
    adsResumevUserName: TStringField;
    adsResumevPassword: TStringField;
    adsResumevName: TStringField;
    adsResumedBirthday: TDateField;
    adsResumevBloodType: TStringField;
    adsResumevSex: TStringField;
    adsResumeiStature: TIntegerField;
    adsResumeiAvoirdupois: TIntegerField;
    adsResumevKnowledge: TStringField;
    adsResumevPhone: TStringField;
    adsResumevEmail: TStringField;
    adsResumevHandSet: TStringField;
    adsResumevAddress: TStringField;
    adsResumetSchoolWent: TMemoField;
    adsResumetJobWent: TMemoField;
    adsResumetCraftsmanship: TMemoField;
    adsResumetOther: TMemoField;
    adsResumevPosition: TStringField;
    atCommClass: TADOTable;
    dsCommClass: TDataSource;
    adsCommfCPrice: TFloatField;
    adsCommfSPrice: TFloatField;
    adsCommdbeClass1Name: TStringField;
    adsCommdbeClass2Name: TStringField;
    adsInfoiClass1No: TIntegerField;
    atOrderItemfTotalPrices: TFloatField;
    adsResumevPostalcode: TStringField;
    adsResumeiBan: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

end.