mdiform1.frm

一个水情自动测报系统的接收例程

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "动态数据"
   ClientHeight    =   5595
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9735
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   495
      Left            =   0
      TabIndex        =   0
      Top             =   5100
      Width           =   9735
      _ExtentX        =   17171
      _ExtentY        =   873
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   4
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   344
            MinWidth        =   2
            Object.Tag             =   ""
            Object.ToolTipText     =   "已收到数据"
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   344
            MinWidth        =   2
            Object.Tag             =   ""
            Object.ToolTipText     =   "已收到雨量"
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   344
            MinWidth        =   2
            Object.Tag             =   ""
            Object.ToolTipText     =   "已收到水位"
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   344
            MinWidth        =   2
            Object.Tag             =   ""
            Object.ToolTipText     =   "已收到电压"
         EndProperty
      EndProperty
   End
   Begin VB.Menu f1 
      Caption         =   "文件(&F)"
      Begin VB.Menu Act1 
         Caption         =   "系统动态数据"
      End
      Begin VB.Menu Act2 
         Caption         =   "雨量动态数据"
      End
      Begin VB.Menu Act3 
         Caption         =   "水位动态数据"
      End
      Begin VB.Menu Act4 
         Caption         =   "电压动态数据"
      End
      Begin VB.Menu mnuFileSave 
         Caption         =   "保存当前窗口数据(&S)"
      End
      Begin VB.Menu idm_print 
         Caption         =   "打印当前窗口"
      End
   End
   Begin VB.Menu b1 
      Caption         =   "窗口(&W)"
      Begin VB.Menu mnuWindowCascade 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu mnuWindowTile 
         Caption         =   "平铺(&T)"
      End
      Begin VB.Menu mnuWindowArrange 
         Caption         =   "排列图标(&A)"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub h1_Click()
On Error Resume Next
End Sub

Private Sub Act2_Click()
Dim st, tt As String
On Error Resume Next
Y.Caption = "雨量动态数据"
Y.Show
st = ""
tt = ""
Open App.Path & "\雨量动态数据.txt" For Append As #2
Close #2
Open App.Path & "\雨量动态数据.txt" For Input As #2
Do Until EOF(2)
   Line Input #2, tt
   st = st + tt + Chr(13) + Chr(10)
Loop
Close #2
Y.Text1.Text = st
Y.d1 = -2
End Sub

Private Sub Act1_Click()
Dim st, tt As String
On Error Resume Next

x.Caption = "系统动态数据"
x.Show
st = ""
tt = ""
Open App.Path & "\系统动态数据.txt" For Append As #1
Close #1
Open App.Path & "\系统动态数据.txt" For Input As #1
Do Until EOF(1)
   Line Input #1, tt
   st = st + tt + Chr(13) + Chr(10)
Loop
Close #1
x.Text1.Text = st
x.d1 = -1
End Sub

Private Sub Act3_Click()
Dim st, tt As String
On Error Resume Next

z.Caption = "水位动态数据"
z.Show
st = ""
tt = ""
Open App.Path & "\水位动态数据.txt" For Append As #3
Close #3
Open App.Path & "\水位动态数据.txt" For Input As #3
Do Until EOF(3)
   Line Input #3, tt
   st = st + tt + Chr(13) + Chr(10)
Loop
Close #3
z.Text1.Text = st
z.d1 = -3
End Sub

Private Sub Act4_Click()
Dim st, tt As String
On Error Resume Next

w.Caption = "电压动态数据"
w.Show
st = ""
tt = ""
Open App.Path & "\电压动态数据.txt" For Append As #4
Close #4
Open App.Path & "\电压动态数据.txt" For Input As #4
Do Until EOF(4)
   Line Input #4, tt
   st = st + tt + Chr(13) + Chr(10)
Loop
Close #4
w.Text1.Text = st
w.d1 = -4
End Sub


Private Sub idm_print_Click()
On Error Resume Next
MDIForm1.ActiveForm.Printx
End Sub

Private Sub MDIForm_Load()

Dim tt, st As String
On Error Resume Next

Call Act1_Click
Call Act2_Click
Call Act3_Click
Call Act4_Click


MDIForm1.Arrange vbTileHorizontal

Me.StatusBar1.Panels(1).Text = "总计" & CStr(Total_Water + Total_Rain + Total_V)
Me.StatusBar1.Panels(2).Text = "雨量" & CStr(Total_Rain)
Me.StatusBar1.Panels(3).Text = "水位" & CStr(Total_Water)
Me.StatusBar1.Panels(4).Text = "电压" & CStr(Total_V)

Me.WindowState = 1
End Sub

Private Sub mnuFileSave_Click()
On Error Resume Next
MDIForm1.ActiveForm.save
End Sub

Private Sub mnuWindowArrange_Click()
On Error Resume Next
    ' 对任何已经最小化的子窗体排列图标
    MDIForm1.Arrange vbArrangeIcons
End Sub

Private Sub mnuWindowCascade_Click()
On Error Resume Next
    ' 层叠子窗体
    MDIForm1.Arrange vbCascade
End Sub

Private Sub mnuWindowTile_Click()
On Error Resume Next
    ' 平铺子窗体
    MDIForm1.Arrange vbTileHorizontal
End Sub