procedure TfrmMain.pLoadManagerForm( var bFormLoaded: Boolean; var
frmManagerForm: TForm; clsManagerForm: TFormClass; sTableViewName,
sKeyFieldName, sSaveInfoProcName, sDeleteInfoProcName: string;
actManagerControl: TAction );
var
n: Integer;
begin
{ 载入管理窗体 }

if bFormLoaded and ( frmManagerForm <> nil ) then
begin
frmManagerForm.Show;

// TODO: 切换到对应窗体的Tab
for n := 0 to tabMainContainer.Tabs.Count - 1 do
if tabMainContainer.Tabs[ n ].Data = @frmManagerForm then
begin
tabMainContainer.TabIndex := n;
Break;
end;
end
else
begin
// TODO: 创建窗体
frmManagerForm := clsManagerForm.Create( Self );
with frmManagerForm do
begin
Parent := pnlMainParent;
Show;
end;

// TODO: 判断是否为管理窗体
if frmManagerForm is TfrmJCAMManagerForm then
with TfrmJCAMManagerForm( frmManagerForm ) do
begin
Connection := g_cnJCAMIS;
TableViewName := sTableViewName;
KeyFieldName := sKeyFieldName;
SaveInfoProcName := sSaveInfoProcName;
DeleteInfoProcName := sDeleteInfoProcName;
StartSurf;
end;

// TODO: 添加选项卡
with tabMainContainer.Tabs.Add do
begin
Caption := actManagerControl.Caption;
ImageIndex := actManagerControl.ImageIndex;
Data := @frmManagerForm;
tabMainContainer.TabIndex := Index;
end;
bFormLoaded := True;
end;
end;