根据基类动态创建窗体

zuilu5339 2018-05-22 08:27:33

有个基类窗休
去年同期frm_bill
这是个单据的基类窗体，原来手动创建窗体创建各种出入库单据，我现在想数据库来创建，当我选择基类窗体为Frm_bill，创建的窗体为Frm_stockin，如果通过代码动态创建这个frm_stockin这个窗体，继承frm_bill

...全文

784 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

天行归来 2018-05-23

打赏
举报

引用 6 楼 zuilu5339 的回复:

initialization RegisterClass(TFrm_stockin); finalization UnRegisterClass(TFrm_stockin);这个能不能数据库动态创建，不然每次都要编译才行，动态创建窗体的意义就没有了

业务类窗体设计的时候没有对应实体类？如果没有实体类，窗体上的所有控件也是动态创建？

天行归来 2018-05-23

打赏
举报

引用 3 楼 zuilu5339 的回复:

[quote=引用 2 楼 lynmison 的回复:]



function CreateBillForm(FormClassName: string; Owner: TComponent): Tfrm_bill;
var
  componentClass: TComponentClass;
begin
  result := nil;
  componentClass := TComponentClass(GetClass(FormClassName));
  if Assigned(componentClass) then
  begin
    if Owner<>nil then result := componentClass.Create(Owner)
    else result := componentClass.Create(Application);
    result := Tfrm_bill(result);
  end;
end;

调用
var
  fm: Tfrm_bill;
  ...
  fm := CreateBillForm('TFrm_stockin',Application);
  if fm<>nil fm.Show;
  ....

需要注意，窗体需要注册：


initialization
  RegisterClass(TFrm_stockin);
finalization
  UnRegisterClass(TFrm_stockin);

老大，提示这个,[dcc32 Error] u_Main.pas(307): E2010 Incompatible types: 'TFrm_Bill' and 'TComponent',窗体我也注册了[/quote] function CreateBillForm(FormClassName: string; Owner: TComponent): Tfrm_bill; var tmp: TComponent; componentClass: TComponentClass; begin result := nil; componentClass := TComponentClass(GetClass(FormClassName)); if Assigned(componentClass) then begin if Owner<>nil then tmp := componentClass.Create(Owner) else tmp := componentClass.Create(Application); result := Tfrm_bill(tmp); end; end; 我做过类似应用框架，功能模块（Form）是根据配置动态加载，但这些功能模块是设计的时候就有form存在，你这套框架基类bill_form，不是也有衍生的具体业务类如TFrm_stockin，难道你这些业务类窗体设计的时候就不存在相应代码？

zuilu5339 2018-05-23

打赏
举报

应该注册Tfrm_bill，注册这个基类，业务单据没有实体类，只是继承Tfrm_bill，所有的控件和属性都是继续Tfrm_bill，这样我通过数据库来控制业务类的操作

zuilu5339 2018-05-23

打赏
举报

initialization RegisterClass(TFrm_stockin); finalization UnRegisterClass(TFrm_stockin);这个能不能数据库动态创建，不然每次都要编译才行，动态创建窗体的意义就没有了

zuilu5339 2018-05-23

打赏
举报

还有我窗体名称都是数据库创建的，难道窗体都要手动注册？，这样每次都要编译了

zuilu5339 2018-05-23

打赏
举报

引用 2 楼 lynmison 的回复:



function CreateBillForm(FormClassName: string; Owner: TComponent): Tfrm_bill;
var
  componentClass: TComponentClass;
begin
  result := nil;
  componentClass := TComponentClass(GetClass(FormClassName));
  if Assigned(componentClass) then
  begin
    if Owner<>nil then result := componentClass.Create(Owner)
    else result := componentClass.Create(Application);
    result := Tfrm_bill(result);
  end;
end;

调用
var
  fm: Tfrm_bill;
  ...
  fm := CreateBillForm('TFrm_stockin',Application);
  if fm<>nil fm.Show;
  ....

需要注意，窗体需要注册：


initialization
  RegisterClass(TFrm_stockin);
finalization
  UnRegisterClass(TFrm_stockin);

老大，提示这个,[dcc32 Error] u_Main.pas(307): E2010 Incompatible types: 'TFrm_Bill' and 'TComponent',窗体我也注册了

hj8090 2018-05-23

打赏
举报

TComponentClass-->TFormClass

毛毛懒虫 2018-05-23

打赏
举报

学习学习，太厉害了

深深生生 2018-05-23

打赏
举报

怎么才能获得C币呀，我不能提问

hj8090 2018-05-23

打赏
举报

Function OpenForm(aFormClass: String): Integer; Var cForm: TFormClass; aForm: TForm; Begin cForm := TFormClass(GetClass(aFormClass)); If Assigned(cForm) Then Begin Application.CreateForm(cForm, aForm); Try Result := aForm.ShowModal; Finally FreeAndNil(aForm); End; End Else Begin //没有找到 End; End; OpenForm('TFrm_stockin')

zuilu5339 2018-05-23

打赏
举报

我是基类里面实现了80%的代码，然后通过后台数据库和脚本完成20%，这样比较简单

zuilu5339 2018-05-23

打赏
举报

procedure CreateMyForm(const FormClassName, FormName : string); begin if Application.FindComponent(FormName)=nil then begin if GetClass(FormClassName) <> nil then with TForm(TComponentClass(FindClass(FormClassName)).Create(Application)) do begin Name := FormName; Show; end else ShowMessage(Format('类%s未注册',[FormClassName])); end end; CreateMyForm( 'TFrm_Bill','TFrm_stockin'); initialization RegisterClass(Tfrm_bill); finalization UnregisterClass(Tfrm_bill); 初步实现了功能，只是这个Frm_stockin的onshow事件得到的窗体名还是Frm_Bill,onshow之后得到的窗体名对了

zuilu5339 2018-05-23

打赏
举报

引用 9 楼 lynmison 的回复:

[quote=引用 3 楼 zuilu5339 的回复:] [quote=引用 2 楼 lynmison 的回复:]



function CreateBillForm(FormClassName: string; Owner: TComponent): Tfrm_bill;
var
  componentClass: TComponentClass;
begin
  result := nil;
  componentClass := TComponentClass(GetClass(FormClassName));
  if Assigned(componentClass) then
  begin
    if Owner<>nil then result := componentClass.Create(Owner)
    else result := componentClass.Create(Application);
    result := Tfrm_bill(result);
  end;
end;

调用
var
  fm: Tfrm_bill;
  ...
  fm := CreateBillForm('TFrm_stockin',Application);
  if fm<>nil fm.Show;
  ....

需要注意，窗体需要注册：


initialization
  RegisterClass(TFrm_stockin);
finalization
  UnRegisterClass(TFrm_stockin);

天行归来 2018-05-23

打赏
举报

引用 8 楼 zuilu5339 的回复:

应该注册Tfrm_bill，注册这个基类，业务单据没有实体类，只是继承Tfrm_bill，所有的控件和属性都是继续Tfrm_bill，这样我通过数据库来控制业务类的操作

可以理解为你一个TFrm_bill可以搞定所有业务吧？如果这样，就不需要继承TFrm_bill，你在这个基类form通过传参，控制不同业务类不就可以？

天行归来 2018-05-22

打赏
举报



function CreateBillForm(FormClassName: string; Owner: TComponent): Tfrm_bill;
var
  componentClass: TComponentClass;
begin
  result := nil;
  componentClass := TComponentClass(GetClass(FormClassName));
  if Assigned(componentClass) then
  begin
    if Owner<>nil then result := componentClass.Create(Owner)
    else result := componentClass.Create(Application);
    result := Tfrm_bill(result);
  end;
end;

调用
var
  fm: Tfrm_bill;
  ...
  fm := CreateBillForm('TFrm_stockin',Application);
  if fm<>nil fm.Show;
  ....

需要注意，窗体需要注册：


initialization
  RegisterClass(TFrm_stockin);
finalization
  UnRegisterClass(TFrm_stockin);