procedure TfrmMain.Menu_NormalRightClick(Sender: TObject);
begin
if Sender is TMenuItem then
begin
case (Sender as TMenuItem).Tag of
100: begin
with TfrmDeviceExceptQuery.Create(nil) do
try
ShowModal;
finally
Free;
end;
end;
101: begin
try
if Application.MessageBox('确定要退出应急平台系统吗？','系统提示',MB_YESNO or MB_ICONQUESTION) = mrNo then Exit ;
MyThread.DoTerminate(); //结束非主线程
Clear_MonitorTable; //避免出现Access violation报警
Application.Terminate;
except
;
end;
END;
102: begin
with TfrmFaultQryCnt.Create(nil) do
try
ShowModal;
finally
Free;
end;
end;
103: begin
if iRight= -1 then
with TfrmRightLogin.Create(nil) do
try
ShowModal;
finally //根据登录人的信息确认权限，并传入ID和姓名
iRight:= iCheckRight; //登录权限
sAccountID:= sUserID; //把登录人的账号名字传出来，发短信时候要用
Free;
end
else
if iRight<> -1 then
iRight:= -1;
prop_SetMenuDicEnable; //根据权限设置字典菜单是否可用
end;
104: begin
with TfrmSMSSend.Create(nil) do
try
sSenderID:= sAccountID; //将登录人员的信息传到发送短信界面里
ShowModal;
finally
Free;
end;
end;
105: begin
with TfrmSMSHistoryQuery.Create(nil) do
try
ShowModal;
finally
Free;
end;
end;
106: begin
with TfrmOxyNitQuery.Create(nil) do
try
ShowModal;
finally
Free;
end;
end;
107: begin
with TfrmDrawnSteel.Create(nil) do
try
ShowModal;
finally
Free;
end;
end;
end;
end;
end;
这个是创建子窗体的代码，点击右键菜单，根据每个选项的Tag值判断创建哪个，然后free哪个
手动创建 ，手动释放的。
procedure TfrmMain.GetIndexConfigeration;
var
i : Integer;
sSql : string;
qryTmp: TADOQuery;
begin
sSql:= 'SELECT F_PROCESS_ID,F_INDEX_ID,F_TAG_NAME,F_INDEX_LOWER'
+ ',F_INDEX_UPPER,F_INDEX_CONNECTED,F_INDEX_INTERVENE,F_TIME_CONTINUAL,F_ALERT_TYPE FROM VKIP_DIC_DEVICE_INDEX';
qryTmp:=TPublic.Fnt_OpenSql(dmMain.conOnTime,sSql);
if (glb_IndexConfig= nil) or (Length(glb_IndexConfig)<> qryTmp.recordcount) then
begin
SetLength(glb_IndexConfig,0);
FreeAndNil(glb_IndexConfig);
SetLength(glb_IndexConfig,qryTmp.RecordCount,11);
end;
qryTmp.First;
while not qryTmp.Eof do
for i:=0 to qryTmp.recordcount - 1 do
begin
glb_IndexConfig[i,0]:= qryTmp.fieldbyname('F_PROCESS_ID').AsString;
glb_IndexConfig[i,1]:= qryTmp.fieldbyname('F_INDEX_ID').AsString;
glb_IndexConfig[i,2]:= qryTmp.fieldbyname('F_TAG_NAME').AsString;
glb_IndexConfig[i,3]:= qryTmp.fieldbyname('F_INDEX_LOWER').AsString;
if (glb_IndexConfig[i,8]<>'3') and (glb_IndexConfig[i,8]<>'4') then
glb_IndexConfig[i,4]:= qryTmp.fieldbyname('F_INDEX_UPPER').AsString;
glb_IndexConfig[i,5]:= qryTmp.fieldbyname('F_INDEX_CONNECTED').AsString;
glb_IndexConfig[i,6]:= qryTmp.fieldbyname('F_INDEX_INTERVENE').AsString;
glb_IndexConfig[i,7]:= qryTmp.fieldbyname('F_TIME_CONTINUAL').AsString;
glb_IndexConfig[i,8]:= qryTmp.fieldbyname('F_ALERT_TYPE').AsString;
//glb_IndexConfig[i,9]:= ''; //记录本次持续异常的开始时间
glb_IndexConfig[i,10]:= '-1';//记录指标状态
qryTmp.Next;
end;
Freeandnil(qryTmp);
end;
glb_IndexConfig是一个全局变量，数组，如果直接把
SetLength(glb_IndexConfig,0); 注释的话，就报错了。。。
