📄 unit2.dfm

📁 DELPHI7编程百例 DELPHI7编程百例 DELPHI7编程百例

💻 DFM

字号:

object WebModule2: TWebModule2
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      PathInfo = '/root'
      Producer = PageProducer1
    end
    item
      Name = 'WebActionItem2'
      PathInfo = '/showdata'
      Producer = DataSetTableProducer1
    end>
  Left = 398
  Top = 180
  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 = <>
    SQL.Strings = (
      'select top 50 * from id')
    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="Proje' +
        'ct1.MyFirstWebServerApp/showdata">'#26174#31034#25968#25454'</a></span></p>'
      ''
      '</body>'
      ''
      '</html>')
    Left = 224
    Top = 32
  end
  object DataSetTableProducer1: TDataSetTableProducer
    DataSet = ADOQuery1
    Left = 224
    Top = 88
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -