内蒙古大学工程硕士学位论文
5.1软硬件环境
5.1.1硬件环境
第五章 系统功能实现
硬件环境是指系统选用什么类型的计算机设备，是微型计算机，工作站，还是小型机设备。下面是本系统使用的硬件环境： 开发平台：普通兼容机上开发即可。 内存需求：内存不得低于128M。 5.1.2软件环境
软件环境是指操作系统，数据库系统以及一些开发工具的选用。本系统开发所需要的软件环境如下：
操作系统：Windows 2000 Server SP3 版本以上 数据库：Access 开发工具：Visual Basic 开发语言：VB
5.2通用程序块
在该系统的设计中，共使用了Const 、DbFunc 、GeneralFunc和 Variable等通用程序块。其中Cons主要用于工程中的常量的管理；DbFunc主要对工程中与数据库操作相关的声明、变量及函数等进行管理；GeneralFunc 是对工程中一些常用的自定义函数的管理；Variable 则是对工程中的常用的公共变量的管理。而类模块的实例在Variable模块中进行了定义。类的实例在申明时，使用了NEW关键字。它可以在第一次引用该变量的时候创建对象的新实例。相反若没有使用NEW关键字，在第一次引用变量时则会报错。
5.3登录窗体和系统主界面的实现
当系统运行时，首先打开登陆窗体，只有有权限的用户才能进入系统。登陆成功后，将显示系统主界面。 5.3.1登录窗体
登陆窗体的名称为FrmLogin，其窗口界面如图5-1所示。
20
内蒙古大学工程硕士学位论文
图5-1 系统登陆窗口的界面
Figure 5-1 The System login window interface
程序运行如下所示：
用户必须输入用户名和密码，如果判断出没有输入，则返回到登陆界面，要求输入。 输入的用户名及密码赋值给变量NameKey及PasswordKey，方便处理。
要判断当前用户名是否存在则调用MyUser.In_DB（）函数，假如不存在，则返回并要求用户再次输入，且计数变量Try_times将加1。
假如用户名存在，即立刻调用MyUser.GetInfo（）函数并将此用户的数据读取，然后把用户密码和输入的密码进行比较，若密码不同，则返回并要求重新进行输入，且计数变量Try_times将加1。
若Try_times的值大于或等于3，则将退出系统。
若密码验证通过，当前用户的信息将保存到CurUser对象中，方便后面的使用。 登陆窗体的关闭。 5.3.2主界面
主界面的窗体名称为FrmMain。它的界面布局如图5-2所示。
图5-2 主窗口的界面设计
Figure 5-2 The interface design of the main window
21
内蒙古大学工程硕士学位论文
要窗体启动时，则打开“登陆”界面，若身份不能通过验证，则进入系统失败。 触发mn-exit-Click事件表示“退出系统”。 主要代码实现如下： Private Sub Form_Load() FrmLogin.Show 1 End Sub
Private Sub Label2_Click() End Sub
Private Sub mn_Area_Click() '客户管理员可以进入
If CurUser.UserName = \ FrmAreaMan.Show 1 Else
MsgBox \没有权限\ Exit Sub End If End Sub '行业分类设置
Private Sub mn_BType_Click() '客户管理员可以进入
If CurUser.UserName = \ FrmTypes.nFlag = 2
FrmTypes.Caption = \行业分类设置\ FrmTypes.Show 1 '行业分类管理 Else
MsgBox \没有权限\ Exit Sub End If End Sub
Private Sub mn_Chance_Click() FrmSaleMan.Show 1 End Sub
22
内蒙古大学工程硕士学位论文
Private Sub mn_ChangeUser_Click() FrmLogin.Try_times = 0 FrmLogin.Show 1 End Sub
Private Sub mn_Contact_Click() FrmContactMan.Show 1 End Sub '客户类别管理
Private Sub mn_CType_Click() '客户管理员可以进入
If CurUser.UserName = \ FrmTypes.nFlag = 1
FrmTypes.Caption = \客户类别设置\ FrmTypes.Show 1 '客户类别管理 Else
MsgBox \没有权限\ Exit Sub End If End Sub
Private Sub mn_Customer_Click() FrmCustomerMan.Show 1 End Sub
Private Sub mn_Exit_Click() DBapi_Disconnect End End Sub '项目类型管理
Private Sub mn_PType_Click() '客户管理员可以进入
If CurUser.UserName = \ FrmTypes.nFlag = 4
FrmTypes.Caption = \项目类型设置\ FrmTypes.Show 1 '项目类型管理
23
内蒙古大学工程硕士学位论文
Else
MsgBox \没有权限\ Exit Sub End If End Sub
Private Sub mn_PwdChange_Click() With FrmUserEdit
.OriUser = CurUser.UserName .txtUserName = CurUser.UserName .Modify = True .Show 1 End With End Sub
Private Sub mn_Sales_Click() '客户管理员可以进入
If CurUser.UserName = \ FrmEmpMan.Show 1 Else
MsgBox \没有权限\ Exit Sub End If End Sub
Private Sub mn_Task_Click() FrmTaskMan.Show End Sub '管理职务
Private Sub mn_Title_Click() '客户管理员可以进入
If CurUser.UserName = \ FrmTypes.nFlag = 3
FrmTypes.Caption = \职务名称设置\ FrmTypes.Show 1 '职务名称管理 Else
24
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库企业客户关系管理系统的设计与实现 - 图文(6)在线全文阅读。
相关推荐：