ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/dbcontrolgrid/unit1.pas

Comparing ibx/trunk/examples/dbcontrolgrid/unit1.pas (file contents):
Revision 23 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