根据数据库打开窗体
initialization
RegisterClass(TFrm_Client); 注册了窗体
procedure CreateForm(MenuName:string);
var
tempForm:TForm;
begin
tempForm:= TForm(TComponentClass(MenuName).Create(Application));
tempForm.Show();
end;
CreateForm('Frm_Client'); 但打不开
application.CreateForm(Tfrm_Client,frm_Client);
frm_Client.Show;可以打开