data.dfm

来自「进销存以及BOM管理,SQl Server数据库程序」· DFM 代码 · 共 101 行

object DataM: TDataM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 276
  Top = 438
  Height = 133
  Width = 470
  object AdoConnection: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB'
    Left = 40
    Top = 16
  end
  object adoqlogin: TADOQuery
    CacheSize = 1000
    Connection = AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    Parameters = <>
    Left = 124
    Top = 16
  end
  object adoqmaster: TADOQuery
    CacheSize = 1000
    Connection = AdoConnection
    CursorType = ctDynamic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    AfterScroll = adoqmasterAfterScroll
    Parameters = <>
    Left = 208
    Top = 16
    object adoqmasteraccountname: TWideStringField
      FieldName = 'accountname'
      Size = 30
    end
    object adoqmasterdatabasename: TWideStringField
      FieldName = 'databasename'
    end
    object adoqmasterremark: TWideStringField
      FieldName = 'remark'
      Size = 60
    end
    object adoqmasterfid: TIntegerField
      FieldName = 'fid'
    end
  end
  object adoqmasters: TADOQuery
    CacheSize = 1000
    Connection = AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 292
    Top = 16
  end
  object adoqcomponey: TADOQuery
    CacheSize = 1000
    Connection = AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 376
    Top = 16
    object adoqcomponeyfcompanybname: TWideStringField
      FieldName = 'fcompanybname'
    end
    object adoqcomponeyfcompanyname: TWideStringField
      FieldName = 'fcompanyname'
      Size = 50
    end
    object adoqcomponeyftel: TWideStringField
      FieldName = 'ftel'
    end
    object adoqcomponeyfaddress: TWideStringField
      FieldName = 'faddress'
      Size = 50
    end
    object adoqcomponeyftaxno: TWideStringField
      FieldName = 'ftaxno'
      Size = 30
    end
    object adoqcomponeyfbank: TWideStringField
      FieldName = 'fbank'
      Size = 50
    end
    object adoqcomponeyfbankno: TWideStringField
      FieldName = 'fbankno'
      Size = 30
    end
    object adoqcomponeyfpresident: TWideStringField
      FieldName = 'fpresident'
    end
    object adoqcomponeyffax: TWideStringField
      FieldName = 'ffax'
    end
  end
end