procedure Tfrmmain.mnudataClick(Sender: TObject);
begin
//if frmmain.MDIChildCount <2 then
if frmmain.ActiveMDIChild.Caption<>'资料管理' then
begin
application.CreateForm(Tform2, form2);
//form2:=tform2.Create(nil);
form2.Show;
end
else
begin
messagedlg('SORRY!,资料管理窗口已打开，不能重复打开同一个窗口',mterror,[mbok],0);
end
end;
procedure Tfrmmain.FormCreate(Sender: TObject);
var
Con:String;
begin
fileName:=ExtractFilePath(ParamStr(0))+'datalink.ini';
if FileExists(FileName) then
begin
SL:=TStringList.Create;
SL.LoadFromFile(FileName);
Con:=SL.Text;
try
frmmain.ADOCon.Connected:=false;
frmmain.ADOCon.ConnectionString:=Con;
frmmain.ADOCon.Connected:=true;
// RunTimeInfo;
except
showmessage('数据库初始化错误，无法找到数据库'+#13+Con);
end;
end;
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) div ScreenHeight;
&nb
