Delphi+SQL SERVER小型酒店管理信息系统 第10页
Ø 营销部分：分为、单位历史档案管理，客户协议直接反映到前台，会员管理四个模块。其中客户关系管理系统包括单位管理，联系人管理，客户协议管理，事件管理等；其中
Ø 综合部分：酒店综合报表中心，图表中心。包括多种人事报表、员工工资报表、工资报表，财务报表，酒店经营报表。
2.2 功能模块
4．程序设计及主要代码
4.1 主要控件说明
4.2 程序主界面
procedure TMainForm.FormShow(Sender: TObject);
var
//登录对话框返回值
rt:integer;
//失败次数
n:integer;
begin
n:=0;
form1:=Tform1.Create(application);
while n<3 do
begin
rt:= form1.ShowModal;
if rt=mrCancel then //用户按取消
begin
close;
exit;
end
else if (rt=mrOk) and form1.canPass then //登陆成功
begin
userName:= form1.edit3.Text;
userName:= form1.edit1.Text;
userPwd:= form1.edit2.Text;
userPower:=form1.power;
setPower;
exit;
end
else
begin //失败
n:=n+1; //失败次数增加
if n>=3 then
begin
messageDlg('您已经失败3次，程序将终止',mtWarning,[mbOk],0);
close;
application.Terminate;
exit;
end
else //失败次数少于3，则提示重新尝试
messageDlg('密码错误，请重试',mtWarning,[mbOk],0);
end;
end;
end;
4.3系统设置