All pastes #362687 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-02-19 00:09 UTC
rendered paste body
if (dbedit1.Text = '') or (dbedit2.Text = '') or (dbedit3.Text = '') or (dbedit4.Text = '') or (dbedit5.Text = '') or (DBLookupCombobox1.Text = '') or (DBLookupCombobox2.Text = '') then
 Showmessage('Preencha todos os campos.');
if (Datamodule1.Tprodutos.locate('Cod', DBEDIT1.Text, [])) then
    begin
      ShowMessage('Este Codigo ja existe.');
    end
    else
     datamodule1.TProdutos.Append;