uwdm.dfm

本文件是一个CGI类型的WEB应用程序

object WebModule1: TWebModule1
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      PathInfo = '/pplogin'
      Producer = pplogin
    end
    item
      Name = 'login'
      PathInfo = '/login'
      OnAction = WebModule1loginAction
    end
    item
      Name = 'postnewuser'
      PathInfo = '/postnewuser'
      OnAction = WebModule1postnewuserAction
    end
    item
      Name = 'selecting'
      PathInfo = '/selecting'
      OnAction = WebModule1selectingAction
    end
    item
      Name = 'querycategory'
      PathInfo = '/querycategory'
      OnAction = WebModule1querycategoryAction
    end
    item
      Name = 'selectbooks'
      PathInfo = '/selectbooks'
      OnAction = WebModule1selectbooksAction
    end
    item
      Name = 'books'
      PathInfo = '/books'
      OnAction = WebModule1booksAction
    end
    item
      Name = 'querybookdetail'
      PathInfo = '/querybookdetail'
      OnAction = WebModule1querybookdetailAction
    end
    item
      Name = 'queryselect'
      PathInfo = '/queryselect'
      OnAction = WebModule1queryselectAction
    end
    item
      Name = 'deleteitem'
      PathInfo = '/deleteitem'
      OnAction = WebModule1deleteitemAction
    end
    item
      Name = 'postbooks'
      PathInfo = '/postbooks'
      OnAction = WebModule1postbooksAction
    end
    item
      Name = 'postall'
      PathInfo = '/postall'
      OnAction = WebModule1postallAction
    end>
  Left = 192
  Top = 114
  Height = 481
  Width = 615
  object pplogin: TPageProducer
    HTMLFile = 'D:\Program Files\Borland\Delphi7\Projects\netbook\HOME.HTM'
    ScriptEngine = 'JScript'
    Left = 48
    Top = 24
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Bo' +
      'rland\Delphi7\Projects\netbook\books.mdb;Persist Security Info=F' +
      'alse'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 128
    Top = 24
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 216
    Top = 24
  end
  object Tcategory: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'category'
    Left = 56
    Top = 96
  end
  object tbooks: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'BOOKSlist'
    Left = 136
    Top = 96
  end
  object qquerybooks: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = qquerybooksCalcFields
    Parameters = <
      item
        Name = 'cate_id'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select *from bookslist where cateid=:cate_id')
    Left = 56
    Top = 152
    object qquerybookscheck_tx: TStringField
      DisplayLabel = #25512'    '#33616
      DisplayWidth = 255
      FieldKind = fkCalculated
      FieldName = 'check_tx'
      Size = 255
      Calculated = True
    end
    object qquerybooksbookid: TWideStringField
      FieldName = 'bookid'
      Size = 50
    end
    object qquerybookstitle: TWideStringField
      DisplayLabel = #20070' '#31821' '#39064' '#21517
      FieldName = 'title'
      Size = 50
    end
    object qquerybooksauthor: TWideStringField
      DisplayLabel = #33879'   '#32773
      FieldName = 'author'
    end
    object qquerybookspublisher: TWideStringField
      DisplayLabel = #20986'  '#29256'  '#31038
      FieldName = 'publisher'
    end
    object qquerybooksPubDate: TDateTimeField
      FieldName = 'PubDate'
    end
    object qquerybooksISBN: TWideStringField
      FieldName = 'ISBN'
      Size = 13
    end
    object qquerybooksPrice: TBCDField
      FieldName = 'Price'
      Precision = 19
    end
    object qquerybooksversion: TWideStringField
      FieldName = 'version'
      Size = 10
    end
    object qquerybookscateid: TWideStringField
      FieldName = 'cateid'
    end
    object qquerybooksbookseller: TWideStringField
      FieldName = 'bookseller'
      Size = 5
    end
    object qquerybookscontent: TMemoField
      FieldName = 'content'
      BlobType = ftMemo
    end
    object qquerybookshref_title: TStringField
      DisplayLabel = #20070#12288#31821#12288#39064#12288#21517
      FieldKind = fkCalculated
      FieldName = 'href_title'
      Size = 255
      Calculated = True
    end
  end
  object dstpquerybooks: TDataSetTableProducer
    Columns = <
      item
        Align = haCenter
        FieldName = 'check_tx'
        Title.Caption = #25512'   '#33616
      end
      item
        FieldName = 'cdsQueryNewsField2'
        Title.Caption = #32534'    '#21495
      end
      item
        FieldName = 'title_tx'
        Title.Caption = #20070'  '#31821'  '#39064'  '#21517
      end
      item
        FieldName = 'author_tx'
        Title.Caption = #33879'    '#32773
      end
      item
        FieldName = 'publisher_tx'
        Title.Caption = #20986'  '#29256'  '#31038
      end>
    DataSet = cdsquerybooks
    TableAttributes.BgColor = 'Yellow'
    TableAttributes.Border = 1
    Left = 160
    Top = 152
  end
  object qselect: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = qselectCalcFields
    Parameters = <
      item
        Name = 'user_id'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select *from tempbooks where userid=:user_id')
    Left = 48
    Top = 288
    object qselectDSDesigner: TAutoIncField
      FieldName = #32534#21495
      ReadOnly = True
    end
    object qselectbookid: TWideStringField
      FieldName = 'bookid'
      LookupDataSet = tbooks
      LookupKeyFields = 'bookid'
      LookupResultField = 'title'
      Size = 50
    end
    object qselectuserid: TWideStringField
      FieldName = 'userid'
      Size = 50
    end
    object qselectlink_tx: TStringField
      DisplayLabel = #21024'   '#38500
      DisplayWidth = 255
      FieldKind = fkCalculated
      FieldName = 'link_tx'
      Size = 255
      Calculated = True
    end
    object qselectlpauthor: TStringField
      DisplayLabel = #33879'   '#32773
      DisplayWidth = 255
      FieldKind = fkLookup
      FieldName = 'lpauthor'
      LookupDataSet = tbooks
      LookupKeyFields = 'bookid'
      LookupResultField = 'author'
      KeyFields = 'bookid'
      Size = 255
      Lookup = True
    end
    object qselectlppublisher: TStringField
      DisplayLabel = #20986'  '#29256'  '#31038
      DisplayWidth = 255
      FieldKind = fkLookup
      FieldName = 'lppublisher'
      LookupDataSet = tbooks
      LookupKeyFields = 'bookid'
      LookupResultField = 'publisher'
      KeyFields = 'bookid'
      Size = 255
      Lookup = True
    end
    object qselectlptitle: TStringField
      DisplayLabel = #20070' '#31821' '#39064' '#21517
      FieldKind = fkLookup
      FieldName = 'lptitle'
      LookupDataSet = tbooks
      LookupKeyFields = 'bookid'
      LookupResultField = 'title'
      KeyFields = 'bookid'
      Size = 50
      Lookup = True
    end
  end
  object dstpselect: TDataSetTableProducer
    Columns = <
      item
        Align = haCenter
        FieldName = 'link_tx'
      end
      item
        FieldName = 'lptitle'
      end
      item
        FieldName = 'lpauthor'
      end
      item
        FieldName = 'lppublisher'
      end>
    DataSet = qselect
    TableAttributes.Align = haCenter
    TableAttributes.BgColor = 'Yellow'
    TableAttributes.Border = 1
    Left = 128
    Top = 288
  end
  object qpost: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = qpostCalcFields
    Parameters = <
      item
        Name = 'user_id'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select *from tempbooks where userid=:user_id')
    Left = 48
    Top = 384
    object qpostprodid_tx: TStringField
      DisplayLabel = #25512#33616#27425#25968
      DisplayWidth = 1
      FieldKind = fkCalculated
      FieldName = 'prodid_tx'
      Size = 255
      Calculated = True
    end
    object qpostDSDesigner: TAutoIncField
      FieldName = #32534#21495
      ReadOnly = True
    end
    object qpostbookid: TWideStringField
      DisplayLabel = #20070'  '#31821'  '#39064'  '#21517
      FieldName = 'bookid'
      LookupDataSet = tbooks
      LookupKeyFields = 'bookid'
      LookupResultField = 'title'
      Size = 50
    end
    object qpostuserid: TWideStringField
      FieldName = 'userid'
      Size = 50
    end
    object qpostlpauthor: TStringField
      DisplayLabel = #33879'      '#32773
      FieldKind = fkLookup
      FieldName = 'lpauthor'
      LookupDataSet = tbooks
      LookupKeyFields = 'bookid'
      LookupResultField = 'author'
      KeyFields = 'bookid'
      Lookup = True
    end
    object qpostlppublisher: TStringField
      DisplayLabel = #20986'  '#29256'  '#31038
      FieldKind = fkLookup
      FieldName = 'lppublisher'
      LookupDataSet = tbooks
      LookupKeyFields = 'bookid'
      LookupResultField = 'publisher'
      KeyFields = 'bookid'
      Lookup = True
    end
    object qpostlptitle: TStringField
      DisplayLabel = #20070'  '#31821'  '#39064'  '#21517
      DisplayWidth = 50
      FieldKind = fkLookup
      FieldName = 'lptitle'
      LookupDataSet = tbooks
      LookupKeyFields = 'bookid'
      LookupResultField = 'title'
      KeyFields = 'bookid'
      Size = 50
      Lookup = True
    end
  end
  object dstpqpost: TDataSetTableProducer
    Columns = <
      item
        Align = haCenter
        FieldName = 'lptitle'
      end
      item
        FieldName = 'lpauthor'
      end
      item
        FieldName = 'lppublisher'
      end
      item
        Align = haCenter
        FieldName = 'prodid_tx'
      end>
    Footer.Strings = (
      '')
    Header.Strings = (
      '')
    DataSet = qpost
    TableAttributes.BgColor = 'Yellow'
    TableAttributes.Border = 1
    Left = 144
    Top = 376
  end
  object ppselecting: TPageProducer
    HTMLFile = 'D:\Program Files\Borland\Delphi7\Projects\netbook\Selecting.HTM'
    OnHTMLTag = ppselectingHTMLTag
    ScriptEngine = 'JScript'
    Left = 232
    Top = 152
  end
  object pppost: TPageProducer
    HTMLFile = 'D:\Program Files\Borland\Delphi7\Projects\netbook\postbooks.htm'
    OnHTMLTag = pppostHTMLTag
    ScriptEngine = 'JScript'
    Left = 240
    Top = 376
  end
  object ppqueryselect: TPageProducer
    HTMLFile = 
      'D:\Program Files\Borland\Delphi7\Projects\netbook\QuerySelect.ht' +
      'm'
    OnHTMLTag = ppqueryselectHTMLTag
    ScriptEngine = 'JScript'
    Left = 216
    Top = 288
  end
  object query: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 344
    Top = 24
  end
  object ppmain: TPageProducer
    HTMLFile = 'D:\Program Files\Borland\Delphi7\Projects\netbook\MAIN.HTM'
    ScriptEngine = 'JScript'
    Left = 280
    Top = 24
  end
  object querybookdetail: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'book_id'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select *from bookslist where bookid=:book_id')
    Left = 56
    Top = 216
    object querybookdetailbookid: TWideStringField
      FieldName = 'bookid'
      Size = 50
    end
    object querybookdetailtitle: TWideStringField
      FieldName = 'title'
      Size = 50
    end
    object querybookdetailauthor: TWideStringField
      FieldName = 'author'
    end
    object querybookdetailpublisher: TWideStringField
      FieldName = 'publisher'
    end
    object querybookdetailPubDate: TDateTimeField
      FieldName = 'PubDate'
    end
    object querybookdetailISBN: TWideStringField
      FieldName = 'ISBN'
      Size = 13
    end
    object querybookdetailPrice: TBCDField
      FieldName = 'Price'
      Precision = 19
    end
    object querybookdetailversion: TWideStringField
      FieldName = 'version'
      Size = 10
    end
    object querybookdetailcateid: TWideStringField
      FieldName = 'cateid'
    end
    object querybookdetailbookseller: TWideStringField
      FieldName = 'bookseller'
      Size = 5
    end
    object querybookdetailcontent: TMemoField
      FieldName = 'content'
      BlobType = ftMemo
    end
  end
  object ppquerybookdetail: TPageProducer
    HTMLFile = 
      'D:\Program Files\Borland\Delphi7\Projects\netbook\Querybookdetai' +
      'ls.htm'
    OnHTMLTag = ppquerybookdetailHTMLTag
    ScriptEngine = 'JScript'
    Left = 240
    Top = 216
  end
  object cdsquerybooks: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'cdsQueryNewsField1'
        DataType = ftDateTime
      end
      item
        Name = 'cdsQueryNewsField2'
        DataType = ftString
        Size = 255
      end>
    IndexDefs = <
      item
        Name = 'DEFAULT_ORDER'
      end
      item
        Name = 'CHANGEINDEX'
      end>
    Params = <>
    StoreDefs = True
    OnCalcFields = cdsquerybooksCalcFields
    Left = 320
    Top = 152
    Data = {
      5C0000009619E0BD0100000018000000020000000000030000005C0012636473
      51756572794E6577734669656C64310800080000000000126364735175657279
      4E6577734669656C6432020049000000010005574944544802000200FF000000}
    object cdsquerybookscdsQueryNewsField1: TDateTimeField
      FieldName = 'cdsQueryNewsField1'
    end
    object cdsquerybookscdsQueryNewsField2: TStringField
      FieldName = 'cdsQueryNewsField2'
      Size = 255
    end
    object cdsquerybookscheck_tx: TStringField
      FieldKind = fkCalculated
      FieldName = 'check_tx'
      Size = 255
      Calculated = True
    end
    object cdsquerybooksauthor_tx: TStringField
      FieldKind = fkCalculated
      FieldName = 'author_tx'
      Size = 10
      Calculated = True
    end
    object cdsquerybookstitle_tx: TStringField
      FieldKind = fkCalculated
      FieldName = 'title_tx'
      Size = 255
      Calculated = True
    end
    object cdsquerybookspublisher_tx: TStringField
      FieldKind = fkCalculated
      FieldName = 'publisher_tx'
      Size = 255
      Calculated = True
    end
  end
end