mdifrm.frm

业务管理系统。方便业务员跟踪记录客户信息。

VERSION 5.00
Begin VB.MDIForm MDIFrm 
   BackColor       =   &H00008000&
   Caption         =   "业务"
   ClientHeight    =   7515
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11940
   Icon            =   "MDIFrm.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Align           =   3  'Align Left
      Appearance      =   0  'Flat
      BackColor       =   &H00004040&
      ForeColor       =   &H80000008&
      Height          =   7515
      Left            =   0
      ScaleHeight     =   7485
      ScaleWidth      =   1695
      TabIndex        =   0
      Top             =   0
      Width           =   1725
      Begin VB.CommandButton CommAdd 
         BackColor       =   &H0000C000&
         Caption         =   "添加业务"
         Height          =   915
         Left            =   0
         Picture         =   "MDIFrm.frx":08CA
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   2385
         UseMaskColor    =   -1  'True
         Width           =   1680
      End
      Begin VB.CommandButton CommExit 
         BackColor       =   &H0000C000&
         Caption         =   "退出系统"
         Height          =   915
         Left            =   0
         Picture         =   "MDIFrm.frx":0D0C
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   4275
         UseMaskColor    =   -1  'True
         Width           =   1680
      End
      Begin VB.CommandButton CommQuery 
         BackColor       =   &H0000C000&
         Caption         =   "查询业务"
         Height          =   915
         Left            =   0
         Picture         =   "MDIFrm.frx":15D6
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   3330
         UseMaskColor    =   -1  'True
         Width           =   1680
      End
      Begin VB.CommandButton CommLogin 
         BackColor       =   &H0000C000&
         Caption         =   "用户登录"
         Height          =   915
         Left            =   0
         Picture         =   "MDIFrm.frx":1A18
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   1440
         UseMaskColor    =   -1  'True
         Width           =   1680
      End
   End
End
Attribute VB_Name = "MDIFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CommAdd_Click()
    
    FrmAdd.Show
    
End Sub

Private Sub CommExit_Click()
    
    Dim Msg As Long
    
    Msg = MsgBox("    确实要退出系统吗？    ", vbYesNo, "退出系统")
    If Msg = vbYes Then
        Unload Me
    End If
    
End Sub

Private Sub CommLogin_Click()

    FrmLogin.Show
    
End Sub

Private Sub CommQuery_Click()

    FrmOpt.Show

End Sub

Private Sub MDIForm_Load()
    
    On Error GoTo ERR
    
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\Date.dat" & ";Mode=ReadWrite"
    
    FrmLogin.Show
    
    Exit Sub
ERR:
    MsgBox ERR.Description
    End
    
End Sub