2004年07月_WuChenCan

07月

原创取得SQLSERVEREB服务器列表涵数。

function TForm3.InitFrm: Boolean;begin GetSQLServerList(ListBox1); Result:=True;end; Function GetSQLServerList(var List: TListBox): boolean;//取得SQLSERVEREB服务器列表涵数。var i: integer; SQLServer: Varian

2004-07-09 16:26:00 918

原创获得控件的所有属性及方法

获得控件的所有属性及方法之前uses单元TypInfo,简单吧 procedure GetClassProperties(AClass: TObject; AStrings: TStrings);{ This method retrieves the property names and types for the given object and adds that information

2004-07-09 16:23:00 1163

原创给数据添加计算字段

{>------------------------------------------------------------ 过程功能: 给数据添加计算字段修改改说明: 增加参数: name : string Xtype: integer 用以指定字段类型 0: 为Integer 1:为String 作用: 用以指

2004-07-09 16:21:00 1375

原创拖动窗体

procedure TLeadForm.ImgTitleMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin {=================拖动窗体====================================} ReleaseCapture; SystemParametersInfo(SP

2004-07-09 16:20:00 783

原创判断类型及是否符合类型值函数

//判断类型及是否符合类型值函数function TReportForm.ControlType(FType : TNrType ; FValue : String): Boolean;Var i : integer;function CountSubStr(SubStr, Source: string): Integer;begin result := 0; while pos(SubSt

2004-07-09 16:16:00 901

造字程序详解及其共享发布

在文字录入工作中，我们经常会碰到有些方言、土语、人名、地名、特殊符号等生僻字、符号无法录入的问题，本文讲解利用Windows所带的“TrueType造字程序”进行造字，并将其发布至其它计算机的过程进行简单阐述。

2008-01-15

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

原创 取得SQLSERVEREB服务器列表涵数。

原创 获得控件的所有属性及方法

原创 给数据添加计算字段

原创 拖动窗体

原创 判断类型及是否符合类型值函数