📄 tdmpjgcom.dfm
字号:
object PJgComServer: TPJgComServer
OldCreateOrder = False
OnCreate = MtsDataModuleCreate
OnActivate = MtsDataModuleActivate
OnDeactivate = MtsDataModuleDeactivate
Pooled = False
Left = 212
Top = 192
Height = 483
Width = 537
object adoConn: TADOConnection
CommandTimeout = 60
ConnectionTimeout = 60
LoginPrompt = False
Provider = 'MSDASQL.1'
Left = 16
Top = 8
end
object adoDataS: TADODataSet
Connection = adoConn
CommandTimeout = 60
Parameters = <>
Left = 16
Top = 56
end
object cds: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dsp'
Left = 64
Top = 56
end
object dsp: TDataSetProvider
DataSet = adoDataS
Options = [poAllowCommandText]
Left = 112
Top = 56
end
object adoSpLogin: TADOStoredProc
Connection = adoConn
ProcedureName = 'p_userlogin'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@cuser'
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@cpassword'
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@cname'
DataType = ftString
Direction = pdOutput
Size = 20
Value = Null
end
item
Name = '@cywqx'
DataType = ftString
Direction = pdOutput
Size = 20
Value = Null
end
item
Name = '@ssds'
DataType = ftString
Direction = pdOutput
Size = 200
Value = Null
end
item
Name = '@lsys'
DataType = ftBoolean
Direction = pdOutput
Value = Null
end
item
Name = '@iret'
DataType = ftSmallint
Direction = pdOutput
Precision = 5
Value = Null
end>
Prepared = True
Left = 16
Top = 104
end
object adoSpUserSave: TADOStoredProc
Connection = adoConn
ProcedureName = 'p_usersave'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@userid'
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@username'
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@userpwd'
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@userqx'
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@ssds'
DataType = ftString
Size = 200
Value = Null
end
item
Name = '@usersys'
DataType = ftBoolean
Value = Null
end
item
Name = '@nret'
DataType = ftSmallint
Direction = pdOutput
Precision = 5
Value = Null
end>
Prepared = True
Left = 88
Top = 104
end
object adoSpUserDel: TADOStoredProc
Connection = adoConn
ProcedureName = 'p_userdel'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@userid'
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@nret'
DataType = ftSmallint
Direction = pdOutput
Precision = 5
Value = Null
end>
Prepared = True
Left = 168
Top = 104
end
object adoQry: TADOQuery
Connection = adoConn
Parameters = <>
Left = 160
Top = 56
end
object ads_Cx: TADODataSet
Connection = adoConn
CommandTimeout = 60
Parameters = <>
Left = 472
Top = 8
end
object Qry_Cx: TADOQuery
Connection = adoConn
CommandTimeout = 60
Parameters = <>
Left = 472
Top = 168
end
object SP_Cx: TADOStoredProc
Connection = adoConn
CommandTimeout = 60
Parameters = <>
Left = 472
Top = 112
end
object cds_Cx: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dsp_Cx'
Left = 432
Top = 64
end
object dsp_Cx: TDataSetProvider
DataSet = ads_Cx
Options = [poAllowCommandText]
Left = 472
Top = 64
end
object adoSpDsSave: TADOStoredProc
Connection = adoConn
CommandTimeout = 60
ProcedureName = 'p_dsbhsave'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@dsbh'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@dsmc'
DataType = ftString
Size = 30
Value = Null
end
item
Name = '@dswsip'
DataType = ftString
Size = 15
Value = Null
end
item
Name = '@dswsport'
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@dswsvip'
DataType = ftString
Size = 15
Value = Null
end
item
Name = '@dswsvport'
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@dsleft'
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@dstop'
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@dspwidth'
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@dspheight'
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@dspbh'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@dshavexs'
DataType = ftBoolean
Value = Null
end
item
Name = '@datainupdpt'
DataType = ftBoolean
Value = Null
end
item
Name = '@dsdb'
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@dsjb'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@connxh'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@iret'
DataType = ftSmallint
Direction = pdOutput
Precision = 5
Value = Null
end>
Prepared = True
Left = 312
Top = 104
end
object adoSpDsDel: TADOStoredProc
Connection = adoConn
CommandTimeout = 60
ProcedureName = 'p_dsbhdel'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@dsbh'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@iret'
DataType = ftSmallint
Direction = pdOutput
Precision = 5
Value = Null
end>
Prepared = True
Left = 16
Top = 152
end
object adoYjTSave: TADOStoredProc
Connection = adoConn
CommandTimeout = 60
ProcedureName = 'p_yjtimesave'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@dsbh'
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@yjtime'
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@iret'
DataType = ftSmallint
Direction = pdOutput
Precision = 5
Value = Null
end>
Prepared = True
Left = 240
Top = 104
end
object adoYjlxsave: TADOStoredProc
Connection = adoConn
CommandTimeout = 60
ProcedureName = 'p_yjxm_save'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@dsbh'
DataType = ftString
Size = 4
Value = Null
end
item
Name = '@ibh'
DataType = ftSmallint
Precision = 5
Value = Null
end
item
Name = '@cmc'
DataType = ftString
Size = 60
Value = Null
end
item
Name = '@lbz'
DataType = ftBoolean
Value = Null
end
item
Name = '@ret'
DataType = ftSmallint
Direction = pdOutput
Precision = 5
Value = Null
end>
Prepared = True
Left = 80
Top = 152
end
object adoWgSet1: TADOStoredProc
Connection = adoConn
CommandTimeout = 60
ProcedureName = 'p_wgset1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@dsbh'
DataType = ftString
Size = 4
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
Name = '@mon_max'
DataType = ftFloat
Size = 11
Value = Null
end
item
Name = '@mon_use'
DataType = ftBoolean
Value = Null
end
item
Name = '@dwdkkm'
DataType = ftString
Size = 30
Value = Null
end
item
Name = '@dw_use'
DataType = ftBoolean
Value = Null
end
item
Name = '@xmdkkm'
DataType = ftString
Size = 30
Value = Null
end
item
Name = '@xm_use'
DataType = ftBoolean
Value = Null
end
item
Name = '@ret'
DataType = ftSmallint
Direction = pdOutput
Precision = 5
Value = Null
end>
Prepared = True
Left = 16
Top = 248
end
object adoWgSet10: TADOStoredProc
Connection = adoConn
CommandTimeout = 60
ProcedureName = 'p_wgset10'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@dsbh'
DataType = ftString
Size = 4
Value = Null
end
item
Name = '@zxysk_fse'
DataType = ftFloat
Size = 11
Value = Null
end
item
Name = '@zxysk_ye'
DataType = ftFloat
Size = 11
Value = Null
end
item
Name = '@zxysk_km'
DataType = ftString
Size = 30
Value = Null
end
item
Name = '@zxysk_use'
DataType = ftBoolean
Value = Null
end
item
Name = '@zxyfk_fse'
DataType = ftFloat
Size = 11
Value = Null
end
item
Name = '@zxyfk_ye'
DataType = ftFloat
Size = 11
Value = Null
end
item
Name = '@zxyfk_km'
DataType = ftString
Size = 30
Value = Null
end
item
Name = '@zxyfk_use'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -