Автоматизация работы автопарка

     else if (edit9.text<>'') and (r=0) then begin s:='Avto_tip='+''''+edit9.text+''''; inc(r); end;

 

     if (edit10.text<>'') and (r>0) then s:=s+',Avto_nom='+''''+edit10.Text+''''

     else if (edit10.text<>'') and (r=0) then s:='Avto_nom='+''''+edit10.text+'''';

 

     query2.SQL.Add('Update voditel.db set ');

     query2.SQL.Add(s);

     query2.SQL.Add(' where Marshrut=');

     p:=''''+edit6.text+''''+' and Vod_nom='+edit7.text;

     query2.sql.add(p);

     query2.ExecSql;

     query1.close;  query1.open;

     Query1.active:=false;

     query1.active:=true;

     edit6.Clear; edit7.Clear; edit8.Clear; edit9.Clear; edit10.Clear;

end;

Басты терезедегі келесі батырма Аялдамаларға қатысты маршрутты іздеу батырмасы 5-суретте көрсетілген аялдамаларға қатысты маршрутты іздеу мүмкіндігін жүзеге асыратын терезені ашу мүмкіндігін береді.

 

5-сурет. Аялдамаларға қатысты маршрутты іздеу.

 

Мұндағы іздеу әрекеті мына код арқылы жүзеге асырылады:

 

procedure TForm4.Button1Click(Sender: TObject);

label 1,2,3;

var n,s:string;

k,r,i,l,n1,n2:byte;

b:char;

begin

     {Маршрутты іздеу}

     query1.First; b:=''''; r:=0; s:=''; n1:=0; n2:=0;

     1: k:=0; for i:=0 to dbmemo1.Lines.Count do

        begin if dbmemo1.Lines[i]=edit1.Text then begin n1:=i; inc(k); end;

             if dbmemo1.Lines[i]=edit2.Text then begin n2:=i; inc(k); end;

        end;

        if n1>n2 then begin k:=0;

           for i:=0 to dbmemo3.Lines.Count do

           begin if dbmemo3.Lines[i]=edit1.Text then

                     begin n1:=i; inc(k); end;

                     if dbmemo3.Lines[i]=edit2.Text then

                     begin n2:=i; inc(k);  end;

           end;

           if n1<n2 then goto 3;

        2: query1.Next; goto 1; end

     else 3: if k=2 then

         begin inc(r);

         n:=query1.fieldbyname('Marshrut').value;

         if r=1 then

         begin s:='Marshrut='+b+n+b;

         goto 2; end

         else if r>1 then begin s:=s+' or Marshrut='+b+n+b; goto 2; end;

     end;

     {Маршрутты іздеу аяғы}

 

     Query1.Close;

     Query1.SQL.Clear;

     Query1.SQL.Add('select * from marshrut.db where ');

     Query1.sql.add(s);

     Query1.Open;

     form5.qrlabel1.Caption:=form4.edit1.text+' аялдамасынан '+form4.edit2.text+' аялдамасына баратын  маршруттар:';

     form5.quickrep1.preview;

end;

Қажетті маршрут табылғаннан кейін автоматты  түрде есеп беру ретінде сол табылған маршруттар тізімі шығарылады. Қажетті  маршрутты тапқаннан кейін кестедегі  мәліметті қалпына келтіру үшін Қалпына келтіру батырмасы басылады. Бұл батырманың коды төмендегідей:

 

procedure TForm4.Button2Click(Sender: TObject);

begin

     Query1.Close;

     Query1.SQL.Clear;

     Query1.SQL.Add('select * from marshrut.db');

     Query1.Open;

end;

Шығу батырмасы арқылы басты терезеге оралуға болады.

Басты терезедегі келесі батырма Сұрыптау батырмасы 6-суретте көрсетілген маршруттар туралы мәліметтерді сұрыптау мүмкіндігін жүзеге асыратын терезені ашу мүмкіндігін береді.

 

6-сурет. Сұрыптау.

 

Бұл терезедегі сұрыптау батырмасының коды төмендегідей:

 

procedure TForm6.SpeedButton1Click(Sender: TObject);

var s:string;

begin

     Query1.Close;

     s:='';

     Query1.SQL.Clear;

     Query1.SQL.Add('Select * from marshrut.db order by ');

     case radiogroup1.ItemIndex of

     0: s:='Marshrut';

     1: s:='Shigu_uakiti';

     2: s:='Toktau_uakiti';

     end;

     if radiogroup2.itemindex=1 then

     s:=s+' desc';

     Query1.sql.add(s);

     radiogroup1.ItemIndex:=-1;

     radiogroup2.ItemIndex:=-1;

     Query1.Open;

end;

Шығу батырмасы арқылы басты терезеге оралуға болады.

Басты терезедегі келесі батырма Жүргізуші туралы мәліметті жою батырмасын басу арқылы 7-суретте көрсетілген жүргізуші туралы мәліметті жою мүмкіндігін жүзеге асыратын терезе ашылады.

 

7-сурет. Жүргізуші туралы мәліметті жою.

 

Бұл терезедегі жою әрекеті келесі код арқылы жүзеге асырылған:

 

procedure TForm7.SpeedButton1Click(Sender: TObject);

var P:string;

begin

     Query2.Close;

     Query2.SQL.Clear;

     Query2.SQL.Add('delete from voditel.db where ');

     p:='Avto_nom='+''''+edit1.text+'''';

     query2.sql.add(p);

     query2.ExecSQL;

     Query1.Close;

     Query1.Open;

     edit1.Clear;

     Query1.active:=false;

     query1.active:=true;

end;

Шығу батырмасы арқылы басты терезеге оралуға болады.

Басты терезедегі келесі батырма Автор туралы батырмасын басу арқылы 8-суретте көрсетілген автор туралы мәліметті қарау мүмкіндігін жүзеге асыратын терезе ашу мүмкіндігін береді.

 

 

8-сурет. Автор туралы.

 

Басты терезедегі келесі батырма Шығу батырмасы арқылы бағдарламаның жұмысын тоқтатып шығуға болады.