loading2003级本科毕业设计论文 第 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是为了保证系统