窗体与数据模块命名
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;