frm_main.frm

客户管理系统 基于vb开发环境

VERSION 5.00
Begin VB.Form Frm_main 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "客户管理系统"
   ClientHeight    =   8640
   ClientLeft      =   45
   ClientTop       =   735
   ClientWidth     =   11295
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Frm_main.frx":0000
   ScaleHeight     =   8640
   ScaleWidth      =   11295
   StartUpPosition =   1  'CenterOwner
   Begin VB.CheckBox Check4 
      Caption         =   "Check4"
      Height          =   375
      Left            =   6480
      MaskColor       =   &H00FFFFC0&
      TabIndex        =   3
      Top             =   8400
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CheckBox Check3 
      Caption         =   "Check3"
      Height          =   375
      Left            =   5400
      MaskColor       =   &H00FFFFC0&
      TabIndex        =   2
      Top             =   8400
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.CheckBox Check2 
      Caption         =   "Check2"
      Height          =   375
      Left            =   4200
      MaskColor       =   &H00FFFFC0&
      TabIndex        =   1
      Top             =   8400
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Check1"
      Height          =   375
      Left            =   2880
      MaskColor       =   &H00FFFFC0&
      TabIndex        =   0
      Top             =   8400
      Visible         =   0   'False
      Width           =   1455
   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
   End
   Begin VB.Menu cc 
      Caption         =   "客户信息查询"
      Begin VB.Menu khdhjs 
         Caption         =   "客户地址查询"
      End
      Begin VB.Menu khxxcx 
         Caption         =   "客户编号查询"
      End
      Begin VB.Menu khqccx 
         Caption         =   "客户全称查询"
      End
   End
   Begin VB.Menu cxje 
      Caption         =   "客户金额付给（图示）"
      Begin VB.Menu dgcx 
         Caption         =   "单个客户查询"
      End
      Begin VB.Menu sgxs 
         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 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
End Sub

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

Private Sub csxxsz_Click()        '城市信息设置
 frm_cssz.Show
End Sub
Private Sub czysz_Click()    '操作员信息设置
  Load main_czy
  main_czy.Show
End Sub
Private Sub khdhcx_Click()
  Load main_bhdialog
  main_bhdialog.Show
  Frm_main.Enabled = False
End Sub

Private Sub dgcx_Click()
huitu1.Show

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 khdhjs_Click()    '按客户地址信息查询
  main_dzdialog.Show
End Sub
Private Sub khdzcx_Click()
  Load main_dzdialog
  main_dzdialog.Show
  Frm_main.Enabled = False
End Sub
Private Sub khmccx_Click()
  Load main_mcdialog
  main_mcdialog.Show
  Frm_main.Enabled = False
End Sub
Private Sub maxg_Click()
  Load main_mmxg
  main_mmxg.Show
  Frm_main.Enabled = False
End Sub
Private Sub sckh_Click()
  Load main_sckh
  main_sckh.Show
  Frm_main.Enabled = False
End Sub
Private Sub xgkhxx_Click()
  Load main_xgkhxx
  main_xgkhxx.Show
  Frm_main.Enabled = False
End Sub
Private Sub zjkh_Click()
  Load main_zjkh
  main_zjkh.Show
  Frm_main.Enabled = False
End Sub
Private Sub exit_Click()
  End
End Sub
Private Sub khsjlr_Click()      '客户信息录入
  main_zjkh.Show
End Sub
Private Sub KHSJSC_Click()      '客户信息删除
  main_sckh.Show
End Sub
Private Sub khsjxg_Click()      '客户信息修改
 main_xgkhxx.Show
End Sub
Private Sub khxxcx_Click()       '按客户编号信息查询
 main_bhdialog.Show
End Sub
Private Sub klsz_Click()         '修改用户口令
 main_mmxg.Show
End Sub
Private Sub qxsz_Click()         '设置用户权限
 frm_qxsz.Show
End Sub
Private Sub sfdqsz_Click()      '省份地区设置
 frm_sfsz.Show
End Sub
Private Sub sjbf_Click()
 frm_backup.Show
End Sub
Private Sub xtcsh_Click()
 frm_CSH.Show
End Sub

Private Sub sgxs_Click()
huitu2.Show
End Sub