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