main.frm

打印方面的程序

VERSION 5.00
Begin VB.MDIForm Main 
   BackColor       =   &H8000000C&
   Caption         =   "山东科技大学物品管理系统"
   ClientHeight    =   8190
   ClientLeft      =   1770
   ClientTop       =   465
   ClientWidth     =   8880
   Icon            =   "Main.frx":0000
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin VB.Menu mnu_file 
      Caption         =   "文件"
      Begin VB.Menu mnu_backup 
         Caption         =   "数据备份"
      End
      Begin VB.Menu mnu_restore 
         Caption         =   "数据恢复"
      End
      Begin VB.Menu qxsz_mnu 
         Caption         =   "权限设置"
      End
      Begin VB.Menu mnu_exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnu_wupin 
      Caption         =   "物品管理"
      Begin VB.Menu mnu_new_ysd 
         Caption         =   "新开验收单"
      End
   End
   Begin VB.Menu mnu_chaxun 
      Caption         =   "物品查询"
      Begin VB.Menu mnu_wpmc_chaxun 
         Caption         =   "按物品名称查询"
      End
      Begin VB.Menu mnu_ysdbh_chaxun 
         Caption         =   "按验收单编号查询"
      End
      Begin VB.Menu mnu_wpbh_chaxun 
         Caption         =   "按物品编号查询"
      End
      Begin VB.Menu mnu_ysr_chaxun 
         Caption         =   "按验收人查询"
      End
      Begin VB.Menu mnu_sydw_chaxun 
         Caption         =   "按使用单位查询"
      End
      Begin VB.Menu mnu_bgbm_chaxun 
         Caption         =   "按保管部门查询"
      End
   End
   Begin VB.Menu mnu_wuzi_jieyong 
      Caption         =   "物资借用管理"
      Begin VB.Menu mnu_jieyong 
         Caption         =   "物资借用"
      End
      Begin VB.Menu mnu_guihuan 
         Caption         =   "物资归还"
      End
      Begin VB.Menu mnu_wuzi_chaxun 
         Caption         =   "物资查询"
      End
   End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
If Right(App.path, 1) = "\" Then ' 若 App.Path 为根目录
curpath = App.path
Else
curpath = App.path + "\"
End If



End Sub

Private Sub MDIForm_Unload(Cancel As Integer)

End
End Sub

Private Sub mnu_backup_Click()
frm_backup.Show
End Sub

Private Sub mnu_bgbm_chaxun_Click()
str_wpcx = "保管部门"
Form5.Label1.Caption = "请输入保管部门："
Form5.Show

End Sub

Private Sub mnu_del_ysd_Click()
Form4.Show
End Sub

Private Sub mnu_edit_ysd_Click()
Form3.Show
End Sub

Private Sub mnu_exit_Click()
End
End Sub

Private Sub mnu_guihuan_Click()
Form3.Show vbModal
End Sub

Private Sub mnu_jieyong_Click()
Form2.Show vbModal

End Sub

Private Sub mnu_new_ysd_Click()
Form1.Show vbModal
End Sub

Private Sub mnu_print_Click()
Form2.Show
End Sub

Private Sub mnu_restore_Click()
frm_huifu.Show
End Sub

Private Sub mnu_sydw_chaxun_Click()
str_wpcx = "使用单位"
Form5.Label1.Caption = "请输入使用单位："
Form5.Show

End Sub

Private Sub mnu_wpbh_chaxun_Click()
str_wpcx = "编号"
Form5.Label1.Caption = "请输入物品的编号："
Form5.Show

End Sub

Private Sub mnu_wpmc_chaxun_Click()

str_wpcx = "名称"
Form5.Label1.Caption = "请输入物品的名称："
Form5.Show
End Sub

Private Sub mnu_ysdbh_chaxun_Click()

str_wpcx = "单据号"
Form5.Label1.Caption = "请输入表单号："
Form5.Show


End Sub

Private Sub mnu_ysr_chaxun_Click()
str_wpcx = "验收人"
Form5.Label1.Caption = "请输入验收人姓名："
Form5.Show

End Sub

Private Sub qxsz_mnu_Click()
Form8.Show
End Sub