|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
VB+Access设计图书管理系统
|
日期：2007年8月4日 作者： 查看:[大字体
中字体 小字体]
|
图28 查询子窗体
表7 查询子窗体控件
控 件 类 别控件Name 控件Text OptionButton Option1 按编号查询 Option2 按购买日期查询 Label Label1 从 Label2 到 Label3 从 Label4 年 Label5 月 Label6 日 Label7 到 Label8 年 Label9 月 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 (空) CommandButton Command1 查询 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事件，调出修改密码窗体代码。
上一篇:重启Windows 2000/NT系统
下一篇:在form中垂直显示文字
|
| VB+Access设计图书管理系统 相关文章： |
|
|
|
| VB+Access设计图书管理系统 相关软件： |
|
|
|
|
