forminput.frm

用XML做专家系统的一个编译器,有说明书,使用简单,有模板

VERSION 5.00
Begin VB.Form FormInput 
   BackColor       =   &H80000005&
   Caption         =   "Dest"
   ClientHeight    =   2895
   ClientLeft      =   3690
   ClientTop       =   3240
   ClientWidth     =   5160
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   ScaleHeight     =   2895
   ScaleWidth      =   5160
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000001&
      BorderStyle     =   0  'None
      FillStyle       =   0  'Solid
      FontTransparent =   0   'False
      ForeColor       =   &H80000008&
      Height          =   735
      Left            =   2040
      ScaleHeight     =   735
      ScaleWidth      =   3375
      TabIndex        =   5
      Top             =   0
      Width           =   3375
   End
   Begin VB.CommandButton Next 
      Caption         =   "下一步(&N)>>"
      Default         =   -1  'True
      Height          =   372
      Left            =   2520
      TabIndex        =   4
      Top             =   2280
      Width           =   1212
   End
   Begin VB.CommandButton Prev 
      BackColor       =   &H80000004&
      Caption         =   "上一步(&P)<<"
      Height          =   372
      Left            =   960
      MaskColor       =   &H00404040&
      TabIndex        =   3
      Top             =   2280
      Width           =   1212
   End
   Begin VB.TextBox Text1 
      Height          =   360
      Left            =   1440
      TabIndex        =   2
      Top             =   1560
      Width           =   3612
   End
   Begin VB.ComboBox Combo1 
      Height          =   315
      ItemData        =   "FormInput.frx":0000
      Left            =   120
      List            =   "FormInput.frx":0010
      TabIndex        =   1
      Top             =   1560
      Width           =   1212
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "用户输入"
      BeginProperty Font 
         Name            =   "华文新魏"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   240
      Width           =   1335
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H80000001&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   2055
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000005&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   960
      Width           =   4935
   End
End
Attribute VB_Name = "FormInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Prev.Enabled = True
If (RecordIndex = 0) Then
   Prev.Enabled = False
End If
End Sub

Private Sub Prev_Click()
If (RecordIndex > 0) Then
RecordIndex = RecordIndex - 1
End If
Unload Me
End Sub
Private Sub Next_Click()
Dim i As Integer
Dim tempstring As String
Dim item As ListItem
savequeue(RecordIndex, 2) = Combo1.Text
Call ReadValue
savequeue(RecordIndex, 4) = savequeue(RecordIndex, 0) + savequeue(RecordIndex, 1) + savequeue(RecordIndex, 2) + savequeue(RecordIndex, 3)
Set item = frmOutput.LVoutput.ListItems.Add(, , "用户信息", 3, 3)
item.SubItems(1) = savequeue(RecordIndex, 4)
user_information_code = user_information_code + 1
RecordIndex = RecordIndex + 1
Unload Me
End Sub

Private Sub Text1_Change()
savequeue(RecordIndex, 3) = Text1.Text
End Sub

Public Sub ReadValue()
Dim i, j As Integer
Dim oList As IXMLDOMNodeList
Dim oElement As IXMLDOMElement
Set oList = oDoc.getElementsByTagName("ATTRIBUTE")
For i = 0 To oList.length - 1
    Set oElement = oList.item(i)
    If oElement.attributes(0).nodeValue = centernode.attributes(1).nodeValue Then
        For j = 0 To oElement.attributes.length - 1
            If (oElement.attributes(j).nodeName = "value") Then _
                oElement.attributes(j).nodeValue = Text1.Text
            Exit For
        Next
        Exit For
    End If
Next
End Sub