dm.~dfm

针对快餐店的会员管理系统.具有详细的分类及管理作用

      item
        Name = 'Operator'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Remark'
        DataType = ftMemo
      end>
    Parameters = <>
    StoreDefs = True
    Left = 120
    Top = 296
    object SellListNum: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object SellListOrderFormID: TWideStringField
      FieldName = 'OrderFormID'
      Size = 50
    end
    object SellListClientName: TWideStringField
      FieldName = 'ClientName'
      Size = 200
    end
    object SellListSellDate: TDateTimeField
      FieldName = 'SellDate'
      DisplayFormat = 'yyyy-MM-dd'
    end
    object SellListOperator: TWideStringField
      FieldName = 'Operator'
      Size = 50
    end
    object SellListRemark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
  end
  object LinkManList: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from LinkMan'
    FieldDefs = <
      item
        Name = 'Num'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'ClientName'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'LinkManID'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'MostlyLinkMan'
        Attributes = [faFixed]
        DataType = ftBoolean
      end
      item
        Name = 'Duty'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Branch'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Email'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'HomeAddress'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'OfficeTEL'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'MobileTEL'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'HomeTEL'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'FAX'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Birthday'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'Remark'
        DataType = ftMemo
      end>
    Parameters = <>
    StoreDefs = True
    Left = 40
    Top = 296
    object LinkManListClientName: TWideStringField
      FieldName = 'ClientName'
      Size = 200
    end
    object LinkManListLinkManID: TWideStringField
      FieldName = 'LinkManID'
      Size = 50
    end
    object LinkManListMostlyLinkMan: TBooleanField
      FieldName = 'MostlyLinkMan'
      DisplayValues = #26159
    end
    object LinkManListDuty: TWideStringField
      FieldName = 'Duty'
      Size = 50
    end
    object LinkManListBranch: TWideStringField
      FieldName = 'Branch'
      Size = 50
    end
    object LinkManListEmail: TWideStringField
      FieldName = 'Email'
      Size = 200
    end
    object LinkManListHomeAddress: TWideStringField
      FieldName = 'HomeAddress'
      Size = 255
    end
    object LinkManListOfficeTEL: TWideStringField
      FieldName = 'OfficeTEL'
      Size = 50
    end
    object LinkManListMobileTEL: TWideStringField
      FieldName = 'MobileTEL'
      Size = 50
    end
    object LinkManListHomeTEL: TWideStringField
      FieldName = 'HomeTEL'
      Size = 50
    end
    object LinkManListFAX: TWideStringField
      FieldName = 'FAX'
      Size = 50
    end
    object LinkManListBirthday: TDateTimeField
      FieldName = 'Birthday'
      DisplayFormat = 'yyyy-MM-dd'
    end
    object LinkManListRemark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
    object LinkManListNum: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
  end
  object ADODataSet5: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    BeforeEdit = ADODataSet5BeforeEdit
    OnPostError = ADOTable1PostError
    CommandText = 'select * from ProductInfo'
    Parameters = <>
    Left = 376
    Top = 56
    object ADODataSet5ID: TWideStringField
      FieldName = 'ID'
      Size = 50
    end
    object ADODataSet5ProductName: TWideStringField
      FieldName = 'ProductName'
      Size = 90
    end
    object ADODataSet5Spec: TWideStringField
      FieldName = 'Spec'
      Size = 180
    end
    object ADODataSet5Unit: TWideStringField
      FieldName = 'Unit'
    end
    object ADODataSet5Price: TBCDField
      FieldName = 'Price'
      Precision = 18
      Size = 2
    end
    object ADODataSet5CostPrice: TBCDField
      FieldName = 'CostPrice'
      Precision = 18
      Size = 2
    end
    object ADODataSet5SellNumber: TIntegerField
      FieldName = 'SellNumber'
    end
    object ADODataSet5Remark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
    object ADODataSet5Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
  end
  object ADODataSet2: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    OnPostError = ADOTable1PostError
    CommandText = 'select * from LinkMan'
    DataSource = DataSource1
    IndexFieldNames = 'ClientName'
    MasterFields = 'CoName'
    Parameters = <>
    Left = 128
    Top = 56
    object ADODataSet2Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object ADODataSet2ClientName: TWideStringField
      FieldName = 'ClientName'
      Size = 200
    end
    object ADODataSet2LinkManID: TWideStringField
      FieldName = 'LinkManID'
      Size = 50
    end
    object ADODataSet2MostlyLinkMan: TBooleanField
      FieldName = 'MostlyLinkMan'
    end
    object ADODataSet2Duty: TWideStringField
      FieldName = 'Duty'
      Size = 50
    end
    object ADODataSet2Branch: TWideStringField
      FieldName = 'Branch'
      Size = 50
    end
    object ADODataSet2Email: TWideStringField
      FieldName = 'Email'
      Size = 200
    end
    object ADODataSet2HomeAddress: TWideStringField
      FieldName = 'HomeAddress'
      Size = 255
    end
    object ADODataSet2OfficeTEL: TWideStringField
      FieldName = 'OfficeTEL'
      Size = 50
    end
    object ADODataSet2MobileTEL: TWideStringField
      FieldName = 'MobileTEL'
      Size = 50
    end
    object ADODataSet2HomeTEL: TWideStringField
      FieldName = 'HomeTEL'
      Size = 50
    end
    object ADODataSet2FAX: TWideStringField
      FieldName = 'FAX'
      Size = 50
    end
    object ADODataSet2Birthday: TDateTimeField
      FieldName = 'Birthday'
      DisplayFormat = 'yyyy-MM-dd'
    end
    object ADODataSet2Remark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
    object ADODataSet2huida: TWideStringField
      FieldName = 'huida'
      Size = 500
    end
    object ADODataSet2danyou: TWideStringField
      FieldName = 'danyou'
      Size = 500
    end
    object ADODataSet2hangye: TWideStringField
      FieldName = 'hangye'
      Size = 500
    end
    object ADODataSet2quyu: TWideStringField
      FieldName = 'quyu'
      Size = 500
    end
    object ADODataSet2wenti: TWideStringField
      FieldName = 'wenti'
      Size = 500
    end
    object ADODataSet2tese: TWideStringField
      FieldName = 'tese'
      Size = 500
    end
    object ADODataSet2zijin: TWideStringField
      FieldName = 'zijin'
      Size = 500
    end
    object ADODataSet2bianhao: TWideStringField
      FieldName = 'bianhao'
      Size = 500
    end
    object ADODataSet2dianpu: TWideStringField
      FieldName = 'dianpu'
      Size = 500
    end
    object ADODataSet2xinxi: TWideStringField
      FieldName = 'xinxi'
      Size = 500
    end
    object ADODataSet2pingjia: TWideStringField
      FieldName = 'pingjia'
      OnGetText = ADODataSet2pingjiaGetText
      OnSetText = ADODataSet2pingjiaSetText
      Size = 500
    end
    object ADODataSet2city: TWideStringField
      FieldName = 'city'
      Size = 500
    end
    object ADODataSet2shiqu: TWideStringField
      FieldName = 'shiqu'
      Size = 500
    end
  end
  object ADODataSet9: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from ClientBespeak'
    FieldDefs = <
      item
        Name = 'Num'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'ClientName'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'Motif'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'RelationMode'
        DataType = ftWideString
        Size = 150
      end
      item
        Name = 'Principal'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Dates'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'Times'
        ChildDefs = <
          item
            Name = 'TimesField1'
            Attributes = [faFixed]
            DataType = ftTime
          end>
        DataType = ftTime
        Size = 1
      end
      item
        Name = 'Remark'
        DataType = ftMemo
      end>
    Parameters = <>
    StoreDefs = True
    Left = 200
    Top = 176
    object ADODataSet9Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object ADODataSet9ClientName: TWideStringField
      FieldName = 'ClientName'
      Size = 255
    end
    object ADODataSet9Motif: TWideStringField
      FieldName = 'Motif'
      Size = 255
    end
    object ADODataSet9RelationMode: TWideStringField
      FieldName = 'RelationMode'
      Size = 150
    end
    object ADODataSet9Principal: TWideStringField
      FieldName = 'Principal'
      Size = 50
    end
    object ADODataSet9Dates: TDateTimeField
      FieldName = 'Dates'
      DisplayFormat = 'yyyy-MM-dd'
    end
    object ADODataSet9Times: TDateTimeField
      FieldName = 'Times'
      DisplayFormat = 'HH:mm'
    end
    object ADODataSet9Remark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    BeforeEdit = ADODataSet1BeforeEdit
    OnPostError = ADOTable1PostError
    CommandText = 'select * from ClientData'
    Parameters = <>
    Left = 40
    Top = 56
    object ADODataSet1Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object ADODataSet1ID: TWideStringField
      FieldName = 'ID'
      Size = 50
    end
    object ADODataSet1CoName: TWideStringField
      FieldName = 'CoName'
      Size = 50
    end
    object ADODataSet1ClientTier: TWideStringField
      FieldName = 'ClientTier'
      Size = 50
    end
    object ADODataSet1Address: TWideStringField
      FieldName = 'Address'
      Size = 255
    end
    object ADODataSet1Postalcode: TIntegerField
      FieldName = 'Postalcode'
    end
    object ADODataSet1Area: TWideStringField
      FieldName = 'Area'
      Size = 50
    end
    object ADODataSet1Region: TWideStringField
      FieldName = 'Region'
      Size = 50
    end
    object ADODataSet1TEL: TWideStringField
      FieldName = 'TEL'
      Size = 50
    end
    object ADODataSet1FAX: TWideStringField
      FieldName = 'FAX'
      Size = 50
    end
    object ADODataSet1ClientTypes: TWideStringField
      FieldName = 'ClientTypes'
      Size = 50
    end
    object ADODataSet1EMail: TWideStringField
      FieldName = 'EMail'
      Size = 100
    end
    object ADODataSet1WEBs: TWideStringField
      FieldName = 'WEBs'
      Size = 200
    end
    object ADODataSet1Remark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
  end
  object TransformTable: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'Transforms'
    CommandType = cmdTable
    Parameters = <>
    Left = 296
    Top = 8
  end
  object ADOSort: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from Sort'
    Parameters = <>
    Left = 200
    Top = 296
    object ADOSortSorts: TWideStringField
      FieldName = 'Sorts'
      Size = 50
    end
    object ADOSortItems: TWideStringField
      FieldName = 'Items'
      Size = 100
    end
  end
  object SortData: TDataSource
    DataSet = ADOSort
    Left = 200
    Top = 352
  end
  object ADODataSet8: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    OnPostError = ADOTable1PostError
    CommandText = 'select * from ClientBespeak'
    DataSource = DataSource1
    IndexFieldNames = 'ClientName'
    MasterFields = 'CoName'
    Parameters = <>
    Left = 40
    Top = 176
    object ADODataSet8Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object ADODataSet8ClientName: TWideStringField
      FieldName = 'ClientName'
      Size = 255
    end
    object ADODataSet8Motif: TWideStringField
      FieldName = 'Motif'
      Size = 255
    end
    object ADODataSet8RelationMode: TWideStringField
      FieldName = 'RelationMode'
      Size = 150
    end
    object ADODataSet8Principal: TWideStringField
      FieldName = 'Principal'
      Size = 50
    end
    object ADODataSet8Dates: TDateTimeField
      FieldName = 'Dates'
      DisplayFormat = 'yyyy-MM-dd'
    end
    object ADODataSet8Times: TDateTimeField
      FieldName = 'Times'
      DisplayFormat = 'HH:NN'
    end
    object ADODataSet8Remark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
  end
end