|
窗体与数据模块命名
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;
|
本类阅读TOP10