正常显示窗体如下:
application.CreateForm(tform1,form1);如果tform1和form1都从数据库中提取该如何做?表:table1
字段: tname name
tform1 form1
tform2 form2
-- --
tformn formn
application.CreateForm(tform1,form1);如果tform1和form1都从数据库中提取该如何做?表:table1
字段: tname name
tform1 form1
tform2 form2
-- --
tformn formn
var
name:TForm;
begin
name:=TFORM.Create(nil);
name.Caption:='formname';
name.Show;
end;
var
name:TForm;
begin
name:=TFORM.Create(nil);
name.name:='formname';//formane为你从库中取的
name.Show;
end;
子窗体为已有的做好的功能窗体,通过数据库表调用。
大家继续帮忙!
int FormIndex;
FormIndex=YourQueryRecordIndex;
switch(FormIndex)
{ case 0: YourForm1->Show;
case 1: YourForm2->Show;
...
default:
}
你这种方式大麻烦了,干脆不要用delphi,用asp或asp.net算了.
谢谢!
大家继续!
比如用此句实现的具体格式是什麽?有吧?
application.CreateForm(字段1,字段2);表:table1
字段: tname name
--------------------------
tform1 form1
tform2 form2
-- --
tformn formn
application.CreateForm(tname,name);
直接写肯定不行