2010年5月19日
改良dbgrideh的文字过滤
摘要： uses ehlibado;改良dbgrideh的文字过滤，原先过虑需要填%字符串%，修改后，直接填入所要搜索的字符串即可，相关代码： procedure TSTColumnFilterEh.InternalSetExpressionStr(const Value: String); procedure SetLookupKeyValues(var v: Variant); var i: Integer; begin if VarIsArray(Expression.Operand1) then for i := VarArrayLowBound(Expression.Operand1, 1) 阅读全文
posted @ 2010-05-19 15:13 delphi中间件 阅读(526) 评论(0) 推荐(0)
发布脚本开发框架代码
摘要： 在www.delphifans.com(delphi园地)发布脚本开发框架代码 阅读全文
posted @ 2010-05-19 14:43 delphi中间件 阅读(231) 评论(0) 推荐(0)
POS打印机一些特殊控制
摘要： procedure TForm1.Button1Click(Sender: TObject);varRPrinter:TextFile;i:integer;begin{设置打印机}Assignfile(RPrinter,'lpt1');{准备写文件}Rewrite(RPrinter);{打印}for i := 0 to memo1.lines.Count - 1 doWriteln(RPrinter,memo1.lines[i]);{向后倒纸}Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40));{向前进纸}Writeln( 阅读全文
posted @ 2010-05-19 07:49 delphi中间件 阅读(363) 评论(0) 推荐(0)
生成不重复单据编号
摘要： Last4Str:string; //全局变量function NotRepertStr:string;var n,w,i:integer; s:string;begins:='';if Last4Str='' then Last4Str:='0000';n:=strtoint(Last4Str)+1;if n>9999 then n:=0;w:=Length(inttostr(n)); for i:=1 to 4-w do s:=s+'0';Last4Str:=s+inttostr(n);result:=FormatDat 阅读全文
posted @ 2010-05-19 07:47 delphi中间件 阅读(494) 评论(0) 推荐(0)
控制钱箱,客显,打印
摘要： 1、控制POS机的客户显示屏procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容var PrnFileName:TextFile;begin Assignfile(PrnFileName,Money_Port); printer.Canvas.Font.Name:='宋体'; printer.Canvas.Font.Size:=8; printer.Canvas.Font.Charset:=G 阅读全文
posted @ 2010-05-19 07:45 delphi中间件 阅读(478) 评论(0) 推荐(0)