frmmain.frm

比较完整的一个客户管理软件

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.MDIForm MDIForm1 
   Appearance      =   0  'Flat
   BackColor       =   &H80000009&
   Caption         =   "客户资料管理系统"
   ClientHeight    =   6180
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8745
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":08CA
   StartUpPosition =   2  '屏幕中心
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   1080
      Top             =   2640
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   2880
      Top             =   3120
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   10
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":6E887
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":6F161
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":6F5B3
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":71F65
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":73C6F
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":73F89
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7623B
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":76555
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7686F
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":78B21
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   870
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8745
      _ExtentX        =   15425
      _ExtentY        =   1535
      ButtonWidth     =   1455
      ButtonHeight    =   1376
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   10
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "客户信息"
            Key             =   "Client"
            Object.ToolTipText     =   "添加客户信息"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "交易信息"
            Key             =   "CInfo"
            Object.ToolTipText     =   "添加交易信息"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查找"
            Key             =   "Search"
            Object.ToolTipText     =   "查找数据"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "定义查找"
            Key             =   "PSearch"
            Object.ToolTipText     =   "自定义查找数据"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "ChangCli"
            Object.ToolTipText     =   "修改客户信息"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改密码"
            Key             =   "ChangeKey"
            Object.ToolTipText     =   "修改密码"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "备份"
            Key             =   "Backup"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "恢复数据"
            Key             =   "Resume"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "help"
            Object.ToolTipText     =   "帮助"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "Quit"
            Object.ToolTipText     =   "退出"
            ImageIndex      =   10
            Style           =   2
         EndProperty
      EndProperty
      BorderStyle     =   1
   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_Unload(Cancel As Integer)
   End
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 If Button.Key = "Client" Then
    FrmClinetInfo.Show
 ElseIf Button.Key = "CInfo" Then
    FrmTradeInfo.Show
 ElseIf Button.Key = "Search" Then
    FrmSearch.Show
 ElseIf Button.Key = "PSearch" Then
    FrmPerson.Show
 ElseIf Button.Key = "help" Then
     Dim i As Double
   i = Shell("hh.exe " + App.Path & "\help\印刷业客户管理系统帮助.chm", vbNormalFocus)

 ElseIf Button.Key = "ChangCli" Then
     FrmChang.Show
 ElseIf Button.Key = "ChangeKey" Then
    FrmChangPWord.Show
 ElseIf Button.Key = "Backup" Then
     FrmBackup.Show
 ElseIf Button.Key = "Resume" Then
  If MsgBox("这个操作将会丢失上次备份以后的所有数据，确定要进行操作吗？", vbYesNo, "警告") = vbYes Then
       cn.Close
       Me.CommonDialog1.DialogTitle = "恢复数据"
       CommonDialog1.ShowOpen
       On Error GoTo Cancle
       Dim FileSystemObject As Object
       Dim StrPath As String
       StrPath = CommonDialog1.FileName
       Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
      
       FileSystemObject.copyfile StrPath, App.Path & "\" & "ClientDB.mdb"
       MsgBox "复制完成！"
      
      cn.ConnectionString = "DSN=Client_DBase;UID=admin;PWD=bluesky;"
      cn.Open
    End If
     Exit Sub
Cancle:
  On Error Resume Next
  MsgBox "复制数据库出错！"
    cn.ConnectionString = "DSN=Client_DBase;UID=admin;PWD=bluesky;"
      cn.Open
 ElseIf Button.Key = "Quit" Then
    Unload Me
    End
 End If
 
End Sub