评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

vb+中介管理系统access+开题报告+论文+源代码外文(2)

2013-06-12 01:03 bsp;    Exit Sub
    Else
       rs_add.AddNew
       rs_add.Fields(0) = txtname.Text
       rs_add.Fields(1) = txtpwd.Text
       rs_add.Fields(2) = Combo1.Text
       rs_add.Update
       rs_add.Close
       MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
       Unload Me
    End If
End If
End Sub

Private Sub cmdcancel_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "system"
Combo1.AddItem "guest"
End Sub

主界面设计:

主界面代码设计:
Private Sub TreeView1_Click()
On Error GoTo clickerror
Dim i As Integer
Dim j As Integer
Dim sql As String
i = TreeView1.SelectedItem.Index
If TreeView1.SelectedItem.Children > 0 Then
   txttbl = TreeView1.SelectedItem.Text
   If TreeView1.SelectedItem.Expanded = True Then
       TreeView1.SelectedItem.Expanded = False
   Else
       TreeView1.SelectedItem.Expanded = True
   End If
End If
Select Case TreeView1.SelectedItem.Text
       Case "教师信息管理"
            Picture2(0).Visible = True
            Picture2(1).Visible = False
            Picture2(2).Visible = False
            Picture2(3).Visible = False
            Picture2(4).Visible = False

            Picture2(5).Visible = False
            Picture2(6).Visible = False
            Picture2(7).Visible = False
            Picture2(8).Visible = False
            Picture2(9).Visible = False
            Picture2(11).Visible = False
            Picture2(10).Visible = False
            state = "教师信息管理"
            Toolbar1.Buttons(1).Enabled = True
      Case "教师信息查询"
            Picture2(1).Visible = True
            Picture2(0).Visible = False
            Picture2(2).Visible = False
            Picture2(3).Visible = False