frmmain.frm

这是一个用VB编写出来的烟草管理系统

VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   "禄丰县烟草公司烟叶调拨程序"
   ClientHeight    =   7725
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   9930
   Picture         =   "frmmain.frx":0000
   ScaleHeight     =   7725
   ScaleWidth      =   9930
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu System 
      Caption         =   "系统管理&(S)"
      Begin VB.Menu Yy 
         Caption         =   "烟叶信息管理"
         Shortcut        =   ^A
      End
      Begin VB.Menu Yz 
         Caption         =   "烟站信息管理"
         Shortcut        =   ^S
      End
      Begin VB.Menu Hq 
         Caption         =   "货区信息管理"
         Shortcut        =   ^D
      End
      Begin VB.Menu User 
         Caption         =   "用户信息管理"
         Shortcut        =   ^F
      End
      Begin VB.Menu g 
         Caption         =   "-"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu Data 
      Caption         =   "数据管理&(D)"
      Begin VB.Menu Ysd 
         Caption         =   "验收单据管理"
         Shortcut        =   ^H
      End
      Begin VB.Menu jjd 
         Caption         =   "降级单据管理"
         Shortcut        =   ^J
      End
      Begin VB.Menu Ysdcount 
         Caption         =   "验收单据统计"
         Shortcut        =   ^K
      End
      Begin VB.Menu jjdcount 
         Caption         =   "降级单据统计"
         Shortcut        =   ^L
      End
   End
   Begin VB.Menu About 
      Caption         =   "关于"
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rs As Recordset

Private Sub About_Click()
    frmAbout.Show
End Sub

Private Sub exit_Click()
    End
End Sub
Private Sub hq_Click()
    frmhq.Show
End Sub

Private Sub Jjd_Click()
    frmjjd.Show
End Sub

Private Sub jjdcount_Click()
    frmjjdcount.Show
End Sub

Private Sub user_Click()
    frmuser.Show
End Sub

Private Sub Ysd_Click()
    frmysd.Show
End Sub

Private Sub Ysdcount_Click()
    frmysdcount.Show
End Sub

Private Sub yy_Click()
    frmyy.Show
End Sub
Private Sub yz_Click()
    frmyz.Show
End Sub