2013年12月7日

[Windows API 函数] Delphi常用获取系统信息的函数

摘要: ////////////////////////////////////////////////////////////////{****************Delphi常用获取系统信息的函数*********************}///////////////////////////////////////////////////////////////unit untFunctionSysInfo;interfaceusesWindows, SysUtils, ShellAPI, WinSock, Registry;constVER_NT_WORKSTATION = $000000 阅读全文

posted @ 2013-12-07 16:51 酷瑞 阅读(752) 评论(0) 推荐(0) 编辑

[Delphi函数] Delphi常用函数

摘要: Abort 函数 引起放弃的意外处理 Abs 函数 绝对值函数 AddExitProc 函数 将一过程添加到运行时库的结束过程表中 Addr 函数 返回指定对象的地址 AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列 Align 属性 使控件位于窗口某部分 Alignment 属性 控件标签的文字位置 AllocMem 函数 在堆栈上分配给定大小的块 AllowGrayed 属性 允许一个灰度选择 AnsiCompareStr 函数 比较字符串(区分大小写) AnsiCompareText 函数 比较字符串(不区分大小写) AnsiLowerCase 函数 将 阅读全文

posted @ 2013-12-07 16:48 酷瑞 阅读(234) 评论(0) 推荐(0) 编辑

检测IP设备是否在线

摘要: 原理是通过发送ARP包来检测uses WinSockfunction SendARP(const DestIP, SrcIP: Cardinal; pMacAddr: PULONG; var PhyAddrLen: ULONG): DWORD; stdcall; external 'iphlpapi.dll';{调用}var nMacAddr: array[1..6] of Byte; nMacAddrLen: ULONG; nRet: DWORD;begin nMacAddrLen := SizeOf(nMacAddr); nRet := SendARP(ine... 阅读全文

posted @ 2013-12-07 08:19 酷瑞 阅读(731) 评论(0) 推荐(0) 编辑

通过驱动向打印机发送一段(ESC)控制指令

摘要: 开发收银系统时因为客户在使用驱动连接票据打印机, 但是又要开钱箱, 驱动里只能每张单据都开钱箱, 但是软件要求只有在结账时才开钱箱,所以就需要用软件控制打印机开钱箱。票据打印机一般都支持ESC/POS指令, 所以就出现了如下代码, 通过这个函数可以把ESC/POS指令里的开钱箱指令发送给打印机控制开钱箱,同样, 也可以发送别的什么东西, 比如响响蜂鸣器之类的这个代码里使用的是默认打印机, 当然稍微改动下, 就可以先弹出个打印机列表, 然后选择打印机传进去, 这样就可以控制任意打印机了。OpenPrinter(PChar(Printer.Printers[0]), nD, nPPD); uses 阅读全文

posted @ 2013-12-07 08:18 酷瑞 阅读(2264) 评论(0) 推荐(0) 编辑

使用代码创建快捷方式

摘要: 使用代码创建一个应用程序的快捷方式, 主要是用了IShellLink这个接口, 调用很简单uses ShlObj, ComObj, ActiveX;{参数说明AFile: 执行文件(含全路径)AArguments: 启动参数ALinkCaption: 快捷方式名称ADescription: 快捷方式描述ALinkPath: 快捷方式目录}procedure CreateLinkFile(AFile, AArguments, ALinkCaption, ADescription: string; ALinkPath: String = '');var nIShellLink: I 阅读全文

posted @ 2013-12-07 08:12 酷瑞 阅读(268) 评论(0) 推荐(0) 编辑

图像简易处理

摘要: 要求Delphi2007或者更高版本, 系统要求至少XP-SP2以上实际上是利用了Windows的windowscodecs.dll这个文件的功能在VCL里已经封装为TWICImage类procedure ScalerImage(AImage: TWICImage; AWidth, AHeight: Word);var nWIF: IWICImagingFactory; nWIS: IWICBitmapScaler;begin nWIF := AImage.ImagingFactory; nWIF.CreateBitmapScaler(nWIS); nWIS.Initialize(A... 阅读全文

posted @ 2013-12-07 08:09 酷瑞 阅读(205) 评论(0) 推荐(0) 编辑

2013年10月12日

服务行业常见问题应对措施

摘要: 1.拾到客人遗漏物品应该怎么办? 第一时间追上前,看客人是否离开,如已离店,应把物品交到银台登记。如有错,严禁翻动,只有主管在场且有三人以上方可拆看里面物品.2.客人给小费应该怎么做?应该诚恳地对客人说:先生/女士,非常感谢你的好意,我们不能收取您消费以外的费用,如果您对我们的服务满意的话,就是对我们最大的鼓励,谢谢您对我们工作的支持。小费处理: 拒绝→郑重致谢→报告领班→报告经理部长→劳资报告→电脑储存→年末救急捐款3.客人赠送物品应该怎么做?物品处理: 向领导报告→部长经理确认→记录备案→还给本人4.客人要求服务员到外面购买东西该怎么办?应说:"先生/女士:非常抱歉,我现在是上班 阅读全文

posted @ 2013-10-12 21:35 酷瑞 阅读(2382) 评论(0) 推荐(0) 编辑

2013年8月30日

记钟台管理制度

摘要: 1、填写排钟表时务必十分严肃认真,逐栏逐项填,字迹工整,不出差错和遗漏,确保服务质量和保健工作的有序进行。 2、接听记钟台电话必须在三声内接起,充分体现公司的工作效率。3、 接听电话时,必须使用礼貌用语,敬语当先,应说:您好,记钟台!请讲!做到友好亲切,应答得体。 4、接到保健服务排钟预订后,应讲求效率,立即处理,不能让客人久等。 5、在记钟台当班时,应保持端正的站姿,精神饱满,注意力集中,遇有客人或领导经过要非常热情礼貌地问好。不允许左顾右盼、俯在台面上、唱小曲、看报纸、吃零食等非工作行为。6、随时整理记钟台卫生,各项记录本摆放整齐,电话放在规定位置,保持台面干净。 7、除工作需要,无关人员 阅读全文

posted @ 2013-08-30 15:18 酷瑞 阅读(270) 评论(0) 推荐(0) 编辑

服务人员的各岗位的工作标准

摘要: 1、迎宾员标准:主动迎领,将客人送到总台前,同时伴有微笑和礼貌用语,例如:“您好,欢迎光临,先生(小姐)您几位?“并将顾客人数告之总台,客人走时要送到门口,同时伴有礼貌用语,例如:“先生(小姐)您慢走,欢迎您下次光临。2、总收银台服务员标准:身体直立,主动向中人微笑并问好,例如:“您好,欢迎光临,您几位。“客人买单时,要耐心向客人报单,不准以任何理由与客人吵架。顾客结单后,要主动说“先生(小姐)您慢走,“欢迎您下次光临”等语。3、休息大厅服务员标准: 主动向客人微笑问好,迎送到适当床位休息,介绍服务项目、引导消费,满足顾客提出的合理要求,保持大厅的卫生(如床单一客一换)和设备设施的正常运转。. 阅读全文

posted @ 2013-08-30 15:14 酷瑞 阅读(677) 评论(0) 推荐(0) 编辑

2013年8月29日

足浴收银员管理制度

摘要: 一、遵守企业《员工手册》及其他各项管理规定,服从企业管理及领导安排。 二、工作必须热情、认真、负责,按规范站姿站位为宾客提供优质服务。 三、收银员仪表大方,按规范着装,妆容淡雅大方。 四、工作岗位不能空岗,不准串岗。 五、吧台内保持清洁卫生。 六、准时参加每周的员工大会及部门例会。 七、迎接宾客的同时,及时为宾客进行消费登记。 八、交接班必须按企业规定逐项交接清楚,交接要及时、准确;由于交接不清出现问题,由发现问题时的当班收银员负责。 九、前台收银员 1、招待费、减现金、招待票必须表明原因并让前厅经理或值班经理签字。 2、减现金必须让前厅经理或值班经理签字,并且宾客还未离开之前方可。 3、杜绝 阅读全文

posted @ 2013-08-29 14:10 酷瑞 阅读(2358) 评论(0) 推荐(0) 编辑

导航