9927.txt

关于编程技术技巧的文章

　　 st=DialogBoxIndirectParam(hInstCommDlg,pCDD－>hInstance,p
　　CDD－>hWndOwner,l pfnDlgProc,(LPARAMpCDD);
　　 else
　　 st=DialogBoxParam(hInstCommDlg,"CommDlg",
　　 pCDD－>hWndOwner,lpfnDlgProc,(LPARAM)pCDD);
　　 FreeProcInstance((FARPROC)lpfnDlgProc);
　　 return st;
　　 }
　　应用说明
　　Windows95通用对话框函数使用起来方便灵活，它们具有很强的通用性。系
统提供通用对话框模板及对话框处理过程，实现通用功能，允许应用程序定义
自己的替代对话框模板和钩子函数，以满足应用程序的特殊要求，例如，在编
制一个图形归档程序中，对一个图形文件进行登记时，不仅需要提供存放图形
的文件名字，同时还需要提供图形的工程名称、图名、设计人员等信息。我们
可以调用GetOpenFileName函数来实现这个过程。实现的方法是，首先在应用程
序中，定义“打开”替代对话框，然后定义钩子函数。定义“打开”替代对话
框时；首先通过编译系统从system\commdlg.dll中获得标识符为1536的“打开”
通用对话框模板的拷贝，而且不变更拷贝中控制件的标识符，然后在拷贝上增
加一些控制件。钩子函数的编制与普通对话框处理过程编制基本一样，有关增
加的控制件消息在钩子函数中处理，并且通过结构成员lCustData实现与调用程
序的数据传递，拷贝控制件的消息由通用对话框处理过程处理，由于“获得一
个正确的文件名”这一复杂的程序段已经由对话框处理过程实现，因此钩子函
数的编制变得很容易。
　　采用Windows95通用对话框函数，编程人员不必了解具体的通用对话框处理
过程，从而极大地减少了软件开发的工作量，缩短了开发周期，提高了效率和
软件的可靠性。

**************************************************************** 

                   Delphi 4中开发数据库控件的方法 

　　Delphi作为一种目前十分流行的数据库开发语言，在数据库开发领域有着
十分重要的地位，它不仅提供了可视化的开发环境，使得开发变得相对容易；
而且还是一种面向对象的语言， 使得程序员能够充分利用面向对象编程的种
种优势——如封装、继承等等，从而大大减轻了开发的难度和工作量。下面，
我们就谈一谈利用面向对象的特性来开发数据库控件的方法。
　　Delphi本身提供了一些数据库控件，如DBGrid、Table等，它们给开发带
来了很多方便。下面我们来以一个能够显示数据表中的所有字段的控件为例来
说明如何用Delphi来进行控件的编程。
　　首先要为控件选择一个合适的父类。Windows的一个好处就在于它将许多
操作标准化了，通过这些标准的操作，使得学习和使用都有章可循，用户就很
容易融会贯通地掌握整个系统。在Delphi中提供了许多控件，这些控件生成的
应用程序足以满足Windows编程的要求。而一些新的控件也可以在此基础上产
生。它一方面继承了一部分控件标准的操作，另一方面也在程序中加入一些代
码来实现特定的功能，这样用户使用起来不会觉得突兀，也简化了程序的开发。
根据我们的目标可以看出，利用“下拉框”控件作为新控件的父类比较合适。
因为它提供了下拉框中的所有标准操作，这就可以大大减少我们的编程量。
　　然后就是为特定的功能编写代码。我们应该想到，如果一个下拉框能够显
示一个数据库中的所有字段，那么它一定有一个属性能够与数据库相连。我们
将这个属性定名为DataSource，并将这一属性添加到控件中。添加的方法是，
首先在Private段中加入如下代码：
　　 FDataLink:TFieldDataLink;
　　 function GetDataSource:TDataSource;
　　 Procedure SetDataSource( Value:TDataSource);
　　其中TfieldDataLink是一个十分重要的类，我们之所以能够很容易地进行
数据库控件的开发全是拜它之赐。它有一些十分有用的属性，如：DataSource，
利用这个属性，我们就能很容易地指定新控件的DataSource属性。
　　第三步就是为控件的功能编写代码。可以想到，如果我们想要在拉下下拉
框时显示数据库中的所有字段，就要在它的DropDown事件中加入代码来将所有
的字段加入到下拉框的下拉区域中。这应该分两步走，第一就是要取得指定数
据库的所有字段，第二就是将这些字段以字符串的格式加入到下拉框中（而拉
下时显示所有字段的功能则由下拉框控件自己完成）。在取得数据库的字段时，
用到了我们上面提到的TfieldDataLink类，下面的代码就可以获得指定数据库
的字段数目：
　　 j:=0;
　　 j:=FDataLink.DataSource.DataSet .FieldCount ;//取得数据库中的所
有字段的名字
　　 i:=0;
　　然后再用下面的代码将这些字段的名字加入到下拉框的items属性中，值得
注意的是在每次拉下这个下拉框时都要将items属性清空，否则这个下拉框将每
次都会因加入重复的内容而变得越来越长，并且一次选择可以选定许多项。使
得控件看起来有点怪。
　　items.Clear ; //清空items属性
　　 repeat //循环操作将字段加入下拉框中。
　　 items.Add (FDataLink.DataSet.Fields[i].FieldName ); //将字段名加
入到下拉框中。
　　 i:=I＋1;
　　 until i>j－1; //直到所有的字段加入完为止
　　第四步，就是将以上代码加入到Delphi的控件编辑窗口中去，点击Delphi
的“Component/New Component”菜单，系统出现一个对话框，将对话框如图1
所示填写：
　　填写完毕点击“OK”按钮，就可以创建一个文件，将上面提供的代码加入到
文件的适当位置，就可以完成这个控件的编写。图2是带有这个控件的程序的例
子：
　　可以想见，这个控件有着十分广泛的功能，例如，我们能够利用它设置指定
字段的值来运行查询，也可以返回数据库中指定字段的数据类型、长度等信息，
给我们的编程提供了极大的方便。
　　但是也应该看到，这个控件也有一些缺点，那就是它只能显示字段的名称，
一般的数据库中字段的名称都是英文的，这给中文版的应用软件带来不便，下面
我们就用FdataLink的另一个属性来显示中文化的字段。这个属性就是DisplayName,
它所指定的是数据库字段的显示名称，而这个名称我们可以在设计时将其汉化，
这样在应用程序中显示出来的就是有意义的中文了。
　　下面我们将上面提供的一段代码作如下修改：
　　 j:=0;
　　 j:=FDataLink.DataSource.DataSet .FieldCount;
　　 i:=0;
　　 repeat
　　 items.Add (FDataLink.DataSet.Fields[I].DisplayName );
　　//在items属性中加入DisplayName的值
　　 i:=I＋1;
　　 until i>j－1;
　　另外，还要加入下面一段代码，来判断显示的DisplayName和哪个FieldName
相对应。
　　function TListBox1.GetField:string;
　　var
　　 i,j:integer;
　　begin
　　j:=FDataLink.DataSource.DataSet .FieldCount ;
　　 for i :=0 to j－1 do
　　 begin
　　 if FDataLink.DataSource.DataSet.Fields[i].Displayname=text then
　　 begin
　　 Result:=FDataLink.DataSource.DataSet.Fields[i].FieldName;
　　 exit;
　　 end;
　　 end;
　　end;
　　这样，当选择了一个中文化的字段显示名称时，就将返回它的真正的字段名。
这下用起来就更方便了，图3就是我们将中文字段显示在下拉框中的例子。
　　程序中的字段以中文显示能够给用户带来很大的方便。最后，下面附上这段
程序的完整代码，谨供参考。
　　unit DBFieldComboBox;
　　interface
　　uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　 StdCtrls,db,dbctrls;
　　type
　　 TDBFieldComboBox = class(TComboBox)
　　 private
　　 FDataLink:TFieldDataLink;
　　 function GetDataSource:TDataSource;
　　 function TListBox1.GetField:string;
　　 Procedure SetDataSource( Value:TDataSource);
　　 procedure StartDrag(Sender: TObject; var DragObject: TDragObject);
　　 procedure DropDown(Sender : TObject);
　　 { Private declarations }
　　 protected
　　 { Protected declarations }
　　 public
　　constructor create(AOwner:TComponent);override;
　　 destructor Destroy;override;
　　 { Public declarations }
　　 published
　　 property DataSource :TDataSource read GetDataSource write SetDataSource;
　　 property text;
　　 { Published declarations }
　　 end;
　　procedure Register;
　　implementation
　　procedure Register;
　　begin
　　RegisterComponents('Samples', [TDBFieldComboBox]);
　　end;
　　constructor TDBFieldComboBox.create(AOwner:TComponent);
　　var i,j:integer;
　　begin
　　 inherited Create(AOwner);
　　 FDataLink:=TFieldDataLink.Create ;
　　 ondropdown:=dropdown;
　　 text:=`';
　　end;
　　destructor TDBFieldComboBox.Destroy;
　　begin
　　 FDataLink.Free ;
　　 inherited Destroy;
　　end;
　　function TListBox1.GetField:string;
　　var
　　 i,j:integer;
　　begin
　　j:=FDataLink.DataSource.DataSet .FieldCount ;
　　 for i :=0 to j－1 do
　　 begin
　　 if FDataLink.DataSource.DataSet.Fields[i].Displayname=text then
　　 begin
　　 Result:=FDataLink.DataSource.DataSet.Fields[i].FieldName;
　　 exit;
　　 end;
　　 end;
　　end;
　　procedure TDBFieldComboBox.SetDataSource ( Value:TDataSource);
　　begin
　　 FDataLink.DataSource :=value;
　　end;
　　function TDBFieldComboBox.GetDataSource :TDataSource;
　　begin
　　 Result:=FDataLink.DataSource ;
　　end;
　　procedure TDBFieldComboBox.StartDrag(Sender: TObject; var DragObject: TDragObject);
　　begin
　　end;
　　procedure TDBFieldComboBox.DropDown(Sender: TObject);
　　 var
　　 i,j:integer;
　　begin
　　 j:=0;
　　 j:=FDataLink.DataSource.DataSet .FieldCount;
　　 i:=0;
　　 repeat
　　 items.Add (FDataLink.DataSet.Fields[i].DisplayName );//.FieldName);
　　 i:=I＋1;
　　 until i>j－1;
　　end;
　　end. 

****************************************************************
　
                  一劳永逸让VB自动改变控件大小

                  深圳市东门茂业百货11楼  邓勇

----当窗体大小改变时，如何动态的改变控件的大小是许多VB程序员头痛的
事。有的人设置窗体Resizable但却不改变控件的大小；有的人则根据控件的
绝对位置与窗口大小相加减的办法来重新定位控件与改变大小，这种办法比
较繁琐，且不可重用；当然也有人则限定窗口干脆不让改变。有没有一种简
便易行的办法？答案是肯定的，下面给出一个一劳永逸的办法，源程序如下:
Option Explicit
Private FormOldWidth As Long
'保存窗体的原始宽度
Private FormOldHeight As Long
'保存窗体的原始高度

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " "
& Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0
End Sub

'按比例改变表单内各元件的大小，
在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName.ScaleWidth / FormOldWidth
'保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / FormOldHeight
'保存窗体高度缩放比例
On Error Resume Next
For Each Obj In FormName
StartPos = 1
For i = 0 To 4
'读取控件的原始位置与大小

TempPos = InStr(StartPos,
Obj.Tag, " ", vbTextCompare)
If TempPos > 0 Then
Pos(i) = Mid(Obj.Tag, 
StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(i) = 0
End If
'根据控件的原始位置及窗体改变大小