2018/4/28

Frames/StandardBillsFme.dfm

@@ -233,7 +233,7 @@ object StandardBillsFrame: TStandardBillsFrame
     Top = 80
   end
   object odLib: TOpenDialog
-    Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
+    Options = [ofReadOnly, ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
     Left = 32
     Top = 80
   end

Frames/StandardBillsFme.pas

@@ -117,14 +117,33 @@ end;
 procedure TStandardBillsFrame.spbtnLibsClick(Sender: TObject);
 
   procedure ChangeStandardBills(const sFileName: string);
+  var
+    sOldName: string;
   begin
-    case FBillsType of
-      btXm: SupportManager.ConfigInfo.StandardXmLib := ExtractFileName(odLib.FileName);
-      btGcl: SupportManager.ConfigInfo.StandardGclLib := ExtractFileName(odLib.FileName);
-    end;
     Screen.Cursor := crHourGlass;
     try
-      ConnectStandardLib;
+      try
+        case FBillsType of
+          btXm:
+          begin
+            sOldName := SupportManager.ConfigInfo.StandardXmLib;
+            SupportManager.ConfigInfo.StandardXmLib := ExtractFileName(odLib.FileName);
+          end;
+          btGcl:
+          begin
+            sOldName := SupportManager.ConfigInfo.StandardGclLib;
+            SupportManager.ConfigInfo.StandardGclLib := ExtractFileName(odLib.FileName);
+          end;
+        end;
+        ConnectStandardLib;
+      except
+        ErrorMessage('朞嶝돨깃硫헌데꼇옵街깎');
+        case FBillsType of
+          btXm: SupportManager.ConfigInfo.StandardXmLib := ExtractFileName(sOldName);
+          btGcl: SupportManager.ConfigInfo.StandardGclLib := ExtractFileName(sOldName);
+        end;
+        ConnectStandardLib;
+      end;
     finally
       Screen.Cursor := crDefault;
     end;