«Әділет СК» ЖШС – нің тіркелген құжаттарын жеке және заңды тұлғалары бойынша есепке алу және талдауға арналған бағдарламалық қамтама

  Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, ComCtrls; 

type

  TForm_CLIENTS = class(TForm)

    DBGrid1: TDBGrid;

    StatusBar1: TStatusBar;

    Panel1: TPanel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure DBGrid1DblClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_CLIENTS: TForm_CLIENTS; 

implementation

uses Unit_COMPONENTS, Unit_ADD_EDIT_CLIENTS, DB,

Unit_ADD_EDIT_LOOK_CONTRACTS; 

{$R *.dfm} 

procedure TForm_CLIENTS.BitBtn4Click(Sender: TObject);

begin

Close

end; 

procedure TForm_CLIENTS.BitBtn1Click(Sender: TObject);

begin

Form_ADD_EDIT_CLIENTS.ComboBox_UR_FIZ.Clear; 

Form_ADD_EDIT_CLIENTS.Tag := 1; // Добавление

Form_ADD_EDIT_CLIENTS.Edit_FIO.Text := '';

Form_ADD_EDIT_CLIENTS.Edit_RNN.Text := '';

Form_ADD_EDIT_CLIENTS.Edit_IIN.Text := '';

Form_ADD_EDIT_CLIENTS.Edit_TELEFON.Text := ''; 

Form_ADD_EDIT_CLIENTS.BitBtn1.Caption := 'Добавить';

Form_ADD_EDIT_CLIENTS.ComboBox_UR_FIZ.Items.Add('Юр. лицо');

Form_ADD_EDIT_CLIENTS.ComboBox_UR_FIZ.Items.Add('Физ. лицо');

Form_ADD_EDIT_CLIENTS.Caption := 'Добавление клиента'; 

Form_ADD_EDIT_CLIENTS.ShowModal;

end; 

procedure TForm_CLIENTS.BitBtn2Click(Sender: TObject);

begin

Form_ADD_EDIT_CLIENTS.Tag := 2; // Редактирование

Form_ADD_EDIT_CLIENTS.BitBtn1.Caption := 'Редактировать';

Form_ADD_EDIT_CLIENTS.Edit_FIO.Text := Form_COMPONENTS.Query_Clients.FieldByName('FIO').AsString;

Form_ADD_EDIT_CLIENTS.Caption := 'Редактирование клиента';

if Form_COMPONENTS.Query_Clients.FieldByName('Rezident').AsString = 'Резидент' Then Form_ADD_EDIT_CLIENTS.CheckBox1.Checked := True

else Form_ADD_EDIT_CLIENTS.CheckBox1.Checked := False; 

Form_ADD_EDIT_CLIENTS.ComboBox_UR_FIZ.Text := Form_COMPONENTS.Query_Clients.FieldByName('UR_FIZ').AsString;

Form_ADD_EDIT_CLIENTS.DateTimePicker1.Date := Form_COMPONENTS.Query_Clients.FieldByName('DATA_ROZHD').AsDateTime;

Form_ADD_EDIT_CLIENTS.Edit_RNN.Text := Form_COMPONENTS.Query_Clients.FieldByName('RNN').AsString;

Form_ADD_EDIT_CLIENTS.Edit_IIN.Text := Form_COMPONENTS.Query_Clients.FieldByName('IIN').AsString;

Form_ADD_EDIT_CLIENTS.Edit_TELEFON.Text := Form_COMPONENTS.Query_Clients.FieldByName('TELEFON').AsString;

Form_ADD_EDIT_CLIENTS.Memo1.Text := Form_COMPONENTS.Query_Clients.FieldByName('ADRES').AsString; 

Form_ADD_EDIT_CLIENTS.Edit_FIO.Tag := Form_COMPONENTS.Query_Clients.FieldByName('ID').AsInteger;

Form_ADD_EDIT_CLIENTS.ShowModal;

end; 

procedure TForm_CLIENTS.FormCreate(Sender: TObject);

begin 

Form_COMPONENTS.Query_Clients.Active := True; 

end; 

procedure TForm_CLIENTS.BitBtn3Click(Sender: TObject);

Var

   ID:Integer;

begin

if MessageDlg('Удалить выбранную запись?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

   Begin

      ID := Form_COMPONENTS.Query_CLIENTS.FieldByName('ID').AsInteger;

      Form_COMPONENTS.Query_CLIENTS.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'DELETE FROM CLIENTS WHERE ID = '+ IntToStr(ID);

      Form_COMPONENTS.Query.ExecSQL;

      Form_COMPONENTS.Query_CLIENTS.Active := True;

   end

else begin end;

end; 

procedure TForm_CLIENTS.DBGrid1DblClick(Sender: TObject);

begin

if DBGrid1.Tag = 1 Then

   begin

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.Text := Form_COMPONENTS.Query_CLIENTS.FieldByName('FIO').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.SetFocus;

      Close;

   end;

end;

end. 
 

unit Unit_CONTRACTS; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, Buttons; 

type

  TForm_CONTRACTS = class(TForm)

    DBGrid1: TDBGrid;

    StatusBar1: TStatusBar;

    GroupBox1: TGroupBox;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    Button1: TButton;

    Button2: TButton;

    BitBtn3: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn6Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_CONTRACTS: TForm_CONTRACTS; 

implementation 

{$R *.dfm}

Uses Unit_COMPONENTS, Unit_ADD_EDIT_LOOK_CONTRACTS, DB, Unit_PAYMENTS, Unit_PROLONGS,

  Unit_PAYS; 

procedure TForm_CONTRACTS.BitBtn1Click(Sender: TObject);

begin

Form_ADD_EDIT_LOOK_CONTRACTS.BitBtn1.Visible := True; 

Form_ADD_EDIT_LOOK_CONTRACTS.Tag := 1; // Добавление

Form_ADD_EDIT_LOOK_CONTRACTS.Caption := 'Добавление'; 

Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_RISK.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_NOMER.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_SERIA.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_VID_DOGOVORA.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_AVTO.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_VIN.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_NOMER_AVTO.Clear;

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_SUMMAKZT.Text := '0';

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_SUMMAVAL.Text := '0';

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_PREMIAKZT.Text := '0';

Form_ADD_EDIT_LOOK_CONTRACTS.Edit_PREMIAVAL.Text := '0'; 

Form_ADD_EDIT_LOOK_CONTRACTS.BitBtn1.Caption := 'Добавить'; 

Form_COMPONENTS.Query_CLIENTS.First;

Form_COMPONENTS.Table_CURRENCY.First;

Form_COMPONENTS.Table_AGENTS.First;

Form_COMPONENTS.Table_RISKS.First; 

While not Form_COMPONENTS.Query_CLIENTS.Eof do

   begin

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.Items.Add(Form_COMPONENTS.Query_CLIENTS.FieldByName('FIO').AsString);

      Form_COMPONENTS.Query_CLIENTS.Next;

   end; 

While not Form_COMPONENTS.Table_CURRENCY.Eof do

   begin

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.Items.Add(Form_COMPONENTS.Table_CURRENCY.FieldByName('VALUTA').AsString);

      Form_COMPONENTS.Table_CURRENCY.Next;

   end; 

While not Form_COMPONENTS.Table_AGENTS.Eof do

   begin

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.Items.Add(Form_COMPONENTS.Table_AGENTS.FieldByName('AGENT').AsString);

      Form_COMPONENTS.Table_AGENTS.Next;

   end; 

While not Form_COMPONENTS.Table_RISKS.Eof do

   begin

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_RISK.Items.Add(Form_COMPONENTS.Table_RISKS.FieldByName('RISK').AsString);

      Form_COMPONENTS.Table_RISKS.Next;

   end; 

Form_ADD_EDIT_LOOK_CONTRACTS.ShowModal;

end; 

procedure TForm_CONTRACTS.BitBtn5Click(Sender: TObject);

begin

Close;

end; 

procedure TForm_CONTRACTS.BitBtn2Click(Sender: TObject);

begin

if Form_COMPONENTS.Query_CONTRACTS.RecordCount > 0 Then

   Begin

      Form_ADD_EDIT_LOOK_CONTRACTS.BitBtn1.Visible := True;

      Form_ADD_EDIT_LOOK_CONTRACTS.Tag := 2; // Редактирование

      Form_ADD_EDIT_LOOK_CONTRACTS.Caption := 'Редактирование';

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.Clear;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.Clear;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.Clear;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_RISK.Clear;

      Form_ADD_EDIT_LOOK_CONTRACTS.BitBtn1.Caption := 'Редактировать';

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_NOMER.Tag := Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Query_CLIENTS.First;

      Form_COMPONENTS.Table_CURRENCY.First;

      Form_COMPONENTS.Table_AGENTS.First; 

      While not Form_COMPONENTS.Query_CLIENTS.Eof do

         begin

            Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.Items.Add(Form_COMPONENTS.Query_CLIENTS.FieldByName('FIO').AsString);

            Form_COMPONENTS.Query_CLIENTS.Next;

         end; 

      While not Form_COMPONENTS.Table_CURRENCY.Eof do

         begin

            Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.Items.Add(Form_COMPONENTS.Table_CURRENCY.FieldByName('VALUTA').AsString);

            Form_COMPONENTS.Table_CURRENCY.Next;

         end; 

      While not Form_COMPONENTS.Table_AGENTS.Eof do

         begin

            Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.Items.Add(Form_COMPONENTS.Table_AGENTS.FieldByName('AGENT').AsString);

            Form_COMPONENTS.Table_AGENTS.Next;

         end; 

      While not Form_COMPONENTS.Table_RISKS.Eof do

         begin

            Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_RISK.Items.Add(Form_COMPONENTS.Table_RISKS.FieldByName('RISK').AsString);

            Form_COMPONENTS.Table_RISKS.Next;

         end; 

      Form_COMPONENTS.Table_CARS.Locate('CONTRACTS_ID', Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsInteger, []);

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_AVTO.Text := Form_COMPONENTS.Table_CARS.FieldByName('CAR').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_NOMER_AVTO.Text := Form_COMPONENTS.Table_CARS.FieldByName('NOMER').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_VIN.Text := Form_COMPONENTS.Table_CARS.FieldByName('VIN').AsString; 

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_NOMER.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('NOMER').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_SERIA.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('SERIA').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('FIO').AsString;