procedure Tfrmmain.mnumainClick(Sender: TObject);
begin
if frmmain.ActiveMDIChild.Caption<>'主数据表' then
//if frmmain.MDIChildCount <2 then
begin
application.CreateForm(Tfrmmaintable, frmmaintable);
//frmmaintable:=tfrmmaintable.Create(nil);
frmmaintable.Show;
frmmain.mnuprint.Enabled:=true;
end
else
begin
messagedlg('SORRY!,主数据表窗口已打开，不能重复打开同一个窗口',mterror,[mbok],0);
end
end;
procedure Tfrmmain.mnuexitClick(Sender: TObject);
begin
close;
end;
procedure Tfrmmain.mnuuserlonginClick(Sender: TObject);
begin
application.CreateForm(TPasswordDlg, PasswordDlg);
PasswordDlg.show;
end;
procedure Tfrmmain.mnuaboutClick(Sender: TObject);
begin
application.CreateForm(Tfrmabout, frmabout);
frmabout.show;
end;
procedure Tfrmmain.mnudatasetClick(Sender: TObject);
begin
EditConnectionString(frmmain.ADOCon);
sl.Text:=frmmain.adocon.ConnectionString;
IntINI;
end;
procedure TfrmMain.IntINI;
begin
SL.SaveToFile(Filename);
//RunTimeInfo;
end;
procedure Tfrmmain.mnuusermangClick(Sender: TObject);
begin
if frmmain.StatusBar1.Panels[3].Text<>'' then
begin
frmusermang:=tfrmusermang.Create(nil);
frmusermang.Show;
end
else
messagedlg('当前用户尚未登录，请先进行登录后再试！',mtwarning,[mbok],0);
end;
procedure Tfrmmain.mnuprintClick(Sender: TObject); //判断当前激活的子窗口
begin
if frmmain.ActiveMDIChild.Caption='主数据表' then
frmmaintable.tblprint.Click;
if frmmain.ActiveMDIChild.Caption='资料管理' then
form2.btnprint.Click;
end;
procedure Tfrmmain.mnuusernologinClick(Sender: TObject);
begin
frmmain.mnuusernologin.Enabled:=false;
frmmain.StatusBar1.Panels[2].Text:='当前用户：';
frmmain.StatusBar1.Panels[3].Text:='';
end;
