@@ -14,13 +14,13 @@ interface
1414 TdmPgEngine = class (TDataModule)
1515 dsTasks: TDataSource;
1616 dsChains: TDataSource;
17- PQConn : TPQConnection;
17+ connMain : TPQConnection;
1818 qryChains: TSQLQuery;
1919 qryTasks: TSQLQuery;
2020 transChains: TSQLTransaction;
21- procedure PQConnLog (Sender: TSQLConnection; EventType: TDBEventType;
21+ procedure connMainLog (Sender: TSQLConnection; EventType: TDBEventType;
2222 const Msg: String);
23- procedure PQConnLogin (Sender: TObject; Username, Password: string);
23+ procedure connMainLogin (Sender: TObject; Username, Password: string);
2424 procedure qryChainsAfterClose (DataSet: TDataSet);
2525 procedure qryChainsAfterDelete (DataSet: TDataSet);
2626 procedure qryChainsAfterInsert (DataSet: TDataSet);
@@ -53,7 +53,7 @@ implementation
5353
5454{ TdmPgEngine }
5555
56- procedure TdmPgEngine.PQConnLog (Sender: TSQLConnection;
56+ procedure TdmPgEngine.connMainLog (Sender: TSQLConnection;
5757 EventType: TDBEventType; const Msg: String);
5858const et: array [TDBEventType] of string = (' detCustom' , ' detPrepare' , ' detExecute' ,
5959' detFetch' , ' detCommit' , ' detRollBack' , ' detParamValue' , ' detActualSQL' );
@@ -64,7 +64,7 @@ procedure TdmPgEngine.PQConnLog(Sender: TSQLConnection;
6464 end ;
6565end ;
6666
67- procedure TdmPgEngine.PQConnLogin (Sender: TObject; Username, Password: string);
67+ procedure TdmPgEngine.connMainLogin (Sender: TObject; Username, Password: string);
6868begin
6969 if not fmConnect.EditDatabase(Sender as TPQConnection) then Abort();
7070end ;
@@ -156,7 +156,7 @@ procedure TdmPgEngine.Connect;
156156
157157procedure TdmPgEngine.Disconnect ;
158158begin
159- PQConn .Close(True);
159+ connMain .Close(True);
160160end ;
161161
162162function TdmPgEngine.IsCronValueValid (const S: string): boolean;
@@ -166,8 +166,8 @@ function TdmPgEngine.IsCronValueValid(const S: string): boolean;
166166 Result := True;
167167 Q := TSQLQuery.Create(nil );
168168 try
169- Q.DataBase := PQConn ;
170- Q.Transaction := PQConn .Transaction;
169+ Q.DataBase := connMain ;
170+ Q.Transaction := connMain .Transaction;
171171 Q.SQL.Text := ' SELECT CAST(:cron AS timetable.cron)' ;
172172 Q.ParamByName(' cron' ).AsString := S;
173173 try
@@ -193,8 +193,8 @@ function TdmPgEngine.SelectSQL(const sql: string): string;
193193 Result := ' ' ;
194194 Q := TSQLQuery.Create(nil );
195195 try
196- Q.DataBase := PQConn ;
197- Q.Transaction := PQConn .Transaction;
196+ Q.DataBase := connMain ;
197+ Q.Transaction := connMain .Transaction;
198198 Q.SQL.Text := sql;
199199 try
200200 Q.Open;
@@ -214,12 +214,12 @@ function TdmPgEngine.SelectSQL(const sql: string): string;
214214
215215procedure TdmPgEngine.MoveTaskUp (const ATaskID: integer);
216216begin
217- PQConn .ExecuteDirect(Format(' SELECT timetable.move_task_up(%d)' , [ATaskID]));
217+ connMain .ExecuteDirect(Format(' SELECT timetable.move_task_up(%d)' , [ATaskID]));
218218end ;
219219
220220procedure TdmPgEngine.MoveTaskDown (const ATaskID: integer);
221221begin
222- PQConn .ExecuteDirect(Format(' SELECT timetable.move_task_down(%d)' , [ATaskID]));
222+ connMain .ExecuteDirect(Format(' SELECT timetable.move_task_down(%d)' , [ATaskID]));
223223end ;
224224
225225function TdmPgEngine.IsTaskDeleteAllowed : boolean;
0 commit comments