frmmain.frm

使用vb开发的课程设计

VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   "合同管理系统"
   ClientHeight    =   4410
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6810
   LinkTopic       =   "Form1"
   ScaleHeight     =   4410
   ScaleWidth      =   6810
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu employee 
      Caption         =   "员工管理(&E)"
      Begin VB.Menu addEmployee 
         Caption         =   "添加员工(&A)"
      End
      Begin VB.Menu modifyMember 
         Caption         =   "删改员工(&U)"
      End
      Begin VB.Menu queryEmployee 
         Caption         =   "员工查询(&Q)"
      End
   End
   Begin VB.Menu client 
      Caption         =   "客户管理(&K)"
      Begin VB.Menu addClient 
         Caption         =   "添加客户信息(&A)"
      End
      Begin VB.Menu updateClient 
         Caption         =   "删改客户信息(&U)"
      End
      Begin VB.Menu queryClient 
         Caption         =   "查询客户信息(&Q)"
      End
   End
   Begin VB.Menu Contract 
      Caption         =   "合同管理(&C)"
      Begin VB.Menu addContract 
         Caption         =   "添加合同(&A)"
      End
      Begin VB.Menu modifyContract 
         Caption         =   "删改合同(&U)"
      End
      Begin VB.Menu queryContract 
         Caption         =   "查询合同(&Q)"
      End
   End
   Begin VB.Menu funds 
      Caption         =   "款项管理(&M)"
      Begin VB.Menu billContract 
         Caption         =   "合同收款(&M)"
      End
      Begin VB.Menu queryBill 
         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 addContract_Click()
frmAddContract.Show

End Sub

Private Sub addEmployee_Click()
frmAddEmployee.Show

End Sub

Private Sub billContract_Click()
frmBillContract.Show

End Sub

Private Sub Form_Load()

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

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

End Sub

Private Sub modifyContract_Click()
frmModifyContract.Show
End Sub

Private Sub modifyMember_Click()
frmUpdateEmployee.Show
End Sub

Private Sub queryBill_Click()
frmQueryBill.Show

End Sub

Private Sub queryClient_Click()
frmQueryClient.Show

End Sub

Private Sub queryContract_Click()
frmQueryContract.Show

End Sub

Private Sub queryEmployee_Click()
frmQueryEmployee.Show
End Sub

Private Sub updateClient_Click()
frmUpdateClient.Show

End Sub