Search options (Page 1 of 10)

procedure frmDict_Button44_OnClick (Sender: TObject; var Cancel: boolean);
begin
   frmAddEditTypeTreeService.CheckBox2.Checked := True;
end;

procedure frmAddEditTypeTreeService_OnShow (Sender: TObject; Action: string);
begin
     if frmAddEditTypeTreeService.CheckBox2.Checked then
     begin
     frmAddEditTypeTreeService.GroupBox1.Visible := True;
     frmAddEditTypeTreeService.GroupBox2.Visible := False;
     frmAddEditTypeTreeService.ComboBox4.Caption := SQLExecute('SELECT serviseTypeName FROM serviceType WHERE id = ' + IntToStr(frmDict.GrideServiceType.dbItemID));
     frmAddEditTypeTreeService.ComboBox4.DoOnChange;
     end else
     begin
     frmAddEditTypeTreeService.GroupBox1.Visible := False;
     frmAddEditTypeTreeService.GroupBox2.Visible := True;
     frmAddEditTypeTreeService.ComboBox5.Caption := SQLExecute('SELECT serviceName FROM service WHERE id = ' + IntToStr(frmDict.GrideService.dbItemID));
     frmAddEditTypeTreeService.ComboBox5.DoOnChange;
     frmAddEditTypeTreeService.ComboBox6.Caption := frmAddEditTypeTreeService.Edit11.Text;//frmAddEditTypeTreeService.Edit16.Text; //смотрим их в таблице Tree
     frmAddEditTypeTreeService.ComboBox6.DoOnChange;
     frmAddEditTypeTreeService.Edit16.Text := IntToStr (frmAddEditTypeTreeService.ComboBox6.dbItemID);
     end;
end;

procedure frmAddEditTypeTreeService_Edit11_OnChange (Sender: TObject);
begin
   frmAddEditTypeTreeService.Edit12.Text := frmAddEditTypeTreeService.Edit11.Text;
end;

procedure frmAddEditTypeTreeService_Button7_OnClick (Sender: TObject; var Cancel: boolean);
begin
   frmAddEditTypeTreeService.Button8.Click;
end;

procedure frmAddEditTypeTreeService_Button8_OnClick (Sender: TObject; var Cancel: boolean);
begin
   SQLExecute('UPDATE serviceTipeTree SET serviceTipeNameTree = ' + frmAddEditTypeTreeService.Edit12.sqlValue + ' where id ='+inttostr(frmAddEditTypeTreeService.ComboBox4.dbitemid));

end;

procedure frmAddEditTypeTreeService_Edit13_OnChange (Sender: TObject);
begin
   frmAddEditTypeTreeService.Edit14.Text := frmAddEditTypeTreeService.Edit13.Text;
end;

procedure frmAddEditTypeTreeService_Button9_OnClick (Sender: TObject; var Cancel: boolean);
begin
   frmAddEditTypeTreeService.Button10.Click;
end;

procedure frmAddEditTypeTreeService_Button10_OnClick (Sender: TObject; var Cancel: boolean);
begin
   SQLExecute('UPDATE serviceTipeTree SET serviceTipeNameTree = ' + frmAddEditTypeTreeService.Edit14.sqlValue + ' where id ='+inttostr(frmAddEditTypeTreeService.ComboBox5.dbitemid));
   //SQLExecute('UPDATE serviceTipeTree SET ParrentID = ' + frmAddEditTypeTreeService.Edit16.sqlValue + ' where id ='+inttostr(frmAddEditTypeTreeService.ComboBox6.dbitemid));
end;

procedure frmAddEditTypeTreeService_Edit16_OnChange (Sender: TObject);
begin
   if frmAddEditTypeTreeService.Edit16.Text = '-1' then
begin
     frmAddEditTypeTreeService.Edit16.Clear;
  end;
end;

procedure frmAddEditTypeTreeService_OnClose (Sender: TObject; Action: string);
begin
    frmAddEditTypeTreeService.CheckBox2.Checked := False;

    frmDict.TreeViewServiceTipeTree.dbUpdate;
    frmDict.GrideServiceType.dbUpdate;
    frmDict.GrideService.dbUpdate;
end;

procedure Form1_PageControl1_OnChange (Sender: TObject);
begin
   if Form1.PageControl1.ActivePageIndex = 1 then ShowRecord(Form1, 'application', Form1.GridOrder.dbItemID);
end;