pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix change trxdbcombobbox with empti field

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1408 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-12-26 16:43:36 +00:00
parent a10d873557
commit 2117f162ef
5 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/languages/rxdconst.es.po
View File

@ -41,6 +41,10 @@ msgstr "Base de Dato bloqueada: %s"
msgid "SDataSourceFixed" msgid "SDataSourceFixed"
msgstr "SFuenteDatosFija" msgstr "SFuenteDatosFija"
#: rxdconst.sdbcomboboxfieldnotassigned
msgid "%s:TDBComboBox - DataField not assigned"
msgstr ""
#: rxdconst.sdbexceptcaption #: rxdconst.sdbexceptcaption
msgid "Error in DB engine" msgid "Error in DB engine"
msgstr "Error in DB Motor" msgstr "Error in DB Motor"

4
components/rx/languages/rxdconst.po
View File

@ -41,6 +41,10 @@ msgstr ""
msgid "SDataSourceFixed" msgid "SDataSourceFixed"
msgstr "" msgstr ""
#: rxdconst.sdbcomboboxfieldnotassigned
msgid "%s:TDBComboBox - DataField not assigned"
msgstr ""
#: rxdconst.sdbexceptcaption #: rxdconst.sdbexceptcaption
msgid "Error in DB engine" msgid "Error in DB engine"
msgstr "" msgstr ""

4
components/rx/languages/rxdconst.ru.po
View File

@ -41,6 +41,10 @@ msgstr "База данных блокирована: %s"
msgid "SDataSourceFixed" msgid "SDataSourceFixed"
msgstr "" msgstr ""
#: rxdconst.sdbcomboboxfieldnotassigned
msgid "%s:TDBComboBox - DataField not assigned"
msgstr ""
#: rxdconst.sdbexceptcaption #: rxdconst.sdbexceptcaption
msgid "Error in DB engine" msgid "Error in DB engine"
msgstr "Ошибка ядры БД" msgstr "Ошибка ядры БД"

9
components/rx/rxdbcomb.pas
View File

@ -36,7 +36,7 @@ unit rxdbcomb;
interface interface
uses LCLType, LCLProc, LCLIntf, LMessages, Menus, Graphics, Classes, Controls, uses LCLType, LCLProc, LCLIntf, LMessages, Menus, Graphics, Classes, Controls,
DB, StdCtrls, DbCtrls; sysutils, DB, StdCtrls, DbCtrls;
type type
@ -167,7 +167,7 @@ type
implementation implementation
uses DBUtils; uses DBUtils, rxdconst;
{ TCustomDBComboBox } { TCustomDBComboBox }
@ -221,7 +221,10 @@ end;
procedure TCustomDBComboBox.UpdateData(Sender: TObject); procedure TCustomDBComboBox.UpdateData(Sender: TObject);
begin begin
FDataLink.Field.AsString := ComboText; if Assigned(FDataLink.Field) then
FDataLink.Field.AsString := ComboText
else
raise Exception.CreateFmt(SDBComboBoxFieldNotAssigned, [Name]);
end; end;
procedure TCustomDBComboBox.SetComboText(const Value: string); procedure TCustomDBComboBox.SetComboText(const Value: string);

2
components/rx/rxdconst.pas
View File

@ -85,6 +85,8 @@ resourcestring
SUnlockHint = 'Enter you password'; SUnlockHint = 'Enter you password';
SDeleteMultipleRecords = 'Delete all selected records?'; SDeleteMultipleRecords = 'Delete all selected records?';
SDBComboBoxFieldNotAssigned = '%s:TDBComboBox - DataField not assigned';
SPropDefByLookup = 'PropDefByLookup'; SPropDefByLookup = 'PropDefByLookup';
SDataSourceFixed = 'SDataSourceFixed'; SDataSourceFixed = 'SDataSourceFixed';
SCircularDataLink = 'SCircularDataLink'; SCircularDataLink = 'SCircularDataLink';