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

Comparing ibx/trunk/examples/dbcontrolgrid/unit1.pas (file contents):
Revision 26 by tony, Fri Mar 13 10:26:52 2015 UTC vs.
Revision 27 by tony, Tue Apr 14 13:10:23 2015 UTC

# Line 128 | Line 128 | implementation
128  
129   uses IB, Unit2, Unit4, Unit5;
130  
131 + const sNoName = '<no name>';
132 +
133   function ExtractDBException(msg: string): string;
134   var Lines: TStringList;
135   begin
# Line 294 | Line 296 | begin
296    EmployeesJOB_CODE.AsString := 'SRep';
297    EmployeesJOB_GRADE.AsInteger := 4;
298    EmployeesSALARY.AsCurrency := 20000;
299 <  EmployeesFIRST_NAME.AsString := '<no name>';
300 <  EmployeesLAST_NAME.AsString := '<no name>';
299 >  EmployeesFIRST_NAME.AsString := sNoName;
300 >  EmployeesLAST_NAME.AsString := sNoName;
301    EmployeesHIRE_DATE.AsDateTime := now;
302    EmployeesDEPT_NO.AsString := '000';
303    FDirty := true;
# Line 309 | Line 311 | end;
311  
312   procedure TForm1.EmployeesBeforeClose(DataSet: TDataSet);
313   begin
312  with DataSet do
313    if State in [dsInsert,dsEdit] then
314    try
315     Post;
316    except
317      Cancel;
318      raise;
319    end;
314    TotalsQuery.Active := false
315   end;
316  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines