UpdateDataBase.pas 6.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236
  1. unit UpdateDataBase;
  2. interface
  3. uses ScAutoUpdateUnit, ADODB, SysUtils, DataBaseTables, Classes, Connections;
  4. type
  5. TUpdateDB = class
  6. private
  7. procedure UpdateAllTables(AConnection: TADOConnection); virtual;
  8. public
  9. constructor Create; virtual;
  10. destructor Destroy; virtual;
  11. procedure Update(AConnection: TEncryptConnection);
  12. end;
  13. TUpdateManagerDB = class(TUpdateDB)
  14. private
  15. Procedure UpdateAllTables(AConnection: TADOConnection); override;
  16. public
  17. procedure Update(AConnection: TConnection); overload;
  18. end;
  19. TUpdateProjectDB = class(TUpdateDB)
  20. private
  21. procedure UpdateAllTables(AConnection: TADOConnection); override;
  22. public
  23. procedure ForceUpdate(AConnection: TADOConnection);
  24. end;
  25. TUpdatePhaseDB = class(TUpdateDB)
  26. private
  27. FAuditList: TStringList;
  28. procedure UpdateAllTables(AConnection: TADOConnection); override;
  29. procedure GetAuditList(AConnection: TADOConnection);
  30. function GetNewAuditTableName(AIndex: Integer): String;
  31. public
  32. constructor Create; override;
  33. destructor Destroy; override;
  34. procedure AddAuditData(AConnection: TADOConnection; AIndex: Integer);
  35. end;
  36. TStandBillsUpdateDB = class
  37. public
  38. procedure Update(AConnection: TConnection);
  39. end;
  40. implementation
  41. { TUpdateDB }
  42. constructor TUpdateDB.Create;
  43. begin
  44. end;
  45. destructor TUpdateDB.Destroy;
  46. begin
  47. end;
  48. procedure TUpdateDB.Update(AConnection: TEncryptConnection);
  49. begin
  50. if AConnection.NeedUpdate then
  51. begin
  52. UpdateAllTables(AConnection.Connection);
  53. AConnection.UpdateFileVersion;
  54. end;
  55. end;
  56. procedure TUpdateDB.UpdateAllTables(AConnection: TADOConnection);
  57. begin
  58. // Nothing
  59. end;
  60. { TUpdateProjectDB }
  61. procedure TUpdateProjectDB.ForceUpdate(AConnection: TADOConnection);
  62. begin
  63. UpdateAllTables(AConnection);
  64. end;
  65. procedure TUpdateProjectDB.UpdateAllTables(AConnection: TADOConnection);
  66. var
  67. Updater: TScUpdater;
  68. iIndex: Integer;
  69. begin
  70. Updater := TScUpdater.Create;
  71. try
  72. Updater.ForceUpdate := True;
  73. Updater.Open('', AConnection, '', '');
  74. Updater.AddTableDef(SBills, @tdBills, Length(tdBills), False, False);
  75. Updater.AddTableDef(SProjProperties, @tdProjProperties, Length(tdProjProperties), False, False);
  76. Updater.AddTableDef(SDealPayment, @tdDealPayment, Length(tdDealPayment), False, False);
  77. Updater.AddTableDef(SBGL, @tdBGL, length(tdBGL), False, False);
  78. Updater.AddTableDef(SBGBills, @tdBGBills, length(tdBGBills), False, False);
  79. Updater.AddTableDef(SStaff, @tdStaff, Length(tdStaff), False, False);
  80. Updater.AddTableDef(SDealBills, @tdDealBills, Length(tdDealBills), False, False);
  81. Updater.AddTableDef(SMainDataList, @tdMainDataList, Length(tdMainDataList), False, False);
  82. Updater.AddTableDef(SDealPayFinal, @tdDealPayFinal, Length(tdDealPayFinal), False, False);
  83. Updater.AddTableDef(SProjectGL, @tdProjectGL, Length(tdProjectGL), False, False);
  84. Updater.AddTableDef(SGLPrice, @tdGLPrice, Length(tdGLPrice), False, False);
  85. Updater.AddTableDef(SDetailGL, @tdDetailGL, Length(tdDetailGL), False, False);
  86. Updater.AddTableDef(SOtherMeasureOnce, @tdOtherMeasureOnce, Length(tdOtherMeasureOnce), False, False);
  87. Updater.AddTableDef(SOtherMeasurePhase, @tdOtherMeasurePhase, Length(tdOtherMeasurePhase), False, False);
  88. Updater.AddTableDef(SOMPhaseDetail, @tdOMPhaseDetail, Length(tdOMPhaseDetail), False, False);
  89. Updater.AddTableDef(SAttachmentInfo, @tdAttachmentInfo, Length(tdAttachmentInfo), False, False);
  90. Updater.ExcuteUpdate;
  91. finally
  92. Updater.Free;
  93. end;
  94. end;
  95. { TUpdatePhaseDB }
  96. procedure TUpdatePhaseDB.AddAuditData(AConnection: TADOConnection;
  97. AIndex: Integer);
  98. var
  99. Updater: TScUpdater;
  100. begin
  101. Updater := TScUpdater.Create;
  102. try
  103. Updater.ForceUpdate := True;
  104. Updater.Open('', AConnection, '', '');
  105. Updater.AddTableDef(GetNewAuditTableName(AIndex), @tdRefer_Audit, Length(tdRefer_Audit), False, False);
  106. Updater.ExcuteUpdate;
  107. finally
  108. Updater.Free;
  109. end;
  110. end;
  111. constructor TUpdatePhaseDB.Create;
  112. begin
  113. inherited;
  114. FAuditList := TStringList.Create;
  115. end;
  116. destructor TUpdatePhaseDB.Destroy;
  117. begin
  118. FAuditList.Free;
  119. inherited;
  120. end;
  121. procedure TUpdatePhaseDB.GetAuditList(AConnection: TADOConnection);
  122. var
  123. iIndex: Integer;
  124. begin
  125. AConnection.GetTableNames(FAuditList);
  126. iIndex := 0;
  127. while iIndex < FAuditList.Count do
  128. begin
  129. if Pos(SAudit, FAuditList.Strings[iIndex]) = 1 then
  130. Inc(iIndex)
  131. else
  132. FAuditList.Delete(iIndex);
  133. end;
  134. end;
  135. function TUpdatePhaseDB.GetNewAuditTableName(AIndex: Integer): String;
  136. begin
  137. Result := SAudit + IntToStr(AIndex);
  138. end;
  139. procedure TUpdatePhaseDB.UpdateAllTables(AConnection: TADOConnection);
  140. var
  141. Updater: TScUpdater;
  142. iIndex: Integer;
  143. begin
  144. Updater := TScUpdater.Create;
  145. try
  146. GetAuditList(AConnection);
  147. Updater.ForceUpdate := True;
  148. Updater.Open('', AConnection, '', '');
  149. Updater.AddTableDef(SRefer, @tdRefer_Audit, Length(tdRefer_Audit), False, False);
  150. for iIndex := 0 to FAuditList.Count - 1 do
  151. Updater.AddTableDef(FAuditList.Strings[iIndex], @tdRefer_Audit, Length(tdRefer_Audit), False, False);
  152. Updater.AddTableDef(SPhaseProperty, @tdPhaseProperty, Length(tdPhaseProperty), False, False);
  153. Updater.AddTableDef(SPhasePay, @tdPhasePay, Length(tdPhasePay), False, False);
  154. Updater.AddTableDef(SZJJL, @tdZJJL, Length(tdZJJL), False, False);
  155. Updater.AddTableDef(SZJJL_History, @tdZJJL_History, length(tdZJJL_History), False, False);
  156. Updater.AddTableDef(SZJJL_Detail, @tdZJJL_Detail, length(tdZJJL_Detail), False, False);
  157. Updater.AddTableDef(SReportData, @tdReportData, Length(tdReportData), False, False);
  158. Updater.ExcuteUpdate;
  159. finally
  160. Updater.Free;
  161. end;
  162. end;
  163. { TUpdateManagerDB }
  164. procedure TUpdateManagerDB.Update(AConnection: TConnection);
  165. begin
  166. UpdateAllTables(AConnection.Connection);
  167. end;
  168. procedure TUpdateManagerDB.UpdateAllTables(AConnection: TADOConnection);
  169. var
  170. Updater: TScUpdater;
  171. iIndex: Integer;
  172. begin
  173. Updater := TScUpdater.Create;
  174. try
  175. Updater.ForceUpdate := True;
  176. Updater.Open('', AConnection, '', '');
  177. Updater.AddTableDef(SProjectsInfo, @tdProjectsInfo, Length(tdProjectsInfo), False, False);
  178. Updater.AddTableDef(STenderProperty, @tdTenderProperty, Length(tdTenderProperty), False, False);
  179. Updater.AddTableDef(STenderBackup, @tdTenderBackup, Length(tdTenderBackup), False, False);
  180. Updater.ExcuteUpdate;
  181. finally
  182. Updater.Free;
  183. end;
  184. end;
  185. { TStandBillsUpdateDB }
  186. procedure TStandBillsUpdateDB.Update(AConnection: TConnection);
  187. var
  188. Updater: TScUpdater;
  189. iIndex: Integer;
  190. begin
  191. Updater := TScUpdater.Create;
  192. try
  193. Updater.ForceUpdate := True;
  194. Updater.Open('', AConnection.Connection, '', '');
  195. Updater.AddTableDef(SBillsTree, @tdBillsTree, Length(tdBillsTree), False, False);
  196. Updater.ExcuteUpdate;
  197. finally
  198. Updater.Free;
  199. end;
  200. end;
  201. end.