wzgl_rdb.dfm

物资管理三层源代码,包含的更能比较多,窗口也多,比较适合参考用

object WZGL: TWZGL
  OldCreateOrder = False
  Left = 79
  Top = 3
  Height = 516
  Width = 778
  object Q_QXGL_ZHNR: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    DataSource = S_QXGL_ZHSZ
    SQL.Strings = (
      'SELECT * FROM WZ_QXGL_ZHNR WHERE '#32452#21495'=:'#32452#21495)
    Left = 178
    Top = 8
    ParamData = <
      item
        DataType = ftFixedChar
        Name = #32452#21495
        ParamType = ptUnknown
        Size = 2
      end>
  end
  object Q_QXGL_ZHSZ: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM WZ_QXGL_ZHSZ')
    Left = 40
    Top = 8
  end
  object S_QXGL_ZHSZ: TDataSource
    DataSet = Q_QXGL_ZHSZ
    Left = 178
    Top = 64
  end
  object P_QXGL_ZHSZ: TDataSetProvider
    DataSet = Q_QXGL_ZHSZ
    Constraints = True
    Options = [poCascadeDeletes, poAllowCommandText]
    Left = 40
    Top = 64
  end
  object Q_QXGL_YHSZ: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'SELECT * FROM WZ_QXGL_YHSZ')
    Left = 317
    Top = 8
  end
  object P_QXGL_YHSZ: TDataSetProvider
    DataSet = Q_QXGL_YHSZ
    Constraints = True
    Left = 317
    Top = 64
  end
  object Q_General: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    Left = 576
    Top = 8
  end
  object Q_QXGL_ZHNR_INDEX: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from wz_qxgl_zhnr')
    Left = 456
    Top = 8
  end
  object P_QXGL_ZHNR_INDEX: TDataSetProvider
    DataSet = Q_QXGL_ZHNR_INDEX
    Constraints = True
    Left = 456
    Top = 64
  end
  object Q_ZGDA: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from wz_zgda order by '#32844#24037#32534#21495)
    Left = 504
    Top = 128
  end
  object Q_BMDA: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from wz_bmda order by '#37096#38376#32534#30721)
    Left = 555
    Top = 128
  end
  object P_ZGDA: TDataSetProvider
    DataSet = Q_ZGDA
    Constraints = True
    Left = 504
    Top = 184
  end
  object P_BMDA: TDataSetProvider
    DataSet = Q_BMDA
    Constraints = True
    Left = 555
    Top = 184
  end
  object Q_DQFLB: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    RequestLive = True
    SQL.Strings = (
      'select * from wz_dqflb')
    Left = 607
    Top = 128
  end
  object P_DQFLB: TDataSetProvider
    DataSet = Q_DQFLB
    Constraints = True
    Left = 607
    Top = 184
  end
  object Q_GYSFLB: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    RequestLive = True
    SQL.Strings = (
      'select * from wz_gysflb')
    Left = 659
    Top = 128
  end
  object P_GYSFLB: TDataSetProvider
    DataSet = Q_GYSFLB
    Constraints = True
    Left = 659
    Top = 184
  end
  object Q_GYSDA: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from wz_gysda')
    Left = 711
    Top = 128
  end
  object P_GYSDA: TDataSetProvider
    DataSet = Q_GYSDA
    Constraints = True
    Left = 711
    Top = 184
  end
  object P_CKXX: TDataSetProvider
    DataSet = Q_CKXX
    Constraints = True
    Options = [poAllowCommandText]
    Left = 23
    Top = 174
  end
  object Q_JFDW: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from wz_jfdw')
    Left = 111
    Top = 128
  end
  object Q_YFDW: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from wz_yfdw')
    Left = 199
    Top = 128
  end
  object P_JFDW: TDataSetProvider
    DataSet = Q_JFDW
    Constraints = True
    Left = 111
    Top = 174
  end
  object P_YFDW: TDataSetProvider
    DataSet = Q_YFDW
    Constraints = True
    Left = 199
    Top = 174
  end
  object Q_GCXMDYB: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    RequestLive = True
    SQL.Strings = (
      'select * from wz_gcxmdy')
    Left = 287
    Top = 128
  end
  object P_GCXMDYB: TDataSetProvider
    DataSet = Q_GCXMDYB
    Constraints = True
    Left = 287
    Top = 174
  end
  object P_CLBM: TDataSetProvider
    DataSet = Q_CLBM
    Constraints = True
    Left = 376
    Top = 174
  end
  object Q_CLBM: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    Left = 376
    Top = 128
  end
  object P_General: TDataSetProvider
    DataSet = Q_General
    Constraints = True
    Options = [poAllowCommandText]
    Left = 576
    Top = 64
  end
  object Q_CLSLD_CX: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    RequestLive = True
    SQL.Strings = (
      'select * from WZ_VIEW_CLSLD_CX')
    Left = 304
    Top = 248
  end
  object P_CLSLD_CX: TDataSetProvider
    DataSet = Q_CLSLD_CX
    Constraints = True
    Left = 304
    Top = 304
  end
  object Q_CLSLD: TQuery
    Active = True
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from WZ_CLSLD_MAIN')
    Left = 32
    Top = 248
  end
  object Q_CLSLD_DETAIL: TQuery
    Active = True
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    DataSource = S_CLSLD
    SQL.Strings = (
      'select * from WZ_CLSLD_DETAIL where '#25910#26009#23383#21495'=:'#25910#26009#23383#21495)
    Left = 122
    Top = 248
    ParamData = <
      item
        DataType = ftFixedChar
        Name = #25910#26009#23383#21495
        ParamType = ptUnknown
        Size = 10
      end>
  end
  object S_CLSLD: TDataSource
    DataSet = Q_CLSLD
    Left = 32
    Top = 304
  end
  object P_CLSLD: TDataSetProvider
    DataSet = Q_CLSLD
    Constraints = True
    Options = [poCascadeDeletes, poCascadeUpdates, poAllowCommandText]
    Left = 122
    Top = 304
  end
  object P_CLSLD_DETAIL_INDEX: TDataSetProvider
    DataSet = Q_CLSLD_DETAIL_INDEX
    Constraints = True
    Left = 213
    Top = 304
  end
  object Q_CLSLD_DETAIL_INDEX: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from WZ_CLSLD_DETAIL')
    Left = 213
    Top = 248
  end
  object Q_CLBM_TEMP: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from WZ_CLBM_TEMP')
    Left = 440
    Top = 128
  end
  object P_CLBM_TEMP: TDataSetProvider
    DataSet = Q_CLBM_TEMP
    Constraints = True
    Left = 440
    Top = 176
  end
  object Q_CKXX: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from wz_ckdyb')
    Left = 32
    Top = 120
  end
  object Q_BMLLD: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from WZ_BMLLD_MAIN')
    Left = 32
    Top = 361
  end
  object Q_BMLLD_DETAIL: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    DataSource = S_BMLLD
    SQL.Strings = (
      'select * from WZ_BMLLD_DETAIL where '#39046#26009#23383#21495'=:'#39046#26009#23383#21495)
    Left = 125
    Top = 361
    ParamData = <
      item
        DataType = ftUnknown
        Name = #39046#26009#23383#21495
        ParamType = ptUnknown
      end>
  end
  object Q_BMLLD_DETAIL_INDEX: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from WZ_BMLLD_DETAIL')
    Left = 218
    Top = 361
  end
  object Q_BMLLD_CX: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from WZ_VIEW_BMLLD_CX')
    Left = 312
    Top = 361
  end
  object S_BMLLD: TDataSource
    DataSet = Q_BMLLD
    Left = 32
    Top = 416
  end
  object P_BMLLD: TDataSetProvider
    DataSet = Q_BMLLD
    Constraints = True
    Options = [poCascadeDeletes, poCascadeUpdates, poAllowCommandText]
    Left = 128
    Top = 416
  end
  object P_BMLLD_DETAIL_INDEX: TDataSetProvider
    DataSet = Q_BMLLD_DETAIL_INDEX
    Constraints = True
    Left = 232
    Top = 416
  end
  object P_BMLLD_CX: TDataSetProvider
    DataSet = Q_BMLLD_CX
    Constraints = True
    Left = 312
    Top = 416
  end
  object Q_KCPD: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from WZ_KCPD_MAIN')
    Left = 400
    Top = 249
  end
  object Q_KCPD_DETAIL: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    DataSource = S_KCPD
    SQL.Strings = (
      'select * from WZ_KCPD_DETAIL where '#30424#28857#23383#21495'=:'#30424#28857#23383#21495)
    Left = 493
    Top = 249
    ParamData = <
      item
        DataType = ftUnknown
        Name = #30424#28857#23383#21495
        ParamType = ptUnknown
      end>
  end
  object Q_KCPD_DETAIL_INDEX: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from WZ_KCPD_DETAIL')
    Left = 586
    Top = 249
  end
  object Q_KCPD_CX: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'select * from WZ_VIEW_KCPD_CX')
    Left = 696
    Top = 249
  end
  object S_KCPD: TDataSource
    DataSet = Q_KCPD
    Left = 400
    Top = 304
  end
  object P_KCPD: TDataSetProvider
    DataSet = Q_KCPD
    Constraints = True
    Left = 496
    Top = 304
  end
  object P_KCPD_DETAIL_INDEX: TDataSetProvider
    DataSet = Q_KCPD_DETAIL_INDEX
    Constraints = True
    Left = 600
    Top = 304
  end
  object P_KCPD_CX: TDataSetProvider
    DataSet = Q_KCPD_CX
    Constraints = True
    Left = 680
    Top = 304
  end
  object Q_KC: TQuery
    AutoRefresh = True
    DatabaseName = 'DB_WZGL'
    SQL.Strings = (
      'SELECT * FROM WZ_KCQKB')
    Left = 400
    Top = 368
  end
  object P_KC: TDataSetProvider
    DataSet = Q_KC
    Constraints = True
    Left = 400
    Top = 424
  end
end