mdiform1.frm

小型客户管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "客户管理系统"
   ClientHeight    =   7275
   ClientLeft      =   2775
   ClientTop       =   2475
   ClientWidth     =   10380
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   6900
      Width           =   10380
      _ExtentX        =   18309
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   10
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   1764
            MinWidth        =   1764
            Text            =   "当前操作"
            TextSave        =   "当前操作"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4410
            MinWidth        =   4410
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   1411
            MinWidth        =   1411
            Text            =   "用户名"
            TextSave        =   "用户名"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   2646
            MinWidth        =   2646
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   1764
            MinWidth        =   1764
            Text            =   "所属部门"
            TextSave        =   "所属部门"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   2646
            MinWidth        =   2646
         EndProperty
         BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   1411
            MinWidth        =   1411
            Text            =   "数据库"
            TextSave        =   "数据库"
         EndProperty
         BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   2117
            MinWidth        =   2117
         EndProperty
         BeginProperty Panel9 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            Object.Width           =   882
            MinWidth        =   882
            TextSave        =   "NUM"
         EndProperty
         BeginProperty Panel10 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            Enabled         =   0   'False
            Object.Width           =   1058
            MinWidth        =   1058
            TextSave        =   "CAPS"
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuFiles 
      Caption         =   "文件(&F)"
      Begin VB.Menu menuIn 
         Caption         =   "导入数据"
      End
      Begin VB.Menu menuOut 
         Caption         =   "导出数据"
      End
      Begin VB.Menu menuLogin 
         Caption         =   "重新登录"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu menuClient 
      Caption         =   "客户管理(&C)"
      Begin VB.Menu menuClient_Inf 
         Caption         =   "客户信息"
      End
      Begin VB.Menu menuClientDbChange 
         Caption         =   "客户资料分配"
      End
   End
   Begin VB.Menu menuSystem 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu menuUser 
         Caption         =   "用户管理"
      End
      Begin VB.Menu menuBase 
         Caption         =   "基础数据"
      End
      Begin VB.Menu menuDataProcess 
         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()
'程序一起动就打开数据库
Set DB = New ADODB.Connection
DB.CursorLocation = adUseClient
'DB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DataBasePath & ";pwd=harley"
DB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DataBasePath & ""
MainDB_Open = True

StatusBar1.Panels(4).Text = UserName
StatusBar1.Panels(6).Text = UserDept
MDIForm1.StatusBar1.Panels(8).Text = UseDataBase

menuOut.Enabled = False
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
If MainDB_Open Then
   MainDB.Close
   MainDB_Open = False
End If
If SysLogDB_Open Then
   SysLogDB.Close
   SysLogDB_Open = False
End If
'End
End Sub

Private Sub menuBase_Click()
MDIForm1.StatusBar1.Panels(2).Text = "基础数据设置"
BaseData_input.Show
Me.Enabled = False
End Sub

Private Sub menuClient_Inf_Click()
menuOut.Enabled = True
Data_list.Show
End Sub

Private Sub menuClientDbChange_Click()
MDIForm1.StatusBar1.Panels(2).Text = "客户资料分配"
Client_DbChange.Show
Me.Enabled = False
End Sub

Private Sub menuDataProcess_Click()
MDIForm1.StatusBar1.Panels(2).Text = "数据处理"
Data_Process.Show
Me.Enabled = False
End Sub

Private Sub menuExit_Click()
If MsgBox("真的要退出本系统吗?", vbQuestion + vbYesNo, "确认") = vbYes Then
   End
End If
End Sub

Private Sub menuIn_Click()
MDIForm1.StatusBar1.Panels(2).Text = "导入数据"
Select_InputDB.Show
Me.Enabled = False
End Sub

Private Sub menuLogin_Click()
Unload Me
Sys_Login.Show
End Sub

Private Sub menuOut_Click()
Dim TmpRs As New ADODB.Recordset, MainTableRS As New ADODB.Recordset, TableRS As New ADODB.Recordset
Dim DataRS As New ADODB.Recordset
Dim MainTable As String

If MsgBox("是否需要导出列表中所显示的所有客户信息", vbYesNo, "信息提示") Then
   Call CreateFile
   
   If MainRS.RecordCount <> 0 Then
      '找出第一主表,类别=0 and 优先级=1只有一条
      Set MainTableRS = Nothing
      MainTableRS.Open "select * from Table_Inf where 类别=0 and 优先级=1", SysLogDB, adOpenStatic, adLockOptimistic
      MainTable = MainTableRS!数据表
      Call DaoBiao(MainTable, 20, MainRS) '导出基本信息
      
      MainRS.MoveFirst
      While Not MainRS.EOF
            '从数据库中找出类别为1的主表(Client_BASE)的链接表，并导出这些表的数据
            Set TableRS = Nothing
            TableRS.Open "select * from Table_Inf where 类别=1 and 主表='" & MainTable & "'", SysLogDB, adOpenStatic, adLockOptimistic
            If TableRS.RecordCount > 0 Then
               TableRS.MoveFirst
               While Not TableRS.EOF
                     Set TmpRs = Nothing
                     TmpRs.Open "select * from " & TableRS!数据表 & " where " & TableRS!链接关键字 & "=" & MainRS!客户编号, MainDB, adOpenStatic, adLockOptimistic
                     Call DaoBiao(TableRS!数据表, TableRS!字段个数, TmpRs)
                     TableRS.MoveNext
               Wend
            End If
            
            MainRS.MoveNext
      Wend
      
      '找出第二类主表(主表数据不导的情况，或这个主表属于第一主表)
      Set MainTableRS = Nothing
      MainTableRS.Open "select * from Table_Inf where 类别=0 and 优先级=2 and 导否=false", SysLogDB, adOpenStatic, adLockOptimistic
      If MainTableRS.RecordCount > 0 Then
         MainTableRS.MoveFirst
         While Not MainTableRS.EOF
               MainTable = MainTableRS!数据表
               DataRS.Open "select * from " & MainTable, MainDB, adOpenStatic, adLockOptimistic
               If DataRS.RecordCount > 0 Then
                  DataRS.MoveFirst
                  While Not DataRS.EOF
                        '从数据库中找出类别为2的主表的链接表，并导出这些表的数据
                        Set TableRS = Nothing
                        TableRS.Open "select * from Table_Inf where 类别=1 and 主表=" & MainTable, SysLogDB, adOpenStatic, adLockOptimistic
                        If TableRS.RecordCount > 0 Then
                           TableRS.MoveFirst
                           While Not TableRS.EOF
                                 Set TmpRs = Nothing
                                 TmpRs.Open "select * from " & TableRS!数据表 & " where " & TableRS!链接关键字 & "=" & "DataRS!" & MainTableRS!主关键字, MainDB, adOpenStatic, adLockOptimistic
                                 Call DaoBiao(TableRS!数据表, TableRS!字段个数, TmpRs)
                                 TableRS.MoveNext
                           Wend
                        End If
                        DataRS.MoveNext
                  Wend
               End If
            
               MainTableRS.MoveNext
         Wend
      End If

      
      '从数据库中找出类别为9的辅助信息表，并导出这些表的数据
      Set TableRS = Nothing
      TableRS.Open "select * from Table_Inf where 类别=9", SysLogDB, adOpenStatic, adLockOptimistic
      If TableRS.RecordCount > 0 Then
         TableRS.MoveFirst
         While Not TableRS.EOF
               Set TmpRs = Nothing
               TmpRs.Open "select * from " & TableRS!数据表, MainDB, adOpenStatic, adLockOptimistic
               Call DaoBiao(TableRS!数据表, TableRS!字段个数, TmpRs)
               TableRS.MoveNext
         Wend
      End If
      
      MsgBox "成功导出", vbInformation, "信息提示"
   Else
      MsgBox "无数据可导出", vbExclamation, "警告"
   End If
End If
End Sub

Private Sub menuUser_Click()
MsgBox "待建", vbInformation, "信息提示"
End Sub