opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 18:12:05 +08:00
Code Issues Packages Projects Releases Wiki Activity

* Zeos: Make SetFieldData() public to provide a way to poke NULL into a field.

Browse Source 
* Heidi: Use above to set field to NULL when requested by user.
This commit is contained in:
rosenfield.albert
2008-06-25 13:47:15 +00:00
parent c40b8d680b
commit f148664018
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/zeosdbo/src/component/ZAbstractRODataset.pas
View File

@ -274,9 +274,6 @@ type
procedure InternalDelete; override; procedure InternalDelete; override;
procedure InternalPost; override; procedure InternalPost; override;
procedure SetFieldData(Field: TField; Buffer: Pointer;
NativeFormat: Boolean); override;
procedure SetFieldData(Field: TField; Buffer: Pointer); override;
procedure DefineProperties(Filer: TFiler); override; procedure DefineProperties(Filer: TFiler); override;
function GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean): function GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean):
@ -378,6 +375,9 @@ type
function GetFieldData(Field: TField; Buffer: Pointer): Boolean; override; function GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;
function GetFieldData(Field: TField; Buffer: Pointer; function GetFieldData(Field: TField; Buffer: Pointer;
NativeFormat: Boolean): Boolean; override; NativeFormat: Boolean): Boolean; override;
procedure SetFieldData(Field: TField; Buffer: Pointer;
NativeFormat: Boolean); override;
procedure SetFieldData(Field: TField; Buffer: Pointer); override;
function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream;
override; override;
function UpdateStatus: TUpdateStatus; override; function UpdateStatus: TUpdateStatus; override;

4
source/childwin.pas
View File

@ -4603,7 +4603,7 @@ procedure TMDIChild.setNULL1Click(Sender: TObject);
begin begin
if not (DataSource1.State in [dsEdit, dsInsert]) then if not (DataSource1.State in [dsEdit, dsInsert]) then
DataSource1.Edit; DataSource1.Edit;
gridData.SelectedField.Clear; TZQuery(DataSource1.DataSet).SetFieldData(gridData.SelectedField, nil);
end; end;
@ -7038,4 +7038,4 @@ begin
end; end;
end. end.