VB+Access设计图书管理系统

• 　　创建公共模块的步骤如下:
  
  　　(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事件，调出投诉管理窗体代码。
  
• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• VB+Access设计图书管理系统 相关文章：
• ·最快速定制Vista桌面上的系统图标
• ·用移动硬盘来安装Vista系统
• ·VB+Access设计图书管理系统
• ·什么是系统集成
• ·怎么用虚拟光驱装系统？
• ·windows2000 windowsXP系统补丁下载
• ·Linux操作系统源代码详细分析
• ·综合布线系统工程设计参考大全
• ·电脑高手必备 Windows系统35招实用技巧
• ·商业大厦弱电系统集成方案建议书-1
• VB+Access设计图书管理系统 相关软件
• ·大头贴制作系统V5.06
• ·龙卷风基金投资分析系统
• ·大福星行情分析系统 V1.52
• ·天下第一签个性签名设计系统 V1.2
• ·易达第二代身份证照片处理系统(lab色彩版) V1.4
• ·方寸天地彩色名片制作系统 V1.2
• ·C/C++程序设计学习与实验系统 V2008.2
• ·东方证券金典版行情系统 V5.68
• ·佳影MTV电子相册制作系统 V7.2
• ·大智慧level2行情分析系统 V2.1

上一篇:在GotFocus时快速选择文本

下一篇:智商商测试软件

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐