毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB图书管理系统 第3页

更新时间:2008-3-1:  来源:毕业论文

VB图书管理系统 第3页

26 修改密码子窗体

  (4) 库房管理子窗体如图27所示。

   若图片无法显示请联系站长QQ752018766
  图27 库房管理子窗体

  其控件如表6所示。

  表6 库房管理子窗体控件

控件Name

控件Text

TextBox

Text1

()

ComboBox

Combo1

 

MSFlexGrid

MSFlexGrid1

 

  
  (5) 查询子窗体如图28所示,其控件如表7所示。

  若图片无法显示请联系站长QQ752018766
  图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所示。

  若图片无法显示请联系站长QQ752018766

  图29 用户登录子窗体 30 值班管理子窗体

  (8) 投诉管理子窗体如图31所示,其控件如表9所示。

  若图片无法显示请联系站长QQ752018766
  图31 投诉管理子窗体

  2.5建立公共模块

 2.5.1显示目录

  建立公共模块可以提高代码的效率,同时使得修改和文护代码都很方便。

  创建公共模块的步骤如下:

  (1) 在菜单中选择工程”→“添加模块命令,则出现模块对话框,如图32所示。


  (2) 选择模块图标后,单击打开按钮,则模块已经添加到项目中了。默认情况下名为Module1

  若图片无法显示请联系站长QQ752018766
  图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


  在主窗体添加完菜单之后,就要为各个子菜单创建事件处理程序。

2.6主窗体代码

  2.6.1在本项目中,子菜单事件都是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.6.2各子窗体的代码


  在各个子窗体建立好后,就可以根据各个子窗体的功能给它们添加相应代码了。

  (1) 图书登记子窗体代码

  本窗体用来填写图书登记的信息,用ADO连接数据库,是本窗体的重点。采用MDI的子程序,所以运行后,它出现在主程序的界面下,如图33所示。

  若图片无法显示请联系站长QQ752018766
  图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()

  
If Adodc1.Recordset.EOF Then

  MsgBox "记录空
", vbOKCancel + vbQuestion

  
End

  
Else

  
Adodc1.Recordset.MoveFirst

  
Exit Sub

  
End Sub

  
Private Sub Command6_Click()

  
If Adodc1.Recordset.RecordCount = 0 Then

  MsgBox "空记录
", vbOKCancel + vbQuestion

  
End

  
Else

  
Adodc1.Recordset.MoveLast

  
End If

  
End Sub

  
Private Sub Command7_Click()

  
MDIForm1.Show

  
frmdengji.Hide

  
End Sub

  图书借阅和图书赔偿子窗体运行后如图34和图35所示,因为它们的代码和图书登记子窗体的代码雷同,在此不做重复。

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

VB图书管理系统 第3页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。