maindm.dfm

这是一个本人初定的小制作

object DMMain: TDMMain
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 204
  Top = 117
  Height = 456
  Width = 595
  object ADOConnectionMain: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=SuperMarketManage;Data Source=211.87.21' +
      '5.43;Use Procedure for Prepare=1;Auto Translate=True;Packet Size' +
      '=4096;Workstation ID=SINCOYANG;Use Encryption for Data=False;Tag' +
      ' with column collation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 248
    Top = 65528
  end
  object ADOTOperator: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'T_SysOperator'
    Left = 24
    Top = 88
  end
  object ADOTGood: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'T_Good'
    Left = 88
    Top = 88
  end
  object DSOperator: TDataSource
    DataSet = ADOTOperator
    Left = 24
    Top = 152
  end
  object DSGood: TDataSource
    DataSet = ADOTGood
    Left = 88
    Top = 152
  end
  object ADOQueryMain: TADOQuery
    Connection = ADOConnectionMain
    Parameters = <>
    Left = 384
  end
  object ADOTSaleRecord: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'T_SaleRecord'
    Left = 152
    Top = 88
  end
  object ADOTSalesMan: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'T_SalesMan'
    Left = 224
    Top = 96
  end
  object DSSaleRecord: TDataSource
    DataSet = ADOTSaleRecord
    Left = 152
    Top = 152
  end
  object DSSalesMan: TDataSource
    DataSet = ADOTSalesMan
    Left = 224
    Top = 152
  end
  object DSMain: TDataSource
    DataSet = ADOQueryMain
    Left = 416
  end
  object ADOTDepart: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'T_Department'
    Left = 296
    Top = 96
  end
  object DSDepart: TDataSource
    DataSet = ADOTDepart
    Left = 288
    Top = 152
  end
  object ADOTSalesManQuery: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'V_SalesManQueryAll'
    Left = 360
    Top = 96
  end
  object DSSalesManQuery: TDataSource
    DataSet = ADOTSalesManQuery
    Left = 360
    Top = 152
  end
  object ADOTSysOperator: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'T_SysOperator'
    Left = 432
    Top = 96
  end
  object DSSysOperator: TDataSource
    DataSet = ADOTSysOperator
    Left = 440
    Top = 160
  end
  object ADOTPermission: TADOTable
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'T_Permission'
    Left = 504
    Top = 80
  end
  object DSPermission: TDataSource
    DataSet = ADOTPermission
    Left = 504
    Top = 144
  end
  object ADOTSaleBack: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'T_SaleBack'
    Left = 24
    Top = 224
  end
  object DSSaleBack: TDataSource
    DataSet = ADOTSaleBack
    Left = 24
    Top = 288
  end
  object ADOCommandBackup: TADOCommand
    Connection = ADOConnectionMain
    Parameters = <>
    Left = 112
    Top = 24
  end
  object ADOTStockIn: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnPostError = ADOTOperatorPostError
    TableName = 'T_StockIn'
    Left = 96
    Top = 224
  end
  object DSStockIn: TDataSource
    DataSet = ADOTStockIn
    Left = 96
    Top = 288
  end
  object ADOTStorageRecord: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    OnCalcFields = ADOTStorageRecordCalcFields
    OnPostError = ADOTOperatorPostError
    TableName = 'T_StorageRecord'
    Left = 176
    Top = 224
    object ADOTStorageRecordGoodId: TStringField
      FieldName = 'GoodId'
      FixedChar = True
      Size = 10
    end
    object ADOTStorageRecordAmount: TIntegerField
      FieldName = 'Amount'
    end
    object ADOTStorageRecordSaftyStock: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'SaftyStock'
      Calculated = True
    end
  end
  object DSStorageRecord: TDataSource
    DataSet = ADOTStorageRecord
    Left = 176
    Top = 296
  end
  object ADOTStockOut: TADOTable
    Active = True
    Connection = ADOConnectionMain
    CursorType = ctStatic
    TableName = 'T_StockOut'
    Left = 248
    Top = 224
  end
  object DSStockOut: TDataSource
    DataSet = ADOTStockOut
    Left = 248
    Top = 296
  end
end