frmmain.frm

保险定单管理系统,实现了保险的增删改查.

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "保单管理系统"
   ClientHeight    =   6150
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8970
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu PolicyManagement 
      Caption         =   "保单管理"
      Index           =   0
      Begin VB.Menu Maintenance 
         Caption         =   "录入与维护"
         Shortcut        =   ^M
      End
      Begin VB.Menu Approval 
         Caption         =   "审批"
         Enabled         =   0   'False
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu ClaimsManagement 
      Caption         =   "理赔管理"
      Begin VB.Menu BackupClaimsData 
         Caption         =   "理赔信息维护"
         Shortcut        =   ^B
      End
      Begin VB.Menu QuickQuery 
         Caption         =   "快速查询"
         Enabled         =   0   'False
         Shortcut        =   ^Q
      End
      Begin VB.Menu Statistics 
         Caption         =   "统计"
         Enabled         =   0   'False
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu ServiceManagement 
      Caption         =   "服务管理"
      Begin VB.Menu AutomaticReminder 
         Caption         =   "自动提醒"
         Enabled         =   0   'False
         Shortcut        =   ^R
      End
      Begin VB.Menu FAQ 
         Caption         =   "问题解答"
         Enabled         =   0   'False
         Shortcut        =   ^F
      End
   End
   Begin VB.Menu CustomerManagement 
      Caption         =   "客户机构与资料管理"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public LoginSucceeded As Boolean    '是否连接数据库成功
Dim conn As ADODB.Connection        '数据库连接
          
Private Sub BackupClaimsData_Click()
frmClaimsInformation.Show       '理赔信息
End Sub

Private Sub CustomerManagement_Click()
frmCustomerManagement.Show      '客户管理
End Sub

Private Sub Maintenance_Click()
frmPolicyInput.Show    ' 投保录入
End Sub

Private Sub MDIForm_Load()
Me.Show
dlgConnectToDatabase.Show vbModal   '显示连接数据库对话框
If dlgConnectToDatabase.LoginSucceeded = False Then
    Unload Me   '如果用户取消连接，退出主程序
End If
End Sub