mdiform1.frm

加上一个GSM模块

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.MDIForm frmMDI 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   8250
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   741
      Appearance      =   1
      _Version        =   327682
      Begin VB.CommandButton cmdUser 
         Caption         =   "修改用户信息"
         Height          =   375
         Left            =   4800
         TabIndex        =   6
         Top             =   0
         Width           =   1695
      End
      Begin VB.CommandButton cmdFind 
         Caption         =   "自动接收及查询"
         Height          =   375
         Left            =   3120
         TabIndex        =   4
         Top             =   0
         Width           =   1695
      End
      Begin VB.CommandButton cmdMDIEnd 
         Caption         =   "关   闭"
         Height          =   375
         Left            =   6480
         TabIndex        =   3
         Top             =   0
         Width           =   1815
      End
      Begin VB.CommandButton cmdSR 
         Caption         =   "发送据据(11)"
         Height          =   375
         Left            =   1560
         TabIndex        =   2
         Top             =   0
         Width           =   1575
      End
      Begin VB.CommandButton cmdInit 
         BackColor       =   &H00E0E0E0&
         Caption         =   "初始化设置"
         Height          =   375
         Left            =   0
         MaskColor       =   &H00FFFFFF&
         TabIndex        =   1
         Top             =   0
         UseMaskColor    =   -1  'True
         Width           =   1575
      End
      Begin VB.Image Image1 
         Height          =   15
         Left            =   0
         Top             =   360
         Width           =   7815
      End
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   5
      Top             =   7995
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   450
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   1
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin MSCommLib.MSComm comm 
      Left            =   7080
      Top             =   600
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
End
Attribute VB_Name = "frmMDI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdFind_Click()
    frmFind.Show
    frmFind.WindowState = 2
End Sub

Private Sub cmdInit_Click()
    frmInit.Show
    frmMDI.cmdSR.Enabled = True
    frmMDI.cmdFind.Enabled = True
    frmMDI.cmdFind.Enabled = True
    frmInit.WindowState = 2
End Sub

Private Sub cmdMDIEnd_Click()
    End
End Sub
Private Sub cmdSR_Click()
    frmSR11.Show
    frmSR11.WindowState = 2
End Sub
Private Sub cmdUser_Click()
    frmUser.Show
    frmUser.WindowState = 2
End Sub

Private Sub MDIForm_Load()
    cmdSR.Enabled = False
    cmdFind.Enabled = False
    newCount = 0
    newSub = 0
End Sub