|
|
@@ -203,7 +203,6 @@ uses
|
|
|
DbTreeImport in '..\..\Units\DbTreeImport.pas',
|
|
|
DbTreeDm in '..\..\DataModules\DbTreeDm.pas' {DbTreeData: TDataModule},
|
|
|
DebugUsers in '..\..\Units\DebugUsers.pas',
|
|
|
- FileDownLoadFrm in '..\..\Forms\FileDownLoadFrm.pas' {FileDownLoadForm},
|
|
|
OtherMeasurePhaseDm in '..\..\DataModules\OtherMeasurePhaseDm.pas' {OtherMeasurePhaseData: TDataModule},
|
|
|
OtherMeasureOnceDm in '..\..\DataModules\OtherMeasureOnceDm.pas' {OtherMeasureOnceData: TDataModule},
|
|
|
OMPhaseRecord in '..\..\Units\DataRecord\OMPhaseRecord.pas',
|
|
|
@@ -218,7 +217,6 @@ uses
|
|
|
var
|
|
|
Mutex: THandle;
|
|
|
IPForm: TIPForm;
|
|
|
- vFDForm: TFileDownLoadForm;
|
|
|
sInfo, sURL, sName: string;
|
|
|
|
|
|
begin
|
|
|
@@ -267,20 +265,6 @@ begin
|
|
|
Application.Terminate;
|
|
|
end;
|
|
|
|
|
|
- ltUpdate: // 升级
|
|
|
- begin
|
|
|
- if Application.MessageBox(PChar(sInfo), '系统提示', MB_OKCANCEL + MB_ICONQUESTION) = ID_OK then
|
|
|
- begin
|
|
|
- vFDForm := TFileDownLoadForm.Create(nil);
|
|
|
- try
|
|
|
- vFDForm.URL := sURL;
|
|
|
- vFDForm.ShowModal;
|
|
|
- finally
|
|
|
- vFDForm.Free;
|
|
|
- end;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
ltDisCon:
|
|
|
begin
|
|
|
Application.MessageBox('网络错误，请稍后重试！', '操作提醒', MB_OK + MB_ICONWARNING);
|
