mainmdifrm.frm

用VB实现SQL数据库编程

VERSION 5.00
Begin VB.MDIForm mainMDIfrm 
   BackColor       =   &H8000000C&
   Caption         =   "合同管理系统"
   ClientHeight    =   6000
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   9885
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  'CenterScreen
   Begin VB.Menu mSys 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu cMu 
         Caption         =   "修改密码(&U)"
      End
      Begin VB.Menu mLo 
         Caption         =   "注销(&L)"
      End
      Begin VB.Menu mEt 
         Caption         =   "退出(&E)"
      End
   End
   Begin VB.Menu mCm 
      Caption         =   "合同管理(&M)"
      Begin VB.Menu hcx 
         Caption         =   "合同查询(&c)"
      End
      Begin VB.Menu mCs 
         Caption         =   "合同签定(&S)"
      End
      Begin VB.Menu mCr 
         Caption         =   "合同续签(&R)"
      End
      Begin VB.Menu mCt 
         Caption         =   "合同终止(&T)"
      End
   End
   Begin VB.Menu mPs 
      Caption         =   "打印报表(&P)"
      Begin VB.Menu mPc 
         Caption         =   "打印合同清单(&C)"
      End
   End
   Begin VB.Menu mHp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mAt 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "mainMDIfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cMu_Click() '修改密码
  modifyfrm.SetFocus
  modifyfrm.Text2.SetFocus
End Sub

Private Sub hcx_Click()
selctfrm.Show
End Sub

Private Sub mCr_Click() '续签已到期合同
  renewlistfrm.SetFocus
End Sub

Private Sub mCs_Click() '合同签定
  contractawardfrm.SetFocus
End Sub

Private Sub mCt_Click() '合同终止
  contractlistfrm.SetFocus
End Sub

Private Sub MDIForm_Unload(cancel As Integer)
  End
End Sub

Private Sub mEt_Click() '退出
  Unload Me
End Sub

Private Sub mLo_Click() '注销
  Unload Me
  loginfrm.Show
End Sub

Private Sub mAt_Click() '帮助
  aboutfrm.Show
End Sub

Private Sub mPc_Click() '打印合同清单
  DataReport1.SetFocus
End Sub