mfrmmain.frm

用VB.Net写的一个发送短信的东东

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MFrmmain 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFC0C0&
   Caption         =   "短信发送接收处理程序"
   ClientHeight    =   7395
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8640
   Icon            =   "MFrmmain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   600
      Top             =   960
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MFrmmain.frx":0442
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MFrmmain.frx":075C
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MFrmmain.frx":0A76
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MFrmmain.frx":0D90
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MFrmmain.frx":112A
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   660
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8640
      _ExtentX        =   15240
      _ExtentY        =   1164
      ButtonWidth     =   1032
      ButtonHeight    =   1005
      Appearance      =   1
      ImageList       =   "ImageList1"
      DisabledImageList=   "ImageList1"
      HotImageList    =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   5
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "员工信息录入维护"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "短语录入维护"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "短信发送"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "帮助"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "退出系统"
            ImageIndex      =   5
         EndProperty
      EndProperty
   End
   Begin VB.Menu 员工信息维护 
      Caption         =   "员工信息维护"
   End
   Begin VB.Menu 预制短语 
      Caption         =   "预制短语"
   End
   Begin VB.Menu 短信发送 
      Caption         =   "短信发送"
   End
   Begin VB.Menu 短信查询 
      Caption         =   "短信查询"
      Begin VB.Menu 接收到的短信 
         Caption         =   "接收到的短信"
      End
      Begin VB.Menu 发出的短信 
         Caption         =   "发出的短信"
      End
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助"
   End
   Begin VB.Menu 退出系统 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "MFrmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=ljglzx"
Cn.Open Cnstr
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
If MsgBox("你确实要退出该系统吗？", vbQuestion + vbYesNo, "提示！") = vbYes Then
Else
Cancel = 1
End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
       Case 1
        Call 员工信息维护_Click
       Case 2
        Call 预制短语_Click
       Case 3
        Call 短信发送_Click
       Case 4
       Case 5
       Unload Me
End Select
End Sub

Private Sub 帮助_Click()
Help.Show 1
End Sub

Private Sub 短信发送_Click()
FrmSendSms.Show
FrmSendSms.SetFocus
End Sub

Private Sub 发出的短信_Click()
Hassendsms.Show
End Sub

Private Sub 接收到的短信_Click()
Frmreceivesms.Show
End Sub

Private Sub 退出系统_Click()
Unload Me
End Sub

Private Sub 预制短语_Click()
FrmSmsdz.Show
FrmSmsdz.SetFocus
End Sub

Private Sub 员工信息维护_Click()
Frmuser.Show
Frmuser.SetFocus
End Sub