企业管理

开发平台：
Visual Basic

Form_main.frm：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form_main 
   Caption         =   "百利/ERP5.0-系统管理"
   ClientHeight    =   5385
   ClientLeft      =   1515
   ClientTop       =   3690
   ClientWidth     =   7080
   Icon            =   "Form_main.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5385
   ScaleWidth      =   7080
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   3450
      Top             =   990
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   10
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":038A
            Key             =   "xz"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":0726
            Key             =   "sx"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":0AC2
            Key             =   "sc"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":0E5E
            Key             =   "bf"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":11FA
            Key             =   "hf"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":1596
            Key             =   "sz"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":1932
            Key             =   "qy"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":1CCE
            Key             =   "yh"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":206A
            Key             =   "tc"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form_main.frx":2406
            Key             =   "l"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.StatusBar StatusBar 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   2
      Top             =   5070
      Width           =   7080
      _ExtentX        =   12488
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   1411
            MinWidth        =   1411
            Text            =   "状态:"
            TextSave        =   "状态:"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5292
            MinWidth        =   5292
            Text            =   "就绪"
            TextSave        =   "就绪"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   8819
            MinWidth        =   8819
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2003-11-08"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Object.Width           =   5292
            MinWidth        =   5292
            TextSave        =   "10:51"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ListView List_data 
      Height          =   4425
      Left            =   -30
      TabIndex        =   1
      Top             =   540
      Width           =   7665
      _ExtentX        =   13520
      _ExtentY        =   7805
      SortKey         =   1
      View            =   3
      LabelEdit       =   1
      Sorted          =   -1  'True
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      FullRowSelect   =   -1  'True
      _Version        =   393217
      Icons           =   "ImageList1"
      SmallIcons      =   "ImageList1"
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   7
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "编号"
         Object.Width           =   1589
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "套帐名"
         Object.Width           =   3528
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "数据库名"
         Object.Width           =   3528
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   3
         Text            =   "创建时间"
         Object.Width           =   3881
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   4
         Text            =   "上次备份时间"
         Object.Width           =   3881
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   5
         Text            =   "服务器"
         Object.Width           =   2117
      EndProperty
      BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   6
         Text            =   "数据库类型"
         Object.Width           =   2540
      EndProperty
   End
   Begin MSComctlLib.Toolbar Tool 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7080
      _ExtentX        =   12488
      _ExtentY        =   979
      ButtonWidth     =   820
      ButtonHeight    =   926
      AllowCustomize  =   0   'False
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   12
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "新建"
            Key             =   "New"
            Object.ToolTipText     =   "新建套帐"
            ImageKey        =   "xz"
            Object.Width           =   700
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "属性"
            Key             =   "Property"
            Object.ToolTipText     =   "套帐属性"
            ImageKey        =   "sx"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "Del"
            Object.ToolTipText     =   "套帐删除"
            ImageKey        =   "sc"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "备份"
            Key             =   "Bak"
            Object.Tag             =   "套帐备份"
            ImageKey        =   "bf"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "恢复"
            Key             =   "Restore"
            Object.ToolTipText     =   "帐套恢复"
            ImageKey        =   "hf"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "设置"
            Key             =   "Setup"
            Object.ToolTipText     =   "帐套参数设置"
            ImageKey        =   "sz"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "启用"
            Key             =   "Start"
            ImageKey        =   "qy"
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "用户"
            Key             =   "User"
            ImageKey        =   "yh"
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "Exit"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
   End
   Begin VB.Menu XT 
      Caption         =   "系统(&S)"
      Begin VB.Menu Edit 
         Caption         =   "修改密码"
      End
      Begin VB.Menu Refresh 
         Caption         =   "刷新"
         Shortcut        =   ^R
      End
      Begin VB.Menu JUY 
         Caption         =   "-"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu SZK 
      Caption         =   "数据库(&D)"
      Begin VB.Menu NewDatabase 
         Caption         =   "新建套帐"
         Shortcut        =   ^N
      End
      Begin VB.Menu P 
         Caption         =   "套帐属性"
      End
      Begin VB.Menu Del 
         Caption         =   "删除套帐"
      End
      Begin VB.Menu ssd 
         Caption         =   "-"
      End
      Begin VB.Menu Bak 
         Caption         =   "备份"
         Shortcut        =   ^B
      End
      Begin VB.Menu Restore 
         Caption         =   "恢复"
      End
      Begin VB.Menu trt 
         Caption         =   "-"
      End
      Begin VB.Menu cjuser 
         Caption         =   "创建数据库用户名"
      End
   End
   Begin VB.Menu TZ 
      Caption         =   "套帐(&A)"
      Begin VB.Menu Setup 
         Caption         =   "设置"
         Shortcut        =   ^S
      End
      Begin VB.Menu Start 
         Caption         =   "启用"
      End
      Begin VB.Menu NEWKJQJ 
         Caption         =   "创建下年度会计期间"
      End
      Begin VB.Menu sds 
         Caption         =   "-"
      End
      Begin VB.Menu User 
         Caption         =   "用户"
         Shortcut        =   ^U
      End
      Begin VB.Menu log 
         Caption         =   "上机日志"
      End
   End
   Begin VB.Menu SZ 
      Caption         =   "设置"
      Begin VB.Menu DJSZ 
         Caption         =   "单据设计"
         Begin VB.Menu DJRLSJ 
            Caption         =   "单据录入设计"
         End
         Begin VB.Menu DJDYSJ 
            Caption         =   "单据打印设计"
         End
      End
   End
   Begin VB.Menu BZ 
      Caption         =   "帮助(&H)"
      Begin VB.Menu Help 
         Caption         =   "帮助主题"
      End
      Begin VB.Menu dfg 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "关于"
         Shortcut        =   ^A
      End
   End
End
Attribute VB_Name = "Form_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mItem As ListItem
Private Sub about_Click()
    XT_frmAbout.Show 1
End Sub
Private Sub Bak_Click()
    If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
    Frm_Bakdatabase.Text1.Tag = List_data.SelectedItem.SubItems(2)
    Frm_Bakdatabase.Text2.Text = List_data.SelectedItem.SubItems(2)
    Frm_Bakdatabase.Caption = "套帐备份---" & List_data.SelectedItem.SubItems(1)
    Frm_Bakdatabase.Show 1
End Sub
Private Sub cjuser_Click()
    On Error Resume Next
    Conn_System.Execute "EXEC sp_addlogin 'HXXD', '123'"
    Conn_System.Execute "EXEC sp_addsrvrolemember 'HXXD', 'sysadmin'"
    If Trim(Err.Description) = "" Then
       MsgBox "创建成功！  ", 48
       Else
       MsgBox Err.Description, 16
    End If
End Sub
Private Sub Del_Click()
    If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
    YesNoStr = MsgBox("你是否要删除编号为(" & List_data.SelectedItem.Text & ")的套帐！  ", vbYesNo + 32)
    If YesNoStr = vbNo Then Exit Sub
    Dele_CountingRoom List_data.SelectedItem.Key
End Sub
Private Sub DJDYSJ_Click()
    If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
    If Cw_DataEnvi.DataConnect.State = 1 Then Cw_DataEnvi.DataConnect.Close
    Cw_DataEnvi.DataConnect.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=" & ServerName_Str & "; Initial Catalog=" & List_data.SelectedItem.SubItems(2) & ";", "HXXD", "123"
    XT_BillPrintDesign.Tag = List_data.SelectedItem.SubItems(1) & "/" & XT_BillPrintDesign.Caption
    XT_BillPrintDesign.Caption = List_data.SelectedItem.SubItems(1) & "/" & XT_BillPrintDesign.Caption
    XT_BillPrintDesign.Show 1
End Sub
Private Sub DJRLSJ_Click()
    If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
    If Cw_DataEnvi.DataConnect.State = 1 Then Cw_DataEnvi.DataConnect.Close
    Cw_DataEnvi.DataConnect.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=" & ServerName_Str & "; Initial Catalog=" & List_data.SelectedItem.SubItems(2) & ";", "HXXD", "123"
    XT_BillDesign.Tag = List_data.SelectedItem.SubItems(1) & "/" & XT_BillDesign.Caption
    XT_BillDesign.Caption = List_data.SelectedItem.SubItems(1) & "/" & XT_BillDesign.Caption
    XT_BillDesign.Show 1
End Sub
Private Sub Edit_Click()
    Frm_Password.Show 1
End Sub
Private Sub Exit_Click()
    Unload Me
End Sub
Public Sub Form_Load()
    On Error Resume Next
    Dim aDo_DataBase As New Recordset
    Set aDo_DataBase = Conn_System.Execute("select * from HDSystem_DataBases")
     List_data.ListItems.Clear
    With aDo_DataBase
    Do While Not .EOF
        Set mItem = List_data.ListItems.Add()
        mItem.Text = !Number
        mItem.SmallIcon = "l"
        mItem.Icon = "l"
        mItem.SubItems(1) = !CountingRoomName
        mItem.SubItems(2) = !DataBasesName
        mItem.SubItems(3) = !NewDate
        mItem.SubItems(4) = "" & !BackupDate
        mItem.SubItems(5) = Trim("" & !ServerName)
        mItem.SubItems(6) = Trim("" & !DatabaseType)
        mItem.Key = !DataBasesName
       
        .MoveNext
    Loop
    .Close
    Set aDo_DataBase = Nothing
    End With
End Sub
Private Sub Form_Resize()
    On Error Resume Next
    List_data.Width = Me.Width - 100
    List_data.Height = Me.Height - Tool.Height - StatusBar.Height - 680
End Sub
Private Sub Help_Click()
    SendKeys "{F1}", True
End Sub
Private Sub HigherUpCo_Click()
    If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
    Frm_HigherUpCo.Tag = List_data.SelectedItem.SubItems(2)
    Frm_HigherUpCo.Caption = Frm_HigherUpCo.Caption & "---" & List_data.SelectedItem.SubItems(1)
    
    Frm_HigherUpCo.Show 1
End Sub
Private Sub log_Click()
    If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
    Frm_Log.Tag = List_data.SelectedItem.SubItems(2)
    Frm_Log.Caption = Frm_Log.Caption & "---" & List_data.SelectedItem.SubItems(1)
    Frm_Log.Show 1
End Sub
Private Sub NewDatabase_Click()
    Frm_Newdatabase.Show 1
End Sub
Private Sub NEWKJQJ_Click()
   If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
      Form_NewKJQJ.Text1(0).Tag = List_data.SelectedItem.SubItems(2)
      Form_NewKJQJ.Caption = Form_NewKJQJ.Caption & "---" & List_data.SelectedItem.SubItems(1)
      Form_NewKJQJ.Show 1
End Sub
Private Sub P_Click()
     If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
    With Frm_Newdatabase
     .Text1(0).Enabled = False: .Text1(1).Enabled = False: .Text1(2).Enabled = False: .Text1(3).Enabled = False
     .Text2(0).Enabled = False: .Text2(1).Enabled = False: .Text2(2).Enabled = False
     .Text1(0).Text = List_data.SelectedItem.Text
     .Text1(1).Text = List_data.SelectedItem.SubItems(1)
     .Text1(2).Text = List_data.SelectedItem.SubItems(2)
     .Command1(0).Enabled = False
     .Command2.Enabled = False
     .Text1(3).Text = ""
     .Show 1
    End With
End Sub
Private Sub Refresh_Click()
    Form_Load
End Sub
Private Sub Restore_Click()
    Frm_RestoerDatabase.Show 1
End Sub
Private Sub Setup_Click()
    If List_data.ListItems.Count <= 0 Then
        MsgBox "请选中一个套帐！  ", 16
         Exit Sub
    End If
    Frm_DateCoInfo.Text1(0).Tag = List_data.SelectedItem.SubItems(2)
    Frm_DateCoInfo.Caption = Frm_DateCoInfo.Caption & "---" & List_data.SelectedItem.SubItems(1)
    Frm_DateCoInfo.Show 1
End Sub
Private Sub Start_Click()
On Error Resume Next
    If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
    Dim Ssql  As String
    Dim aDo_Rows As New Recordset
    
    YesNoStr = MsgBox("你是否要启用此套帐?  ", vbYesNo + 32)
    If YesNoStr = vbNo Then Exit Sub
    Ssql = "select * from HDSystem_DataBases where DataBasesName='" & List_data.SelectedItem.SubItems(2) & "'"
    Set aDo_Rows = Conn_System.Execute(Ssql)
    If Trim("" & aDo_Rows!YNUse) = "1" Then MsgBox "套帐已经在使用! ", 16: aDo_Rows.Close: Set aDo_Rows = Nothing: Exit Sub
    If Trim("" & aDo_Rows!CoName) = "" Then MsgBox "套帐设置公司名称错误,套帐不能被启用! ", 16: aDo_Rows.Close: Set aDo_Rows = Nothing: Exit Sub
    aDo_Rows.Close
    
    Ssql = "select * from " & List_data.SelectedItem.SubItems(2) & ".dbo.Gy_kjrlb"
    Set aDo_Rows = Conn_System.Execute(Ssql)
    If aDo_Rows.RecordCount <> 12 Then
        MsgBox "套帐设置错误,套帐不能被启用! ", 16: aDo_Rows.Close: Set aDo_Rows = Nothing: Exit Sub
    End If
    aDo_Rows.Close: Set aDo_Rows = Nothing
    
    Ssql = "update HDSystem_DataBases set YNuse='1' where DataBasesName='" & List_data.SelectedItem.SubItems(2) & "'"
    Conn_System.Execute Ssql
    MsgBox "套帐启用成功! ", 48
End Sub
Private Sub Tool_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
       Case "New"
       
            Frm_Newdatabase.Show 1
            
       Case "Property"
             If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
           With Frm_Newdatabase
            .Text1(0).Enabled = False: .Text1(1).Enabled = False: .Text1(2).Enabled = False: .Text1(3).Enabled = False
            .Text2(0).Enabled = False: .Text2(1).Enabled = False: .Text2(2).Enabled = False
            .Text1(0).Text = List_data.SelectedItem.Text
            .Text1(1).Text = List_data.SelectedItem.SubItems(1)
            .Text1(2).Text = List_data.SelectedItem.SubItems(2)
            .Command1(0).Enabled = False
            .Command2.Enabled = False
            .Text1(3).Text = ""
            .Show 1
           End With
       Case "Bak"
            If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
            Frm_Bakdatabase.Text1.Tag = List_data.SelectedItem.SubItems(2)
            Frm_Bakdatabase.Text2.Text = List_data.SelectedItem.SubItems(2)
            Frm_Bakdatabase.Caption = "套帐备份---" & List_data.SelectedItem.SubItems(1)
            Frm_Bakdatabase.Show 1
       Case "Del"
            If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
            YesNoStr = MsgBox("你是否要删除编号为(" & List_data.SelectedItem.Text & ")的套帐！  ", vbYesNo + 32)
            If YesNoStr = vbNo Then Exit Sub
            Dele_CountingRoom List_data.SelectedItem.Key
       Case "Restore"
            Frm_RestoerDatabase.Show 1
       Case "Setup"
            If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
            Frm_DateCoInfo.Text1(0).Tag = List_data.SelectedItem.SubItems(2)
            Frm_DateCoInfo.Caption = Frm_DateCoInfo.Caption & "---" & List_data.SelectedItem.SubItems(1)
             
            Frm_DateCoInfo.Show 1
       Case "User"
            If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
            Frm_GroupUser.Caption = Frm_GroupUser.Caption & "---" & List_data.SelectedItem.SubItems(1)
            Frm_GroupUser.lvUser.Tag = List_data.SelectedItem.SubItems(2)
            Frm_GroupUser.Show , Form_main
       Case "Start"
            Start_Click
       Case "Exit"
            Unload Me
       End Select
End Sub
Private Sub Dele_CountingRoom(DataBaseName As String)
    On Error GoTo Exit_err
        Class.StatusBar "正在删除套帐信息...", False
        Me.MousePointer = 12
        Conn_System.Execute "Drop Database " & DataBaseName
        Conn_System.Execute "delete HDSystem_DataBases where DataBasesName='" & DataBaseName & "'"
        Form_Load
        Class.StatusBar "", True
        Me.MousePointer = 0
        Exit Sub
    
Exit_err:
    Form_Load
    Class.StatusBar "", True
    Me.MousePointer = 0
    MsgBox Err.Description & "(" & Err.Number & ")", 16
End Sub
Private Sub User_Click()
    If List_data.ListItems.Count <= 0 Then MsgBox "请选中一个套帐！  ", 16: Exit Sub
    Frm_GroupUser.Caption = Frm_GroupUser.Caption & "---" & List_data.SelectedItem.SubItems(1)
    Frm_GroupUser.lvUser.Tag = List_data.SelectedItem.SubItems(2)
    Frm_GroupUser.Show 1
End Sub
Private Sub XD_Click()
    frmBrowser.Show
End Sub

						