frmmain.frm

水质模糊综合评价系统 水质模糊综合评价系统 水质模糊综合评价系统

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form FrmMain 
   Caption         =   "水质模糊综合评价系统"
   ClientHeight    =   10710
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   15240
   LinkTopic       =   "Form1"
   Picture         =   "FrmMain.frx":0000
   ScaleHeight     =   10710
   ScaleWidth      =   15240
   StartUpPosition =   2  '屏幕中心
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   240
      Top             =   9840
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Timer Timer1 
      Interval        =   150
      Left            =   2040
      Top             =   1200
   End
   Begin VB.Label Label2 
      BackColor       =   &H8000000A&
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎使用水质模糊综合评价系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   975
      Left            =   120
      TabIndex        =   0
      Top             =   2520
      Width           =   10215
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   10695
      Left            =   0
      Picture         =   "FrmMain.frx":030A
      Stretch         =   -1  'True
      Top             =   0
      Width           =   15615
   End
   Begin VB.Menu xtwu 
      Caption         =   "系统维护(&X)"
      Begin VB.Menu tjyh 
         Caption         =   "用户管理"
         Shortcut        =   ^A
      End
      Begin VB.Menu xgmm 
         Caption         =   "修改密码"
         Shortcut        =   ^B
      End
      Begin VB.Menu kong 
         Caption         =   "-"
      End
      Begin VB.Menu tcxt 
         Caption         =   "退出系统"
         Shortcut        =   ^D
      End
   End
   Begin VB.Menu szpj 
      Caption         =   "水质评价(&S)"
      Begin VB.Menu dxsp 
         Caption         =   "地下水评价"
      End
      Begin VB.Menu dbsp 
         Caption         =   "地表水评价"
         Begin VB.Menu hksm 
            Caption         =   "河口水模糊综合评价"
         End
         Begin VB.Menu wsmpj 
            Caption         =   "水污染程度模糊综合评价"
         End
         Begin VB.Menu ggsmpj 
            Caption         =   "灌溉水单因子模糊评价"
         End
         Begin VB.Menu zdy 
            Caption         =   "五级别水模型综合评价 "
         End
      End
   End
   Begin VB.Menu szxx 
      Caption         =   "水资源信息(&Z)"
      Begin VB.Menu dxcx 
         Caption         =   "地下水数据查询"
      End
      Begin VB.Menu hkcx 
         Caption         =   "河口水数据查询"
      End
      Begin VB.Menu wscx 
         Caption         =   "水污染数据统计"
      End
      Begin VB.Menu wjb 
         Caption         =   "五级别水模型数据统计"
      End
      Begin VB.Menu kong2 
         Caption         =   "-"
      End
      Begin VB.Menu gysp 
         Caption         =   "水资源评价信息"
      End
   End
   Begin VB.Menu bz 
      Caption         =   "帮助(&B)"
      Begin VB.Menu bznr 
         Caption         =   "帮助内容"
         Shortcut        =   {F1}
      End
      Begin VB.Menu jszc 
         Caption         =   "技术支持"
         Shortcut        =   {F2}
      End
      Begin VB.Menu gy 
         Caption         =   "关于"
         Shortcut        =   {F3}
      End
   End
   Begin VB.Menu dyin 
      Caption         =   "打印(&D)"
      Begin VB.Menu bbdy 
         Caption         =   "报表打印"
         Shortcut        =   {F4}
      End
   End
   Begin VB.Menu tanchu 
      Caption         =   "弹出菜单"
      Visible         =   0   'False
      Begin VB.Menu xgm1 
         Caption         =   "修改密码"
      End
      Begin VB.Menu bangzhu 
         Caption         =   "帮助"
         Begin VB.Menu neirong1 
            Caption         =   "帮助内容"
         End
         Begin VB.Menu guany1 
            Caption         =   "关于"
         End
      End
      Begin VB.Menu dy1 
         Caption         =   "打印报表"
      End
      Begin VB.Menu tuichu1 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim r As String
Private Sub bbdy_Click()
FrmPrint.Show
End Sub

Private Sub bznr_Click() '连接帮助文件
With CommonDialog1
.HelpCommand = cdlHelpForceFile
.HelpFile = App.Path & "\帮助\she.hlp"
.ShowHelp
End With
End Sub

Private Sub dxcx_Click()
FrmGroundWater2.Show
End Sub

Private Sub dxsp_Click()
FrmGroundWater1.Show
End Sub
Private Sub dy1_Click()
FrmPrint.Show
End Sub
Private Sub ggsmpj_Click()
FrmGg.Show
End Sub
Private Sub gy_Click()
FrmAbout1.Show
End Sub
Private Sub gysp_Click()
FrmPjbz1.Show
End Sub
Private Sub hkcx_Click()
FrmRiverCx.Show
End Sub
Private Sub hksm_Click()
FrmRiver.Show
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 2 Then
   PopupMenu tanchu
 End If
End Sub
Private Sub jszc_Click()
MsgBox "使用中如有问题请与我们联系！", vbInformation, "技术支持"
End Sub
Private Sub neirong1_Click()
With CommonDialog1
.HelpCommand = cdlHelpForceFile
.HelpFile = "d:\bishe\帮助\shejihelp.HLP"
.ShowHelp
End With
End Sub
Private Sub tcxt_Click()
End
End Sub
Private Sub Timer1_Timer()
Label2.Left = Label2.Left - 100
If Label2.Left < 0 Then Label2.Left = 8000
End Sub
Private Sub tjyh_Click()
FrmManagement.Show
End Sub
Private Sub tuichu1_Click()
End
End Sub

Private Sub wjb_Click()
FrmDynamicTj.Show
End Sub

Private Sub wscx_Click()
FrmPollutedWater1Cx.Show
End Sub
Private Sub wsmpj_Click()
FrmPollutedWater1.Show
End Sub
Private Sub xgm1_Click()
FrmXgmm.Show
End Sub
Private Sub xgmm_Click()
FrmXgmm.Show
End Sub
Private Sub zdy_Click()
FrmDynamic.Show
End Sub