unit_dm.dfm

来自「美汇美容网网站管理系统」· DFM 代码 · 共 568 行

object dm: Tdm
  OldCreateOrder = False
  Left = 586
  Top = 31
  Height = 693
  Width = 342
  object adoc: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=hnmei' +
      'hui'
    LoginPrompt = False
    Left = 32
    Top = 8
  end
  object atInfoClass: TADOTable
    Connection = adoc
    CursorType = ctStatic
    TableName = 'news_class'
    Left = 32
    Top = 64
  end
  object dsInfoClass: TDataSource
    DataSet = atInfoClass
    Left = 100
    Top = 64
  end
  object adocm: TADOCommand
    Connection = adoc
    Parameters = <>
    Left = 96
    Top = 8
  end
  object adsInfo: TADODataSet
    Connection = adoc
    CursorType = ctStatic
    CommandText = 'select * from news_info'
    Parameters = <>
    Left = 32
    Top = 120
    object adsInfoiNo: TAutoIncField
      FieldName = 'iNo'
      ReadOnly = True
    end
    object adsInfovCaption: TStringField
      FieldName = 'vCaption'
      Size = 50
    end
    object adsInfotContent: TMemoField
      FieldName = 'tContent'
      BlobType = ftMemo
    end
    object adsInfovManagerAccount: TStringField
      FieldName = 'vManagerAccount'
    end
    object adsInfoiClass2No: TIntegerField
      FieldName = 'iClass2No'
    end
    object adsInfoiClass3No: TIntegerField
      FieldName = 'iClass3No'
    end
    object adsInfovLink: TStringField
      FieldName = 'vLink'
      Size = 200
    end
    object adsInfodDate: TDateField
      FieldName = 'dDate'
    end
    object adsInfovImageType: TStringField
      FieldName = 'vImageType'
    end
    object adsInfovType: TStringField
      FieldName = 'vType'
      Size = 10
    end
    object adsInfoClass1Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Class1Name'
      LookupDataSet = atInfoClass
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iClass1No'
      Lookup = True
    end
    object adsInfoClass2Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Class2Name'
      LookupDataSet = atInfoClass
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iClass2No'
      Size = 50
      Lookup = True
    end
    object adsInfoClass3name: TStringField
      FieldKind = fkLookup
      FieldName = 'Class3name'
      LookupDataSet = atInfoClass
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iClass3No'
      Size = 50
      Lookup = True
    end
    object adsInfovImage: TStringField
      FieldName = 'vImage'
      Size = 30
    end
    object adsInfoiClass1No: TIntegerField
      FieldName = 'iClass1No'
    end
  end
  object dsInfo: TDataSource
    DataSet = adsInfo
    Left = 100
    Top = 120
  end
  object il_Button: TImageList
    Left = 152
    Top = 8
  end
  object adods: TADODataSet
    Connection = adoc
    CursorType = ctStatic
    CommandText = 'select * from news_class'
    Parameters = <>
    Left = 216
    Top = 8
  end
  object dsEnterprise: TDataSource
    DataSet = adsEnterprise
    Left = 100
    Top = 232
  end
  object atProvinceCity: TADOTable
    Connection = adoc
    CursorType = ctStatic
    TableName = 'enterprise_class'
    Left = 32
    Top = 176
  end
  object dsProvinceCity: TDataSource
    DataSet = atProvinceCity
    Left = 100
    Top = 176
  end
  object dsOrder: TDataSource
    DataSet = adsOrder
    Left = 100
    Top = 288
  end
  object atOrderItem: TADOTable
    Connection = adoc
    CursorType = ctStatic
    IndexFieldNames = 'iOrderNo'
    MasterFields = 'iNo'
    MasterSource = dsOrder
    TableName = 'order_item'
    Left = 32
    Top = 344
    object atOrderItemiNo: TLargeintField
      FieldName = 'iNo'
    end
    object atOrderItemiOrderNo: TIntegerField
      FieldName = 'iOrderNo'
    end
    object atOrderItemiNum: TIntegerField
      FieldName = 'iNum'
    end
    object atOrderItemfUnitPrice: TFloatField
      FieldName = 'fUnitPrice'
    end
    object atOrderItemfDiscount: TFloatField
      FieldName = 'fDiscount'
    end
    object atOrderItemiGoodsNo: TIntegerField
      FieldName = 'iGoodsNo'
    end
    object atOrderItemvGoodsName: TStringField
      FieldKind = fkLookup
      FieldName = 'vGoodsName'
      LookupDataSet = adsComm
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iGoodsNo'
      Size = 50
      Lookup = True
    end
    object atOrderItemvGoodsSN: TStringField
      FieldKind = fkLookup
      FieldName = 'vGoodsSN'
      LookupDataSet = adsComm
      LookupKeyFields = 'iNo'
      LookupResultField = 'vSN'
      KeyFields = 'iGoodsNo'
      Lookup = True
    end
    object atOrderItemfTotalPrices: TFloatField
      FieldName = 'fTotalPrices'
    end
  end
  object dsOrderItem: TDataSource
    DataSet = atOrderItem
    Left = 100
    Top = 344
  end
  object adsEnterprise: TADODataSet
    Connection = adoc
    CursorType = ctStatic
    CommandText = 'select * from enterprise'
    Parameters = <>
    Left = 32
    Top = 232
    object adsEnterprisevCity: TStringField
      FieldKind = fkLookup
      FieldName = 'vCity'
      LookupDataSet = atProvinceCity
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iCity'
      Size = 50
      Lookup = True
    end
    object adsEnterprisevProvince: TStringField
      FieldKind = fkLookup
      FieldName = 'vProvince'
      LookupDataSet = atProvinceCity
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iProvince'
      Size = 50
      Lookup = True
    end
    object adsEnterpriseiNo: TAutoIncField
      FieldName = 'iNo'
      ReadOnly = True
    end
    object adsEnterprisevUserName: TStringField
      FieldName = 'vUserName'
    end
    object adsEnterprisevName: TStringField
      FieldName = 'vName'
      Size = 50
    end
    object adsEnterprisevPrin: TStringField
      FieldName = 'vPrin'
    end
    object adsEnterpriseiProvince: TIntegerField
      FieldName = 'iProvince'
    end
    object adsEnterpriseiCity: TIntegerField
      FieldName = 'iCity'
    end
    object adsEnterprisevPhone: TStringField
      FieldName = 'vPhone'
    end
    object adsEnterprisevAddress: TStringField
      FieldName = 'vAddress'
      Size = 200
    end
    object adsEnterprisevEmail: TStringField
      FieldName = 'vEmail'
      Size = 50
    end
    object adsEnterprisevPassword: TStringField
      FieldName = 'vPassword'
      Size = 50
    end
  end
  object adsComm: TADODataSet
    Active = True
    Connection = adoc
    CursorType = ctStatic
    CommandText = 'select * from Goods'
    Parameters = <>
    Left = 32
    Top = 400
    object adsCommiNo: TAutoIncField
      FieldName = 'iNo'
      ReadOnly = True
    end
    object adsCommvSN: TStringField
      FieldName = 'vSN'
      Size = 50
    end
    object adsCommvName: TStringField
      FieldName = 'vName'
      Size = 50
    end
    object adsCommvIntro: TMemoField
      FieldName = 'vIntro'
      BlobType = ftMemo
    end
    object adsCommiClass1No: TIntegerField
      FieldName = 'iClass1No'
    end
    object adsCommiClass2No: TIntegerField
      FieldName = 'iClass2No'
    end
    object adsCommvImage: TStringField
      FieldName = 'vImage'
      Size = 25
    end
    object adsCommvImageType: TStringField
      FieldName = 'vImageType'
      Size = 10
    end
    object adsCommfEPrice: TFloatField
      FieldName = 'fEPrice'
    end
    object adsCommfPPrice: TFloatField
      FieldName = 'fPPrice'
    end
    object adsCommvProducer: TStringField
      FieldName = 'vProducer'
      Size = 50
    end
    object adsCommfCPrice: TFloatField
      FieldName = 'fCPrice'
    end
    object adsCommfSPrice: TFloatField
      FieldName = 'fSPrice'
    end
    object adsCommdbeClass1Name: TStringField
      FieldKind = fkLookup
      FieldName = 'dbeClass1Name'
      LookupDataSet = atCommClass
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iClass1No'
      Size = 50
      Lookup = True
    end
    object adsCommdbeClass2Name: TStringField
      FieldKind = fkLookup
      FieldName = 'dbeClass2Name'
      LookupDataSet = atCommClass
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iClass2No'
      Size = 50
      Lookup = True
    end
  end
  object dsComm: TDataSource
    DataSet = adsComm
    Left = 100
    Top = 400
  end
  object adsJob: TADODataSet
    Connection = adoc
    CursorType = ctStatic
    CommandText = 'select * from job'#12288'order by iNo desc'
    Parameters = <>
    Left = 32
    Top = 504
    object adsJobiNo: TAutoIncField
      FieldName = 'iNo'
      ReadOnly = True
    end
    object adsJobvName: TStringField
      FieldName = 'vName'
    end
    object adsJobiNum: TIntegerField
      FieldName = 'iNum'
    end
    object adsJobvRequire: TMemoField
      FieldName = 'vRequire'
      BlobType = ftMemo
    end
    object adsJobvLiaison: TMemoField
      FieldName = 'vLiaison'
      BlobType = ftMemo
    end
    object adsJobdStartDate: TDateTimeField
      FieldName = 'dStartDate'
    end
    object adsJobdEndDate: TDateTimeField
      FieldName = 'dEndDate'
    end
    object adsJobiEnterpriseNo: TIntegerField
      FieldName = 'iEnterpriseNo'
    end
    object adsJobvEnterpriseName: TStringField
      FieldKind = fkLookup
      FieldName = 'vEnterpriseName'
      LookupDataSet = adsEnterprise
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iEnterpriseNo'
      Size = 50
      Lookup = True
    end
  end
  object dsJob: TDataSource
    DataSet = adsJob
    Left = 100
    Top = 504
  end
  object adsOrder: TADODataSet
    Connection = adoc
    CursorType = ctStatic
    CommandText = 'select * from enterprise_order'
    Parameters = <>
    Left = 32
    Top = 288
    object adsOrderiNo: TAutoIncField
      FieldName = 'iNo'
      ReadOnly = True
    end
    object adsOrderiEnterpriseNo: TIntegerField
      FieldName = 'iEnterpriseNo'
    end
    object adsOrderfMoney: TFloatField
      FieldName = 'fMoney'
    end
    object adsOrdervFettle: TStringField
      FieldName = 'vFettle'
      Size = 10
    end
    object adsOrdervChamberlain: TStringField
      FieldName = 'vChamberlain'
      Size = 10
    end
    object adsOrdervShipper: TStringField
      FieldName = 'vShipper'
      Size = 10
    end
    object adsOrderdDate: TDateTimeField
      FieldName = 'dDate'
    end
    object adsOrdervEnterpriseName: TStringField
      FieldKind = fkLookup
      FieldName = 'vEnterpriseName'
      LookupDataSet = adsEnterprise
      LookupKeyFields = 'iNo'
      LookupResultField = 'vName'
      KeyFields = 'iEnterpriseNo'
      Size = 50
      Lookup = True
    end
  end
  object adsResume: TADODataSet
    Connection = adoc
    CursorType = ctStatic
    CommandText = 'select * from resume ORDER By iNo DESC'
    Parameters = <>
    Left = 32
    Top = 560
    object adsResumeiNo: TAutoIncField
      FieldName = 'iNo'
      ReadOnly = True
    end
    object adsResumevUserName: TStringField
      DisplayLabel = #29992#25143#21517
      FieldName = 'vUserName'
    end
    object adsResumevPassword: TStringField
      DisplayLabel = #23494#30721
      FieldName = 'vPassword'
    end
    object adsResumevName: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'vName'
      Size = 10
    end
    object adsResumedBirthday: TDateField
      DisplayLabel = #20986#29983#24180#26376
      FieldName = 'dBirthday'
    end
    object adsResumevBloodType: TStringField
      DisplayLabel = #34880#22411
      FieldName = 'vBloodType'
      FixedChar = True
      Size = 2
    end
    object adsResumevSex: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'vSex'
      FixedChar = True
      Size = 2
    end
    object adsResumeiStature: TIntegerField
      DisplayLabel = #36523#39640'('#21400#31859')'
      FieldName = 'iStature'
    end
    object adsResumeiAvoirdupois: TIntegerField
      DisplayLabel = #20307#37325'('#20844#26020')'
      FieldName = 'iAvoirdupois'
    end
    object adsResumevKnowledge: TStringField
      DisplayLabel = #23398#21382
      FieldName = 'vKnowledge'
      Size = 10
    end
    object adsResumevPhone: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'vPhone'
      Size = 15
    end
    object adsResumevEmail: TStringField
      DisplayLabel = #30005#23376#37038#31665
      FieldName = 'vEmail'
      Size = 50
    end
    object adsResumevHandSet: TStringField
      DisplayLabel = #25163#26426
      FieldName = 'vHandSet'
      Size = 12
    end
    object adsResumevAddress: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'vAddress'
      Size = 200
    end
    object adsResumetSchoolWent: TMemoField
      DisplayLabel = #25945#32946#32463#21382
      FieldName = 'tSchoolWent'
      BlobType = ftMemo
    end
    object adsResumetJobWent: TMemoField
      DisplayLabel = #24037#20316#32463#21382
      FieldName = 'tJobWent'
      BlobType = ftMemo
    end
    object adsResumetCraftsmanship: TMemoField
      DisplayLabel = #34892#19994#29305#38271
      FieldName = 'tCraftsmanship'
      BlobType = ftMemo
    end
    object adsResumetOther: TMemoField
      DisplayLabel = #20854#23427
      FieldName = 'tOther'
      BlobType = ftMemo
    end
    object adsResumevPosition: TStringField
      DisplayLabel = #24212#32856#32844#20301
      FieldName = 'vPosition'
      Size = 30
    end
    object adsResumevPostalcode: TStringField
      FieldName = 'vPostalcode'
      Size = 7
    end
    object adsResumeiBan: TIntegerField
      FieldName = 'iBan'
    end
  end
  object dsResume: TDataSource
    DataSet = adsResume
    Left = 100
    Top = 560
  end
  object atCommClass: TADOTable
    Active = True
    Connection = adoc
    CursorType = ctStatic
    TableName = 'goods_class'
    Left = 32
    Top = 456
  end
  object dsCommClass: TDataSource
    DataSet = atCommClass
    Left = 100
    Top = 456
  end
end