Super Sonic

摘要： DECLARE @sp_name nvarchar(400)DECLARE @sp_content nvarchar(2000)DECLARE @asbegin intdeclare @now datetimeselect @now = getdate()DECLARE sp_cursor CURSOR FOR SELECT object_name(id)FROM sysobjectsWHERE ... 阅读全文

摘要： Function IsEMail(EMail: String): Boolean;var s: String; ETpos: Integer;begin ETpos:= pos('@', EMail); //获取@符号的位置 if ETpos > 1 then begin s:= copy(EMail,ETpos+1,Length(EMail)); ... 阅读全文

摘要： 事实上，解决这个问题的思路很简单。那就是要找出汉字表中拼音首字母分别为“A”到“Z”的汉字内码范围，这样对于要检索的汉字，只需要检查它的内码位于哪一个首字母的范围内，就可以判断出它的拼音首字母。下面完成一个示范程序，选择“File|New Application”菜单命令，在默认的窗体中添加1个Label组件、1个Bevel组件、1个Edit组件和2个ListBox组件。完成对各个组件的属性设置及... 阅读全文

摘要： 前几天的雷吧家里的猫给劈了，心痛啊～～。说要到电信去换，那就换去吧，上午又没时间只能中午了。呆在家里没什么事情，想来以前下载的WIN2003 SP2还没装的，今天趁空装上吧。立刻动手，经过半小时的耐心煎熬，终于煎好了。 下午去换猫倒没花几分钟，电信前台接待热情得我有点不好意思，5分钟就给我换好了。回家给按上，一切OK又可以上网了。打开TM，输入密码，死机～～～～。我可... 阅读全文

摘要： 1、表格形式如类似于下面的表格，需要用到两个数据源。一个用于外层数据，一个用于内层数据。2、在设计表格时需要注意的是字体和字体的编码。打印中文的话，一定要用中文字体，而编码只能用DEFAULT_CHARSET而不能用GB2312_CHARSET，如果用了GB2312_CHARSET那就会出现乱码。 阅读全文

摘要： 今天外面又是暴雨如注啊，不知道会不会发洪水，呵呵。外面倾盆大雨的时候，坐在椅子上的我汗水似倾盆大雨。 昨天刚做完软件更新模块，后来客户需要把现在的程序做成MDI（又是费神的事情）。做就做吧，程序改完，F9。还好没有任何问题（心里正美的），关闭时问题出现了 “.....too many consecutive exceptions...”，我当时差点摔倒，我难道把没有BUG的程... 阅读全文

摘要： DLL方式封装MDI子窗体是一种常用的软件开发技术，它的优点：人员可以负责某一个模块的编写包括（界面＋逻辑），可以互不干扰，模块开发完成后，主程序统一调用。程序升级，当程序升级时，不用编译主exe文件，更新某个DLL就可以升级。可以根据客户不同的需求、价钱给他们不同的模块。（奸商都愿意用这招） 用到这个技术，因为小弟没有用过，在网上google了一下，对它有了了解，我用的是基于COM的DLL，下面... 阅读全文

摘要： 我们知道，在Delphi中，如果一个MDI Form非主窗体的话，我们就不能创建任何MDI Child Form，实在是遗憾，不过还是可以解决的。 Kingron查看了VCL的源代码，发现在创建窗体的时候，系统会检测MainForm是不是nil和MainForm.ClientHandle是不是nil，对于MainForm就是MDI Form的，因为有ClientHandle，所以没有问题，但是对于... 阅读全文

摘要： WinExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW); ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。 首先必须引用shellapi.pas单元：uses ShellAPI; 1.标准用法 ShellExecute函数原型及参数含义如下： function ShellExecute(... 阅读全文

摘要： 通常在Delphi的应用程序中，我们会调用到很多的资源，例如图片，动画（AVI），声音，甚至于别的执行文件。当然，把这些资源分布到不同的目录不失为一个好办法，但是有没有可能把这些资源编译成标准的windows资源从而链接到一个执行文件里面呢？ 我们可以自己做一个RC文件，例如 sample.rc ，RC文件其实就是一个资源文件的描述文本，通过“记... 阅读全文