- 博客(6)
- 收藏
- 关注
原创 windows2003 sp2 拒绝访问
昨天发现服务器中毒了,打不开我的电脑,肯定是被毒了。因此重装,装完成后,发现SP2补订装到一半时总时装不下去,总是提示“拒绝访问”,后来把瑞星防火墙关了,SP2就正常安装了。估计垃圾瑞星拒绝了访问注册表,也没有提示,所以出现拒绝访问的问题,应当把杀毒软件等关闭了,再装就没问题了。
2009-01-06 11:35:00 970
原创 delphi中调用tuxedo示例
delphi中的代码:procedure TForm1.Button1Click(Sender: TObject);var ret:Longint; SendBuf,RcvBuf,PKH_MC,PKH_DZ:pchar; fQF_JE:^Real; ilen,rlen:Longint; TPTTpinit:PTTpinit;const M=32;begin TPTTpinit:=
2006-04-30 09:47:00 2311
原创 delphi中实现黑标单据的打印(原创)
对于很小的票据,打印起来很难套格式,连续打印时错位会很严重,这样我们可以用黑标检测来解决这个问题,当打印机打印完一张票据时就检测黑标,这样打印机将会停在检测到的黑标后面,打印一下张时将不会跑位。黑标打印需要的条件:1、打印机要支持黑标发票。打印说明书中可以查到。2、行矩要跟据打印机来定,一般打印字体一样时,不同的打印机行矩会一样的。下面是一个示例:unit PrintHBUnit;interfac
2005-03-25 18:13:00 2013
原创 Delphi中实现金额小写转化成大写
function NumToChar(const n: Real): string; //可以到万亿,并且可以随便扩大范围const cnum: array[0..9] of string = (零,壹,贰,叁,肆,伍,陆,柒,捌,玖); cunit: array[0..14] of string = (万,仟,佰,拾,亿
2005-02-16 14:17:00 1723
原创 Oracle中统计所有的表中的记录数
执行下面的角本,生成c:/mytext.sql的文件,运行c:/mytext.sql文件中的内容,可以得到当前用户下的所有表及表中的记录数Connect UserID/PSW@NETServerNameset feedback offset heading offspool c:/mytext.sqlselect decode(rownum,1,,union)|| select||
2005-01-31 11:46:00 1978
原创 Delphi中实现汉字拼音声母查询
Delphi中实现汉字拼音声母查询,unit代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; Lis
2005-01-31 11:26:00 1680 1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人