Delphi+SQL SERVER小型酒店管理信息系统 第10页

Ø        营销部分：分为、单位历史档案管理，客户协议直接反映到前台，会员管理四个模块。其中客户关系管理系统包括单位管理，联系人管理，客户协议管理，事件管理等；其中

Ø        综合部分：酒店综合报表中心，图表中心。包括多种人事报表、员工工资报表、工资报表，财务报表，酒店经营报表。

  2.2 功能模块

  2.3 整体程序模块关系图

4．程序设计及主要代码

  4.1 主要控件说明

：菜单生成控件，用于设计主菜单。

：数据库控件TTable, 用于实现数据操作，通过BDE数据库引擎实现对数据表的直接访问。

：数据库组件Tquery, 用于实现数据操作通过BDE数据库引擎实现对数据表的直接访问。

：数据库组件Tquery, 用于连接数据库。

：主要功能是进行数据操作和数据浏览。

  4.2 程序主界面

4.2.1 界面设计

4.2.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系统设置

4.3.1 用户登陆界面

（1）程序界面

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>