frm_main.frm

客户管理系统 对客户的信息进行管理

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm_main 
   BackColor       =   &H00808000&
   Caption         =   "客户管理系统"
   ClientHeight    =   8310
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   11595
   Icon            =   "frm_main.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "frm_main.frx":08CA
   ScaleHeight     =   8310
   ScaleWidth      =   11595
   StartUpPosition =   1  '所有者中心
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   5640
      Top             =   3120
   End
   Begin VB.Timer Timer2 
      Interval        =   60
      Left            =   6120
      Top             =   3120
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Check1"
      Height          =   255
      Left            =   3360
      TabIndex        =   0
      Top             =   7080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CheckBox Check2 
      Caption         =   "Check2"
      Height          =   255
      Left            =   4560
      TabIndex        =   1
      Top             =   7080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CheckBox Check3 
      Caption         =   "Check3"
      Height          =   255
      Left            =   6120
      TabIndex        =   2
      Top             =   7080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CheckBox Check4 
      Caption         =   "Check4"
      Height          =   255
      Left            =   7440
      TabIndex        =   3
      Top             =   7080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   4
      Top             =   7935
      Width           =   11595
      _ExtentX        =   20452
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5573
            MinWidth        =   5573
            Text            =   "长春市明日科技有限责任公司"
            TextSave        =   "长春市明日科技有限责任公司"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4762
            MinWidth        =   4762
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5556
            MinWidth        =   5556
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4939
            MinWidth        =   4939
            Text            =   "www.mingrisoft.com"
            TextSave        =   "www.mingrisoft.com"
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Menu jbxxgl 
      Caption         =   "基本信息管理"
      Begin VB.Menu sfdqsz 
         Caption         =   "省份地区设置"
      End
      Begin VB.Menu csxxsz 
         Caption         =   "城市信息设置"
      End
   End
   Begin VB.Menu sjgl 
      Caption         =   "客户信息管理"
      Begin VB.Menu khsjlr 
         Caption         =   "客户数据录入"
      End
      Begin VB.Menu KHSJSC 
         Caption         =   "客户数据删除"
      End
      Begin VB.Menu khsjxg 
         Caption         =   "客户数据修改"
      End
      Begin VB.Menu aa 
         Caption         =   "-"
      End
      Begin VB.Menu KHYJQF 
         Caption         =   "客户邮件群发"
      End
      Begin VB.Menu KHHJZX 
         Caption         =   "客户呼叫中心"
      End
      Begin VB.Menu khxfdy 
         Caption         =   "客户信封打印"
      End
      Begin VB.Menu JJ 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "关于......"
      End
   End
   Begin VB.Menu cc 
      Caption         =   "客户信息查询"
      Begin VB.Menu khdhjs 
         Caption         =   "按客户地址查询"
      End
      Begin VB.Menu khxxcx 
         Caption         =   "按客户编号查询"
      End
      Begin VB.Menu akhqccx 
         Caption         =   "按客户全称查询"
      End
   End
   Begin VB.Menu sys 
      Caption         =   "系统设置"
      Begin VB.Menu czysz 
         Caption         =   "操作员设置"
      End
      Begin VB.Menu klsz 
         Caption         =   "口令设置"
      End
      Begin VB.Menu qxsz 
         Caption         =   "权限设置"
      End
      Begin VB.Menu dd 
         Caption         =   "-"
      End
      Begin VB.Menu BDWXXSZ 
         Caption         =   "本单位信息设置"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub akhqccx_Click()       '按客户全称查询
  main_mcdialog.Show 1
End Sub

Private Sub BDWXXSZ_Click()       '设置本单位的信息
 frm_bdwxxsz.Show 1
End Sub

Private Sub csxxsz_Click()        '城市信息设置
 frm_cssz.Show 1
End Sub

Private Sub about_Click()        '关于
  Load frmAbout
  frmAbout.Show 1
  frm_main.Enabled = False
End Sub

Private Sub czysz_Click()    '操作员信息设置
  Load main_czy
  main_czy.Show 1
End Sub

Private Sub khdhcx_Click()
  Load main_bhdialog
  main_bhdialog.Show 1
  frm_main.Enabled = False
End Sub

Private Sub Form_Activate()
    If Check1.Value = 0 Then
    jbxxgl.Enabled = False
    Else
    jbxxgl.Enabled = True
    End If
    If Check2.Value = 0 Then
    sjgl.Enabled = False
    Else
    sjgl.Enabled = True
    End If
    If Check3.Value = 0 Then
    cc.Enabled = False
    Else
    cc.Enabled = True
    End If
    If Check4.Value = 0 Then
    sys.Enabled = False
    Else
    sys.Enabled = True
    End If
End Sub

Private Sub Form_Load()
  StatusBar1.Panels(2) = Format(Date, "long date")
End Sub

Private Sub khdhjs_Click()    '按客户地址信息查询
  main_dzdialog.Show 1
End Sub

Private Sub khdzcx_Click()
  Load main_dzdialog
  main_dzdialog.Show 1
  frm_main.Enabled = False
End Sub

Private Sub KHHJZX_Click()    '客户呼叫中心
frm_wlbh.Show 1
End Sub

Private Sub khmccx_Click()
  Load main_mcdialog
  main_mcdialog.Show 1
  frm_main.Enabled = False
End Sub

Private Sub maxg_Click()
  Load main_mmxg
  main_mmxg.Show 1
  frm_main.Enabled = False
End Sub

Private Sub sckh_Click()
  Load main_sckh
  main_sckh.Show 1
  frm_main.Enabled = False
End Sub

Private Sub xgkhxx_Click()
  Load main_xgkhxx
  main_xgkhxx.Show 1
  frm_main.Enabled = False
End Sub

Private Sub zjkh_Click()
  Load main_zjkh
  main_zjkh.Show 1
  frm_main.Enabled = False
End Sub

Private Sub exit_Click()
  End
End Sub

Private Sub khsjlr_Click()      '客户信息录入
  main_zjkh.Show 1
End Sub

Private Sub KHSJSC_Click()      '客户信息删除
  main_sckh.Show 1
End Sub

Private Sub khsjxg_Click()      '客户信息修改
 main_xgkhxx.Show 1
End Sub

Private Sub khxfdy_Click()       '客户信封打印
 frm_dyxf.Show
End Sub

Private Sub khxxcx_Click()       '按客户编号信息查询
 main_bhdialog.Show 1
End Sub

Private Sub KHYJQF_Click()       '客户邮件群发
 frm_yjfs.Show 1
End Sub

Private Sub klsz_Click()         '修改用户口令
 main_mmxg.Show 1
End Sub

Private Sub qxsz_Click()         '设置用户权限
 frm_qxsz.Show 1
End Sub

Private Sub sfdqsz_Click()      '省份地区设置
 frm_sfsz.Show 1
End Sub

Private Sub sjbf_Click()
 frm_backup.Show 1
End Sub

Private Sub Timer2_Timer()
  StatusBar1.Panels(3).Text = Format(Now, "yyyy年mm月dd日 hh点mm分ss秒")
End Sub

Private Sub xtcsh_Click()
 frm_CSH.Show 1
End Sub