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

    Prodoljit := False;

  end; 

if ComboBox_RISK.Text = '' Then

  begin

    Prodoljit := False;

  end; 

if ComboBox_FIO.Text = '' Then

  begin

    Prodoljit := False;

  end; 
 

if Prodoljit = False Then

   begin

      MessageDlg('Не все данные были заполнены!',mtWarning, [mbOk], 0);

      Abort;

   end; 

if Tag = 1 Then

   begin

      Form_COMPONENTS.Query_CONTRACTS.Active := False; 

      Form_COMPONENTS.Query.Active := False;

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

      Form_COMPONENTS.Query.Active := True; 

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

      Form_COMPONENTS.Table_CURRENCY.Locate('VALUTA',ComboBox_VALUTA.Text,[]);

      ID_VALUTA := Form_COMPONENTS.Table_CURRENCY.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Table_AGENTS.Locate('AGENT',ComboBox_AGENT.Text,[]);

      ID_AGENTS := Form_COMPONENTS.Table_CURRENCY.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Query_CLIENTS.Locate('FIO',ComboBox_FIO.Text,[]);

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

      Form_COMPONENTS.Table_RISKS.Locate('RISK',ComboBox_RISK.Text,[]);

      ID_RISKS := Form_COMPONENTS.Table_RISKS.FieldByName('ID').AsInteger; 

      if Length(Edit_NOMER_AVTO.Text) > 0 Then

         begin

            Form_COMPONENTS.Query.Active := False;

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

            Form_COMPONENTS.Query.Active := True; 

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

            Form_COMPONENTS.Table_CARS.Append;

            Form_COMPONENTS.Table_CARS['ID'] := ID_CARS;

            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['CONTRACTS_ID'] := Edit_NOMER.Text;

            Form_COMPONENTS.Table_CARS.Post; 

         end; 
 

      Form_COMPONENTS.Table_AGENTS.Locate('AGENT',ComboBox_AGENT.Text,[]);

      ID_AGENTS := Form_COMPONENTS.Table_CURRENCY.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Query.Active := False;

      Form_COMPONENTS.Query.SQL.Text :=

      'INSERT INTO CONTRACTS'+'(ID,NOMER,SERIA,VID_DOGOVORA,DATA_NACH,DATA_KON,VALUTA_ID,AGENTS_ID,'+

      'PRIZNAK,CARS_ID,RISKS_ID,CLIENTS_ID,SUMMA_IN_VAL,SUMMA_IN_TENGE,PREMIA_IN_VAL, PREMIA_IN_TENGE) '+

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

      +#39+Edit_NOMER.Text+#39+','

      +#39+Edit_SERIA.Text+#39+','

      +#39+Edit_VID_DOGOVORA.Text+#39+','

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

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

      +IntToStr(ID_VALUTA)+','

      +IntToStr(ID_AGENTS)+','

      +IntToStr(1)+','

      +IntToStr(ID_CARS)+','

      +IntToStr(ID_RISKS)+','

      +IntToStr(ID_CLIENTS)+','

      +Edit_SUMMAVAL.Text+','

      +Edit_SUMMAKZT.Text+','

      +Edit_PREMIAVAL.Text+','

      +Edit_PREMIAKZT.Text+')';

      Form_COMPONENTS.Query.ExecSQL;

      Form_COMPONENTS.Query_CONTRACTS.Active := True; 

      StatusBar1.Panels[0].Text := 'Запись добавлена!';

   end; 
 

if Tag = 2 Then

   begin

      Form_COMPONENTS.Query_CONTRACTS.Active := False; 

      Form_COMPONENTS.Table_CURRENCY.Locate('VALUTA', ComboBox_VALUTA.Text, []);

      ID_VALUTA := Form_COMPONENTS.Table_CURRENCY.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Table_AGENTS.Locate('AGENT', ComboBox_AGENT.Text, []);

      ID_AGENTS := Form_COMPONENTS.Table_AGENTS.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Query_CLIENTS.Locate('FIO', ComboBox_FIO.Text, []);

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

      Form_COMPONENTS.Query.SQL.Text :=

      'UPDATE CONTRACTS SET '+

      'NOMER = '+#39+Edit_NOMER.Text+#39+','+

      'SERIA = '+#39+Edit_SERIA.Text+#39+','+

      'VID_DOGOVORA = '+#39+Edit_VID_DOGOVORA.Text+#39+','+

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

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

      'VALUTA_ID = '+#39+IntToStr(ID_VALUTA)+#39+','+

      'AGENTS_ID = '+#39+IntToStr(ID_AGENTS)+#39+','+

      'CLIENTS_ID = '+#39+IntToStr(ID_CLIENTS)+#39+','+

      'SUMMA_IN_TENGE = '#39+Edit_SUMMAKZT.Text+#39+','+

      'SUMMA_IN_VAL = '#39+Edit_SUMMAVAL.Text+#39+','+

      'PREMIA_IN_TENGE = '#39+Edit_PREMIAKZT.Text+#39+','+

      'PREMIA_IN_VAL = '#39+Edit_PREMIAVAL.Text+#39+

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

      Form_COMPONENTS.Query.ExecSQL;

      Form_COMPONENTS.Query_CONTRACTS.Active := True; 

      StatusBar1.Panels[0].Text := 'Запись отредактирована!';

   end; 

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.Edit_SUMMAKZTChange(

  Sender: TObject);

Var

   s:string;

   i:integer;

begin 

if length(Edit_SUMMAKZT.Text) > 0 then

s:=Edit_SUMMAKZT.Text; 

if length(Edit_SUMMAKZT.Text)>=1 then

   for i:=1 to length(Edit_SUMMAKZT.Text) do

      if (ord(s[i])>47) and (ord(s[i])<=57) or (ord(s[i])=44)

      or (ord(s[i])=45) then

         begin 

         end

else

   Delete(s,i,1); 

   Edit_SUMMAKZT.Text:=s; 

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.Edit_SUMMAVALChange(

  Sender: TObject);

Var

   s:String;

   i:integer;

begin

if length(Edit_SUMMAVAL.Text) > 0 then

s:=Edit_SUMMAVAL.Text; 

if length(Edit_SUMMAVAL.Text)>=1 then

   for i:=1 to length(Edit_SUMMAVAL.Text) do

      if (ord(s[i])>47) and (ord(s[i])<=57) or (ord(s[i])=44)

      or (ord(s[i])=45) then

         begin 

         end

else

   Delete(s,i,1); 

   if ComboBox_VALUTA.Text <> 'KZT' Then

      begin

         Edit_SUMMAVAL.Text:=s; 

         Form_COMPONENTS.Query.Active := False;

         Form_COMPONENTS.Query.SQL.Text := 'SELECT * FROM CURRENCY WHERE VALUTA = '+#39+ComboBox_VALUTA.Text+#39;

         Form_COMPONENTS.Query.Active := True; 

         if Form_COMPONENTS.Query.RecordCount > 0 Then

            begin

               Form_COMPONENTS.Query.Next;

               Edit_SUMMAKZT.Text := FloatToStr(StrToFloat(Edit_SUMMAVAL.Text) *

                                     Form_COMPONENTS.Query.FieldByName('KURS').AsFloat /

                                     Form_COMPONENTS.Query.FieldByName('KRATNOST').AsFloat);

            end;

      end;     

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.Edit_PREMIAKZTChange(

  Sender: TObject);

Var

   s:String;

   i:integer;

begin

if length(Edit_PREMIAKZT.Text) > 0 then

s:=Edit_PREMIAKZT.Text; 

if length(Edit_PREMIAKZT.Text)>=1 then

   for i:=1 to length(Edit_PREMIAKZT.Text) do

      if (ord(s[i])>47) and (ord(s[i])<=57) or (ord(s[i])=44)

      or (ord(s[i])=45) then

         begin 

         end

else

   Delete(s,i,1); 

   Edit_PREMIAKZT.Text:=s; 

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.Edit_PREMIAVALChange(

  Sender: TObject);

Var

   s:String;

   i:integer;

begin

if length(Edit_PREMIAVAL.Text) > 0 then

s:=Edit_PREMIAVAL.Text; 

if length(Edit_PREMIAVAL.Text)>=1 then

   for i:=1 to length(Edit_PREMIAVAL.Text) do

      if (ord(s[i])>47) and (ord(s[i])<=57) or (ord(s[i])=44)

      or (ord(s[i])=45) then

         begin 

         end

else

   Delete(s,i,1); 

   if ComboBox_VALUTA.Text <> 'KZT' Then

      begin

         Edit_PREMIAVAL.Text:=s; 

         Form_COMPONENTS.Query.Active := False;

         Form_COMPONENTS.Query.SQL.Text := 'SELECT * FROM CURRENCY WHERE VALUTA = '+#39+ComboBox_VALUTA.Text+#39;

         Form_COMPONENTS.Query.Active := True; 

         if Form_COMPONENTS.Query.RecordCount > 0 Then

            begin

               Form_COMPONENTS.Query.Next;

               Edit_PREMIAKZT.Text := FloatToStr(StrToFloat(Edit_PREMIAVAL.Text) *

                                     Form_COMPONENTS.Query.FieldByName('KURS').AsFloat /

                                     Form_COMPONENTS.Query.FieldByName('KRATNOST').AsFloat);

            end;

      end;     

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.BitBtn_Edit_AVTOClick(

  Sender: TObject);

begin 

if Edit_NOMER_AVTO.Text <> '' Then

   begin

      Form_COMPONENTS.Table_CARS.Locate('NOMER', Edit_NOMER_AVTO.Text, []);

      if Edit_NOMER_AVTO.Text = Form_COMPONENTS.Table_CARS.FieldByName('NOMER').AsString Then

         begin

            Form_COMPONENTS.Query_CARS.Active := False;

            Form_COMPONENTS.Query_CARS.SQL.Text := 'SELECT * FROM CARS WHERE CONTRACTS_ID = '+

                                                   #39+Edit_NOMER.Text+#39;

            Form_COMPONENTS.Query_CARS.Active := True;

            if Tag = 2 Then

               begin

                  Form_AVTO.Edit_AVTO.Text := Edit_AVTO.Text;

                  Form_AVTO.Edit_NOMER_AVTO.Text := Edit_NOMER_AVTO.Text;

                  Form_AVTO.Edit_VIN.Text := Edit_VIN.Text;

               end;    

            Form_AVTO.ShowModal;

         end;

   end;

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.SpeedButton1Click(Sender: TObject);

begin

Form_AGENTS.DBGrid1.Tag := 1;

Form_AGENTS.ShowModal;

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.SpeedButton2Click(Sender: TObject);