📄 udm_jglr.dfm
字号:
Value = Null
end>
Left = 224
Top = 168
end
object SP_Xmdkb: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_XMDKB_save'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@NY'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@XH'
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@DWMC'
DataType = ftString
Size = 40
Value = Null
end
item
Name = '@XMMC'
DataType = ftString
Size = 40
Value = Null
end
item
Name = '@LXSPJG'
DataType = ftString
Size = 40
Value = Null
end
item
Name = '@DKHTH'
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@DKJE'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@FFJE'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@FFRQ'
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@DKQX'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@DKLL'
DataType = ftFloat
Size = 7
Value = Null
end
item
Name = '@QCYE'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@BQHS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@QMYE'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@QZYQ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@nret'
DataType = ftSmallint
Direction = pdInputOutput
Precision = 5
Value = Null
end>
Left = 296
Top = 168
end
object Qry_Jtb: TADOQuery
Connection = Conn_User
Parameters = <>
Left = 160
Top = 64
end
object Conn_Cw: TADOConnection
ConnectionString =
'Provider=MSDASQL.1;Password=adminconnect;Persist Security Info=T' +
'rue;User ID=jtpsoftadmin;Extended Properties="DSN=cw0001;SRVR=li' +
'nux;DB=cw0001;UID=sa;PWD=jtpsoft"'
ConnectionTimeout = 60
LoginPrompt = False
Provider = 'MSDASQL.1'
Left = 72
Top = 282
end
object SP_GetData: TADOStoredProc
Connection = Conn_Cw
ProcedureName = 'p_getdata'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@tasknumber'
DataType = ftString
Size = 2
Value = Null
end
item
Name = '@bbnumber'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@dptnumber'
DataType = ftString
Size = 7
Value = Null
end
item
Name = '@bbdate'
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@col'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@row'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@resulttype'
DataType = ftSmallint
Direction = pdInputOutput
Precision = 5
Value = Null
end
item
Name = '@resultdata'
DataType = ftString
Direction = pdInputOutput
Size = 20
Value = Null
end>
Left = 184
Top = 282
end
object dsp_LR: TDataSetProvider
DataSet = ads_LR
Options = [poAllowCommandText]
Left = 72
Top = 200
end
object cds_LR: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dsp_LR'
Left = 16
Top = 248
end
object ads_LR: TADODataSet
CacheSize = 10
Connection = Conn_User
CommandTimeout = 60
Parameters = <>
Left = 16
Top = 200
end
object cds_Gjj: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dsp_Gjj'
Left = 296
Top = 224
end
object dsp_Gjj: TDataSetProvider
DataSet = ads_Gjj
Options = [poAllowCommandText]
Left = 224
Top = 224
end
object ads_Gjj: TADODataSet
CacheSize = 10
Connection = Conn_User
Parameters = <>
Left = 160
Top = 224
end
object ads_Cw: TADODataSet
CacheSize = 10
Connection = Conn_Cw
Parameters = <>
Left = 248
Top = 280
end
object dsp_Cw: TDataSetProvider
DataSet = ads_Cw
Options = [poAllowCommandText]
Left = 304
Top = 280
end
object cds_Cw: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dsp_Cw'
Left = 360
Top = 280
end
object Sp_RelationSav: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_relation_save'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@bbnumber'
DataType = ftString
Size = 2
Value = Null
end
item
Name = '@relationno'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@bbrelationl'
DataType = ftString
Size = 200
Value = Null
end
item
Name = '@bbrelationr'
DataType = ftString
Size = 200
Value = Null
end
item
Name = '@bbrelation'
DataType = ftString
Size = 2
Value = Null
end
item
Name = '@ret'
DataType = ftSmallint
Direction = pdInputOutput
Precision = 5
Value = Null
end>
Left = 280
Top = 328
end
object Sp_RelationDel: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_relation_del'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@bbnumber'
DataType = ftString
Size = 2
Value = Null
end
item
Name = '@relationno'
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@ret'
DataType = ftSmallint
Direction = pdInputOutput
Precision = 5
Value = Null
end>
Left = 360
Top = 328
end
object Sp_GjSumv: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_gjsumv'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@bbnumber'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@dptnumber'
DataType = ftString
Size = 7
Value = Null
end
item
Name = '@bbdate'
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@colb'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@cole'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@row'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@resultdata'
DataType = ftFloat
Direction = pdInputOutput
Size = 16
Value = Null
end>
Left = 200
Top = 328
end
object Sp_GjSumh: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_gjsumh'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@bbnumber'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@dptnumber'
DataType = ftString
Size = 7
Value = Null
end
item
Name = '@bbdate'
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@col'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@rowb'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@rowe'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@resultdata'
DataType = ftFloat
Direction = pdInputOutput
Size = 16
Value = Null
end>
Left = 128
Top = 328
end
object Sp_GjGet: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_gjget'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@bbnumber'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@dptnumber'
DataType = ftString
Size = 7
Value = Null
end
item
Name = '@bbdate'
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@col'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@row'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@resultdata'
DataType = ftFloat
Direction = pdInputOutput
Size = 16
Value = Null
end>
Left = 128
Top = 282
end
object SP_Calc: TADOStoredProc
Connection = Conn_Cw
ProcedureName = 'p_cwcalc'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@ckm'
DataType = ftString
Size = 30
Value = Null
end
item
Name = '@nfunc'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@crq'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@lpz'
DataType = ftBoolean
Value = Null
end
item
Name = '@cjzny'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@ncalcresult'
DataType = ftFloat
Direction = pdInputOutput
Size = 16
Value = Null
end
item
Name = '@rets'
DataType = ftSmallint
Direction = pdInputOutput
Precision = 5
Value = Null
end>
Left = 73
Top = 328
end
object dspYj: TDataSetProvider
Options = [poAllowCommandText]
Left = 424
Top = 8
end
object spYja: TADOStoredProc
Connection = Conn_User
CommandTimeout = 60
ProcedureName = 'p_wga'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@date1'
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@date2'
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@rec_max'
DataType = ftFloat
Size = 11
Value = Null
end
item
Name = '@rec_use'
DataType = ftBoolean
Value = Null
end
item
Name = '@day_max'
DataType = ftFloat
Size = 11
Value = Null
end
item
Name = '@day_use'
DataType = ftBoolean
Value = Null
end
item
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -