关于VB的系统改造计划~~各位朋友帮忙开下哈~~~有点急.

apppple21
菜刀一只花
等级:

发表于：2008-04-09 14:18:4419楼得分:0

贴下图书管理系统的主要源文件
Private Sub Form_Load() '显示软件名称及版本
Me.Caption = App.Title & " 版本： V" & App.Major & "." & App.Minor & "." & App.Revision
St1.Panels(2).text = "版权所有：明日科技电话：0431-84978982 http://www.mingrisoft.com"
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 0
Label2.BorderStyle = 0
Label3.BorderStyle = 0
Label4.BorderStyle = 0
Label5.BorderStyle = 0
Label6.BorderStyle = 0
Label7.BorderStyle = 0
Label8.BorderStyle = 0
Label9.BorderStyle = 0
Label10.BorderStyle = 0
End Sub

Private Sub Label1_Click() '入库查询
rkcx_Click
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 1
End Sub

Private Sub Label10_Click() '书证到期提醒
jscq_Click
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label10.BorderStyle = 1
End Sub

Private Sub Label2_Click() '销售查询
xscx_Click
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.BorderStyle = 1
End Sub

Private Sub Label3_Click() '库存查询
kccx_Click
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.BorderStyle = 1
End Sub

Private Sub Label4_Click() '借书查询
jscx_Click
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BorderStyle = 1
End Sub

Private Sub Label5_Click() '还书查询
hscx_Click
End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.BorderStyle = 1
End Sub

Private Sub Label6_Click() '销量分析
xlfx_Click
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.BorderStyle = 1
End Sub

Private Sub Label7_Click() '借阅分析
jyfx_Click
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BorderStyle = 1
End Sub

Private Sub Label8_Click() '库存分析
kcfx_Click
End Sub

Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label8.BorderStyle = 1
End Sub

Private Sub Label9_Click() '库存预警
kcyj_Click
End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label9.BorderStyle = 1
End Sub

Private Sub tc_Click() '退出
End
End Sub

Private Sub Timer1_Timer() '设置时间
St1.Panels(1).text = Format(Date, "long date") & " " & Time
End Sub
Private Sub tslb_Click() '加载图书类别设置窗体
Load main_jcxx_tslbsz
main_jcxx_tslbsz.Show
frm_main.Enabled = False
End Sub
Private Sub place_Click() '加载图书存放位置窗体
Load main_jcxx_tswzsz
main_jcxx_tswzsz.Show
frm_main.Enabled = False
End Sub
Private Sub rlbsz_Click() '加载读者类别设置窗体
Load main_jcxx_dzlbsz
main_jcxx_dzlbsz.Show
frm_main.Enabled = False
End Sub
Private Sub reads_Click() '加载读者信息设置窗体
Load main_jcxx_dzxxsz
main_jcxx_dzxxsz.Show
frm_main.Enabled = False
End Sub
Private Sub xztsrk_Click() '加载图书入库窗体
Load main_rcyw_tsrk
main_rcyw_tsrk.Show
frm_main.Enabled = False
End Sub
Private Sub rkcx_Click() '加载入库查询窗体
Load main_rcyw_rkcx
main_rcyw_rkcx.Show
frm_main.Enabled = False
End Sub
Private Sub tsxs_Click() '加载图书销售窗体
Load main_rcyw_tsxs
main_rcyw_tsxs.Show
frm_main.Enabled = False
End Sub
Private Sub xscx_Click() '加载销售查询窗体
Load main_rcyw_xscx
main_rcyw_xscx.Show
frm_main.Enabled = False
End Sub
Private Sub kccx_Click() '加载库存查询窗体
Load main_rcyw_kccx
main_rcyw_kccx.Show
frm_main.Enabled = False
End Sub
Private Sub kcsxx_Click() '加载库存上限、下限设置窗体
Load main_rcyw_kcsxx
main_rcyw_kcsxx.Show
frm_main.Enabled = False
End Sub
Private Sub kcyj_Click() '加载库存预警窗体
Load main_rcyw_kcyj
main_rcyw_kcyj.Show
frm_main.Enabled = False
End Sub
Private Sub js_Click() '加载借书窗体
Load main_jygl_js
main_jygl_js.Show
frm_main.Enabled = False
End Sub
Private Sub hs_Click() '加载还书窗体
Load main_jygl_hs
main_jygl_hs.Show
frm_main.Enabled = False
End Sub
Private Sub jscx_Click() '加载借书查询窗体
Load main_jygl_jscx
main_jygl_jscx.Show
frm_main.Enabled = False
End Sub
Private Sub hscx_Click() '加载还书查询窗体
Load main_jygl_hscx
main_jygl_hscx.Show
frm_main.Enabled = False
End Sub
Private Sub jscq_Click() '加载借书超期窗体
Load main_jygl_szdqtx
main_jygl_szdqtx.Show
frm_main.Enabled = False
End Sub
Private Sub xlfx_Click() '加载销量分析窗体
Load main_jcfx_xlfx
main_jcfx_xlfx.Show
frm_main.Enabled = False
End Sub
Private Sub jyfx_Click() '加载借阅分析窗体
Load main_jcfx_jyfx
main_jcfx_jyfx.Show
frm_main.Enabled = False
End Sub
Private Sub kcfx_Click() '加载库存分析窗体
Load main_jcfx_kcfx
main_jcfx_kcfx.Show
frm_main.Enabled = False
End Sub
Private Sub czy_Click() '加载操作员设置窗体
Load main_xtgl_czysz
main_xtgl_czysz.Show
frm_main.Enabled = False
End Sub
Private Sub mmsz_Click() '加载密码设置窗体
Load main_xtgl_mmsz
main_xtgl_mmsz.Show
frm_main.Enabled = False
End Sub
Private Sub czyjbsz_Click() '加载操作员级别设置窗体
Load main_xtgl_czyjbsz
main_xtgl_czyjbsz.Show
frm_main.Enabled = False
End Sub
Private Sub qxsz_Click() '加载权限管理窗体
Load main_xtgl_qxgl
main_xtgl_qxgl.Show
frm_main.Enabled = False
End Sub
Private Sub xtcsh_Click() '加载系统初始化窗体
Load main_xtwh_xtcsh
main_xtwh_xtcsh.Show
frm_main.Enabled = False
End Sub

Private Sub sjbf_Click() '加载数据备份窗体
On Error Resume Next '进行错误处理
Shell App.Path & "\备份及恢复数据库.exe", 1
If Err.Number = 53 Then '当产生文件为找到错误时，执行以下操作
CommonDialog1.Filter = "备份及恢复数据库 ¦备份及恢复数据库.exe" '设定打开文件类型
CommonDialog1.FileName = App.Path
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then '判断打开文件路径是否为空
Shell CommonDialog1.FileName, 1
If Err Then
MsgBox "请指定文件所在路径。"
Exit Sub
End If
Else
MsgBox "请指定文件所在路径。"
Exit Sub
End If
End If
End
End Sub

Private Sub sjhf_Click() '加载数据恢复窗体
On Error Resume Next
Shell App.Path & "\备份及恢复数据库.exe", 1
If Err.Number = 53 Then
CommonDialog1.Filter = "备份及恢复数据库 ¦备份及恢复数据库.exe"
CommonDialog1.FileName = App.Path
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Shell CommonDialog1.FileName, 1
If Err Then
MsgBox "请指定文件所在路径。"
Exit Sub
End If
Else
MsgBox "请指定文件所在路径。"
Exit Sub
End If
End If
End

End Sub
Private Sub help_Click() '加载帮助窗体
Load main_help
main_help.Show
End Sub
Private Sub about_Click() '加载关于窗体
frm_about.Show
frm_main.Enabled = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case Is = "tslb"
tslb_Click '加载图书类别设置窗体
Case Is = "tsrk"
xztsrk_Click '加载图书入库窗体
Case Is = "tsjy"
js_Click '加载借书窗体
Case Is = "tsgh"
hs_Click '加载还书窗体
Case Is = "kccx"
kccx_Click '加载库存查询窗体
Case Is = "qxgl"
qxsz_Click '加载权限管理窗体
Case Is = "help"
help_Click '加载帮助窗体
Case Is = "about"
about_Click
Case Is = "end"
End
End Select
End Sub
Private Sub exit_Click()
End
End Sub

那是不是改下加载的窗体就可以了呢???

修改删除举报引用回复