CRM客户关系管理系统

2003级本科毕业设计论文 第 25 页 共 33 页

定密码（再次输入新密码），各空都不允许为空。“确定”提交修改，显示“修改成功！”提示框。“取消”将三个edit空件里面的内容清空，从新输入，见图3.12。

图3.12 信息查询模块图

3.2.2.6 信息查询模块

选择需要查询的索引（即选中radiobutton前的选项），同时激活其后面的edit或combobox组件，输入你想要查找的内容。点击“查询”按钮即可输出查询结果。选中“客户类别”前面的按钮，在旁边的下拉框选择要查询的内容，即显示查询结果，见图3.13所示。

[11]

图3.13 系统设置------密码修改

第 26 页 共 33 页 超市CRM系统中客户关系管理子系统的研究与实现

3.2.3 代码设计及说明 3.2.3.1 日期选择模块代码[12]

unit Unit_selectdate; implementation {$R *.dfm}

//----------------在label1中显示当前时间--------------------// procedure Tform_selectdate.FormCreate(Sender: TObject); begin

label1.Caption:=datetostr(now); end;

//--------当calendar1中的时间发生变化时，label1中的时间也跟着变化 procedure Tform_selectdate.Calendar1Change(Sender: TObject); begin

label1.Caption:=datetostr(calendar1.CalendarDate); end;

//-------------------实现年限的减少------------------// procedure Tform_selectdate.BitBtn1Click(Sender: TObject); var year :integer; begin

year:=calendar1.Year-1; calendar1.Year:=year; end;

//-----------------------------实现年限的增加------------------// procedure Tform_selectdate.BitBtn2Click(Sender: TObject); var year :integer; begin

[13]

2003级本科毕业设计论文 第 27 页 共 33 页

year:=calendar1.Year+1; calendar1.Year:=year; end;

//----------------------------------实现月份的减少 procedure Tform_selectdate.BitBtn3Click(Sender: TObject); var month:integer; begin

month:=calendar1.Month-1; calendar1.Month:=month; end;

//--------------------------实现月份的增加------------- procedure Tform_selectdate.BitBtn4Click(Sender: TObject); var month:integer; begin

month:=calendar1.Month+1; calendar1.Month:=month; end; end.

注：点击客户信息管理模块的BitBtn1按钮则执行以下程序，另外需要把“确定”，“取消”按钮的modalresult属性改为mrok和mrcancel[14]

procedure TForm_cm.BitBtn1Click(Sender: TObject); begin

application.CreateForm(tform_selectdate,form_selectdate); if form_selectdate.showmodal=mrok then

dbedit5.Text:=datetimetostr(form_selectdate.calendar1.calendardate);

第 28 页 共 33 页 超市CRM系统中客户关系管理子系统的研究与实现

form_selectdate.Free[15]; end;

4 系统的测试

4.1 程序代码检查

注意事项如下：

a) 程序单位的首部应有程序说明和修改备注，内容包括编写或更改程序的人员、时间、程序的功能及调用关系等。

b) 变量、过程、函数应符合统一的命名规则。

c) 程序中不同的功能部分应有清楚的说明信息，较复杂的程序段落也应有说明信息。

d) 如果是修改，在修改的代码处应有修改注释，注释说明修改的人员、时间及内容。

4.2 登录界面测试

软件功能:用户通过输入用户名及口令之后,按”确定”按钮。此软件进行判断分析，如果身份合法,根据其权限进入相应的界面，如果用户非法则弹出相应提示信息(密码或身份不正确,请重新输入)。

图4.1登录界面

a)输入

1)用户名为长度小于等于20的字符型常量。

2)密码为长度为3~20的数字型常量（为了密码长度大于3是为了保证系统