📄 p_dm.dfm
字号:
object dm: Tdm
OldCreateOrder = False
Left = 147
Top = 111
Height = 431
Width = 543
object DS_USER: TDataSource
DataSet = T_USER
Left = 96
Top = 56
end
object ADO: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Password=SQL;Persist Security Info=True;User' +
' ID=sa;Initial Catalog=jxcgl;Data Source=ZTKJ'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 24
Top = 8
end
object T_USER: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from USER_INFO'
Parameters = <>
Left = 24
Top = 58
end
object DS_MENU: TDataSource
DataSet = T_MENU
Left = 94
Top = 106
end
object DS_QX: TDataSource
DataSet = T_QX
Left = 94
Top = 158
end
object T_MENU: TADODataSet
Connection = ADO
CommandText = 'select * from MENU_INFO'
Parameters = <>
Left = 26
Top = 112
end
object T_QX: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from QX_INFO'
Parameters = <>
Left = 20
Top = 168
end
object T_DL: TADODataSet
Connection = ADO
CommandText = 'select * from DL_INFO'
Parameters = <>
Left = 104
Top = 272
end
object T_JRRZ: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from JRRZ_INFO'
Parameters = <>
Left = 14
Top = 216
end
object DS_JRRZ: TDataSource
Left = 102
Top = 214
end
object Query: TADOQuery
Active = True
Connection = ADO
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from KC_INFO'
'')
Left = 290
Top = 18
end
object CCJRRZ: TADOStoredProc
Connection = ADO
ProcedureName = 'CCJRRZ;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@ID'
Attributes = [paNullable]
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@NAME'
Attributes = [paNullable]
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@CAPTION'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = Null
end>
Left = 12
Top = 268
end
object CCTCRZ: TADOStoredProc
Connection = ADO
ProcedureName = 'CCTCRZ;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@ID'
Attributes = [paNullable]
DataType = ftString
Size = 10
Value = Null
end>
Left = 66
Top = 272
end
object T_ffry: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from ffry_info'#13#10#13#10
EnableBCD = False
Parameters = <>
Left = 182
Top = 10
end
object DS_FFRY: TDataSource
DataSet = T_ffry
Left = 230
Top = 16
end
object DS_BM: TDataSource
DataSet = T_BM
Left = 232
Top = 86
end
object T_BM: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from BM_info'
Parameters = <>
Left = 178
Top = 80
end
object DS_zw: TDataSource
DataSet = t_zw
Left = 232
Top = 142
end
object t_zw: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from zw_info'
Parameters = <>
Left = 182
Top = 146
end
object DS_QUERY: TDataSource
DataSet = Query
Left = 336
Top = 18
end
object DS_SP: TDataSource
DataSet = t_sp
Left = 350
Top = 72
end
object t_sp: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from sp_info'
Parameters = <>
Left = 294
Top = 78
end
object DS_SPFL: TDataSource
DataSet = T_SPFL
Left = 234
Top = 198
end
object T_SPFL: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from spfl_info'
Parameters = <>
Left = 182
Top = 202
end
object DS_SPXH: TDataSource
DataSet = T_SPXH
Left = 238
Top = 258
end
object T_SPXH: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from spxh_info'
Parameters = <>
Left = 182
Top = 258
end
object DS_RK: TDataSource
DataSet = T_RK
Left = 356
Top = 142
end
object T_RK: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from rk_info'
Parameters = <>
Left = 296
Top = 150
end
object DS_KC: TDataSource
DataSet = T_KC
Left = 350
Top = 208
end
object T_KC: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from kc_info'
Parameters = <>
Left = 296
Top = 206
end
object DS_YH: TDataSource
DataSet = T_YH
Left = 352
Top = 270
end
object T_YH: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from YH_INFO'
Parameters = <>
Left = 298
Top = 268
end
object DS_KH: TDataSource
DataSet = T_KH
Left = 354
Top = 326
end
object T_KH: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from kh_info'
Parameters = <>
Left = 300
Top = 324
end
object DS_TEMPRK: TDataSource
DataSet = T_TEMPRK
Left = 456
Top = 20
end
object T_TEMPRK: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from temprk_info'
Parameters = <>
Left = 396
Top = 24
end
object DS_CRKD: TDataSource
DataSet = T_CRKD
Left = 458
Top = 74
end
object T_CRKD: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from CRKD_info'
Parameters = <>
Left = 398
Top = 76
end
object T_TEMPCK: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from TEMPck_info'
Parameters = <>
Left = 406
Top = 142
end
object DS_TEMPCK: TDataSource
DataSet = T_TEMPCK
Left = 468
Top = 138
end
object T_CK: TADODataSet
Active = True
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from ck_info'
Parameters = <>
Left = 408
Top = 214
end
object DS_CK: TDataSource
DataSet = T_CK
Left = 470
Top = 210
end
object QUERY1: TADOQuery
Connection = ADO
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from rk_info,sp_info,spxh_info where'
'rk_info.sph=sp_info.sph and sp_info.xhh=spxh_info.xhh'
'')
Left = 414
Top = 270
end
object DS_QUERY1: TDataSource
DataSet = QUERY1
Left = 480
Top = 272
end
object Query2: TADOQuery
Connection = ADO
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from rk_info,sp_info,spxh_info where'
'rk_info.sph=sp_info.sph and sp_info.xhh=spxh_info.xhh'
'')
Left = 414
Top = 320
end
object DS_QUERY2: TDataSource
DataSet = Query2
Left = 480
Top = 322
end
object t_reg: TADODataSet
Connection = ADO
CursorType = ctStatic
CommandText = 'select * from reguser'
Parameters = <>
Left = 184
Top = 324
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -