ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/isqlmonitor/MainForm.pas
(Generate patch)

Comparing ibx/trunk/examples/isqlmonitor/MainForm.pas (file contents):
Revision 208 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 133 | Line 133 | type
133      procedure AddEmployeeExecute(Sender: TObject);
134      procedure BeforeDateChange(Sender: TObject);
135      procedure CancelChangesExecute(Sender: TObject);
136 –    procedure CountriesBeforeOpen(DataSet: TDataSet);
136      procedure DeleteEmployeeExecute(Sender: TObject);
137      procedure EditEmployeeExecute(Sender: TObject);
138      procedure EditEmployeeUpdate(Sender: TObject);
139      procedure EmployeesAfterInsert(DataSet: TDataSet);
140      procedure EmployeesAfterOpen(DataSet: TDataSet);
142 –    procedure EmployeesAfterScroll(DataSet: TDataSet);
141      procedure EmployeesBeforeClose(DataSet: TDataSet);
142      procedure EmployeesBeforeOpen(DataSet: TDataSet);
143      procedure EmployeesJOB_CODEChange(Sender: TField);
# Line 152 | Line 150 | type
150        var DataAction: TDataAction);
151      procedure EmployeesSALARYGetText(Sender: TField; var aText: string;
152        DisplayText: Boolean);
155 –    procedure JobCodesBeforeOpen(DataSet: TDataSet);
153      procedure SaveChangesExecute(Sender: TObject);
154      procedure SaveChangesUpdate(Sender: TObject);
155    private
# Line 208 | Line 205 | begin
205      aText := Sender.AsString
206   end;
207  
211 – procedure TForm1.JobCodesBeforeOpen(DataSet: TDataSet);
212 – begin
213 –  JobCodes.ParamByName('JOB_GRADE').AsInteger := EmployeesJOB_GRADE.AsInteger;
214 –  JobCodes.ParamByName('JOB_COUNTRY').AsString := EmployeesJOB_COUNTRY.AsString
215 – end;
216 –
208   procedure TForm1.SaveChangesExecute(Sender: TObject);
209   begin
210    Employees.Transaction.Commit
# Line 228 | Line 219 | procedure TForm1.Reopen(Data: PtrInt);
219   begin
220    with IBTransaction1 do
221      if not InTransaction then StartTransaction;
231 –  Countries.Active := true;
232 –  Employees.Active := true;
233 –  JobCodes.Active := true;
222    Depts.Active := true;
223 +  Employees.Active := true;
224   end;
225  
226   procedure TForm1.DoOpenDatabase(Data: PtrInt);
# Line 319 | Line 308 | begin
308    Employees.Transaction.Rollback
309   end;
310  
322 – procedure TForm1.CountriesBeforeOpen(DataSet: TDataSet);
323 – begin
324 –  Countries.ParamByName('JOB_GRADE').AsInteger := EmployeesJOB_GRADE.AsInteger;
325 –  Countries.ParamByName('JOB_CODE').AsString := EmployeesJOB_CODE.AsString
326 – end;
327 –
311   procedure TForm1.DeleteEmployeeExecute(Sender: TObject);
312   begin
313    if MessageDlg(
# Line 359 | Line 342 | end;
342   procedure TForm1.EmployeesAfterOpen(DataSet: TDataSet);
343   begin
344    TotalsQuery.Active := true;
345 +  Countries.Active := true;
346 +  JobCodes.Active := true;
347    IBDynamicGrid1.SetFocus;
348   end;
349  
365 – procedure TForm1.EmployeesAfterScroll(DataSet: TDataSet);
366 – begin
367 –  JobGradeChangeTimer.Interval := 200;
368 – end;
369 –
350   procedure TForm1.EmployeesBeforeClose(DataSet: TDataSet);
351   begin
352 <  TotalsQuery.Active := false
352 >  TotalsQuery.Active := false;
353 >  Countries.Active := false;
354 >  JobCodes.Active := false;
355   end;
356  
357   procedure TForm1.EmployeesBeforeOpen(DataSet: TDataSet);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines