Unit2.pas - master - dorofeev_denis/Monitoring_objects

Unit2.pas

83 строки3 KB

dorofeev_denis

create: MONITORING_OBJECTS.dpr, MONITORING_OBJECTS.dproj, Unit1.dfm, Unit1.pas, Unit2.dfm, Unit2.pas, Unit3.dfm, Unit3.pas, Для исправления статусов Росреестра.xlsx, создание схем и таблиц.sql

07 май 2026, 14:24

Верифицирован

07 май 2026, 14:24830bc00

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm_change = class(TForm)
    Button_save_changes: TButton;
    Edit_remark: TEdit;
    ComboBox_status: TComboBox;
    Label1: TLabel;
    Label_duplicate: TLabel;
    Edit_object_duplicate: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit_remark_ogv_omsu: TEdit;
    procedure Button_save_changesClick(Sender: TObject);
    procedure ComboBox_statusChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_change: TForm_change;

implementation
uses Unit1;

{$R *.dfm}

procedure TForm_change.Button_save_changesClick(Sender: TObject);
begin
  if not Form_main.UniConnection1.InTransaction then
    Form_main.UniConnection1.StartTransaction;
  try
    Form_main.UniQuery1.SQL.Clear;
    Form_main.UniQuery1.SQL.Add('update monitoring_objects.m_obj o ' + 'set o.status = :status, o.object_duplicate = :object_duplicate, o.remark = :remark, o.updated = sysdate, o.updated_by = :updated_by, o.updated_file = ''������ ���������� �������'', o.updated_type = ''updated_status_rosreestr''' + ' where o.id = :id;');
    Form_main.UniQuery1.ParamByName('status').AsString:= Form_change.ComboBox_status.Items[Form_change.ComboBox_status.ItemIndex];
    Form_main.UniQuery1.ParamByName('object_duplicate').AsString:= Form_change.Edit_object_duplicate.Text;
    Form_main.UniQuery1.ParamByName('remark').AsString:= Form_change.Edit_remark.Text;
    Form_main.UniQuery1.ParamByName('updated_by').AsInteger:= emp_id;
    Form_main.UniQuery1.ParamByName('id').AsInteger:= id;
    Form_main.UniQuery1.Execute;

    Form_main.UniConnection1.Commit; // ���������� �������� ��������� ������ ����� �������� ���� ����������� ��� 1 ������

    Form_change.Close;
    // ���������� ��������� ���������� ����� �����������
    id:= 0;
    Form_main.Edit1.Clear;
    Form_main.Find_objects;
  except
    on E:Exception do
    begin
      Form_main.UniConnection1.Rollback;
      MessageDlg('������ ��� ��������� ������ � ��! ��������� �� ������: ' + e.Message, mtInformation,[mbOK],0);
    end;
  end;
end;

procedure TForm_change.ComboBox_statusChange(Sender: TObject);
begin
  if ComboBox_status.ItemIndex = 5 then // ����� �������
    Edit_object_duplicate.Enabled:= true // ���������� ���� ��� ����� ���������
  else
  begin
    Edit_object_duplicate.Enabled:= false;
    Edit_object_duplicate.Clear // � ������ ����� ������ ������� ���� ��������� ��
  end;
end;

procedure TForm_change.FormCreate(Sender: TObject);
begin
  Form_change.Edit_object_duplicate.Enabled:= false
end;

end.