虚拟键码 对应值 对应键 VK_LBUTTON 1 鼠标左键 VK_RBUTTON 2 鼠标右键 VK_CANCEL 3 Cancel VK_MBUTTON 4 鼠标中键 VK_XBUTTON1 5 VK_XBUTTON2 6 VK_BACK 8 Backspace VK_TAB 9 Tab VK_CLEAR 12 Clear VK_RETURN ... Read More
posted @ 2009-03-17 16:59
zywuhao
Views(387)
Comments(0)
Diggs(0)
function GetPyChar(const HZ: AnsiString): string; const HZCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593),... Read More
posted @ 2009-03-17 16:20
zywuhao
Views(272)
Comments(0)
Diggs(0)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Cli... Read More
posted @ 2009-03-17 16:07
zywuhao
Views(424)
Comments(0)
Diggs(0)
{函数} function ReadFileToHex(FileName: string): string; var b: Byte; begin Result := ''; if not FileExists(FileName) then Exit; with TMemoryStream.Create do begin LoadFromFile(FileName); ... Read More
posted @ 2009-03-17 16:03
zywuhao
Views(292)
Comments(0)
Diggs(0)
absolute //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var Str: string[32]; StrLen: Byte absolute Str; //这个声明指定了变量StrLen起始地址与Str相同. //由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin Str := 'abc'; Edit1.Text :=... Read More
posted @ 2009-03-17 15:56
zywuhao
Views(231)
Comments(0)
Diggs(0)
----------------------------------------------------- --作用：用于sql server 2005 导出用户表数据字典 --作者：郭强--时间：年月日--用法如下： --1 默认导出当前数据库中所有用户表(xtype = 'u')的数据字典； --2 可以在xtype = 'u'替换为如下所示语句xtype = 'u' and name in... Read More
posted @ 2009-03-17 15:47
zywuhao
Views(929)
Comments(0)
Diggs(0)
如何查询处某字段不连续的纪录，比如 记录字段值为1，5，6，7，查处2，3，4 --参考这个: /* 显示编码连号--缺号表 */ begin tran --创建测试表 select top 100 id=identity(int,1,1) into #tb fro... Read More
posted @ 2009-03-17 15:46
zywuhao
Views(421)
Comments(0)
Diggs(0)
1:利用SQL自带的存储过程 EXEC sp_pkeys @table_name='表名' 2:利用系统表INFORMATION_SCHEMA.KEY_COLUMN_USAGE SELECT TABLE_NAME,COLUMN_NAME FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE WHERE TABLE_NAME='表名' 3: 以下这个查询表结构的语... Read More
posted @ 2009-03-17 15:44
zywuhao
Views(476)
Comments(0)
Diggs(0)
每一个游标必须有四个组成部分这四个关键部分必须符合下面的顺序； 1.DECLARE 游标 2.OPEN 游标 3.从一个游标中FETCH 信息 4.CLOSE 或DEALLOCATE 游标 其中： cursor_name：指游标的名字 定义游标的作用域仅限在其所在的存储过程、触发器或批处理中。当建立游标的存储过程执行结束后，游标会被... Read More
posted @ 2009-03-17 15:42
zywuhao
Views(775)
Comments(0)
Diggs(0)
报表作为系统信息的典型输出形式之一，是大多数应用系统特别是MIS系统的重要功能。是否具有一个良好的打印功能，往往从一定程度上关系到系统的成败。Delphi有很强的报表功能，但是它的报表功能还不能满足我们的需要。于是许多Delphi高手相继推出了不少优秀的报表控件（模块），作为QuickReport的补充，其中FastReport就是一个代表。 FastReport综合了QuickReport和... Read More
posted @ 2009-03-17 15:22
zywuhao
Views(1241)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号