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

begin

Form_RISKS.DBGrid1.Tag := 1;

Form_RISKS.ShowModal;

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.SpeedButton3Click(Sender: TObject);

begin

Form_CURRENCY.DBGrid1.Tag := 1;

Form_CURRENCY.ShowModal;

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.SpeedButton4Click(Sender: TObject);

begin

Form_CLIENTS.DBGrid1.Tag := 1;

Form_CLIENTS.ShowModal;

end;

end. 
 

unit Unit_ADD_EDIT_PAYS; 

interface 

uses

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

  Dialogs, StdCtrls, ComCtrls; 

type

  TForm_ADD_EDIT_PAYS = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    ComboBox_POLIS: TComboBox;

    DateTimePicker1: TDateTimePicker;

    Edit_SUMMA: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_ADD_EDIT_PAYS: TForm_ADD_EDIT_PAYS; 

implementation

Uses Unit_COMPONENTS;

{$R *.dfm} 

procedure TForm_ADD_EDIT_PAYS.Button2Click(Sender: TObject);

begin

Close;

end; 

procedure TForm_ADD_EDIT_PAYS.Button1Click(Sender: TObject);

Var

   ID, ID_CONTRACTS:Integer;

begin

if Tag = 1 Then

   begin

      Form_COMPONENTS.Query.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'SELECT MAX(ID) from PAYS';

      Form_COMPONENTS.Query.Active := True; 

      ID := Form_COMPONENTS.DataSource1.DataSet.Fields[0].AsInteger+1; 

      Form_COMPONENTS.Query_CONTRACTS.Locate('NOMER', ComboBox_POLIS.Text, []);

      ID_CONTRACTS := Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Query_PAYS.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'INSERT INTO PAYS(ID, SUMMA_PAYS, DATA_PAYS, CONTRACTS_ID) '+

                                        'VALUES('+IntToStr(ID)+','+

                                        #39+ Edit_SUMMA.Text + #39+','+

                                        #39+ DateToStr(DateTimePicker1.Date) +#39+',' +

                                        IntToStr(ID_CONTRACTS) +')'; 

      Form_COMPONENTS.Query.ExecSQL;

      Form_COMPONENTS.Query_PAYS.Active := True;

      ShowMessage('Запись добавлена!'); 

   end; 

if Tag = 2 Then

   begin

      Form_COMPONENTS.Query_CONTRACTS.Locate('NOMER', ComboBox_POLIS.Text, []);

      ID_CONTRACTS := Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Query_PAYS.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'UPDATE PAYS SET '+

                                        'CONTRACTS_ID = ' + IntToStr(ID_CONTRACTS)+','+

                                        'SUMMA_PAYS = '+#39+ Edit_SUMMA.Text +#39+','+

                                        'DATA_PAYS = '+#39+ DateToStr(DateTimePicker1.Date) +#39+

                                        ' WHERE ID = '+IntToStr(ComboBox_POLIS.Tag);

      ShowMessage('Запись изменена!');

      Form_COMPONENTS.Query.ExecSQL;

      Form_COMPONENTS.Query_PAYS.Active := True;

   end;

end;

end. 
 

unit Unit_ADD_EDIT_PROLONGS; 

interface 

uses

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

  Dialogs, StdCtrls, ComCtrls; 

type

  TForm_ADD_EDIT_PROLONGS = class(TForm)

    Label1: TLabel;

    DateTimePicker1: TDateTimePicker;

    Label2: TLabel;

    DateTimePicker2: TDateTimePicker;

    Button1: TButton;

    Button2: TButton;

    Label3: TLabel;

    ComboBox_NOMER_POLISA: TComboBox;

    Label4: TLabel;

    Edit1: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_ADD_EDIT_PROLONGS: TForm_ADD_EDIT_PROLONGS; 

implementation

uses Unit_COMPONENTS;

{$R *.dfm} 

procedure TForm_ADD_EDIT_PROLONGS.Button1Click(Sender: TObject);

Var

   ID, ID_CONTRACTS:Integer;

begin

if Tag = 1 Then

   begin

      Form_COMPONENTS.Query.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'SELECT MAX(ID) from PROLONGS';

      Form_COMPONENTS.Query.Active := True; 

      ID := Form_COMPONENTS.DataSource1.DataSet.Fields[0].AsInteger+1; 

      Form_COMPONENTS.Query_CONTRACTS.Locate('NOMER', ComboBox_NOMER_POLISA.Text, []);

      ID_CONTRACTS := Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Query_PROLONGS.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'INSERT INTO PROLONGS(ID, CONTRACTS_ID, DATA_KON, DATA_EVENTS, PRIM) '+

                                        'VALUES('+IntToStr(ID)+','+

                                        IntToStr(ID_CONTRACTS)+','+

                                        #39+ DateToStr(DateTimePicker1.Date) +#39+',' +

                                        #39+ DateToStr(DateTimePicker2.Date) +#39+',' +

                                        #39+ Edit1.Text+#39 +')'; 

      Form_COMPONENTS.Query.ExecSQL;

      Form_COMPONENTS.Query_PROLONGS.Active := True;

      ShowMessage('Запись добавлена!');

   end; 

if Tag = 2 Then

   begin

      Form_COMPONENTS.Query_CONTRACTS.Locate('NOMER', ComboBox_NOMER_POLISA.Text, []);

      ID_CONTRACTS := Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Query_PROLONGS.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'UPDATE PROLONGS SET '+

                                        'CONTRACTS_ID = ' + IntToStr(ID_CONTRACTS)+','+

                                        'DATA_KON = ' +#39+ DateToStr(DateTimePicker1.Date) +#39+',' +

                                        'DATA_EVENTS = '#39+ DateToStr(DateTimePicker2.Date) +#39+',' +

                                        'PRIM = '#39+ Edit1.Text+#39+

                                        ' WHERE ID = '+IntToStr(ComboBox_NOMER_POLISA.Tag);

      ShowMessage('Запись изменена!');

      Form_COMPONENTS.Query.ExecSQL;

      Form_COMPONENTS.Query_PROLONGS.Active := True;

   end;

end; 

procedure TForm_ADD_EDIT_PROLONGS.Button2Click(Sender: TObject);

begin

Close;

end;

end. 
 

unit Unit_AGENTS; 

interface 

uses

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

  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls; 

type

  TForm_AGENTS = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    procedure DBGrid1DblClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_AGENTS: TForm_AGENTS; 

implementation 

{$R *.dfm}

Uses Unit_COMPONENTS, Unit_ADD_EDIT_LOOK_CONTRACTS; 

procedure TForm_AGENTS.DBGrid1DblClick(Sender: TObject);

begin

if DBGrid1.Tag = 1 Then

   begin

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.Text := Form_COMPONENTS.Table_AGENTS.FieldByName('AGENT').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.SetFocus;

      Close;

   end;

end;

end. 
 

unit Unit_AVTO; 

interface 

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls; 

type

  TForm_AVTO = class(TForm)

    DBGrid1: TDBGrid;

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Edit_AVTO: TEdit;

    Label2: TLabel;

    Edit_NOMER_AVTO: TEdit;

    Label3: TLabel;

    Edit_VIN: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_AVTO: TForm_AVTO; 

implementation

uses Unit_COMPONENTS;

{$R *.dfm} 

procedure TForm_AVTO.Button2Click(Sender: TObject);

begin

Form_COMPONENTS.Query_CARS.Active := False; 

Form_COMPONENTS.Table_CARS.Edit;

Form_COMPONENTS.Table_CARS['CAR']:=Edit_AVTO.Text;

Form_COMPONENTS.Table_CARS['NOMER']:=Edit_NOMER_AVTO.Text;

Form_COMPONENTS.Table_CARS['VIN']:=Edit_VIN.Text;

Form_COMPONENTS.Table_CARS.Post;

ShowMessage('Запись изменена!'); 

Form_COMPONENTS.Query_CARS.Active := True;

end; 

procedure TForm_AVTO.Button4Click(Sender: TObject);

begin

Close;

end; 

procedure TForm_AVTO.Button3Click(Sender: TObject);

begin

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

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

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

end; 

procedure TForm_AVTO.Button1Click(Sender: TObject);

begin

end;

end. 
 

unit Unit_CLIENT; 

interface 

uses

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