上一篇：Delphi编码标准——文件命名 >>

Delphi编码标准——窗体与数据模块命名

作者： axin1102

窗体与数据模块命名

1. 窗体类型的命名标准：窗体类型的名称应当表达出窗体的用途，且要加T前缀,后跟描述性名，最后是Form。

例如：Student窗体类型名称为：TStudentForm= class (TForm)

用户登录窗体的类型名称为：TUserEntryForm= class (TForm)

2. 窗体实例的命名标准：窗体实例的名称与相应的类型名称相同，但没有前缀T。

例如：

var

Student Form: TStudentForm

UserEntryForm: TUserEntryForm

3. 自动创建的窗体：除非特别原因,只有主窗体才自动生成。其他所有窗体必须从Project Options对话框的自动生成列表中删除。

4. 模式窗体实例化函数：所有窗体单元都应当含有实例化函数，用于创建、设置、模式显示和释放窗体。这个函数将返回由窗体返回的模式结果。传递给这个函数的参数遵循参数传递的规则。之所以要这样封装，是为了便于代码的重用和维护。窗体的变量应当从单元中移走，改在窗体实例化函数中作为局部变量定义(注意，要求从ProjectOptions对话框的自动生成列表中移走该窗体。请看前面的内容)。

例如，下面的单元文件演示了GetStudent的实例化函数。

Unit StudentFrm;

Interface

Uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

Type

TStudentForm= class(TForm)

editID: TEdit;

editName: TEdit;

private

{Private declarations}

public

{Public declarations}

end;

function GetStudent (var aStudentName: String; var aStudentID: Integer): Word;

implementation

{$R*.DFM}

function GetStudent (var aStudentName: String; var aStudentID: Integer): Word;

var

StudentForm: TStudentForm;

begin

StudentForm: = TStudentForm.Create (Application);

Try

StudentForm.Caption:=´Getting Student’;

Result: = StudentForm.ShowModal;

If Result=mrOK then

begin

aStudentName: = StudentForm. editName.Text;

aStudentID: = StrToInt (StudentForm.editID.Text);

end;

finally

StudentForm.Free;

end;

end.

5数据模块的命名标准：数据模块类型名称应表达出它的用途，且要加前缀T，后跟描述性名称，最后是DataModule。

例如：Student数据模块的类型名称为TStudentDM= class(TDataModule)

6 数据模块实例的命名标准：数据模块实例的名称应当与相应的类型名称相同，但没有前缀T。

例如：

var

StudentDM: TStudentDM;

返回顶部

下一篇：Delphi编码标准——包命名 >>