dm.~dfm

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

object DM1: TDM1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 262
  Top = 141
  Height = 460
  Width = 595
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 40
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet2
    Left = 128
    Top = 104
  end
  object ADODataSet3: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    OnPostError = ADOTable1PostError
    CommandText = 'select * from '#38144#21806#21306#22495
    DataSource = DataSource9
    IndexFieldNames = #25152#23646#21306#22495
    MasterFields = #25152#23646#21306#22495
    Parameters = <>
    Left = 208
    Top = 56
    object ADODataSet3DSDesigner2: TWideStringField
      FieldName = #25152#23646#21306#22495
      Size = 100
    end
    object ADODataSet3DSDesigner3: TWideStringField
      FieldName = #22320#21306#21517#31216
      Size = 100
    end
    object ADODataSet3Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
  end
  object DataSource3: TDataSource
    DataSet = ADODataSet3
    Left = 208
    Top = 104
  end
  object ADODataSet4: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    OnPostError = ADOTable1PostError
    CommandText = 'select * from ClientVisit'
    DataSource = DataSource1
    FieldDefs = <
      item
        Name = 'Num'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'Times'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'Dates'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'Motif'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'ClientName'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'RelationMode'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Personnel'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Principal'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Remark'
        DataType = ftMemo
      end>
    IndexFieldNames = 'ClientName'
    MasterFields = 'CoName'
    Parameters = <>
    StoreDefs = True
    Left = 296
    Top = 56
    object ADODataSet4Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object ADODataSet4Times: TDateTimeField
      FieldName = 'Times'
      DisplayFormat = 'HH:NN'
    end
    object ADODataSet4Dates: TDateTimeField
      FieldName = 'Dates'
      DisplayFormat = 'yyyy-MM-dd'
    end
    object ADODataSet4Motif: TWideStringField
      FieldName = 'Motif'
      Size = 255
    end
    object ADODataSet4ClientName: TWideStringField
      FieldName = 'ClientName'
      Size = 255
    end
    object ADODataSet4RelationMode: TWideStringField
      FieldName = 'RelationMode'
      Size = 50
    end
    object ADODataSet4Personnel: TWideStringField
      FieldName = 'Personnel'
      Size = 50
    end
    object ADODataSet4Principal: TWideStringField
      FieldName = 'Principal'
      Size = 50
    end
    object ADODataSet4Remark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
  end
  object DataSource4: TDataSource
    DataSet = ADODataSet4
    Left = 296
    Top = 104
  end
  object DataSource5: TDataSource
    DataSet = ADODataSet5
    Left = 376
    Top = 104
  end
  object ADODataSet6: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    BeforeEdit = ADODataSet6BeforeEdit
    OnPostError = ADOTable1PostError
    CommandText = 'select * from ProductSell'
    DataSource = DataSource1
    FieldDefs = <
      item
        Name = 'Num'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'OrderFormID'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'ClientName'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'SellDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'Operator'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Remark'
        DataType = ftMemo
      end>
    IndexFieldNames = 'ClientName'
    MasterFields = 'CoName'
    Parameters = <>
    StoreDefs = True
    Left = 448
    Top = 56
    object ADODataSet6Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object ADODataSet6OrderFormID: TWideStringField
      FieldName = 'OrderFormID'
      Size = 50
    end
    object ADODataSet6ClientName: TWideStringField
      FieldName = 'ClientName'
      Size = 200
    end
    object ADODataSet6Operator: TWideStringField
      FieldName = 'Operator'
      Size = 50
    end
    object ADODataSet6Remark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
    object ADODataSet6SellDate: TDateTimeField
      FieldName = 'SellDate'
      DisplayFormat = 'yyyy-MM-dd'
    end
  end
  object DataSource6: TDataSource
    DataSet = ADODataSet6
    Left = 448
    Top = 104
  end
  object ADODataSet7: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = ADODataSet7CalcFields
    OnPostError = ADOTable1PostError
    CommandText = 'select * from SellDetail'
    DataSource = DataSource6
    FieldDefs = <
      item
        Name = 'Num'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'OrderFormID'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'ClientName'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'ID'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'ProductName'
        DataType = ftWideString
        Size = 90
      end
      item
        Name = 'Spec'
        DataType = ftWideString
        Size = 180
      end
      item
        Name = 'Unit'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'UnitPrice'
        Attributes = [faFixed]
        DataType = ftBCD
        Precision = 18
        Size = 2
      end
      item
        Name = 'Number'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'Agio'
        Attributes = [faFixed]
        DataType = ftBCD
        Precision = 18
        Size = 2
      end>
    IndexFieldNames = 'OrderFormID;ClientName'
    MasterFields = 'OrderFormID;ClientName'
    Parameters = <>
    StoreDefs = True
    Left = 528
    Top = 56
    object ADODataSet7OrderFormID: TWideStringField
      FieldName = 'OrderFormID'
      Size = 50
    end
    object ADODataSet7ClientName: TWideStringField
      FieldName = 'ClientName'
      Size = 200
    end
    object ADODataSet7ID: TWideStringField
      FieldName = 'ID'
      Size = 50
    end
    object ADODataSet7ProductName: TWideStringField
      FieldName = 'ProductName'
      Size = 90
    end
    object ADODataSet7Spec: TWideStringField
      FieldName = 'Spec'
      Size = 180
    end
    object ADODataSet7Unit: TWideStringField
      FieldName = 'Unit'
    end
    object ADODataSet7UnitPrice: TBCDField
      FieldName = 'UnitPrice'
      Precision = 18
      Size = 2
    end
    object ADODataSet7Number: TIntegerField
      FieldName = 'Number'
    end
    object ADODataSet7Agio: TBCDField
      FieldName = 'Agio'
      Precision = 18
      Size = 2
    end
    object ADODataSet7Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object ADODataSet7Money: TFloatField
      FieldKind = fkCalculated
      FieldName = 'Money'
      Calculated = True
    end
  end
  object DataSource7: TDataSource
    DataSet = ADODataSet7
    Left = 528
    Top = 104
  end
  object DataSource8: TDataSource
    DataSet = ADODataSet8
    Left = 40
    Top = 224
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 128
    Top = 8
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterPost = ADOTable1AfterScroll
    AfterScroll = ADOTable1AfterScroll
    OnPostError = ADOTable1PostError
    TableName = #25152#22312#21306#22495
    Left = 120
    Top = 176
    object ADOTable1DSDesigner: TWideStringField
      FieldName = #25152#23646#21306#22495
      Size = 50
    end
    object ADOTable1Num: TIntegerField
      FieldName = 'Num'
    end
  end
  object DataSource9: TDataSource
    DataSet = ADOTable1
    Left = 120
    Top = 224
  end
  object DataSource10: TDataSource
    DataSet = ADOQuery1
    Left = 200
    Top = 224
  end
  object ADODataSet10: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    OnPostError = ADOTable1PostError
    CommandText = 'select * from ClientVisit'
    FieldDefs = <
      item
        Name = 'Num'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'Dates'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'Times'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'Motif'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'ClientName'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'RelationMode'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Personnel'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Principal'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Remark'
        DataType = ftMemo
      end>
    Parameters = <>
    StoreDefs = True
    Left = 280
    Top = 176
    object ADODataSet10Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object ADODataSet10Motif: TWideStringField
      FieldName = 'Motif'
      Size = 255
    end
    object ADODataSet10ClientName: TWideStringField
      FieldName = 'ClientName'
      Size = 255
    end
    object ADODataSet10RelationMode: TWideStringField
      FieldName = 'RelationMode'
      Size = 50
    end
    object ADODataSet10Personnel: TWideStringField
      FieldName = 'Personnel'
      Size = 50
    end
    object ADODataSet10Principal: TWideStringField
      FieldName = 'Principal'
      Size = 50
    end
    object ADODataSet10Remark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
    object ADODataSet10Times: TDateTimeField
      FieldName = 'Times'
      DisplayFormat = 'HH:NN'
      EditMask = '!90:00;1;_'
    end
    object ADODataSet10Dates: TDateTimeField
      FieldName = 'Dates'
      DisplayFormat = 'yyyy-MM-dd'
    end
  end
  object DataSource11: TDataSource
    DataSet = ADODataSet10
    Left = 280
    Top = 224
  end
  object ADODataSet11: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    BeforeEdit = ADODataSet11BeforeEdit
    OnPostError = ADOTable1PostError
    CommandText = 'select * from '#29992#25143
    Parameters = <>
    Left = 360
    Top = 176
  end
  object DataSource12: TDataSource
    DataSet = ADODataSet11
    Left = 360
    Top = 224
  end
  object TestRe: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 200
    Top = 8
  end
  object DataSource14: TDataSource
    DataSet = LogData
    Left = 440
    Top = 224
  end
  object LogData: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from Log'
    Parameters = <>
    Left = 440
    Top = 176
    object LogDataLoadDate: TDateTimeField
      FieldName = 'LoadDate'
    end
    object LogDataUserName: TStringField
      FieldName = 'UserName'
      FixedChar = True
      Size = 50
    end
    object LogDataOutDate: TDateTimeField
      FieldName = 'OutDate'
    end
    object LogDataDegree: TAutoIncField
      FieldName = 'Degree'
      ReadOnly = True
    end
  end
  object DataSource15: TDataSource
    DataSet = LinkManList
    Left = 40
    Top = 352
  end
  object DataSource16: TDataSource
    DataSet = SellList
    Left = 120
    Top = 352
  end
  object SellList: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from ProductSell'
    FieldDefs = <
      item
        Name = 'Num'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'OrderFormID'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'ClientName'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'SellDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end