mainp.dfm

《delphi 7 web 开发及与应用》源码

object wm: Twm
  OldCreateOrder = False
  OnCreate = WebModuleCreate
  Actions = <
    item
      Default = True
      Name = 'index'
      PathInfo = '/index'
      OnAction = WebModule1WebActionItem1Action
    end
    item
      Name = 'jy'
      PathInfo = '/jy'
      OnAction = wmshownewsAction
    end
    item
      Name = 'show'
      PathInfo = '/show'
      OnAction = wmshowAction
    end
    item
      Name = 'showmsg'
      PathInfo = '/showmsg'
      OnAction = wmshowmsgAction
    end
    item
      Name = 'soft'
      PathInfo = '/soft'
      OnAction = wmsoftAction
    end
    item
      Name = 'book'
      PathInfo = '/book'
      OnAction = wmbookAction
    end
    item
      Name = 'jswz'
      PathInfo = '/jswz'
      OnAction = wmjswzAction
    end
    item
      Name = 'link'
      PathInfo = '/link'
      OnAction = wmlinkAction
    end
    item
      Name = 'showwz'
      PathInfo = '/showwz'
      OnAction = wmshowwzAction
    end
    item
      Name = 'login'
      PathInfo = '/login'
      OnAction = wmloginAction
    end
    item
      Name = 'jstl'
      PathInfo = '/jstl'
      OnAction = wmjstlAction
    end
    item
      Name = 'fwtj'
      PathInfo = '/fwtj'
      OnAction = wmfwtjAction
    end
    item
      Name = 'showjstl'
      PathInfo = '/showtl'
      OnAction = wmshowjstlAction
    end
    item
      Name = 'tlpost'
      PathInfo = '/tlpost'
      OnAction = wmtlpostAction
    end
    item
      Name = 'newtl'
      PathInfo = '/newtl'
      OnAction = wmnewtlAction
    end
    item
      Name = 'userreg'
      PathInfo = '/userreg'
      OnAction = wmuserregAction
    end
    item
      Name = 'newuser'
      PathInfo = '/newuser'
      OnAction = wmnewuserAction
    end
    item
      Name = 'download'
      PathInfo = '/download'
      OnAction = wmdownloadAction
    end
    item
      Name = 'downbook'
      PathInfo = '/downbook'
      OnAction = wmdownloadbookAction
    end
    item
      Name = 'showsoftpl'
      PathInfo = '/showsoftpl'
      OnAction = wmsoftplAction
    end
    item
      Name = 'softplpost'
      PathInfo = '/softplpost'
      OnAction = wmsoftplpostAction
    end
    item
      Name = 'showuser'
      PathInfo = '/showuser'
      OnAction = wmshowuserAction
    end
    item
      Name = 'tlsearch'
      PathInfo = '/tlsearch'
      OnAction = wmtlsearchAction
    end
    item
      Name = 'about'
      PathInfo = '/about'
      OnAction = wmaboutAction
    end
    item
      Name = 'getimg'
      PathInfo = '/getimg'
      OnAction = wmgetimgAction
    end
    item
      Name = 'drawchart'
      PathInfo = '/drawchart'
      OnAction = wmdrawchartAction
    end
    item
      Name = 'useredit'
      PathInfo = '/useredit'
      OnAction = wmusereditAction
    end
    item
      Name = 'usereditok'
      PathInfo = '/usereditok'
      OnAction = wmusereditokAction
    end
    item
      Name = 'deljstl'
      PathInfo = '/deljstl'
      OnAction = wmdeljstlAction
    end
    item
      Name = 'gototl'
      PathInfo = '/gototl'
      OnAction = wmgototlAction
    end
    item
      Name = 'delmytj'
      PathInfo = '/delmytj'
      OnAction = wmdelmytjAction
    end
    item
      Name = 'logout'
      PathInfo = '/logout'
      OnAction = wmlogoutAction
    end>
  BeforeDispatch = WebModuleBeforeDispatch
  Left = 274
  Top = 170
  Height = 552
  Width = 566
  object title: TPageProducer
    OnHTMLTag = titleHTMLTag
    Left = 32
    Top = 16
  end
  object foot: TPageProducer
    Left = 152
    Top = 16
  end
  object newsfont: TPageProducer
    OnHTMLTag = newsfontHTMLTag
    Left = 40
    Top = 128
  end
  object center: TPageProducer
    OnHTMLTag = centerHTMLTag
    Left = 96
    Top = 16
  end
  object jthtml: TPageProducer
    Left = 232
    Top = 224
  end
  object datahtml: TPageProducer
    OnHTMLTag = datahtmlHTMLTag
    Left = 120
    Top = 136
  end
  object sqlc: TOraQuery
    Left = 304
    Top = 360
  end
  object softpage: TPageProducer
    OnHTMLTag = softpageHTMLTag
    Left = 32
    Top = 208
  end
  object bookpage: TPageProducer
    OnHTMLTag = bookpageHTMLTag
    Left = 96
    Top = 208
  end
  object jswzpage: TPageProducer
    OnHTMLTag = jswzpageHTMLTag
    Left = 176
    Top = 224
  end
  object jstlpage: TPageProducer
    OnHTMLTag = jstlpageHTMLTag
    Left = 224
    Top = 8
  end
  object fwtjpage: TPageProducer
    OnHTMLTag = fwtjpageHTMLTag
    Left = 152
    Top = 280
  end
  object showtlpage: TPageProducer
    OnHTMLTag = showtlpageHTMLTag
    Left = 312
    Top = 104
  end
  object newtlpage: TPageProducer
    OnHTMLTag = newtlpageHTMLTag
    Left = 320
    Top = 32
  end
  object showlypage: TPageProducer
    Left = 240
    Top = 280
  end
  object userregpage: TPageProducer
    Left = 184
    Top = 136
  end
  object softpl: TPageProducer
    OnHTMLTag = softplHTMLTag
    Left = 32
    Top = 320
  end
  object cx: TOraQuery
    ReadOnly = True
    Left = 336
    Top = 256
  end
  object zcx: TOraQuery
    Left = 232
    Top = 360
  end
  object usereditpage: TPageProducer
    OnHTMLTag = usereditpageHTMLTag
    Left = 296
    Top = 192
  end
  object OraS: TOraSQL
    SQL.Strings = (
      'Update ALLRC set num=num+1'
      'where RQ=to_char(sysdate,'#39'yyyy-mm-dd'#39')')
    AutoCommit = True
    Left = 392
    Top = 320
  end
end