frmmain.frm

数据库课程设计

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "订单管理系统"
   ClientHeight    =   4785
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7575
   LinkTopic       =   "Form1"
   ScaleHeight     =   4785
   ScaleWidth      =   7575
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu sysManagement 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu exitSys 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu clientManager 
      Caption         =   "客户管理(&C)"
      Begin VB.Menu addclient 
         Caption         =   "添加客户(&A)"
      End
      Begin VB.Menu updateClient 
         Caption         =   "修改/删除客户"
      End
      Begin VB.Menu queryClient 
         Caption         =   "查询客户(&Q)"
      End
   End
   Begin VB.Menu productManager 
      Caption         =   "产品管理(&P)"
      Begin VB.Menu addProduct 
         Caption         =   "添加产品(&A)"
      End
      Begin VB.Menu updateProduct 
         Caption         =   "修改/删除产品(&M)"
      End
      Begin VB.Menu queryProducts 
         Caption         =   "产品查询(&Q)"
      End
   End
   Begin VB.Menu orderManage 
      Caption         =   "订单管理(&O)"
      Begin VB.Menu newOrder 
         Caption         =   "新订单(&N)"
      End
      Begin VB.Menu queryOrder 
         Caption         =   "查询订单(&Q)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addclient_Click()
frmAddClient.Show
End Sub

Private Sub addProduct_Click()
frmAddProduct.Show

End Sub

Private Sub exitSys_Click()
 End
End Sub

Private Sub Form_Load()

'窗体居中显示
Me.Top = (Screen.Height - Me.Height) \ 2
Me.Left = (Screen.Width - Me.Width) \ 2

'获取数据库的位置
dbPath = App.Path + "\db\order.mdb"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath

End Sub

Private Sub newOrder_Click()
frmAddOrder.Show
End Sub

Private Sub queryClient_Click()
frmQueryClient.Show

End Sub

Private Sub queryOrder_Click()
frmQueryOrder.Show

End Sub

Private Sub queryProducts_Click()
frmQueryProduct.Show
End Sub

Private Sub updateClient_Click()
frmModifyClient.Show
End Sub

Private Sub updateProduct_Click()
frmUpdateProduct.Show
End Sub