unit2.dfm

来自「ToolBar工具栏控件的使用,动态建立主菜单选项,窗口界面的动态分隔条」· DFM 代码 · 共 96 行

DFM
96 行
字号 
object WebModule2: TWebModule2
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      PathInfo = '/root'
      Producer = PageProducer1
    end
    item
      Name = 'WebActionItem2'
      PathInfo = '/query'
      Producer = DataSetTableProducer1
      OnAction = WebModule2WebActionItem2Action
    end>
  Left = 302
  Top = 191
  Height = 189
  Width = 319
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\JasonCenter\Delp' +
      'hi 6 '#25968#25454#24211#24212#29992#31243#24207'100'#20363'\3'#32508#21512#19982#36828#31243#25216#26415'\ID.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 88
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'code'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from id where '
      'code=:code')
    Left = 128
    Top = 88
  end
  object PageProducer1: TPageProducer
    HTMLDoc.Strings = (
      '<html>'
      ''
      '<head>'
      '<meta http-equiv="Content-Language" content="zh-cn">'
      '<meta name="GENERATOR" content="Microsoft FrontPage 5.0">'
      '<meta name="ProgId" content="FrontPage.Editor.Document">'
      
        '<meta http-equiv="Content-Type" content="text/html; charset=gb23' +
        '12">'
      '<title>WEB Server Application</title>'
      '</head>'
      ''
      '<body>'
      ''
      
        '<p align="center"><font color="#FF0000" size="7" face="Verdana">' +
        'DELPHI6</font></p>'
      
        '<p align="center"><b><font face="Courier New" color="#0000FF" si' +
        'ze="6">WEB '
      'Server Application</font></b></p>'
      
        '<p align="center"><b><font face="Courier New" color="#0000FF" si' +
        'ze="6">Sample '
      'Page</font></b></p>'
      
        '<p align="center"><span style="font-size: 10.5pt"><a href="http:' +
        '//localhost:1024/Project1.MyFirstWebServerApp/showdata">'#26174#31034#25968#25454'</a>' +
        '</span></p>'
      
        '<p align="center"><span style="font-size: 10.5pt"><a href="http:' +
        '//localhost:1024/Project1.MyFirstWebServerApp/query?code=320201"' +
        '>320201</a></span></p>'
      '</body>'
      ''
      '</html>')
    Left = 224
    Top = 32
  end
  object DataSetTableProducer1: TDataSetTableProducer
    DataSet = ADOQuery1
    Left = 224
    Top = 88
  end
end

unit2.dfm - 源码说明

本页面展示了「ToolBar工具栏控件的使用,动态建立主菜单选项,窗口界面的动态分隔条」中的 unit2.dfm 源码文件，采用 DFM 编程语言编写，共 96 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ToolBar相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?