📄 webmain.dfm
字号:
object WebModule1: TWebModule1
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'waList'
PathInfo = '/dstpJoin'
OnAction = WebModule1waListAction
end
item
Name = 'waEdit'
PathInfo = '/getrecord'
OnAction = WebModule1waEditAction
end
item
Name = 'waUpdate'
PathInfo = '/updaterecord'
OnAction = WebModule1waUpdateAction
end>
BeforeDispatch = WebModuleBeforeDispatch
Left = 192
Top = 107
Height = 480
Width = 696
object dcJoin: TDCOMConnection
ServerGUID = '{AF7B978A-5663-11D3-8DD2-006097319291}'
ServerName = 'Join2Serv.Join2Server'
Left = 36
Top = 20
end
object cdsJoin: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'JoinProvider'
RemoteServer = dcJoin
Left = 116
Top = 20
end
object dstpJoin: TDataSetTableProducer
Columns = <
item
FieldName = 'EMPNO'
Title.BgColor = 'Silver'
end
item
FieldName = 'LASTNAME'
Title.BgColor = 'Silver'
end
item
FieldName = 'FIRSTNAME'
Title.BgColor = 'Silver'
end
item
FieldName = 'HIREDATE'
Title.BgColor = 'Silver'
end
item
FieldName = 'SALARY'
Title.BgColor = 'Silver'
end
item
FieldName = 'VACATION'
Title.BgColor = 'Silver'
end>
DataSet = cdsJoin
TableAttributes.Border = 1
OnFormatCell = dstpJoinFormatCell
Left = 192
Top = 20
end
object dsppJoin: TDataSetPageProducer
OnHTMLTag = dsppJoinHTMLTag
DataSet = cdsJoin
Left = 188
Top = 76
end
object ppSuccess: TPageProducer
HTMLDoc.Strings = (
'<html>'
'<body>'
'Apply Updates successful'
'</body>'
'</html>')
Left = 100
Top = 156
end
object ppError: TPageProducer
HTMLDoc.Strings = (
'<html>'
'<body>'
'<b>Error encountered during ApplyUpdates!</b>'
'</body>'
'</html>')
Left = 92
Top = 204
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -