undm.dfm

来自「一个电力的巡检项目,用到三个控件,可自己去下载,」· DFM 代码 · 共 147 行

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 188
  Top = 161
  Height = 349
  Width = 294
  object AdoConn: TADOConnection
    LoginPrompt = False
    Provider = 'OraOLEDB.Oracle.1'
    Left = 24
    Top = 24
  end
  object AQ1: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from abc')
    Left = 80
    Top = 24
  end
  object AQ4: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_checkpt')
    Left = 248
    Top = 24
  end
  object AQ3: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from T_Part')
    Left = 184
    Top = 24
  end
  object AQ2: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from T_Eupet')
    Left = 136
    Top = 24
  end
  object AQ5: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from view_sbdj  order by msrno')
    Left = 24
    Top = 88
  end
  object AQ6: TADOQuery
    Connection = AdoConn
    Parameters = <>
    Left = 80
    Top = 88
  end
  object AQ7: TADOQuery
    Connection = AdoConn
    Parameters = <>
    Left = 128
    Top = 88
  end
  object AQ8: TADOQuery
    Connection = AdoConn
    Parameters = <>
    Left = 192
    Top = 88
  end
  object AQ9: TADOQuery
    Connection = AdoConn
    Parameters = <>
    Left = 240
    Top = 88
  end
  object AQ10: TADOQuery
    Connection = AdoConn
    Parameters = <>
    Left = 32
    Top = 144
  end
  object RvDsConn: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = AQ20
    Left = 120
    Top = 232
  end
  object AQ20: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_employee')
    Left = 176
    Top = 200
  end
  object AdoQback: TADOQuery
    Connection = AdoConn
    Parameters = <>
    Left = 24
    Top = 208
  end
  object AQ21: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from view_ncpt')
    Left = 200
    Top = 264
  end
  object RvSystem1: TRvSystem
    TitleSetup = #36755#20986#35774#32622
    TitleStatus = 'Report Status'
    TitlePreview = #25253#34920#39044#35272
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemPreview.FormWidth = 1000
    SystemPreview.FormHeight = 700
    SystemPreview.FormState = wsMaximized
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.StatusText.Strings = (
      'abc'
      'cde'
      'def')
    SystemPrinter.UnitsFactor = 1.000000000000000000
    OverrideSetup = RvSystem1OverrideSetup
    Left = 112
    Top = 184
  end
  object RvP: TRvProject
    Engine = RvSystem1
    Left = 56
    Top = 272
  end
end