📄 clienttest.~dfm
字号:
object aTestForm: TaTestForm
Left = 335
Top = 208
Width = 651
Height = 435
Caption = 'aTestForm'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object cbb1: TComboBox
Left = 0
Top = 8
Width = 553
Height = 21
ItemHeight = 13
TabOrder = 0
Text =
'http://localhost:8081/ProductService_WAD.PoductService_WAD/Soap/' +
'IProductService_WAD'
end
object btn2: TButton
Left = 571
Top = 5
Width = 54
Height = 25
Caption = #36830#25509
TabOrder = 1
OnClick = btn2Click
end
object pgc1: TPageControl
Left = 0
Top = 32
Width = 641
Height = 369
ActivePage = ts3
TabOrder = 2
object ts1: TTabSheet
Caption = #26597#35810#21830#21697
object mmo1: TMemo
Left = 0
Top = 0
Width = 641
Height = 201
Lines.Strings = (
'mmo1')
TabOrder = 0
end
object btn1: TButton
Left = 520
Top = 313
Width = 107
Height = 25
Caption = #33719#21462#21333#20010#21830#21697
TabOrder = 1
OnClick = btn1Click
end
object mmo6: TMemo
Left = 0
Top = 208
Width = 633
Height = 97
Lines.Strings = (
'<?xml version="1.0" encoding="GB2312"?><ProductGetRequest><Head>' +
'Msg0101</Head><ServiceID>6C4CFBAE-DB92-4160-'
'B40B-DA1301075F3B</ServiceID>'
'<Body><Pid>000001</Pid></Body></ProductGetRequest>')
TabOrder = 2
end
object btn14: TButton
Left = 8
Top = 312
Width = 75
Height = 25
Caption = #37197#32622
TabOrder = 3
OnClick = btn14Click
end
object btn15: TButton
Left = 104
Top = 312
Width = 75
Height = 25
Caption = #30331#38470
TabOrder = 4
end
end
object ts2: TTabSheet
Caption = #25552#20132#21830#21697
ImageIndex = 1
object mmo2: TMemo
Left = -8
Top = 0
Width = 641
Height = 201
Lines.Strings = (
'mmo1')
TabOrder = 0
end
object btn3: TButton
Left = 520
Top = 312
Width = 113
Height = 25
Caption = #25552#20132#21333#20010#21830#21697
TabOrder = 1
OnClick = btn3Click
end
object mmo3: TMemo
Left = 0
Top = 208
Width = 633
Height = 101
Lines.Strings = (
'<?xml version="1.0" encoding="GB2312"?>'#10'<ProductGetRequest>'#10' <H' +
'ead/><ServiceID>6C4CFBAE-DB92-4160-B40B-'
'DA1301075F3B'#10'</ServiceID> '
'<Body>'#10' <Row>'#10' <ID>28</ID>'#10' <PID>000015</PID>'#10' ' +
' '
'<NAME>hxg02</NAME>'#10' <MODEL>dd</MODEL>'#10' '
'<UNIT></UNIT>'#10' <THECURRENCY></THECURRENCY>'#10' <CATEGORY>' +
'02.'#30005#22120'</CATEGORY>'#10' '
'<PICTURES></PICTURES>'#10' <ONSALEDATE></ONSALEDATE>'#10' <WIT' +
'HDRAWDATE></WITHDRAWDATE>'#10' '
'<WEIGHT></WEIGHT>'#10' <ORIGINALCODE></ORIGINALCODE>'#10' <SUM' +
'MARY></SUMMARY>'#10' <LOCUS></LOCUS>'#10' '
'<PSIZE></PSIZE>'#10' <COLOR></COLOR>'#10' <GRADE></GRADE>'#10' ' +
'</Row>'#10' </Body>'#10'</ProductGetRequest>'#10)
TabOrder = 2
end
end
object ts3: TTabSheet
Caption = #36523#20221#39564#35777
ImageIndex = 2
object mmo4: TMemo
Left = 0
Top = 0
Width = 633
Height = 161
Lines.Strings = (
'mmo4')
TabOrder = 0
end
object mmo5: TMemo
Left = 0
Top = 168
Width = 633
Height = 137
Lines.Strings = (
'<?xml version="1.0"?>'#10'<LoginRequest>'#10'<Head/>'#10'<Body>'#10'<UserID>01</' +
'UserID><Password>01</Password></Body>'#10
'</LoginRequest>'#10)
TabOrder = 1
end
object btn4: TButton
Left = 552
Top = 312
Width = 75
Height = 25
Caption = #35748#35777
TabOrder = 2
OnClick = btn4Click
end
end
object ts4: TTabSheet
Caption = #25968#25454#36830#25509
ImageIndex = 3
object dbgrd1: TDBGrid
Left = 8
Top = 8
Width = 609
Height = 297
DataSource = ds1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object btn5: TButton
Left = 8
Top = 312
Width = 75
Height = 25
Caption = 'btn5'
TabOrder = 1
OnClick = btn5Click
end
end
object ts5: TTabSheet
Caption = #26681#25454#26085#26399#26597#35810#21830#21697
ImageIndex = 4
object Memo1: TMemo
Left = 0
Top = 208
Width = 633
Height = 101
Lines.Strings = (
'<?xml version="1.0" encoding="GB2312"?><GetProductByDateRequest>' +
'<Head>Request'#36890#29992#28040#24687#22836
'</Head><ServiceID>6C4CFBAE-DB92-4160-B40B-DA1301075F3B</ServiceI' +
'D>'
'<Body><DateType>OnSaleDate</DateType><Days>1</Days></Body></GetP' +
'roductByDateRequest>'
'')
TabOrder = 0
end
object Memo2: TMemo
Left = -8
Top = 0
Width = 641
Height = 201
Lines.Strings = (
'mmo1')
TabOrder = 1
end
object Button1: TButton
Left = 520
Top = 312
Width = 113
Height = 25
Caption = #25552#20132#22825#25968
TabOrder = 2
OnClick = Button1Click
end
object rb1: TRadioButton
Left = 0
Top = 320
Width = 97
Height = 17
Caption = #26368#36817#19978#26550#22825#25968
TabOrder = 3
end
object rb2: TRadioButton
Left = 96
Top = 319
Width = 97
Height = 17
Caption = #26368#36817#19979#26550#22825#25968
TabOrder = 4
end
object edt1: TEdit
Left = 190
Top = 316
Width = 59
Height = 21
TabOrder = 5
Text = '1'
end
end
object ts6: TTabSheet
Caption = #19978#20256#19968#20010#22270#29255
ImageIndex = 5
object mmo7: TMemo
Left = 256
Top = 0
Width = 377
Height = 145
Lines.Strings = (
'mmo7')
TabOrder = 0
end
object btn6: TButton
Left = 471
Top = 315
Width = 75
Height = 25
Caption = #29983#25104'xml'
TabOrder = 1
OnClick = btn6Click
end
object mmo8: TMemo
Left = 256
Top = 152
Width = 377
Height = 161
Lines.Strings = (
'mmo8')
TabOrder = 2
end
object btn7: TButton
Left = 552
Top = 315
Width = 75
Height = 25
Caption = #19978#20256
TabOrder = 3
OnClick = btn7Click
end
object btn8: TButton
Left = 85
Top = 315
Width = 75
Height = 25
Caption = #36873#25321#22270#29255
TabOrder = 4
OnClick = btn8Click
end
object btn9: TButton
Left = 2
Top = 315
Width = 75
Height = 25
Caption = #28165#38500
TabOrder = 5
OnClick = btn9Click
end
object btn10: TButton
Left = 387
Top = 315
Width = 75
Height = 25
Caption = #29983#25104#22270#29255
TabOrder = 6
OnClick = btn10Click
end
object grp1: TGroupBox
Left = 0
Top = 0
Width = 249
Height = 313
TabOrder = 7
object img1: TImage
Left = 2
Top = 15
Width = 245
Height = 296
Align = alClient
end
end
end
object ts7: TTabSheet
Caption = #19979#36733#19968#20010#22270#29255
ImageIndex = 6
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 249
Height = 313
TabOrder = 0
object Image1: TImage
Left = 2
Top = 15
Width = 245
Height = 296
Align = alClient
end
end
object Button2: TButton
Left = 2
Top = 315
Width = 75
Height = 25
Caption = #28165#38500
TabOrder = 1
OnClick = btn9Click
end
object Button3: TButton
Left = 85
Top = 315
Width = 75
Height = 25
Caption = #36873#25321#22270#29255
TabOrder = 2
OnClick = btn8Click
end
object Memo3: TMemo
Left = 256
Top = 0
Width = 377
Height = 145
Lines.Strings = (
'mmo7')
TabOrder = 3
end
object Memo4: TMemo
Left = 256
Top = 152
Width = 377
Height = 161
Lines.Strings = (
'mmo8')
TabOrder = 4
end
object btn11: TButton
Left = 472
Top = 315
Width = 75
Height = 25
Caption = #29983#25104'xml'
TabOrder = 5
OnClick = btn11Click
end
object btn12: TButton
Left = 551
Top = 314
Width = 75
Height = 25
Caption = #19979#36733
TabOrder = 6
OnClick = btn12Click
end
object btn13: TButton
Left = 388
Top = 315
Width = 75
Height = 25
Caption = #29983#25104#22270#29255
TabOrder = 7
OnClick = btn13Click
end
end
end
object htpr1: THTTPRIO
URL =
'http://localhost:8081/ProductService_WAD.PoductService_WAD/Soap/' +
'IProductService_WAD'
HTTPWebNode.Agent = 'Borland SOAP 1.2'
HTTPWebNode.UseUTF8InHeader = True
HTTPWebNode.InvokeOptions = [soIgnoreInvalidCerts, soAutoCheckAccessPointViaUDDI]
Converter.Options = [soSendMultiRefObj, soTryAllSchema, soRootRefNodesToBody, soUTF8InHeader, soCacheMimeResponse, soUTF8EncodeXML]
Converter.Encoding = 'utf-8'
Left = 16
Top = 328
end
object XMLDocument1: TXMLDocument
Left = 52
Top = 328
DOMVendorDesc = 'MSXML'
end
object SysSQLConnection: TCRSQLConnection
ConnectionName = 'OracleConnection'
DriverName = 'Oracle'
GetDriverFunc = 'getSQLDriverORACLE'
LibraryName = 'dbexpora.dll'
LoginPrompt = False
Params.Strings = (
'DriverName=Oracle'
'DataBase=mart'
'User_Name=mart'
'Password=979979'
'RowsetSize=20'
'BlobSize=-1'
'ErrorResourceFile='
'LocaleCode=0000'
'Oracle TransIsolation=ReadCommited'
'OS Authentication=False'
'Multiple Transaction=False'
'Trim Char=False')
VendorLib = 'oci.dll'
Left = 576
Top = 96
end
object SDS_User: TSimpleDataSet
Aggregates = <>
Connection = SysSQLConnection
DataSet.CommandText = 'Select * from usertest_hxg '
DataSet.MaxBlobSize = -1
DataSet.Params = <>
Params = <>
Left = 576
Top = 128
end
object ds1: TDataSource
DataSet = SDS_User
Left = 580
Top = 160
end
object sds_product: TSimpleDataSet
Aggregates = <>
Connection = SysSQLConnection
DataSet.MaxBlobSize = -1
DataSet.Params = <>
Params = <>
Left = 572
Top = 216
end
object Q_Product: TSQLQuery
MaxBlobSize = -1
Params = <>
SQLConnection = SysSQLConnection
Left = 572
Top = 256
end
object dlgOpen1: TOpenDialog
Left = 12
Top = 296
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -