📄 udm_jglr.dfm
字号:
object JGLRServer: TJGLRServer
OldCreateOrder = False
OnCreate = MtsDataModuleCreate
OnDeactivate = MtsDataModuleDeactivate
Pooled = False
Left = 223
Top = 137
Height = 411
Width = 519
object Conn_User: TADOConnection
ConnectionString =
'Provider=MSDASQL.1;Password=adminconnect;Persist Security Info=T' +
'rue;User ID=jtpsoftadmin;Extended Properties="DSN=jgjkdata;SRVR=' +
'dataserver;DB=jgjkdata;UID=jtpsoftadmin;PWD=adminconnect"'
ConnectionTimeout = 60
LoginPrompt = False
Provider = 'MSDASQL.1'
Left = 18
Top = 10
end
object Tab_User: TADOTable
Connection = Conn_User
Left = 162
Top = 117
end
object Qry_User: TADOQuery
Connection = Conn_User
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from bm_user')
Left = 18
Top = 104
end
object SP_User: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_dddata_chk'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftWideString
Direction = pdReturnValue
Precision = 10
Size = -1
Value = ''
end>
Left = 18
Top = 58
end
object DS_User: TDataSource
DataSet = Qry_User
Left = 74
Top = 10
end
object SP_Login: TADOStoredProc
Connection = Conn_User
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 = 20
Value = Null
end
item
Name = '@cname'
DataType = ftString
Direction = pdInputOutput
Size = 20
Value = Null
end
item
Name = '@cywqx'
DataType = ftString
Direction = pdInputOutput
Size = 20
Value = Null
end
item
Name = '@ssds'
DataType = ftString
Direction = pdInputOutput
Size = 30
Value = Null
end
item
Name = '@iret'
DataType = ftSmallint
Direction = pdInputOutput
Precision = 5
Value = Null
end>
Prepared = True
Left = 72
Top = 58
end
object Qry_Bbml: TADOQuery
Connection = Conn_User
Parameters = <>
Left = 72
Top = 104
end
object Qry_Dsbb: TADOQuery
CacheSize = 10
Connection = Conn_User
Parameters = <>
Left = 72
Top = 152
end
object Qry_GS: TADOQuery
Connection = Conn_User
Parameters = <
item
Name = 'ds'
DataType = ftString
Size = -1
Value = Null
end
item
Name = 'bb'
DataType = ftString
Size = -1
Value = Null
end
item
Name = 'lx'
DataType = ftSmallint
Size = -1
Value = Null
end>
SQL.Strings = (
'select dsbh,bbbh,row,col,gs,gslx from cw_bbgs '
'where dsbh=:ds and bbbh=:bb and gslx=:lx')
Left = 18
Top = 149
end
object Conn_Gjj: TADOConnection
ConnectionString =
'Provider=MSDASQL.1;Password=adminconnect;Persist Security Info=T' +
'rue;User ID=jtpsoftadmin;Extended Properties="DSN=linux;SRVR=lin' +
'ux;DB=gjjmx7;UID=sa;PWD=jtpsoft"'
ConnectionTimeout = 60
LoginPrompt = False
Provider = 'MSDASQL.1'
Left = 160
Top = 10
end
object SP_ZcfzbGjj: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_ZCFZBGJJ_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 = '@GJJCKNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@GJJCKQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZZSYCKNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZZSYCKQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@YSLXNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@YSLXQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@QTYSKNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@QTYSKQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@WTDKNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@WTDKQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@YQDKNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@YQDKQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@GJZQNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@GJZQQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZFGJJNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZFGJJQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@YFLXNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@YFLXQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@QTYFKNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@QTYFKQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZXYFKNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZXYFKQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@DKFXZBNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@DKFXZBQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@LZZFNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@LZZFQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@DFPZZSYNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@DFPZZSYQMS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@GJFXZFZQ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@LTXZQ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZZLDGXZQ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@CJDJZQ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@CHGFDKBXZQ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@CCJTSRBLZQ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@QTZQ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@nret'
DataType = ftSmallint
Direction = pdInputOutput
Precision = 5
Value = Null
end>
Left = 224
Top = 8
end
object SP_ZzsybGjj: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_ZZSYBGJJ_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 = '@ZFGJJCKLXSR'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZFGJJCKLXLJ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZZSYCKLXSR'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZZSYCKLXSRLJ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@WTDKLXSR'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@WTDKLXSRLJ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@GZLXSR'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@GZLXSRLJ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@QTSR'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@QTSRLJ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZFGJJLXZC'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZFGJJLXZCLJ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZFGJJSXFZC'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@ZFGJJSXFZCLJ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@WTDKSXFZC'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@WTDKSXFZCLJ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@nret'
DataType = ftSmallint
Direction = pdInputOutput
Precision = 5
Value = Null
end>
Left = 296
Top = 8
end
object SP_ZzsyfpbGjj: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_ZZSYFPBGJJ_save'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@ND'
DataType = ftString
Size = 4
Value = Null
end
item
Name = '@ZZSY'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@NCWMBSS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@KGFPZZSY'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@TQDKFXZB'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@TQGLF'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@LZZFBCZJ'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@NMWMBSS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@nret'
DataType = ftSmallint
Direction = pdInputOutput
Precision = 5
Value = Null
end>
Left = 224
Top = 56
end
object SP_ZcfzbJf: TADOStoredProc
Connection = Conn_User
ProcedureName = 'p_ZCFZBJF_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 = '@XJNCS'
DataType = ftFloat
Size = 16
Value = Null
end
item
Name = '@XJQMS'
DataType = ftFloat
Size = 16
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -