- 博客(6)
- 收藏
- 关注
RSS订阅原创 程序最小化到任务右边
在网上找到一些资料，记录下来：1、在Uses 中 加入单元 ShellAPI2、设置一个常量消息号，用于左键单击、双击或右键单击 例如： const WM_BarIcon=WM_User+200;3、在程序主窗体的 Private 加入两个消息函数 procedure WMSysCommand(var Message: TMessage); message WM_SYSCO
2009-08-21 14:09:00
409
转载 货币转英文
由三个函数组成。function InTen(N: Integer): string;var S: string;begin case N of 0: S := ; 1: S := ONE; 2: S := TWO; 3: S := THREE; 4: S := FOUR; 5: S := FIVE; 6: S :=
2009-03-04 09:34:00
348
转载 货币转中文大写
function NumToChar(const n: Real): string; //可以到亿万，并且可以随便扩大范围const cnum: array[0..9] of string = (零, 壹, 贰, 叁, 肆, 伍, 陆, 柒, 捌, 玖); cunit: array[0..14] of string = (万, 千, 百,
2009-03-04 09:21:00
344
原创 DCom存取被拒？
DCOM 的權限設定1. 請在 AP Server 端, 執行 cmd, 然後在 command 下輸入: dcomcnfg2.1 如果是 W2K server, 請直接在 應用程式的頁籤點選您的 App 程式, 然後點 內容按鍵, 2.2 如果是 XP Pro, 請在元件服務下的電腦, 我的電腦中, 選 DCOM 設定, 在 App 程式, 點右鍵內容3. 請在安全性的頁籤設定 使用自訂的存取權
2009-02-13 19:02:00
777
转载 SQL 查詢Table表的結構
select object_name(c.id) as 表名 ,c.name as 字段名,t.name 数据类型,c.length 长度,c.prec as 精度,p.value as 字段说明,m.text as 默认值,case when c.status=0x80 then 1 else 0 end 标识,c.iscomputed 是否已计算该列的标志,c.isnullable 是否允许空
2008-11-24 10:12:00
568
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人