2010 年 9月随笔档案 - sunjun0427

variant 和 Stream 的互換

摘要：在Com, Dcom, Com+中經常要用到variant, 而在delphi 中的文件操作之類中, 更多的用到Stream, 有時, 需要適當的互換!Variant --> Streamvar ov: OleVariant; ms: TStream; p: Pointer;begin ov := dmMain.ComConnection.AppServer.TimeZone; ms := ... 阅读全文

posted @ 2010-09-30 09:53 sunjun0427 阅读(272) 评论(0) 推荐(0)

[转载]Delphi 修改 VCL Source Code 需知

摘要：from : http://bbs.ee.ntu.edu.tw/boards/Programming/10/2/13.html◇ Delphi 修改 VCL Source Code 需知Cannot single step into VCL source code anymore 阅读全文

posted @ 2010-09-30 09:52 sunjun0427 阅读(516) 评论(0) 推荐(0)

转载:大师风范Anders Hejlberg

摘要：很舊的貼子了, 但今天看到, 仍覺得讚嘆驚訝!!!轉貼:Interview with Lino Tadros by Clay Shannon http://bdn.borland.com/article/0,1410,30085,00.htmlWhat was the funniest experience you've ever had related to programming? The f... 阅读全文

posted @ 2010-09-30 09:38 sunjun0427 阅读(399) 评论(0) 推荐(0)

后悔当初在学校没看到的一篇文章

摘要：如果你是计算机专业的在校大学生，而且想当程序员，那么请往下看：1、大学生活丰富多彩，会令你一生都难忘，但难忘有很多种，你可以学了很多东西而难忘，也会因为什么都没学到而难忘！2、计算机专业是一个很枯燥的专业，但即来之、则安之，只要你努力学，也会发现其中的乐趣的。3、记住：万丈高楼平地起！基础很重要，尤其是专业基础课，只有打好基础才能学得更深。4、C语言是基础，很重要，如果你不学好C语言，那么什么高级... 阅读全文

posted @ 2010-09-29 10:15 sunjun0427 阅读(395) 评论(0) 推荐(3)

ORACLE 一些时间查询方式

摘要：oracle得到当天的0点selecttrunc(sysdate) from dual得到两个时间相差多少天select (addtime -trunc(sysdate)) from e_job一个时间在两个时间之间若是日期型，则可： a.acdate between trunc(sydate) and sysdate两天之间starttime between trunc(sysdate-2) a... 阅读全文

posted @ 2010-09-29 10:12 sunjun0427 阅读(309) 评论(0) 推荐(0)

一些常用的正则表达式

摘要："^\d+$"　　//非负整数（正整数 +0）"^[0-9]*[1-9][0-9]*$"　　//正整数"^((-\d+)|(0+))$"　　//非正整数（负整数 + 0）"^-[0-9]*[1-9][0-9]*$"　　//负整数"^-?\d+$"　　　　//整数"^\d+(\.\d+)?$"　　//非负浮点数（正浮点数 + 0）"^(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-... 阅读全文

posted @ 2010-09-29 10:11 sunjun0427 阅读(276) 评论(0) 推荐(0)

VC6.0 fatal error C1853 预编译头文件来自编译器的早期版本

摘要：转自：http://hi.baidu.com/magwitch/blog/item/5e8750d9699476ee39012fbc.html【有改动】当 Visual C++ 项目启用了预编译头 (Precompiled header) 功能时，如果项目中同时混合有 .c 和.cpp 源文件，则可能收到 C1853 编译器错误：fatal error C1853: 'pjtname.pch'pr... 阅读全文

posted @ 2010-09-29 10:08 sunjun0427 阅读(839) 评论(0) 推荐(0)

Oracle SQL99 外连接的写法区别

摘要：1: cartesian 笛卡尔积返回的结果集合：一般按照From后表的顺序，先从t1种抽取所有的记录和t2的第一条记录结合然后从t1种抽取所有的记录和t2的第二条记录结合然后从t1种抽取所有的记录和t2的第...条记录结合SQL99：SELECT t1.department_id, t2.employee_idFROM t_department t1 cross joint_employ... 阅读全文

posted @ 2010-09-29 10:04 sunjun0427 阅读(951) 评论(0) 推荐(0)

Oracle弱智100问

摘要：1. Oracle安装完成后的初始口令?　internal/oracle　　sys/change_on_install　　system/manager　　scott/tiger　　sysman/oem_temp2. ORACLE9IAS WEB CACHE的初始默认用户和密码？administrator/administrator3. oracle 8.0.5怎么创建数据库?用orainst。如果... 阅读全文

posted @ 2010-09-29 10:03 sunjun0427 阅读(404) 评论(0) 推荐(0)

Oracle 函数大全

摘要：SQL中的单记录函数1.ASCII返回与指定的字符对应的十进制数;SQL> select ascii(’A’) A,ascii(’a’) a,ascii(’0’)zero,ascii(’ ’) space from dual;A A ZERO SPACE--------- --------- --... 阅读全文

posted @ 2010-09-29 10:02 sunjun0427 阅读(337) 评论(0) 推荐(0)

Oracle中查看表是否被锁

摘要：oracle中查看表是否被锁查看表是否被锁SELECTa.sid, b.owner, object_name, object_typeFROM v$lock a, all_objects bWHERE TYPE = 'TM'and a.id1 = b.object_id;这样可以把它杀掉SELECT sid,serial# FROM v$session WHERE sid =&sid;al... 阅读全文

posted @ 2010-09-29 10:01 sunjun0427 阅读(631) 评论(0) 推荐(0)

Regsvr32注册DLL文件命令的使用方法详细说明

摘要：你知道吗？Regsvr32命令　　Regsvr32命令是Windows中控件文件(如扩展名为DLL、OCX、CPL的文件)的注册和反注册工具。　　命令格式　　Regsvr32[/s][/n][/i[:cmdline]] dllname　　/u 卸载安装的控件，卸载服务器注册；　　/s 注册成功后不显示操作成功信息框；　　/i调用DllInstall函数并把可选参数[cmdline]传给它，当使用/... 阅读全文

posted @ 2010-09-29 10:00 sunjun0427 阅读(1649) 评论(0) 推荐(0)

Delphi一行语句实现edit只能输入数字

摘要：SetWindowLong(edt_UserName.Handle,GWL_STYLE,ES_NUMBER or GetWindowLong(edt_UserName.Handle,GWL_STYLE)) 阅读全文

posted @ 2010-09-29 09:59 sunjun0427 阅读(489) 评论(0) 推荐(0)

如何修改服务中可执行文件的路径

摘要：在注册表中改 :在[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\下找到你想改路径的服务,有一键名是"ImagePath",在这里修改阅读全文

posted @ 2010-09-29 09:57 sunjun0427 阅读(726) 评论(0) 推荐(0)

软件发布版本命名规则

摘要：软件发布版本命名规则1 版本类型1.1 正式版本Enhance：增强版或者加强版属于正式版Full version：完全版属于正式版Release：发行版，有时间限制Upgrade：升级版Retail：零售版Plus：增强版，不过这种大部分是在程序界面及多媒体功能上增强。1.2 测试版本Alphal：内部测试版Beta：外部测试版M 版： Milestone，意思是每个开发阶段的终结点的里程碑... 阅读全文

posted @ 2010-09-29 09:51 sunjun0427 阅读(800) 评论(1) 推荐(1)

Delphi动态创建ClientDataSet的表定义

摘要：前言很多人都在问，ClientDataSet如何才能在不连接数据库得情况下，用程序创建起来，并打开数据集。在研究了一下TClientDataSet数据集后，发现如果要让ClientDataSet打开的话（Open），必须满足三个条件中的一个：ProviderName属性赋值，即有数据源提供者。 Data属性赋值。即从其它已经打开的数据集中获得表结构和数据。 FileName赋值，即从本地文件获取数... 阅读全文

posted @ 2010-09-28 14:09 sunjun0427 阅读(3889) 评论(0) 推荐(0)

创建数据库索引的几个标准

摘要：在Oracle数据库中，创建索引虽然比较简单。但是要合理的创建索引则比较困难了。笔者认为，在创建索引时要做到三个适当，即在适当的表上、适当的列上创建适当数量的索引。虽然这可以通过一句话来概括优化的索引的基本准则，但是要做到这一点的话，需要数据库管理员做出很大的努力。具体的来说，要做到这个三个适当有如下几个要求。一、根据表的大小来创建索引。虽然给表创建索引，可以提高查询的效率。但是数据库管理员需要... 阅读全文

posted @ 2010-09-28 11:32 sunjun0427 阅读(1595) 评论(0) 推荐(0)

建立索引时候的经验技巧

摘要：1．合理使用索引索引是数据库中重要的数据结构，它的根本目的就是为了提高查询效率。现在大多数的数据库产品都采用IBM最先提出的ISAM索引结构。索引的使用要恰到好处，其使用原则如下： ●在经常进行连接，但是没有指定为外键的列上建立索引，而不经常连接的字段则由优化器自动生成索引。 ●在频繁进行排序或分组（即进行group by或order by操作）的列上建立索引。 ●在条件表达式中经常用到... 阅读全文

posted @ 2010-09-28 11:31 sunjun0427 阅读(596) 评论(0) 推荐(0)

通过触发器的INSTEAD OF 来修改视图

摘要：SQL> CREATE TABLE DTEMP ( 2 VNAME VARCHAR2(20) NOT NULL PRIMARY KEY, 3 VID VARCHAR2(20) NOT NULL 4 ) 5 ; 表已创建。 SQL> CREATE TABLE DTEMPME ( 2 VNAME VARCHAR2(20) NOT NULL PRIMARY KEY... 阅读全文

posted @ 2010-09-28 11:31 sunjun0427 阅读(286) 评论(0) 推荐(0)

Oracle中ROWNUM的使用技巧

摘要：ROWNUM是一种伪列，它会根据返回记录生成一个序列化的数字。利用ROWNUM，我们可以生产一些原先难以实现的结果输出，但因为它是伪列的这个特殊性，我们在使用时也需要注意一些事项，不要掉入“陷阱”。下面就介绍一下它的使用技巧及注意事项。1 特殊结果输出利用ROWNUM，我们可以做到一些特殊方式的输出。1.1 Top N结果输出我们如果希望取输出结果的前面几条数据，通过ROW... 阅读全文

posted @ 2010-09-28 11:29 sunjun0427 阅读(369) 评论(0) 推荐(0)

用Delphi操作INI文件

摘要：如何操作INI文件？ INI 文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如 VB、VC、VFP、Delphi 等都提供了读写 INI 文件的方法，其中Delphi中操作 INI 文件，最为简洁，这是因为Delphi3提供了一个 TInifile 类，使我们可以非常灵活的处理 INI 文件。一、有必要了解 INI 文件的结构：;注释[小节名]关键字=值...... 阅读全文

posted @ 2010-09-28 11:22 sunjun0427 阅读(358) 评论(0) 推荐(0)

Delphi PChar与String互转

摘要：1.String转化成PChar例：var str: string; pStr:PChar;...pStr := PChar(str);2.PChar转String例:varpStr:PChar; str:string;...str := strPas(pStr); 阅读全文

posted @ 2010-09-28 11:21 sunjun0427 阅读(6538) 评论(0) 推荐(0)

DELPHI listbox去除重复项

摘要：listbox1.Items.IndexOf('重复的字符')= -1 表示没有重复阅读全文

posted @ 2010-09-28 11:20 sunjun0427 阅读(708) 评论(0) 推荐(0)

Delphi如何把stringgrid中的数据清空

摘要：for i:=1 to stringgrid.rowcount do for j:=1 to stringgrid.colcount do stringgrid.cells[j-1,i-1]:=''; 阅读全文

posted @ 2010-09-28 11:20 sunjun0427 阅读(4943) 评论(0) 推荐(0)

Delphi编程修改ProgressBar的颜色

摘要：delphi编程修改ProgressBar的颜色关键代码如下：usesCommCtrl;procedure TForm1.Button1Click(Sender: TObject);begin// Set the Background color to tealProgressbar1.Brush.Color := clTeal;// Set bar color to yellowSendMess... 阅读全文

posted @ 2010-09-28 11:18 sunjun0427 阅读(2396) 评论(0) 推荐(0)

Delphi 获取本机IP地址

摘要：uses WinSock; function LocalIP: String; type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: Array[0..63] of AnsiChar; i: ... 阅读全文

posted @ 2010-09-28 11:17 sunjun0427 阅读(577) 评论(0) 推荐(0)

Delphi+MySQL:TADOQuery使用插入中文乱码解决方法

摘要：with adoquery dobeginclose;sql.clear;sql.text:=' insert into test (FieldName) values (:FieldName) ';Parameters.ParamByName('FiledName').Value := UTF8Encode('中文(简体/繁體)');ExecSQL;end; 阅读全文

posted @ 2010-09-28 11:16 sunjun0427 阅读(1656) 评论(0) 推荐(0)

Delphi调用外部程序打开文件

摘要：ShellExecute的各种用法一、利用系统默认的邮件收发器发送电子邮件Uses..., ShellAPI;VarlpHwnd: HWND;lpOperation, lpFile, lpParameters, lpDirectory: String;BeginlpHwnd:= GetDesktopWindow();lpOperation:= 'open';lpFile:= 'mailto:' +... 阅读全文

posted @ 2010-09-28 11:03 sunjun0427 阅读(3337) 评论(0) 推荐(0)

Delphi中的操作二进制文件的两个重要函数

摘要：对于通过Byte数组进行文件操作的，在FTP中经常会使用到，我也是在Delphi调用Web Service进行文件的上传和下载时找到这两个函数的，挺好用的，推荐给大家。(申明：非本人所写)1. 将Byte数组生成文件procedure ByteArrayToFile(const ByteArray : TByteDynArray; const FileName : string );varCoun... 阅读全文

posted @ 2010-09-28 10:58 sunjun0427 阅读(2730) 评论(0) 推荐(1)

Delphi中建议使用的语句

摘要：{ No.1 判断逻辑类型 }var B: Boolean;beginB := Boolean(2); //这样只是为了调试//B := True;if B = True then ShowMessage('B = True'); //不建议//不安全///////if B then ShowMessage('B'); //建议//简短end;var B: Boolean;beginif Edit... 阅读全文

posted @ 2010-09-27 09:56 sunjun0427 阅读(517) 评论(0) 推荐(0)