小天1981 - 博客园

2013年4月29日

摘要：随着“金盾工程”建设的逐步深入和公安信息化的高速发展，公安计算机应用系统被广泛应用在各警种、各部门。与此同时，应用系统体系的核心、系统数据的存放地――数据库也随着实际应用而急剧膨胀，一些大规模的系统，如人口系统的数据甚至超过了1000万条，可谓海量。那么，如何实现快速地从这些超大容量的数据库中提取数据（查询）、分析、统计以及提取数据后进行数据分页已成为各地系统管理员和数据库管理员亟待解决的难题。在以下的文章中，我将以“办公自动化”系统为例，探讨如何在有着1000万条数据的MS SQL SERVER数据库中实现快速的数据提取和数据分页。以下代码说明了我们实例中数据库的“红头文件”一表的部分数据结阅读全文

posted @ 2013-04-29 10:52 小天1981 阅读(137) 评论(0) 推荐(0) 编辑

存储过程生成流水号

摘要：首先在数据库中创建一个存放流水号的表CREATE TABLE [dbo].[NumSeq] ([Cate] [varchar] (2) NOT NULL ,[DateNo] [varchar] (4) NOT NULL ,[Seq] [int] NULL ,[CrTime] [datetime] NOT NULL) 上面的代码中，Cate 字段为流水号的头，可以在下面的存储过程中用参数的方式传入，我的定义是2个字符，这个可以根据具体需要更改DateNo 字段为获取日期信息Seq 字段为流水号，但最终生成的流水号是这三个字段的相加创建存储过程CREATE PROC dpPMT_SGetMaint 阅读全文

posted @ 2013-04-29 10:48 小天1981 阅读(324) 评论(0) 推荐(0) 编辑

2013年4月28日

class function或class procedure是什么意思

摘要：类函数\类过程. 它们是直接操作在类上面(没有实例化的对象)下面是Delphi Help 的描述 A class method is a method (other than a constructor) that operates on classes instead of objects. The definition of a class method must begin with the reserved word class. For example, type TFigure = class public class function Supports(Operation: st 阅读全文

posted @ 2013-04-28 15:30 小天1981 阅读(442) 评论(0) 推荐(0) 编辑

Delphi代码标准文档

摘要：本文主要基于“Delphi Development Guide”一书的代码标准部分而来，编者参考其它的Delphi代码标准规范，以及结合现目前Delphi社区中流行的程序书写惯例，作了一些修改和裁剪，你也可以根据自己的需要进行裁剪和修改。如果你有什么建议，或是希望编者加上你认为遗漏的东西，欢迎Email至：riceball@cq118.com目录：前言源程序书写规范通用源代码书写规范Object Pascal语句书写规范与用法命名规范过程(Procedure)与函数(Function)变量(Variable)类型(Type)一般类型构造类型类类型(Class)字段方法属性元件类型窗体与对话框类阅读全文

posted @ 2013-04-28 15:28 小天1981 阅读(266) 评论(0) 推荐(0) 编辑

Delphi监视U盘的状态代码范例

摘要：其实系统中的任何事件都是有消息的，U盘的插拨也不例外，让程序去接收这些消息就能知道U盘的状态此处我写了一个Demo程序，用来监视U盘插上或拨下。主要的问题就在如何去接收消息，以及接收什么消息。在DBT单元中，封装了与驱动有关的消息及API，我们只需要稍做研究，即可写出这个程序了。一、接管消息procedure TFormMain.WndProc(var Message: TMessage);varhdr: PDevBroadcastHdr;vol: PDevBroadcastVolume;beginif Message.Msg = WM_DEVICECHANGE thenbegin case 阅读全文

posted @ 2013-04-28 15:26 小天1981 阅读(371) 评论(0) 推荐(0) 编辑

Delphi 检测U盘状态

摘要： uses StdCtrls,shlobj,Activex,ComObj;procedure WMDEVICECHANGE(var msgx:Tmessage);message WM_DEVICECHANGE;function GetLastMoveDrive:String;varDrivetype:Integer;root:String;i:Integer;beginResult:='';for i:=67 to 91 do //从C：盘开始到Z：盘beginroot:=char(i)+':\';Drivetype:=GetDriveType(pChar(roo 阅读全文

posted @ 2013-04-28 15:24 小天1981 阅读(510) 评论(0) 推荐(0) 编辑

Delphi_ComboBox_AddObject_Items_Values

摘要： unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Buttons, DB, ADODB;typeTForm1 = class(TForm) cmbbzxh: TComboBox; bbtnShowName1: TBitBtn; aqrytm: TADOQuery; ADOConnection1: TADOConnection; Memo1: TMemo; bbtnIsExists1: TBitBtn; Edit1 阅读全文

posted @ 2013-04-28 15:23 小天1981 阅读(794) 评论(0) 推荐(0) 编辑

Delphi枚举类型与整形的转换示例

摘要： unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Buttons, TypInfo;typeTDemoType = (dta, dtb, dtc);TForm1 = class(TForm) BitBtn1: TBitBtn; Edit1: TEdit; procedure BitBtn1Click(Sender: TObject);private {Private declarations} aDemoType 阅读全文

posted @ 2013-04-28 15:22 小天1981 阅读(481) 评论(0) 推荐(0) 编辑

用IDFTP开发ftp客户端

摘要：（1）控件属性设置RecvBufferSize说明（默认值为8192字节）：该属性为整型变量，用于指定连接所用的接受缓冲区大小。这些属性是indyftp里面的。SendBufferSize说明（默认值为32768字节）：该属性也为整型变量，用于指定连接所用的发送缓冲区的最大值。该属性在WriteStream方法中时，可用于TStream指定要发送内容的块数。如果要发送的内容大于本属性值，则发送内容被分为多个块发送。TransferType说明（默认值为ftBinary）：该属性为TIdFTPTransferType型变量。用于指定传输内容是二进制文件（ftBinary ）还是ASCII文件阅读全文

posted @ 2013-04-28 15:02 小天1981 阅读(404) 评论(0) 推荐(0) 编辑

idFTPserver控件实现的ftp 服务器

摘要： program FTPServer_console;(*Sample of the usage of the TIdFtpServer component.Also shows how to use Indy in console appsCreated by: Bas Gooijen (bas_gooijen@yahoo.com)Disclaimer:Use it at your own risk, it could contain bugs.Copyright:Freeware for all use*){$APPTYPE console}usesClasses,windows,sysut 阅读全文

posted @ 2013-04-28 14:56 小天1981 阅读(825) 评论(0) 推荐(0) 编辑

小天的技术博客

公告