- 博客(6)
- 收藏
- 关注
RSS订阅原创 windows2003 sp2 拒绝访问
昨天发现服务器中毒了，打不开我的电脑，肯定是被毒了。因此重装，装完成后，发现SP2补订装到一半时总时装不下去，总是提示“拒绝访问”，后来把瑞星防火墙关了，SP2就正常安装了。估计垃圾瑞星拒绝了访问注册表，也没有提示，所以出现拒绝访问的问题，应当把杀毒软件等关闭了，再装就没问题了。
2009-01-06 11:35:00
945
原创 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
2295
原创 delphi中实现黑标单据的打印（原创）
对于很小的票据，打印起来很难套格式，连续打印时错位会很严重，这样我们可以用黑标检测来解决这个问题，当打印机打印完一张票据时就检测黑标，这样打印机将会停在检测到的黑标后面，打印一下张时将不会跑位。黑标打印需要的条件：１、打印机要支持黑标发票。打印说明书中可以查到。２、行矩要跟据打印机来定，一般打印字体一样时，不同的打印机行矩会一样的。下面是一个示例：unit PrintHBUnit;interfac
2005-03-25 18:13:00
1983
原创 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
1678
原创 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
1930
原创 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
1657
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人