CSDN博客

img axin1102

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

发表于2004/4/12 12:25:00  645人阅读

分类: 学习篇

窗体与数据模块命名

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;

 

end.

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

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

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

例如:

var

StudentDM: TStudentDM;

 

0 0

相关博文

我的热门文章

img
取 消
img