Пәндік облыстың ER диаграммасы

        TntLabel22: TTntLabel;

        TntEdit6: TTntEdit;

        TntEdit11: TTntEdit;

        TntButton6: TTntButton;

        TntButton12: TTntButton;

        procedure Button5Click(Sender: TObject);

        procedure TntButton3Click(Sender: TObject);

        procedure TntButton7Click(Sender: TObject);

        procedure TntButton9Click(Sender: TObject);

        procedure TntButton1Click(Sender: TObject);

        procedure N2Click(Sender: TObject);

        procedure N3Click(Sender: TObject);

        procedure N4Click(Sender: TObject);

        procedure TntButton4Click(Sender: TObject);

        procedure Button1Click(Sender: TObject);

        procedure TntButton6Click(Sender: TObject);

        procedure TntComboBox1Enter(Sender: TObject);

        procedure N5Click(Sender: TObject);

        procedure Button2Click(Sender: TObject);

        procedure TntButton8Click(Sender: TObject);

        procedure TntButton2Click(Sender: TObject);

        procedure TntButton5Click(Sender: TObject);

        procedure TntButton10Click(Sender: TObject);

        procedure TntButton11Click(Sender: TObject);

        procedure TntButton12Click(Sender: TObject);

          private

        { Private declarations }

      Public

                {Public declarations }

      end; 

    var

      Form2: TForm2; 

    implementation 

    uses Unit10, Unit3, Unit5, Unit6, Unit7, Unit8; 

    {$R *.dfm} 
 

    //кестедегі  жазбаны жою

    procedure TForm2.TntButton3Click(Sender: TObject);

    begin

    adotable1.Delete;

    end; 

    //есептемені  қарау

    procedure TForm2.TntButton7Click(Sender: TObject);

    begin

    form1.QuickRep1.PreviewModal;

    end; 

    //есептемені  қарау

    procedure TForm2.TntButton9Click(Sender: TObject);

    begin

     form5.QuickRep1.PreviewModal;

    end; 

    procedure TForm2.Button5Click(Sender: TObject);

    begin

    adotable5.Delete;

    end; 

    //тауарды  қоймаға енгізу

    procedure TForm2.TntButton1Click(Sender: TObject);

    var i,s,k,l:integer;

    begin

    adotable1.Last;

     adotable1.InsertRecord([dblookupcombobox1.text, tntedit1.Text,datetimepicker1.Date, dblookupcombobox2.Text, tntedit3.Text, tntedit4.Text]); 

     adotable4.First;

     k:=0;

     for i:=0 to adotable4.RecordCount-1 do begin

      if ADOTable4.Fieldbyname('Шифр').Text=dblookupcombobox2.text then

             begin

            adotable4.Edit;  k:=k+1;

    ADOTable4.Fieldbyname('Саны').asinteger:=ADOTable4.Fieldbyname('Саны').asinteger+strtoint(tntedit3.text);

    MessageBox(Handle, Widestring('Тауар қоймаға енгізілді'), Widestring('Өңдеу'), MB_OK) end; adotable4.Next; end;

            if k=0 then form6.ShowModal;

    end; 

    procedure TForm2.N2Click(Sender: TObject);

    begin

    form3.Showmodal;

    form3.tntPageControl1.ActivePage:=form3.tntTabSheet1;

    end; 

    procedure TForm2.N3Click(Sender: TObject);

    begin

    form3.Showmodal; 

    form3.tntPageControl1.ActivePage:=form3.tntTabSheet2;

    end; 

    procedure TForm2.N4Click(Sender: TObject);

    begin

    form3.Showmodal; 

    form3.tntPageControl1.ActivePage:=form3.tntTabSheet3;

    end; 

    //тауарды  қоймадан шығару

    procedure TForm2.TntButton4Click(Sender: TObject); 

    var i,s,k,l:integer;

    begin

      k:=0; adotable4.First;

      for i:=0 to adotable4.RecordCount-1 do begin

            if  (ADOTable4.Fieldbyname('Шифр').Text=dblookupcombobox3.text)

            and  (ADOTable4.Fieldbyname('Саны').asinteger>=strtoint(tntedit5.text))  then

            begin

     adotable4.Edit;  k:=k+1;

    ADOTable4.Fieldbyname('Саны').asinteger:=ADOTable4.Fieldbyname('Саны').asinteger-strtoint(tntedit5.text);

    MessageBox(Handle, Widestring('Тауар қоймадан шығарылды'), Widestring('Өңдеу'), MB_OK);end; adotable4.Next;

    end; 

    if k=0 then

    MessageBox(Handle, Widestring('Қоймада тауарлардың саны  жетіспейді немесе қоймада көрсетілген  тауар жоқ, қоймадан тауарды  шығару өңделмеді'), Widestring('Өңдеу'), MB_OK)

    else begin

    adotable5.Last;

     adotable5.InsertRecord([dblookupcombobox3.text, tntedit5.Text, datetimepicker2.Date, tntedit7.Text, tntedit8.Text]);

      adotable5.First;

    tntEdit5.clear; tntEdit7.Clear; tntEdit8.Clear; end; 

    end; 
 

    procedure TForm2.Button1Click(Sender: TObject);

    begin

    form8.QuickRep1.PreviewModal;

    end; 

    //сұраныс

    function GetSQLText2(par1,par2, par3, par4:string):string;

    var SQL:TStringList;

    begin

      try

        SQL:=TStringList.Create;

        SQL.Clear;

        SQL.Add('SELECT * FROM Кіріс ');

        if Trim(par1)<>'' then

          SQL.Add('WHERE Жабдыктаушы LIKE '+QuotedStr(par1));

        if Trim(par2)<>'' then

        begin

          if Trim(par1)<>'' then

            SQL.Add('AND Шифр LIKE '+QuotedStr(par2))

          else

            SQL.Add('WHERE Шифр LIKE '+QuotedStr(par2));

        end;

        if trim (par3)<>'' then

        begin

           if Trim(par2)<>'' then

            SQL.Add('AND Саны LIKE '+QuotedStr(par3))

          else

            SQL.Add('WHERE Саны LIKE '+QuotedStr(par3)); end;

            if trim (par4)<>'' then

        begin

               if Trim(par3)<>''  then

            SQL.Add('AND Багасы LIKE '+QuotedStr(par4))

          else

            SQL.Add('WHERE Багасы LIKE '+QuotedStr(par4)); end; 

        Result:=SQL.Text;

      finally

        SQL.Free;

      end;

    end; 

    procedure TForm2.TntButton6Click(Sender: TObject);

    begin 

    ADOQuery1.Close;

      ADOQuery1.SQL.Text:=getSQLText2(tntedit10.Text, tntedit2.text, tntedit6.Text, tntedit11.text );

      ADOQuery1.Open;

      datasource1.DataSet:=adoquery1;

    end; 

    procedure TForm2.TntComboBox1Enter(Sender: TObject);

    begin

     {form3.adotable2.Active := TRUE;

      while not  form3.adotable2.Eof do begin

        tntComboBox1.Items.Add ( form3.adotable2.Fields [0].AsString);

         form3.adotable2.Next;

      end;

    TntComboBox1.DroppedDown:=True; tntcombobox1.Refresh; }

    end; 

    procedure TForm2.N5Click(Sender: TObject);

    begin

    form2.Close;

    end; 

    procedure TForm2.Button2Click(Sender: TObject);

    begin

    adotable5.Delete;

    end; 
 

    function GetSQLText(par1,par2, par3, par4, par5:string):string;

    var SQL:TStringList;

    begin

      try

        SQL:=TStringList.Create;

        SQL.Clear;

        SQL.Add('SELECT * FROM Шыгыс ');

        if Trim(par1)<>'' then

          SQL.Add('WHERE Шифр LIKE '+QuotedStr(par1));

        if Trim(par2)<>'' then

        begin

          if Trim(par1)<>'' then

            SQL.Add('AND Саны LIKE '+QuotedStr(par2))

          else

            SQL.Add('WHERE Саны LIKE '+QuotedStr(par2));

        end;

        if trim (par3)<>'' then

        begin

           if Trim(par2)<>'' then

            SQL.Add('AND Куні LIKE '+QuotedStr(par3))

          else

            SQL.Add('WHERE Куні LIKE '+QuotedStr(par3)); end;

            if trim (par4)<>'' then

        begin

               if Trim(par3)<>''  then

            SQL.Add('AND Чек№ LIKE '+QuotedStr(par4))

          else

            SQL.Add('WHERE Чек№ LIKE '+QuotedStr(par4)); end;

             if trim (par5)<>'' then

        begin

               if Trim(par4)<>''  then

            SQL.Add('AND Багасы LIKE '+QuotedStr(par5))

          else

            SQL.Add('WHERE Багасы LIKE '+QuotedStr(par5)); end;

        Result:=SQL.Text;

      finally

        SQL.Free;

      end;

    end; 

    procedure TForm2.TntButton8Click(Sender: TObject);

    begin

    ADOQuery5.Close;

      ADOQuery5.SQL.Text:=GetSQLText(tntedit9.Text,tntedit12.Text, tntedit13.text, tntedit14.text, tntedit15.text);

      ADOQuery5.Open;

      datasource5.DataSet:=adoquery5; 

    end; 

    procedure TForm2.TntButton2Click(Sender: TObject);

    begin

    tntedit9.Clear; tntedit12.clear; tntedit13.clear; tntedit14.clear; tntedit15.clear;