
Delphi
h98458
这个作者很懒,什么都没留下…
展开
-
让程序运行时能服务端的时间而改变本地时间
在Form上放个TTimerprocedure TFrmMain.tmr2Timer(Sender: TObject);var systime : _SYSTEMTIME; qryTmp:TADOQuery;begin qryTmp:=TADOQuery.Create(Self); qryTmp.Connection:=DMMain.connDatabase; qryTmp.SQL.Cl原创 2005-07-01 10:06:00 · 1059 阅读 · 0 评论 -
Delphi程序的时限和加密
Delphi程序的时限和加密日期:2005年5月31日 作者:BUCK FORLAND 人气: 146 查看:[大字体 中字体 小字体] 本例中TRegistry是关键类,Delphi 4.0不能自行加入,需在uses部分手工加入“registry”,通过其方法“ReadString”和“WriteString”来读出和写入字符,亦可通过其方法“ReadDate”和“WriteDa原创 2005-05-31 18:42:00 · 1414 阅读 · 0 评论 -
数字转换成大写金额的存储过程或函数
1、不带零CREATE FUNCTION GetChineseNum (@inputId money) RETURNS Nvarchar(4000) AS BEGIN declare @rV Nvarchar(4000)declare @tmpstr Nvarchar(4000),@M Nvarchar(4000),@K Nvarchar(4000),@I numeric(38,2)原创 2006-07-07 16:51:00 · 1573 阅读 · 0 评论 -
用Sql添加删除字段,判断字段是否存在的方法
增加字段alter table docdsp add dspcode char(200)删除字段ALTER TABLE table_NAME DROP COLUMN column_NAME修改字段类型ALTER TABLE table_name ALTER COLUMN column_name new_data_type改名sp_rename更改当前数据库中用户原创 2007-04-20 12:39:00 · 3898 阅读 · 0 评论 -
公共函数单元
<br />{ <br /> This unit was generated on Sun, 10 Dec 2006 09:45:52 +0000 <br /> by the code snippets database at www.delphidabbler.com. <br /> Check the site for updates. <br /> The unit is freeware and may be freely distributed providing <br /> only转载 2010-12-15 16:19:00 · 1224 阅读 · 0 评论