2024年5月30日发(作者：)

金海马餐饮娱乐管理系统 8.2.0.77

1

unit Global;

interface

uses msgdlg, 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);

function PYJX(HanZI: string): string;

function showbox(caption, text: string; buttoncount: integer; icontype: integer): integer;

function GetTheSaleTblNo: string;

function SetTheSaleTblNo(str: string): string;

procedure CloseQueryTable;

function Encrypt(S: string): string;

function Decrypt(S: string): string;

procedure EnabledDMQuerys(m_enabled: Boolean);

procedure SetmyIme(ImeName: string); //Runnor set the system ime

procedure ResetmyIme(ImeName: string); //Runnor set the system ime

procedure Frm_KeyDown(Sender: TForm; var Key: Word);

procedure messageclose();

procedure writeKey(Tital, Value: string); { TODO : 将数据库注册信息写入注册表 }

function readkey(keyname: string): string;

function initMenu(qMenu: TMainMenu; Periss: string): TMainMenu;

function initNavbar(qNavbar: TdxNavBar; ygbh: string): TdxNavBar;

function initToolBar(qToolbar: TToolBar; periss: string): TToolBar;

function GetSpell(Str: string): string; //得到汉字字符串的首拼音字母

function get_datasource(str: string): TDataSource; //返回TDataSource数据源

function get_bool(str_sql: string): string; //是否存在某条件的数据存在返回true 否返回false

function get_value(str_sql: string; num: integer): string; // /返回指定列的值

function get_exec(str_sql: string): string; //返回指定sql 语句的boolean 值

function get_query(str_sql: string): TADOQuery; //-------返回TADOQUERY

procedure messagedlg(caption: string; frmname: tform);

procedure ddlb_additem(var ddlb: TComboBox; t_table, T_lie, con: string); overload;

//TComboBox 增加item

procedure zksz(panding: integer); //会员卡与产品折扣后的价格

procedure Psound(str: string); //为不大于两位的数字字符串读出语音

function find_quanxian(quanxian_name, ygbh: string): string; //查找权限

function find_kh(kh, mm: string): string; // 输入的卡号和密码是否正确

procedure jfjs(kh: string; prodno: string; money: real; cs: integer); //积分计算

function xsjs(djh, kh: string; ysje, ssje, kkje, xjje, mlje, zlje, bz: string): string; //产品结算

function cgdz(djh, bz: string): string; //采购登帐

function f_round(val: double): double;

function get_djh(tablename: string): string; //获取单据号

function get_djh2(tablename, col: string): string;

function get_bh(tablename: string; col: string; len: string): string; //获取最大编号

procedure print_send(PDStr: string); //控制打印机

procedure ysyfz(dwid, ysyf, ywlx, yffs, dwxz, je: string);

function AutoBackDB: Boolean; //Runnor

function fwfjs(tableid: string): real; //计算服务费

function zdxf(tablename: string): real; //最低消费

金海马餐饮娱乐管理系统 8.2.0.77

2

function zjejs(zje: real; tablename: string): real; //计算总金额

function card_check(): string; //检查卡

function getSpace(j: integer): string; //获得空格

function get_klx(kname: string): string; //卡是否存在

function insert_klx(kname, zk: string): string; //插入新卡

function get_kh(kh: string): string; //卡是否存在

function insert_card(cardno, kmch, memno, klx, je, jf, czy, mm, yxq: string): string; //插入新卡

function insert_member(memno, memname, birtdate, sex: string): string; //插入新会员资料

function get_DLquanxian(quanxian_name: string): boolean; ///获得的登录权限

function readini(title, dir: string): string; //读配置文件

procedure writeini(title, dir, value: string); //写配置文件

procedure DBG_sort(DBGridEh: TDBGridEh; Column: TColumnEh; ADOQuery1: TADOQuery);

overload

procedure DBG_sort(DBGridEh: Tdbgrid; Column: TColumn; ADOQuery1: TADOQuery;

datasource1: tdatasource); overload

procedure intSet();

procedure xfjl_tempTohis(djh: string); //xfjl temp to his

procedure xfjl_hisToTemp(djh: string); //xfjl his to temp

procedure xfjl_tempTohis_byKW(djh: string);

procedure update_yuyue; //更新预约状态

procedure get_insert(view_lb: tfctreecombo; node: tfctreenode; pid: string; y: integer);

procedure get_insert_fw(view_lb: tfctreecombo; node: tfctreenode; pid: string; y: integer);

procedure alter_sreport_ini(sender: TSReport; i: integer);

function SbctoDbc(s: string): string;

function DbctoSbc(s: string): string;

function djhinjqh(s: string): string;

function Get_ytXLH: string;

function get_zcm: string;

procedure Additem_TreeCom(var FTreeCombobox: TfcTreeCombo);

procedure Additem_TreeCom_FW(var FTreeCombobox: TfcTreeCombo);

function tablestat_lock(tablename: string): Boolean;

procedure SetTableName_Lock(tablename: string; islock: Boolean);

function readJqh(): string;

function UPdataPHoto(): string;

procedure select_quanxian(menuitem: TMenuItem; ygbh: string);

procedure fenpei_quanxian(ygbh: string; var Menu: TMainMenu);

function Select_Str(str: string): string;

procedure ManipulateControl(WinControl: TWinControl; Shift: TShiftState; X, Y, Precision:

integer); //Precision:精度，该方法可以在onmousemove中调用

procedure Validity;

function changekucun(adotemp: string): string;

{INCLUDE }

const

Perissstring = '' +

'000'; { TODO : 权限初始列

表 }

Regkey = 'SOFTWAREKingSeaHorseSoftInFormation'; { TODO : 注册表路径 }

con1 = 'Provider=SQLOLEDB.1;Password="'; //数据库设置常量

con2 = '";Persist Security Info=True;User ID=';

con3 = ';Initial Catalog=';