📄 unit1.dfm
字号:
object WebModule1: TWebModule1
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'WebActionItemRoot'
PathInfo = '/Root'
Producer = MidasPageProducerRoot
end
item
Name = 'WebActionItemOrders'
PathInfo = '/OrdersInfo'
OnAction = WebModule1WebActionItemOrdersAction
end>
Left = 225
Top = 146
Height = 341
Width = 482
object DCOMConnection1: TDCOMConnection
ServerGUID = '{AD914B0C-D8A1-4451-BB43-17A034ED78E6}'
ServerName = 'ExpressSrv3.DemoServer3'
Left = 96
Top = 16
end
object XMLBrokerCustomer: TXMLBroker
Params = <>
ProviderName = 'DataSetProviderCustomer'
RemoteServer = DCOMConnection1
WebDispatch.PathInfo = 'XMLBrokerCustomer'
Left = 200
Top = 16
end
object MidasPageProducerOrders: TMidasPageProducer
HTMLDoc.Strings = (
'<html>'
'<head>'
'<title>Untitled Document</title>'
'<meta http-equiv="Content-Type" content="text/html; charset=gb23' +
'12">'
'</head>'
''
'<body bgcolor="#FFFFFF" text="#000000">'
'<blockquote>'
' <div align="center"><font size="6"><b> 客户订货信息</b></font>' +
'</div>'
'</blockquote>'
'<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
'</body>'
'</html>')
Left = 105
Top = 192
object DataForm1: TDataForm
object DataGrid1: TDataGrid
XMLBroker = XMLBrokerOrders
object OrderNo: TTextColumn
DisplayWidth = 10
Caption = '订货编号'
FieldName = 'OrderNo'
end
object CustNo: TTextColumn
DisplayWidth = 10
Caption = '客户编号'
FieldName = 'CustNo'
end
object SaleDate: TTextColumn
DisplayWidth = 18
Caption = '订货日期'
FieldName = 'SaleDate'
end
object AmountPaid: TTextColumn
DisplayWidth = 10
Caption = '金额'
FieldName = 'AmountPaid'
end
object StatusColumn: TStatusColumn
Caption = '状态'
end
end
object DataNavigator1: TDataNavigator
XMLComponent = DataGrid1
object FirstButton1: TFirstButton
XMLComponent = DataGrid1
Caption = '|<'
end
object PriorPageButton1: TPriorPageButton
XMLComponent = DataGrid1
Caption = '<<'
end
object PriorButton1: TPriorButton
XMLComponent = DataGrid1
Caption = '<'
end
object NextButton1: TNextButton
XMLComponent = DataGrid1
Caption = '>'
end
object NextPageButton1: TNextPageButton
XMLComponent = DataGrid1
Caption = '>>'
end
object LastButton1: TLastButton
XMLComponent = DataGrid1
Caption = '>|'
end
object InsertButton1: TInsertButton
XMLComponent = DataGrid1
Caption = ' + '
end
object DeleteButton1: TDeleteButton
XMLComponent = DataGrid1
Caption = ' - '
end
object UndoButton1: TUndoButton
XMLComponent = DataGrid1
Caption = '撤销'
end
object PostButton1: TPostButton
XMLComponent = DataGrid1
Caption = '提交'
end
object ApplyUpdatesButton1: TApplyUpdatesButton
Caption = '确认修改'
XMLBroker = XMLBrokerOrders
XMLUseParent = True
end
object LayoutGroup1: TLayoutGroup
DisplayColumns = -1
end
end
end
end
object MidasPageProducerRoot: TMidasPageProducer
HTMLDoc.Strings = (
'<HTML>'
'<HEAD>'
'</HEAD>'
'<BODY>'
'<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
'</BODY>'
'</HTML>')
OnBeforeGetContent = MidasPageProducerRootBeforeGetContent
Left = 104
Top = 128
object QueryForm1: TQueryForm
Action = '/scripts/Express3.dll/OrdersInfo'
Method = fmPost
object QueryFieldGroup1: TQueryFieldGroup
XMLBroker = XMLBrokerCustomer
object QuerySelectOptions1: TQuerySelectOptions
ParamName = 'CustNo'
DisplayRows = -1
Caption = '请选择要查询的客户'
DataSet = ClientDataSetCustomer
ValuesField = 'CustNo'
end
end
object QueryButtons1: TQueryButtons
object SubmitQueryButton1: TSubmitQueryButton
Caption = '确定'
XMLComponent = QueryForm1
end
end
end
end
object XMLBrokerOrders: TXMLBroker
Params = <>
ProviderName = 'DataSetProviderOrders'
RemoteServer = DCOMConnection1
WebDispatch.PathInfo = 'XMLBrokerOrders'
Left = 40
Top = 72
end
object ClientDataSetCustomer: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProviderCustomer'
RemoteServer = DCOMConnection1
Left = 168
Top = 72
end
object Session1: TSession
Active = True
AutoSessionName = True
Left = 16
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -