delphi+餐饮管理软件源码.docx
- 文档编号:8919018
- 上传时间:2023-05-16
- 格式:DOCX
- 页数:117
- 大小:41.09KB
delphi+餐饮管理软件源码.docx
《delphi+餐饮管理软件源码.docx》由会员分享,可在线阅读,更多相关《delphi+餐饮管理软件源码.docx(117页珍藏版)》请在冰点文库上搜索。
delphi+餐饮管理软件源码
unitGlobal;
interface
usesmsgdlg,forms,Dialogs,Types,windows,Messages,ExtCtrls,Registry,Controls,Menus,dxNavBar,
comCtrls,db,adodb,StdCtrls,Variants,mmsystem,inifiles,DBGridEh,Graphics,
fctreecombo,fcTreeView,DBGrids,softkeypwd,Report_Public,WinSkinData,Classes;
type
OperatorType=(Add,updateS,save);
functionPYJX(HanZI:
string):
string;
functionshowbox(caption,text:
string;buttoncount:
integer;icontype:
integer):
integer;
functionGetTheSaleTblNo:
string;
functionSetTheSaleTblNo(str:
string):
string;
procedureCloseQueryTable;
functionEncrypt(S:
string):
string;
functionDecrypt(S:
string):
string;
procedureEnabledDMQuerys(m_enabled:
Boolean);
procedureSetmyIme(ImeName:
string);//Runnorsetthesystemime
procedureResetmyIme(ImeName:
string);//Runnorsetthesystemime
procedureFrm_KeyDown(Sender:
TForm;varKey:
Word);
proceduremessageclose();
procedurewriteKey(Tital,Value:
string);{TODO:
将数据库注册信息写入注册表}
functionreadkey(keyname:
string):
string;
functioninitMenu(qMenu:
TMainMenu;Periss:
string):
TMainMenu;
functioninitNavbar(qNavbar:
TdxNavBar;ygbh:
string):
TdxNavBar;
functioninitToolBar(qToolbar:
TToolBar;periss:
string):
TToolBar;
functionGetSpell(Str:
string):
string;//得到汉字字符串的首拼音字母
functionget_datasource(str:
string):
TDataSource;//返回TDataSource数据源
functionget_bool(str_sql:
string):
string;//是否存在某条件的数据存在返回true否返回false
functionget_value(str_sql:
string;num:
integer):
string;///返回指定列的值
functionget_exec(str_sql:
string):
string;//返回指定sql语句的boolean值
functionget_query(str_sql:
string):
TADOQuery;//-------返回TADOQUERY
proceduremessagedlg(caption:
string;frmname:
tform);
procedureddlb_additem(varddlb:
TComboBox;t_table,T_lie,con:
string);overload;//TComboBox增加item
procedurezksz(panding:
integer);//会员卡与产品折扣后的价格
procedurePsound(str:
string);//为不大于两位的数字字符串读出语音
functionfind_quanxian(quanxian_name,ygbh:
string):
string;//查找权限
functionfind_kh(kh,mm:
string):
string;//输入的卡号和密码是否正确
procedurejfjs(kh:
string;prodno:
string;money:
real;cs:
integer);//积分计算
functionxsjs(djh,kh:
string;ysje,ssje,kkje,xjje,mlje,zlje,bz:
string):
string;//产品结算
functioncgdz(djh,bz:
string):
string;//采购登帐
functionf_round(val:
double):
double;
functionget_djh(tablename:
string):
string;//获取单据号
functionget_djh2(tablename,col:
string):
string;
functionget_bh(tablename:
string;col:
string;len:
string):
string;//获取最大编号
procedureprint_send(PDStr:
string);//控制打印机
procedureysyfz(dwid,ysyf,ywlx,yffs,dwxz,je:
string);
functionAutoBackDB:
Boolean;//Runnor
functionfwfjs(tableid:
string):
real;//计算服务费
functionzdxf(tablename:
string):
real;//最低消费
functionzjejs(zje:
real;tablename:
string):
real;//计算总金额
functioncard_check():
string;//检查卡
functiongetSpace(j:
integer):
string;//获得空格
functionget_klx(kname:
string):
string;//卡是否存在
functioninsert_klx(kname,zk:
string):
string;//插入新卡
functionget_kh(kh:
string):
string;//卡是否存在
functioninsert_card(cardno,kmch,memno,klx,je,jf,czy,mm,yxq:
string):
string;//插入新卡
functioninsert_member(memno,memname,birtdate,sex:
string):
string;//插入新会员资料
functionget_DLquanxian(quanxian_name:
string):
boolean;///获得的登录权限
functionreadini(title,dir:
string):
string;//读配置文件
procedurewriteini(title,dir,value:
string);//写配置文件
procedureDBG_sort(DBGridEh:
TDBGridEh;Column:
TColumnEh;ADOQuery1:
TADOQuery);overload
procedureDBG_sort(DBGridEh:
Tdbgrid;Column:
TColumn;ADOQuery1:
TADOQuery;datasource1:
tdatasource);overload
procedureintSet();
procedurexfjl_tempTohis(djh:
string);//xfjltemptohis
procedurexfjl_hisToTemp(djh:
string);//xfjlhistotemp
procedurexfjl_tempTohis_byKW(djh:
string);
procedureupdate_yuyue;//更新预约状态
procedureget_insert(view_lb:
tfctreecombo;node:
tfctreenode;pid:
string;y:
integer);
procedureget_insert_fw(view_lb:
tfctreecombo;node:
tfctreenode;pid:
string;y:
integer);
procedurealter_sreport_ini(sender:
TSReport;i:
integer);
functionSbctoDbc(s:
string):
string;
functionDbctoSbc(s:
string):
string;
functiondjhinjqh(s:
string):
string;
functionGet_ytXLH:
string;
functionget_zcm:
string;
procedureAdditem_TreeCom(varFTreeCombobox:
TfcTreeCombo);
procedureAdditem_TreeCom_FW(varFTreeCombobox:
TfcTreeCombo);
functiontablestat_lock(tablename:
string):
Boolean;
procedureSetTableName_Lock(tablename:
string;islock:
Boolean);
functionreadJqh():
string;
functionUPdataPHoto():
string;
procedureselect_quanxian(menuitem:
TMenuItem;ygbh:
string);
procedurefenpei_quanxian(ygbh:
string;varMenu:
TMainMenu);
functionSelect_Str(str:
string):
string;
procedureManipulateControl(WinControl:
TWinControl;Shift:
TShiftState;X,Y,Precision:
integer);//Precision:
精度,该方法可以在onmousemove中调用
procedureValidity;
functionchangekucun(adotemp:
string):
string;
{INCLUDEsjhm.inc}
const
Perissstring='000000000000000000000000000000000000000000000000'+
'000000000000000000000000000000000000000000000000000';{TODO:
权限初始列表}
Regkey='SOFTWARE\KingSeaHorseSoft\InFormation\';{TODO:
注册表路径}
con1='Provider=SQLOLEDB.1;Password="';//数据库设置常量
con2='";PersistSecurityInfo=True;UserID=';
con3=';InitialCatalog=';
con4=';DataSource=';
Information=1;{TODO:
图片类型常量}
Warning=2;
Question=3;
m_Error=4;
CardnoLength=6;
IMessTitle='系统提示...';//提示字符常量
EMessTitle='系统错误...';
QMessTitle='系统询问...';
EMessBody1='操作失败,请检查数据库的连接情况!
';
IMessBody2='信息填写不完全,请重新填写!
';
IMessBody3='保存成功。
';
IMessbody4='确实要保存当前数据吗?
';
Imessbody5='没有符合条件的数据,请重新查找!
';
Imessbody6='删除当前记录,确保下级记录已删除否则可能会导致数据异常,确定吗?
';
IMessBody7='该编号记录已存在,请重新输入编号!
';
IMessbody8='没有找到该编号数据据,不能修改!
';
OprtErrorStr='操作可能有误,请检查并重新操作!
';
SysErrorStr='系统内存读取错误,请关闭程序重新操作!
';
//{DEFINESJZ}
{IFDEFSJZ}
DeveloperAddress='DeveloperName='DeveloperSlogon='DeveloperTelPhone;
{ENDIF}
{IFDEFTY}
DeveloperAddress='
DeveloperName='DeveloperSlogon=
DataSourceStr_YIDianCaiPin='selectcardno,djh,sph,t_xfjl_mx_temp.id,t_xfjl_mx_temp.bh,pxname,(casedyfwhen0then''否''else''是''end)as
dyf,jsname,jg,sl,jgslaszj,zpf,sfjd,chushi,ischuancai,zhuangtai,sj,zy'
+'fromt_xfjl_mx_temp,t_jishiwhere1=1';
var
houchu_print_paper:
string;//后厨打印设置
qiantai_printer:
string;//前台打印机设置
fwfbh:
string;//服务费编号
ick:
string;//是否启用ick1启用
ick_dk:
string;//ick读卡器使用的端口
messaged:
tbutton;
CSSkinData:
Tskindata;
implementation
usesDM,SysUtils,mh_ick,Manager_ic;
{Rmy.res}
functionget_DLquanxian(quanxian_name:
string):
boolean;///获得的登录权限
var
i:
integer;
ret:
boolean;
begin
frm_dm.Str_quanxian.Sort;
iffrm_dm.Str_quanxian.Find(quanxian_name,i)thenresult:
=true
elseresult:
=false;
end;
functiongetSpace(j:
integer):
string;//获得空格
var
I:
Integer;
s:
string;
begin
s:
='';
fori:
=0tojdo
begin
s:
=s+'';
end;
result:
=s;
end;
functioninitMenu(qMenu:
TMainMenu;Periss:
string):
TMainMenu;
var
Menuitem:
TMenuItem;
S,I,P:
integer;
begin
fori:
=0toqMenu.Items.Count-1do
begin
S:
=qMenu.Items[i].Tag;
ifCopy(Periss,s,1)='1'then
qMenu.Items[i].Enabled:
=true
else
qMenu.Items[i].Enabled:
=false;
Menuitem:
=qMenu.Items[i];
forP:
=0toMenuitem.Count-1do
begin
S:
=Menuitem.Items[P].Tag;
ifCopy(Periss,s,1)='1'then
Menuitem.Items[P].Enabled:
=true
else
Menuitem.Items[P].Enabled:
=false;
end;
end;
Result:
=QMenu;
end;
functioninitNavbar(qNavbar:
TdxNavBar;ygbh:
string):
TdxNavBar;
var
s,i:
Integer;
begin
fori:
=1toqNavbar.Items.Countdo
begin
//showbox('警告',qNavbar.Items[i-1].Caption,1,Warning);
ifget_bool('selectquanxian_namefromT_quanxianwhereygbh='''+ygbh+'''andquanxian_name='''+qNavbar.Items[i-1].Caption+'''')='true'then
qNavbar.Items[i-1].Enabled:
=true
else
qNavbar.Items[i-1].Enabled:
=false;
end;
end;
functioninitToolBar(qToolbar:
TToolBar;periss:
string):
TToolBar;
var
s,i:
Integer;
begin
fori:
=0toqToolbar.ButtonCount-1do
begin
//showbox('警告',qToolbar.Buttons[i].Caption,1,Warning);
ifget_bool('selectquanxian_namefromT_quanxianwhereygbh='''+periss+'''andquanxian_name='''+qToolbar.Buttons[i].Caption+'''')='true'then
qToolbar.Buttons[i].Enabled:
=true
else
qToolbar.Buttons[i].Enabled:
=false;
end;
{
begin
s:
=qToolbar.Buttons[i].Tag;
ifCopy(Periss,s,1)='1'then
begin
qToolbar.Buttons[i].Enabled:
=true;
end
else
begin
qToolbar.Buttons[i].Enabled:
=false;
end;
end;
result:
=qToolbar;
}
end;
functionshowbox(caption,text:
string;buttoncount:
integer;icontype:
integer):
integer;
var
box:
Tmsgdlg_form;
begin
box:
=Tmsgdlg_form.Create(application);
try
box.Caption:
=caption;
box.BtnCnt:
=buttoncount;
box.Label1.Caption:
=text;
box.IcnIdx:
=icontype;
box.ShowModal;
Result:
=box.ModalResult;
finally
box.Free;
end;
end;
proceduremessagedlg(caption:
string;frmname:
tform);
begin
messaged:
=tbutton.Create(frmname);
messaged.Caption:
=caption;
messaged.Parent:
=frmname;
CSSkinData.UpdateSkinControl(frmname,messaged);
messaged.Width:
=500;
messaged.Height:
=40;
messaged.Font.Size:
=12;
//messaged.Font.Style:
=[fsBold];加粗
messaged.Left:
=(frmname.Width-messaged.Width)div2;
messaged.Top:
=(frmname.Height-messaged.Height)div2;
//messaged.UIStyle:
=BlueGlass;
//messaged.Glyph.LoadFromResourceName(0,pchar('tishi'));
messaged.Refresh;
//messaged.Visible:
=true;
end;
proceduremessageclose();
begin
messaged.Free;
messaged:
=nil;
end
functionGetPYIndexChar(hzchar:
string):
char;
begin
caseWORD(hzchar[1])shl8+WORD(hzchar[2])of
B0A1..B0C4:
result:
='A';
B0C5..B2C0:
result:
='B';
B2C1..B4ED:
result:
='C';
B4EE..B6E9:
result:
='D';
B6EA..B7A1:
result:
=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- delphi 餐饮 管理软件 源码
![提示](https://static.bingdoc.com/images/bang_tan.gif)