管理信息系统上机实验报告(2)

（3）查询管理员：“Usr , 03 , Usr _ID”帧头“Usr”，类型号为03，接着是协议的具体内容, 只有Usr_ID一项 ，是需要查询的管理员ID关键字。

第三章 数据库设计

表结构设计，字段定义。 数据关系模式：

管理员资料数据表（管理员ID，管理员姓名，管理员密码，权限类型，备注）

管理员资料数据表。管理员资料数据表记录了所有管理员的基本资料，管理员可添加、删除和查询该表。该表包括管理员ID、姓名、密码和权限类型（系统管理员、高级管理员、普通管理员）等资料。

第四章 程序界面及编码

一． 图书管理信息系统主窗体

界面简介：管理员可以在主窗体上选择要操作的功能。此窗体属于功

能一览的界面。

图书管理系统登录界面

登录界面的代码为：

Private Sub mnuViewStatusBar_Click()

StatusBar1.Visible = True - StatusBar1.Visible mnuViewStatusBar.Checked = StatusBar1.Visible End Sub

'菜单栏的点击事件

Private Sub mnuViewToolbar_Click()

Toolbar1.Visible = True - Toolbar1.Visible mnuViewToolbar.Checked = Toolbar1.Visible End Sub

' winsock的关闭

Private Sub winsock_Close()

main.StatusBar1.Panels(1).Text = "服务器连接状态：断开。" End Sub

' winsock的连接

Private Sub winsock_Connect() Dim str As String

str = "Cnn," & UserNow.ID & "," & UserNow.Pwd & "," & winsock.LocalIP

If main.winsock.State <> sckConnected Then MsgBox "还没有连接数据库，不能发送请求！" Exit Sub End If

Me.winsock.SendData str 'MsgBox str End Sub

' winsock传递数据的数组

Private Sub winsock_DataArrival(ByVal bytesTotal As Long)

Dim StrArrival, a As String, StrGet() As String, StrGet1() As String

Dim Start As Integer

Dim i As Integer, j As Integer, k As Integer Dim LtItm As ListItem Dim ss As String Dim qq As String Dim ww As String

Me.winsock.GetData StrArrival, vbString If Len(StrArrival) < 1 Then Exit Sub '数组中数据的操作

StrGet() = Split(StrArrival, ",", -1)

Select Case StrGet(0) Case "abc"

MsgBox StrGet(1), , "服务器广播" Case "Usr"

Select Case StrGet(1) Case "01"

main.StatusBar1.Panels(1).Text = "服务器连接状态：响应添加管理员。"

MsgBox StrGet(2), , "服务器响应"

Case "02"

main.StatusBar1.Panels(1).Text = "服务器连接状态：响应删除管理员。"

MsgBox StrGet(2), , "服务器响应"

Case "03"

a = StrGet(2)

If a = "超出权限！查询管理员信息失败！" Then MsgBox StrGet(2), , "服务器响应"

ElseIf a = "该管理员不存在！查询管理员失败！" Then MsgBox StrGet(2), , "服务器响应" Else

main.StatusBar1.Panels(1).Text = "服务器连接状态：响应查询管理员。"

usrquery.lvquery.ListItems.Clear For i = 0 To UBound(StrGet) - 2

StrGet1() = Split(StrGet(i + 2), "/", -1) Set LtItm = usrquery.lvquery.ListItems.Add() LtItm.Text = i + 1

LtItm.SubItems(1) = StrGet1(0) LtItm.SubItems(2) = StrGet1(1)

LtItm.SubItems(3) = StrGet1(2) LtItm.SubItems(4) = StrGet1(3) Next i End If Case "04"

a = StrGet(2)

If a = "超出权限！查询管理员信息失败！" Then MsgBox StrGet(2), , "服务器响应" Else

main.StatusBar1.Panels(1).Text = "服务器连接状态：响应查询所有管理员。"

usrquery.lvquery.ListItems.Clear For i = 0 To UBound(StrGet) - 2

StrGet1() = Split(StrGet(i + 2), "/", -1) Set LtItm = usrquery.lvquery.ListItems.Add() LtItm.Text = i + 1

LtItm.SubItems(1) = StrGet1(0) LtItm.SubItems(2) = StrGet1(1) LtItm.SubItems(3) = StrGet1(2) LtItm.SubItems(4) = StrGet1(3) Next i End If

End Select Case "Cnn"

main.StatusBar1.Panels(1).Text = "服务器连接状态：响应连接信息。"

MsgBox StrGet(1), , "服务器响应"

If StrGet(1) = "该管理员名不存在！请重新输入！" Then Me.winsock.Close

ElseIf StrGet(1) = "密码错误！请重新输入！" Then Me.winsock.Close End If End Select End Sub

'显示管理员添加画面 Private Sub Usr_Add_Click() usradd.Show End Sub

'显示删除管理员画面

Private Sub Usr_Delete_Click() usrdel.Show End Sub

'显示管理员查询画面

Private Sub Usr_Query_Click() usrquery.Show End Sub Private

Sub

Toolbar1_ButtonClick(ByVal

Button

As

MSComctlLib.Button)

Select Case Button.Key '系统的连接 Case "Sys_Cnn"

Call Sys_Connect_Click '系统的退出 Case "Sys_Exit" Call Sys_Exit_Click '添加管理员 Case "Usr_Add" Call Usr_Add_Click '删除管理员 Case "Usr_Del"

Call Usr_Delete_Click '管理员查询 Case "Usr_Query" Call Usr_Query_Click End Select

End Sub '画面初期化事件 Private Sub Form_Load() Scale (-7.57, 5.2)-(2.4, -5)

main.Caption = "图书馆管理系统客户端" End Sub

Private Sub Sys_Connect_Click() cnn.Show End Sub '退出系统事件

Private Sub Sys_Exit_Click()

myexit = MsgBox("是否要退出程序？", vbYesNo, "退出") If myexit = vbYes Then End End Sub

二． 客户端连接服务器的连接窗体

界面简介：此界面是客户端连接服务器的登陆窗体，管理员通过输入

正确的ID和密码，等服务器验证通过后，画面迁移到主窗体。