mdiform1.frm

19851651gjh bhbhkjkjnnjkkj

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "服务登记程序"
   ClientHeight    =   5940
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8445
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar2 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   5685
      Width           =   8445
      _ExtentX        =   14896
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   9234
            MinWidth        =   3175
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "22:52"
         EndProperty
      EndProperty
   End
   Begin VB.Menu MUNR 
      Caption         =   "记录(&R)"
      Begin VB.Menu mnudjb 
         Caption         =   "查登(&U)"
         Shortcut        =   ^Z
      End
      Begin VB.Menu mnuin 
         Caption         =   "导入和导出(&I)"
      End
   End
   Begin VB.Menu mnusz 
      Caption         =   "设置(&S)"
      Begin VB.Menu mnusjk 
         Caption         =   "数据库路径(&P)"
      End
      Begin VB.Menu mnu1 
         Caption         =   "-"
      End
      Begin VB.Menu mnumm 
         Caption         =   "密码设定(&C)"
      End
      Begin VB.Menu mnu4 
         Caption         =   "-"
      End
      Begin VB.Menu mnudh 
         Caption         =   "电话邮编查询(&T)"
      End
      Begin VB.Menu munnl 
         Caption         =   "农历日期查询(&D)"
      End
   End
   Begin VB.Menu mnuhp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnugy 
         Caption         =   "关于(&A)..."
      End
   End
   Begin VB.Menu mnua 
      Caption         =   "A"
      Visible         =   0   'False
      Begin VB.Menu mnucopy 
         Caption         =   "复制表中数据"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
StatusBar2.Panels(1) = "接线员:" + mz
StatusBar2.Panels(2) = frmSplash.Label1
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
End
End Sub

Private Sub mnudh_Click()
Form1.Show
End Sub

Private Sub mnudjb_Click()
FormTXL.Show
End Sub

Private Sub mnugy_Click()
frmAbout.Show
End Sub

Private Sub mnuin_Click()
Form4.Show
End Sub

Private Sub mnumm_Click()
Formmm.Show
End Sub

Private Sub mnusjk_Click()
Form2.Show
End Sub

Private Sub munnl_Click()
Form3.Show
End Sub