曝光台 注意防骗
网曝天猫店富美金盛家居专营店坑蒙拐骗欺诈消费者
CommandButton
Command2 取消
(3) 修改密码子窗体如图26 所示。
图26 修改密码子窗体
(4) 库房管理子窗体如图27 所示。
图27 库房管理子窗体
其控件如表6 所示。
表6 库房管理子窗体控件
控件类别控件Name 控件Text
TextBox Text1 (空)
ComboBox Combo1
MSFlexGrid MSFlexGrid1
(5) 查询子窗体如图28 所示，其控件如表7 所示。
图28 查询子窗体
表7 查询子窗体控件
控件类别控件Name 控件Text
OptionButton Option1 按编号查询
Option2 按购买日期查询
Label1 从
Label2 到
Label3 从
Label4 年
Label5 月
Label6 日
Label7 到
Label8 年
Label9 月
Label
Label10 日
Combo(0) ComboBox Combo1 (空)
Combo(1) ComboBox Combo1 (空)
Comboy(0) ComboBox Comboy (空)
Comboy(1) ComboBox Comboy (空)
Combom(0) ComboBox Combom (空)
Combom(1) ComboBox Combom (空)
Combod(0) ComboBox Combod (空)
Combod(1) ComboBox Combod (空)
Command1 查询
CommandButton
Command2 取消
(6) 用户登录子窗体如图29 所示。
(7) 值班管理子窗体如图30 所示，其控件如表8 所示。
图29 用户登录子窗体图30 值班管理子窗体
(8) 投诉管理子窗体如图31 所示，其控件如表9 所示。
图31 投诉管理子窗体
建立公共模块
1、显示目录
建立公共模块可以提高代码的效率，同时使得修改和维护代码都很方便。
创建公共模块的步骤如下:
(1) 在菜单中选择“工程”→“添加模块”命令，则出现模块对话框，如图32 所示。
(2) 选择模块图标后，单击“打开”按钮，则模块已经添加到项目中了。默认情况下名为Module1。
图32 模块对话框
(3) 在模块中定义整个项目的公共变量。
Public conn As New ADODB.Connection ' 标记连接对象
Public userID As String ' 标记当前用户ID
Public userpow As String ' 标记用户权限
Public find As Boolean ' 标记查询
Public sqlfind As String ' 查询语句
Public rs_data1 As New ADODB.Recordset
Public findok As Boolean
Public frmdata As Boolean
Public Const keyenter = 13 ' enter 键的ASCII 码
在主窗体添加完菜单之后，就要为各个子菜单创建事件处理程序。
主窗体代码
在本项目中，子菜单事件都是Click 事件，这里先给出主窗体部分的代码。
下面是响应“增加用户”子菜单Click 事件，调出增加用户窗体代码。
Private Sub adduser_Click()
frmadduser.Show
End Sub
下面是响应“查询输出”子菜单Click 事件，调出查询输出窗体代码。
Private Sub chaxunshuchu_Click()
frmfind.Show
End Sub
下面是响应“退出”子菜单Click 事件，调出退出窗体代码。
Private Sub exit_Click()
Unload Me
End Sub
下面是响应“图书登记”子菜单Click 事件，调出图书登记窗体代码。
Private Sub checkin_Click()
frmdengji.Show
End Sub
下面是响应“修改密码”子菜单Click 事件，调出修改密码窗体代码。
Private Sub changepwd_Click()
frmchangepwd.Show
End Sub
下面是响应“图书借阅”子菜单Click 事件，调出图书借阅窗体代码。
Private Sub borrow_Click()
frmjieyue.Show
End Sub
下面是响应“图书赔偿”子菜单Click 事件，调出图书赔偿窗体代码。
Private Sub tushupeichang_Click()
frmpeichang.Show 1
End Sub
下面是响应“值班管理”菜单Click 事件，调出值班管理窗体代码。
Private Sub zhibanguanli_Click()
frmzhiban.Show 1
End Sub
下面是响应“投诉管理”子菜单Click 事件，调出投诉管理窗体代码。
Private Sub tousuguanli_Click()
frmtousu.Show 1
End Sub
2、各子窗体的代码
在各个子窗体建立好后，就可以根据各个子窗体的功能给它们添加相应代码了。
(1) 图书登记子窗体代码
本窗体用来填写图书登记的信息，用ADO 来连接数据库，是本窗体的重点。采用MDI 的子程序，所
以运行后，它出现在主程序的界面下，如图33 所示。
图33 图书登记子窗体
按钮控件要求先填写基本信息，然后与数据库信息比较。
Private Sub Command1_Click()
On Error GoTo adderr
Text1.SetFocus
Adodc1.Recordset.AddNew
Exit Sub
adderr:
MsgBox Err.Description
End Sub
Private Sub Command2_Click()
On Error GoTo deleteerr
With Adodc1.Recordset
If Not .EOF And Not .BOF Then
If MsgBox("删除当前记录吗?", vbYesNo + vbQuestion) = vbYes Then
.Delete
.MoveNext
If .EOF Then .MoveLast
End If
End If
End With
Exit Sub
deleteerr:
MsgBox Err.Description
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
MsgBox "这是最后一条记录", vbOKCancel + vbQuestion
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
MsgBox "这是第一条记录", vbOKCancel + vbQuestion
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command5_Click()
中国航空网 www.aero.cn
航空翻译 www.aviation.cn
本文链接地址：
航空讲座1(33)
