1、ado控件,缺点是速度慢:procedure showViewData(PageSize,AbsolutePage : Integer);var i : Integer;begin try adoPCustomer.Recordset.PageSize := PageSize; if adoPCustomer.Reco
今天门店突然提出来系统打印小票报错,找不到报表。然后自己就查看了下以前写的代码,修改了两个问题,改完之后是出了一身汗啊。 修改前: 代码中取路径的时候写的是:ExtractFileDir(Application.Name)+'收银小票.rpt'; 修改后:ExtractFilePath(Application.Exe
最近帮业务部编写快递系统,方便领导控制快递的费用。其中遇到这么个问题,就是每个面单寄送出去后,都会发一封邮件给客户,用户的意思就是直接在系统中直接点个按钮,然后新增一封邮件,并且能够将邮件的内容按照固定格式大致填写完毕。 实现代码如下: var strMail : string; begin s
在前段时间写的收银系统中由于目前市场上很多电脑主板上已经没有并口,而POS机却又需要并口,所以目前需要用PCI转接卡,这个就导致不同门店使用的端口就有可能不同,这就给我们程序中弹出钱箱的指令带来一定的难度。所以就通过获取Window自带的默认,得出打印机信息。 在Windows文件下有个win.ini,里面自带默认打印机的信息。通过调用API函数Getprofilestring这个函数获取打印机
在C语言中有个条件运算符:表达式1?表达式2:表达式3,用这个可以很简单地进行判断。 在Delphi中也有一个相似的函数:StrUtils单元中的ifthen。 procedure TForm1.Button1Click(Sender: TObject); var str: string; begin &n
今天将以前的程序拿出来看了下,发现曾经使用的inputbox还是不能很好的完成自己的要求,到网上看了看,换成了inputquery。 新建一个Application,在界面上放一个label和button。 在button的click事件中写如下代码:(inputquery) procedure TForm1.Button1Click(Sender: TObject)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号