form1.frm

客户管理系统

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "客户关系管理系统"
   ClientHeight    =   6930
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   12960
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   6930
   ScaleWidth      =   12960
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu khjbxxgl 
      Caption         =   "客户基本信息管理"
      Begin VB.Menu qyjbxx 
         Caption         =   "企业基本信息"
      End
      Begin VB.Menu lxrjbxx 
         Caption         =   "联系人基本信息"
      End
      Begin VB.Menu hzjl 
         Caption         =   "合作记录"
      End
      Begin VB.Menu jzds 
         Caption         =   "竞争对手"
      End
      Begin VB.Menu jzxm 
         Caption         =   "竞争项目"
      End
      Begin VB.Menu ywxx 
         Caption         =   "业务信息"
      End
      Begin VB.Menu jhqtjl 
         Caption         =   "机会洽淡记录"
      End
   End
   Begin VB.Menu xsgl 
      Caption         =   "销售管理"
      Begin VB.Menu ddgl 
         Caption         =   "订单管理"
         Begin VB.Menu llht 
            Caption         =   "录入合同及订单"
         End
         Begin VB.Menu xydj 
            Caption         =   "客户的信用等级"
         End
         Begin VB.Menu ckjl 
            Caption         =   "生成催款记录"
         End
         Begin VB.Menu zz 
            Caption         =   "追踪合同/订单执行情况"
         End
         Begin VB.Menu glwy 
            Caption         =   "管理违约及退货"
         End
      End
      Begin VB.Menu store 
         Caption         =   "库存管理"
         Begin VB.Menu OutStore 
            Caption         =   "出库"
         End
         Begin VB.Menu InStore 
            Caption         =   "入库"
         End
         Begin VB.Menu HZ 
            Caption         =   "库存汇总"
         End
      End
      Begin VB.Menu fun 
         Caption         =   "财务管理"
      End
   End
   Begin VB.Menu sjgl 
      Caption         =   "时间管理"
      Begin VB.Menu rwgl 
         Caption         =   "任务管理"
      End
      Begin VB.Menu gzrcgl 
         Caption         =   "工作日程管理"
      End
   End
   Begin VB.Menu hjzx 
      Caption         =   "呼叫中心"
      Begin VB.Menu khfkgl 
         Caption         =   "客户反馈管理"
      End
      Begin VB.Menu fwzygl 
         Caption         =   "服务资源管理"
      End
      Begin VB.Menu fwjd 
         Caption         =   "服务监督"
      End
      Begin VB.Menu fwgcjl 
         Caption         =   "服务过程记录"
      End
   End
   Begin VB.Menu log 
      Caption         =   "登录系统"
   End
   Begin VB.Menu exit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ckjl_Click()
    FrmHP.Show vbModal
End Sub

Private Sub exit_Click()
    aa = MsgBox("确认退出吗？", vbQuestion + vbYesNo, "")
    If aa = vbYes Then End
End Sub

Private Sub Form_Load()
    DataPath = App.Path + "\DB.mdb"   '数据库所在路径
    conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & ";Persist Security Info=False"
    khjbxxgl.Enabled = False
    xsgl.Enabled = False
    sjgl.Enabled = False
    hjzx.Enabled = False
End Sub

Private Sub glwy_Click()
    MsgBox "请登录退货管理系统", , ""
End Sub

Private Sub HZ_Click()
    FrmStore.Show vbModal
End Sub

Private Sub hzjl_Click()
    frm_hzjl.Show vbModal
End Sub

Private Sub InStore_Click()
    FrmInStore.Show vbModal
End Sub

Private Sub jhqtjl_Click()
    frm_jhqtjl.Show vbModal
End Sub

Private Sub jzds_Click()
Frm_jzds.Show vbModal

End Sub

Private Sub jzxm_Click()
frm_jzxm.Show vbModal

End Sub

Private Sub llht_Click()
    FrmDD.Show vbModal
End Sub

Private Sub log_Click()
    FrmLog.Show vbModal
End Sub

Private Sub lxrjbxx_Click()
frm_lxrjbxx.Show vbModal

End Sub

Private Sub OutStore_Click()
    FrmBOutS.Show vbModal
End Sub

Private Sub qyjbxx_Click()

frm_qyjbxx.Show vbModal



End Sub

Private Sub xydj_Click()
    FrmKH.Show vbModal
End Sub

Private Sub ywxx_Click()
    frm_ywxx.Show vbModal
End Sub

Private Sub zz_Click()
    FrmDSta.Show vbModal
End Sub