movieweb1.dfm
来自「Delphi XML & XPATH源代码」· DFM 代码 · 共 276 行
DFM
276 行
object wmdMovies: TwmdMovies
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'wacEdit'
PathInfo = '/Edit'
Producer = pgpMovies
end>
Left = 224
Top = 77
Height = 288
Width = 153
object conMovies: TDCOMConnection
Connected = True
ServerGUID = '{59DEB652-6013-11D4-9ABD-D6558EA07BB3}'
ServerName = 'MovieServer.MovieData'
Left = 56
Top = 24
end
object xbrMovies: TXMLBroker
Params = <>
ProviderName = 'dspMovies'
RemoteServer = conMovies
WebDispatch.PathInfo = 'xbrMovies'
ReconcileProducer = rppMovies
Left = 56
Top = 76
end
object pgpMovies: TMidasPageProducer
IncludePathURL = '/webmidas/'
HTMLDoc.Strings = (
'<HTML>'
'<HEAD>'
'<TITLE>Movies Database</TITLE>'
'</HEAD>'
'<BODY>'
'<H1>Movies Database</H1>'
'<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
'<HR>'
'<ADDRESS>Written by <A HREF="mailto:kbwood@iprimus.com.au">Keith' +
' Wood</A></ADDRESS>'
'</BODY>'
'</HTML>')
Left = 56
Top = 128
object DataForm1: TDataForm
object FieldGroup1: TFieldGroup
XMLBroker = xbrMovies
object Movie_id: TFieldText
DisplayWidth = 10
Caption = 'ID'
FieldName = 'Movie_id'
end
object Name: TFieldText
DisplayWidth = 30
FieldName = 'Name'
end
object Rating: TFieldSelectOptions
DisplayRows = -1
FieldName = 'Rating'
Items.Strings = (
'NR'
'G'
'PG'
'PG-13'
'R')
end
object Length: TFieldText
DisplayWidth = 10
Caption = 'Length'
FieldName = 'Length_Mins'
end
object Director: TFieldText
DisplayWidth = 30
FieldName = 'Director'
end
object Synopsis: TFieldTextArea
CaptionAttributes.Custom = 'valign="top"'
FieldName = 'Synopsis'
Wrap = wrVirtual
DisplayWidth = 60
DisplayRows = 6
end
object URL: TFieldText
DisplayWidth = 70
FieldName = 'URL'
end
object Logo_URL: TFieldText
DisplayWidth = 70
Caption = 'Logo URL'
FieldName = 'Logo_URL'
end
object FieldStatus1: TFieldStatus
Caption = 'Status'
end
end
object DataNavigator1: TDataNavigator
XMLComponent = FieldGroup1
object FirstButton1: TFirstButton
XMLComponent = FieldGroup1
Caption = '|<'
end
object PriorButton1: TPriorButton
XMLComponent = FieldGroup1
Caption = '<'
end
object NextButton1: TNextButton
XMLComponent = FieldGroup1
Caption = '>'
end
object LastButton1: TLastButton
XMLComponent = FieldGroup1
Caption = '>|'
end
object InsertButton1: TInsertButton
XMLComponent = FieldGroup1
Caption = ' + '
end
object DeleteButton1: TDeleteButton
XMLComponent = FieldGroup1
Caption = ' - '
end
object UndoButton1: TUndoButton
XMLComponent = FieldGroup1
Caption = 'Undo'
end
object PostButton1: TPostButton
XMLComponent = FieldGroup1
Caption = 'Post'
end
object ApplyUpdatesButton1: TApplyUpdatesButton
Caption = 'Apply Updates'
XMLBroker = xbrMovies
XMLUseParent = True
end
object ShowXMLButton1: TShowXMLButton
Caption = 'Show XML'
XMLBroker = xbrMovies
XMLUseParent = True
end
object ShowDeltaButton1: TShowDeltaButton
Caption = 'Show Delta'
XMLBroker = xbrMovies
XMLUseParent = True
end
end
object DataGrid1: TDataGrid
XMLBroker = xbrMovies
XMLDataSetField = 'qryStars'
object Star_id: TTextColumn
DisplayWidth = 10
Caption = 'Star ID'
FieldName = 'Star_id'
end
object Movie_id2: TTextColumn
DisplayWidth = 10
Caption = 'Movie ID'
FieldName = 'Movie_id'
end
object Star: TTextColumn
DisplayWidth = 30
FieldName = 'Star'
end
object StatusColumn1: TStatusColumn
Caption = 'Status'
end
end
object DataNavigator2: TDataNavigator
XMLComponent = DataGrid1
object FirstButton2: TFirstButton
XMLComponent = DataGrid1
Caption = '|<'
end
object PriorButton2: TPriorButton
XMLComponent = DataGrid1
Caption = '<'
end
object NextButton2: TNextButton
XMLComponent = DataGrid1
Caption = '>'
end
object LastButton2: TLastButton
XMLComponent = DataGrid1
Caption = '>|'
end
object InsertButton2: TInsertButton
XMLComponent = DataGrid1
Caption = ' + '
end
object DeleteButton2: TDeleteButton
XMLComponent = DataGrid1
Caption = ' - '
end
object UndoButton2: TUndoButton
XMLComponent = DataGrid1
Caption = 'Undo'
end
object PostButton2: TPostButton
XMLComponent = DataGrid1
Caption = 'Post'
end
end
end
end
object rppMovies: TReconcilePageProducer
HTMLDoc.Strings = (
'<HTML>'
'<HEAD>'
'<TITLE>Movies Database Errors</TITLE>'
'</HEAD>'
'<BODY>'
'<H1>Movies Database Errors</H1>'
'<#INCLUDES><#STYLES><#WARNINGS>'
'<P>'
'<FORM name="FORM1">'
'<TABLE>'
'<TR>'
'<TD valign=top><H3>Error message:</H3></TD>'
'<TD valign=top><textarea name="ErrMessage" rows=2 cols=58 readon' +
'ly onfocus='#39'blur();'#39'></textarea></TD>'
'<TD valign=top><H3>on</H3></TD>'
'<TD valign=top><input type=text name="ErrAction" size=12 readonl' +
'y onfocus='#39'blur();'#39'/></TD>'
'</TR>'
'</TABLE>'
'<P>'
'<#RECONCILEGRID>'
'</FORM>'
'<P>'
'<FORM>'
'<H3> Reconcile Action </H3>'
'<input type=radio name="action" value="Cancel" onclick='#39'if(self.' +
'grid1!=null)grid1.cancel();'#39'/> Cancel'
'<input type=radio name="action" value="Correct" onclick='#39'if(self' +
'.grid1!=null)grid1.correct();'#39'/> Correct'
'<input type=radio name="action" value="Merge" onclick='#39'if(self.g' +
'rid1!=null)grid1.merge();'#39'/> Merge'
'<P>'
'<input type=button value="<" onclick='#39'if(self.grid1!=null)grid1.' +
'up();'#39' />'
'<input type=button value=">" onclick='#39'if(self.grid1!=null)grid1.' +
'down();'#39' />'
'<input type=button value="Post/Next" onclick='#39'if(self.grid1!=nul' +
'l)grid1.post();'#39'/>'
'<P>'
'<input type=button value="Reapply Updates" onclick='#39'if(self.grid' +
'1!=null)grid1.Reapply(Submitfrm1, Submitfrm1.postdelta);'#39'/>'
'</FORM>'
'<#FORMS><#SCRIPT>'
'</BODY>'
'</HTML>')
IncludePathURL = '/webmidas/'
ReconcileGrid.ConflictingColumn.Caption = 'Conflicting Value'
ReconcileGrid.ConflictingColumn.DisplayWidth = 24
ReconcileGrid.FieldNameColumn.Caption = 'Field Name'
ReconcileGrid.FieldNameColumn.DisplayWidth = 18
ReconcileGrid.ModifiedColumn.Caption = 'Submitted Value'
ReconcileGrid.ModifiedColumn.DisplayWidth = 24
ReconcileGrid.OriginalColumn.Caption = 'Original Value'
ReconcileGrid.OriginalColumn.DisplayWidth = 24
Left = 56
Top = 184
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?