📄 unit1.dfm
字号:
object WebModule1: TWebModule1
OldCreateOrder = False
Actions = <
item
Default = True
Enabled = False
Name = 'acRoot'
PathInfo = '/root'
OnAction = WebModule1acRootAction
end
item
Name = 'acDSPage'
PathInfo = '/DSPage'
OnAction = WebModule1acDSPageAction
end
item
Name = 'acDSTable'
PathInfo = '/DSTable'
OnAction = WebModule1acDSTableAction
end
item
Name = 'acQueryTable'
PathInfo = '/QueryTable'
OnAction = WebModule1acQueryTableAction
end
item
Name = 'acGetImage'
PathInfo = '/GetImage'
OnAction = WebModule1acGetImageAction
end>
Left = 252
Top = 157
Height = 425
Width = 638
object PageRoot: TPageProducer
HTMLDoc.Strings = (
'<html>'
'<head>'
'<title>演示程序</title>'
'<meta http-equiv="Content-Type" content="text/html; charset=gb23' +
'12">'
'</head>'
''
'<body bgcolor="#FFFFFF" text="#000000">'
'<p align="center"><font size="5"><b>本程序演示了基于数据库的Web' +
'服务器应用程序</b></font></p>'
'<hr>'
'<p><b><font size="4">TDataSetPageProducer</font></b></p>'
'<p>这个例子演示了TDataSetPageProducer组件的使用，请点击<a href="' +
'/scripts/Mypage3.dll/DSPage">这里</a>。</p>'
'<p><b><font size="4">TDataSetTableProducer</font></b></p>'
'<p>这个例子演示了TDataSetTablePageProducer组件的使用，请点击<a h' +
'ref="/scripts/Mypage3.dll/DSTable">这里</a>。</p>'
'<p><b><font size="4">TQueryTableProducer</font></b></p>'
'<p>这个例子演示了TQueryTableProducer组件的使用，请点击<a href="/' +
'scripts/Mypage3.dll/QueryTable?Salary=25050">这里</a>。</p>'
'</body>'
'</html>')
Left = 40
Top = 24
end
object QueryTableEmployee: TQueryTableProducer
Columns = <
item
FieldName = 'LastName'
end
item
FieldName = 'FirstName'
end
item
FieldName = 'HireDate'
end
item
FieldName = 'PhoneExt'
end
item
FieldName = 'Salary'
end>
Query = QueryEmployee
TableAttributes.Border = 1
Left = 40
Top = 80
end
object DSTableEmployee: TDataSetTableProducer
Columns = <
item
FieldName = 'LastName'
end
item
FieldName = 'FirstName'
end
item
FieldName = 'HireDate'
end
item
FieldName = 'PhoneExt'
end
item
FieldName = 'Salary'
end>
DataSet = TableEmployee
TableAttributes.BgColor = 'White'
TableAttributes.Border = 1
Left = 40
Top = 144
end
object DSPageBioLife: TDataSetPageProducer
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">'
'<h6 align="center"><font size="4"><b>生物信息库</b></font></h6>'
'<hr>'
'<form name="form1" method="post" action="/scripts/MyPage3.dll/DS' +
'Page">'
' <p> '
' <input type="submit" name="Submit" value="第一项">'
' <input type="submit" name="Submit" value="上一项">'
' <input type="submit" name="Submit" value="下一项">'
' <input type="submit" name="Submit" value="最后一项">'
' <#Index></p>'
' <div align="left"></div>'
' <table width="97%" border="1" align="left" height="135">'
' <tr> '
' <td width="10%"> '
' <div align="center">类别</div>'
' </td>'
' <td width="90%"><#Category></td>'
' </tr>'
' <tr> '
' <td width="10%"> '
' <div align="center">通称</div>'
' </td>'
' <td width="90%"><#Common_Name></td>'
' </tr>'
' <tr> '
' <td width="10%"> '
' <div align="center">学名</div>'
' </td>'
' <td width="90%"><#Species Name></td>'
' </tr>'
' <tr> '
' <td width="10%"> '
' <div align="center">长度</div>'
' </td>'
' <td width="90%"><#Length(cm)></td>'
' </tr>'
' <tr>'
' <td width="10%"> '
' <div align="center">说明</div>'
' </td>'
' <td width="90%"><#Notes></td>'
' </tr>'
' <tr>'
' <td width="10%" height="18"> '
' <div align="center">图象</div>'
' </td>'
' <td width="90%" height="18"><#Graphic></td>'
' </tr>'
' </table>'
' <p> </p>'
' <p> </p>'
' <p> </p>'
' <TD> </TD>'
' <p> </p>'
' <p> </p>'
' <p> </p>'
'</form>'
'<p> </p>'
'<p> </p>'
'</body>'
'</html>')
OnHTMLTag = DSPageBioLifeHTMLTag
DataSet = TableBioLife
Left = 40
Top = 200
end
object TableBioLife: TTable
DatabaseName = 'BCDEMOS'
SessionName = 'Session1_1'
StoreDefs = True
TableName = 'biolife.db'
Left = 136
Top = 200
object BioLifeSpeciesNo: TFloatField
FieldName = 'Species No'
end
object BioLifeCategory: TStringField
FieldName = 'Category'
Size = 15
end
object BioLifeCommon_Name: TStringField
FieldName = 'Common_Name'
Size = 30
end
object BioLifeSpeciesName: TStringField
FieldName = 'Species Name'
Size = 40
end
object BioLifeLengthcm: TFloatField
FieldName = 'Length (cm)'
end
object BioLifeNotes: TMemoField
FieldName = 'Notes'
BlobType = ftMemo
Size = 50
end
object BioLifeGraphic: TGraphicField
FieldName = 'Graphic'
BlobType = ftGraphic
end
end
object QueryEmployee: TQuery
DatabaseName = 'BCDEMOS'
SessionName = 'Session1_1'
SQL.Strings = (
'select * from employee.db as e'
'where (e.Salary=:Salary)')
Left = 136
Top = 80
ParamData = <
item
DataType = ftInteger
Name = 'Salary'
ParamType = ptInput
end>
end
object Session1: TSession
AutoSessionName = True
Left = 136
Top = 24
end
object TableEmployee: TTable
DatabaseName = 'BCDEMOS'
SessionName = 'Session1_1'
TableName = 'employee.db'
Left = 136
Top = 136
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -