没有合适的资源?快使用搜索试试~ 我知道了~
酒店管理系统介绍资料文件
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 112 浏览量
2022-06-14
21:20:52
上传
评论
收藏 550KB DOC 举报
温馨提示
试读
43页
酒店管理系统介绍
资源推荐
资源详情
资源评论
酒店客房餐饮治理系统实现
酒店客房餐饮治理系统功能完善,能治理一般酒店的客房住
宿和餐饮等服务。本系统采纳 DELPHI 和 SQL SERVER 工具开
发,分为前台和后台治理。前台与后台治理程序相对独立,均
共用一个数据库。下面对该系统的部份功能和模块以及代码进
行分析。
一.前台治理
1. 数据模块
该模块是整个程序数据的提供者,以及包括大部分的处理函
数和实现功能。
单元文件名:u_data.pas,数据模块名:DM_main。
部分代码分析:
返回指表中某字段的最大值,返回值为整型。因此该函数只
能应用字段为整型的表。
function
TDM_main.GetMaxId(aTable,aField:string):integer;
var
sSql:string;
begin
Result:=0;
sSql:='select max(%s) from %s';
with Q_getmax do
begin
SQL.Text:=Format(sSql,[aField,aTable]);
Open;
if not IsEmpty then
Result:=Fields[0].AsInteger+1;
Close;
end;
end;
接下来那个函数也是返回最大值,然而其为一个订单的最大
编号为字符型。
function TDM_main.GetMaxOrderId:string;
var
id:String;
count:Integer;
begin
with Q_count_order do
begin
Open;
count:=Fields[0].Value;
Close;
end;
id:='000'+IntToStr(count);
id:=Copy(id, length(id)-3, 4);
id:='F'+FormatDateTime('yymmdd',now)+id;
Result:=id;
end;
系统登陆函数:在进行系统的操作处理时,必须登陆。该函
数对用户输入的用户名和密码数据库验证。其密码是进行加
密的(加密模块稍后分析)
function TDM_main.Login(user,
passwd:String):String;
var
剩余42页未读,继续阅读
资源评论
qq_17201225
- 粉丝: 1
- 资源: 6822
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功