= 'Договори' then
begin.MessageBox ('Ви можете укласти договір, вибравши товари, і додавши їх в корзину', 'Договір');
exit;: = True;: = True; ComboBox1.Text = 'Товари в наявності' then.Visible: = False;. Visible: = True; elseComboBox1.Text = 'продані товари' then. Visible: = False;. Visible: = True; elseComboBox1.Text = 'Дисконтні картки' then.Visible: = False;. Visible: = True; elseComboBox1.Text = 'Інформація по відділах' then.Visible: = False;. Visible : = True;;; TForm1.Button4Click (Sender: TObject); ComboBox1.Text = 'Дані:' then begin
Application.MessageBox ('Виберіть дані для редагування', 'Редагування даних');
exit;;: = False;: = False; ComboBox1.Text = 'продані товари' then.Visible: = False;. Visible: = True; ComboBox1.Text = 'Товари в наявності' then . Visible: = False;. Visible: = True; ComboBox1.Text = 'Дисконтні картки' then.Visible: = False;. Visible: = True; ComboBox1.Text = 'Інформація про магазин' then.Visible: = False;. Visible: = True; elseComboBox1.Text = 'Інформація по відділах' then.Visible: = False;. Visible: = True; elseComboBox1.Text = 'Договори' then
begin.MessageBox ('Неможливо редагувати укладений договір', 'Договір');
exit;; TForm1.Button5Click (Sender: TObject); ComboBox1.Text = 'Дані:' then begin
Application.MessageBox ('Виберіть дані для видалення', 'Вилучення даних');;; Application.MessageBox ('Ви впевнені, що хочете видалити запис?', 'Вилучення запису',
MB_ICONQUESTION + MB_YESNO) = IDNO then;. IBQuery2.Close;. IBQuery2.SQL.Clear; ComboBox1.Text = 'Товари в наявності' thenForm2.IBQuery2 do.Text: = 'delete from NALI4IE where id = '+ IBQuery1.FieldByName (' ID '). AsStringComboBox1.Text =' продані товари 'thenForm2.IBQuery2 do.Text: =' delete from PRODANNOE where id = '+ IBQuery1.FieldByName (' ID '). AsStringComboBox1.Text = 'Інформація про магазин' then
Application.MessageBox ('Не можна видалити запис про магазин', 'Вилучення запису');
exit; ComboBox1.Text = 'Дисконтні картки' thenForm2.IBQuery2 do.Text: = 'delete from DISCONT where id =' + IBQuery1.FieldByName ('ID'). AsString
elseComboBox1.Text = 'Інформація по відділах' then
with Form2.IBQuery2 do.Text: = 'delete from OTDELY where id_otdel =' + IBQuery1.FieldByName ('ID_OTDEL'). AsStringComboBox1.Text = 'Договори' thenForm2.IBQuery2 do.Text: = 'delete from DOGOVOR where id =' + TObject);. Close;. SQL.Clear;. Enabled: = True; ComboBox1.Text = &...
