mdiform1.frm

水利计算程序!年径流量!调节计算!调洪计算.

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "FrmMain"
   ClientHeight    =   6810
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10875
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu cmadOk 
      Caption         =   "打开"
      Begin VB.Menu option1 
         Caption         =   "调节流量"
      End
      Begin VB.Menu option2 
         Caption         =   "保证出力"
      End
      Begin VB.Menu option3 
         Caption         =   "求防破坏线索"
      End
      Begin VB.Menu option5 
         Caption         =   "多年平均电能"
      End
      Begin VB.Menu option4 
         Caption         =   "调洪计算"
      End
   End
   Begin VB.Menu cmadCancel 
      Caption         =   "关闭"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'关闭主窗体
Private Sub cmadCancel_Click()
    Unload Me
End Sub

Private Sub MDIForm_Load()
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
End Sub
'卸载主窗体时发生End事件
Private Sub MDIForm_Unload(Cancel As Integer)
    End
End Sub

Private Sub option1_Click()
    Me.Hide
    frmRegularQ.Show  '长系列调节流量计算源程序
    Me.Show
End Sub
Private Sub option2_Click()
    Me.Hide
    frmPower.Show  '长系列保证出力计算源程序
    Me.Show
End Sub

Private Sub option3_Click()
    Me.Hide
    frmDetroyLine.Show  '防破坏线制作程序
    Me.Show
End Sub

Private Sub option4_Click()
    Me.Hide
    frmFloodProceed.Show  '水库调洪计算
    Me.Show
End Sub

Private Sub option5_Click()
    Me.Hide
    frmDnpj.Show  '多年平均电能计算
    Me.Show
End Sub