dmain.dfm

来自「行业应急系统 包括: 应急系统（待遇核发） 发放系统 开」· DFM 代码 · 共 38 行

object dfmMain: TdfmMain
  OldCreateOrder = False
  Left = 92
  Top = 123
  Height = 387
  Width = 669
  object dbsMain: TDatabase
    AliasName = 'sidb'
    Connected = True
    DatabaseName = 'MainDB'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sidb2000'
      'PASSWORD=pwsi2000')
    SessionName = 'Default'
    BeforeConnect = dbsMainBeforeConnect
    Left = 40
    Top = 24
  end
  object stoGetNumber: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'P_GETNUMBER'
    Left = 176
    Top = 24
    ParamData = <
      item
        DataType = ftString
        Name = 'P_TABLENAME'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_CURRVALUE'
        ParamType = ptOutput
      end>
  end
end