dmc32.dfm

delphi框架可以学习, 写的很好的

object dmc: Tdmc
  OldCreateOrder = False
  Left = 272
  Top = 208
  Height = 339
  Width = 701
  object conn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=xiaobo;Persist Security Info=True;U' +
      'ser ID=sa;Initial Catalog=JeansMIS;Data Source=222.222.222.251'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object qryFind1: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 88
    Top = 16
  end
  object qryFind2: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 88
    Top = 64
  end
  object qryFind3: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 144
    Top = 16
  end
  object qryFind4: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 144
    Top = 64
  end
  object qryFind5: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 88
    Top = 120
  end
  object qryFind6: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 88
    Top = 168
  end
  object qryFind7: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 144
    Top = 120
  end
  object qryFind8: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 144
    Top = 168
  end
  object qryFind9: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 200
    Top = 16
  end
  object qryFind10: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 200
    Top = 64
  end
  object qryFind13: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 256
    Top = 16
  end
  object qryFind14: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 256
    Top = 64
  end
  object qryFind11: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 200
    Top = 120
  end
  object qryFind12: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 200
    Top = 168
  end
  object qryFind15: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 256
    Top = 120
  end
  object qryFind16: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 256
    Top = 168
  end
  object qryFind17: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 88
    Top = 224
  end
  object qryFind18: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 144
    Top = 224
  end
  object qryCpys: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 360
    Top = 16
  end
  object dsCpys: TDataSource
    DataSet = qryCpys
    Left = 376
    Top = 16
  end
  object qryCpfk: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 360
    Top = 64
  end
  object dsCpfk: TDataSource
    DataSet = qryCpfk
    Left = 376
    Top = 64
  end
  object qryCpzz: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 360
    Top = 112
  end
  object dsCpzz: TDataSource
    DataSet = qryCpzz
    Left = 376
    Top = 112
  end
  object qryYldm: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from material')
    Left = 360
    Top = 160
    object qryYldmSer: TAutoIncField
      DisplayLabel = #27969#27700#21495
      FieldName = 'Ser'
      ReadOnly = True
    end
    object qryYldmCode: TStringField
      DisplayLabel = #21407#26009#20195#30721
      FieldName = 'Code'
      Size = 24
    end
    object qryYldmSYFW: TStringField
      DisplayLabel = #20351#29992#33539#22260
      FieldName = 'SYFW'
      Size = 12
    end
    object qryYldmFactory: TStringField
      DisplayLabel = #20379#24212#21830
      FieldName = 'Factory'
      Size = 100
    end
    object qryYldmLX: TStringField
      DisplayLabel = #21407#26009#31867#22411
      FieldName = 'LX'
      Size = 50
    end
    object qryYldmFG: TStringField
      DisplayLabel = #21407#26009#39118#26684
      FieldName = 'FG'
      Size = 50
    end
    object qryYldmGG: TStringField
      DisplayLabel = #21407#26009#35268#26684
      FieldName = 'GG'
      Size = 50
    end
    object qryYldmSRRQ: TDateTimeField
      DisplayLabel = #24405#20837#26085#26399
      FieldName = 'SRRQ'
    end
    object qryYldmCZY: TStringField
      DisplayLabel = #25805#20316#21592
      FieldName = 'CZY'
      Size = 12
    end
    object qryYldmPrice: TFloatField
      DisplayLabel = #20215#26684
      FieldName = 'Price'
    end
    object qryYldmJGRQ: TDateTimeField
      DisplayLabel = #25253#20215#26085#26399
      FieldName = 'JGRQ'
    end
    object qryYldmSHRQ: TDateTimeField
      DisplayLabel = #23457#26680#26085#26399
      FieldName = 'SHRQ'
    end
    object qryYldmSHR: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'SHR'
      Size = 12
    end
    object qryYldmSHBZ: TIntegerField
      DisplayLabel = #23457#26680#26631#24535
      FieldName = 'SHBZ'
    end
    object qryYldmCSRQ: TDateTimeField
      DisplayLabel = #25764#23457#26085#26399
      FieldName = 'CSRQ'
    end
    object qryYldmCSR: TStringField
      DisplayLabel = #25764#23457#20154
      FieldName = 'CSR'
      Size = 12
    end
    object qryYldmZS: TStringField
      DisplayLabel = #23454#38469#25903#25968
      FieldName = 'ZS'
      Size = 32
    end
  end
  object dsYldm: TDataSource
    DataSet = qryYldm
    Left = 376
    Top = 160
  end
  object qryHcllx: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 360
    Top = 216
  end
  object dsHcllx: TDataSource
    DataSet = qryHcllx
    Left = 376
    Top = 216
  end
end