Ãëàâíàÿ: Ðåôåðàòû

Ðåôåðàòû. Ðàçðàáîòêà èíôîðìàöèîííî-ñïðàâî÷íîé ñèñòåìû ïî ó÷åòó âàãîíîâ íà ïîäúåçäíîì ïóòè ïðåäïðèÿòèÿ

            pole5 := 'invent_nomer';

            pole6 := 'year_izgot';

            pole7 := 'gruzopodemnost';

            pole8 := 'key_rod_vagona';

            pole9 := 'iznos';

            pole10 := 'key_raion_dvizh';

            pole11 := '';

            pole12 := '';

            pole13 := '';

            SelectQ := DataModule2.QShow;

            with SelectQ do

              begin

               First;

               while (not Eof) do

                begin

                if (ForEdit <> SelectQ['v.id']) then

                  begin

                   if (SelectQ[pole5] = ToIns4) then

                     begin

                      YN:=true;

                      Break;

                     end;

                  end;

                  Next;

                end;

             end;

            if InsEdit3 then

              begin

               QueryString := 'UPDATE '+TBL+' SET '+pole2+'='+#39+ToIns+#39+','+pole3+'='+#39+ToIns2+#39+','+pole4+'='+#39+ToIns3+#39+','+pole5+'='+#39+ToIns4+#39+','+pole6+'='+#39+ToIns5+#39+','+pole7+'='+#39+ToIns6+#39+','+pole8+'='+#39+ToIns7+#39+','+pole9+'='+#39+ToIns8+#39+','+pole10+'='+#39+ToIns9+#39+' where '+pole1+'='+ForEdit;

               InsEdit3 := false;

              end

             else

               QueryString := 'insert into '+ TBL +' ('+pole2+', '+pole3+', '+pole4+', '+pole5+', '+pole6+', '+pole7+', '+pole8+', '+pole9+', '+pole10+') values ('+#39+ToIns+#39+', '+#39+ToIns2+#39+', '+#39+ToIns3+#39+', '+#39+ToIns4+#39+', '+#39+ToIns5+#39+', '+#39+ToIns6+#39+', '+#39+ToIns7+#39+', '+#39+ToIns8+#39+', '+#39+ToIns9+#39+')';

         end;


      if (Tbl='Operations_s_vagonom') then

         begin

            SelectQ := DataModule2.QOSV;

            pole1 := 'id';

            pole2 := 'key_station_otpr';

            pole3 := 'key_front_otpr';

            pole4 := 'key_station_naznach';

            pole5 := 'key_front_naznach';

            pole6 := 'mydate';

            pole7 := 'mytime';

            pole8 := 'key_operation';

            pole9 := 'key_gruz';

            pole10 := 'weight';

            pole11 := 'n_dor_ved';

            pole12 := 'n_ved';

            pole13 := 'key_vagon';


            with SelectQ do

              begin

               First;

               while (not Eof) do

                begin

                if (ForEdit <> SelectQ['OSV.id']) then

                  begin

                   if ((SelectQ[pole11] = ToIns10)and(SelectQ[pole12] = ToIns11)) then

                     begin

                      YN:=true;

                      Break;

                     end;

                   end; 

                 Next;

                end;

             end;

            if InsEdit4 then

              begin

               QueryString := 'UPDATE '+TBL+' SET '+pole2+'='+#39+ToIns+#39+','+pole3+'='+#39+ToIns2+#39+','+pole4+'='+#39+ToIns3+#39+','+pole5+'='+#39+ToIns4+#39+','+pole6+'='+#39+ToIns5+#39+','+pole7+'='+#39+ToIns6+#39+','+pole8+'='+#39+ToIns7+#39+','+pole9+'='+#39+ToIns8+#39+','+pole10+'='+#39+ToIns9+#39+','+pole11+'='+#39+ToIns10+#39+','+pole12+'='+#39+ToIns11+#39+','+pole13+'='+#39+ToIns12+#39+' where '+pole1+'='+ForEdit;

               InsEdit4 := false;

              end

             else

               QueryString := 'insert into '+ TBL +' ('+pole2+', '+pole3+', '+pole4+', '+pole5+', '+pole6+', '+pole7+', '+pole8+', '+pole9+', '+pole10+', '+pole11+', '+pole12+', '+pole13+') values ('+#39+ToIns+#39+', '+#39+ToIns2+#39+', '+#39+ToIns3+#39+', '+#39+ToIns4+#39+', '+#39+ToIns5+#39+', '+#39+ToIns6+#39+', '+#39+ToIns7+#39+', '+#39+ToIns8+#39+', '+#39+ToIns9+#39+', '+#39+ToIns10+#39+', '+#39+ToIns11+#39+', '+#39+ToIns12+#39+')';

         end;


      if (Tbl='Uslugi_sv') then

         begin

            SelectQ := DataModule2.Quslugi;

            pole1 := 'id';

            pole2 := 'zakaz';

            pole3 := 'key_vagon';

            pole4 := 'key_uslugi';

            pole5 := 'key_na';

            pole6 := 'key_s';

            pole7 := 'cena';

            pole8 := '';

            pole9 := '';

            pole10 := '';

            pole11 := '';

            pole12 := '';

            pole13 := '';


            with SelectQ do

              begin

               First;

               while (not Eof) do

                begin

                if (ForEdit <> SelectQ['USV.id']) then

                  begin

                 if (SelectQ[pole2] = ToIns) then

                   begin

                    YN:=true;

                    Break;

                   end;

                  end;

                 Next;

                end;

             end;

            if InsEdit5 then

              begin

                Polya := pole2+'='+#39+ToIns+#39+','+pole3+'='+#39+ToIns2+#39+','+pole4+'='+#39+ToIns3+#39+','+pole5+'='+#39+ToIns4+#39+','+pole6+'='+#39+ToIns5+#39+','+pole7+'='+#39+ToIns6+#39;

                QueryString := 'UPDATE '+TBL+' SET '+Polya+' where '+pole1+'='+ForEdit;

                InsEdit5 := false;

              end

             else

                QueryString := 'insert into '+ TBL +' ('+pole2+', '+pole3+', '+pole4+', '+pole5+', '+pole6+', '+pole7+') values ('+#39+ToIns+#39+', '+#39+ToIns2+#39+', '+#39+ToIns3+#39+', '+#39+ToIns4+#39+', '+#39+ToIns5+#39+', '+#39+ToIns6+#39+')';

         end;


  if (YN = false) then

    begin

      ShowMessage(QueryString);

      with SelectQ do

        begin

          Close;

          SQL.Clear;

          SQL.Add(QueryString);

          ExecSQL;

        end;

      end

     else

      ShowMessage('Ëèáî òàêàÿ çàïèñü åñòü, ëèáî çàïèñü ââåäåíà íå êîððåêòíî');

end;


Procedure DelZapros();

var

   TmpString: string;

begin

  TmpString := 'delete from '+ TBL +' where ' + pole1 +'=' + ForDel;

//  ShowMessage(TmpString);

  with DataModule2.Query1 do

     begin

       Close;

       SQL.Clear;

       SQL.Add(TmpString);

       ExecSQL;

     end;

end;


Procedure SelTab();

begin

  if (Tbl = 'Rod_vagona') then

    begin

       Form6.Edit9.Text := SelectQ[pole2];

       Form6.Edit9.Tag := SelectQ[pole1];

    end;

  if (Tbl = 'Raion_dvizheniya') then

    begin

       Form6.Edit10.Text := SelectQ[pole2];

       Form6.Edit10.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Station')and(Form3.Caption = 'Ñòàíöèÿ îòïðàâèòåëü') then

    begin

       Form7.Edit1.Text := SelectQ[pole2];

       Form7.Edit1.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Station')and(Form3.Caption = 'Ñòàíöèÿ ïîëó÷àòåëü') then

    begin

       Form7.Edit7.Text := SelectQ[pole2];

       Form7.Edit7.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Front')and(Form3.Caption = 'Ôðîíò îòïðàâèòåëü') then

    begin

       Form7.Edit2.Text := SelectQ[pole2];

       Form7.Edit2.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Front')and(Form3.Caption = 'Ôðîíò ïîëó÷àòåëü') then

    begin

       Form7.Edit8.Text := SelectQ[pole2];

       Form7.Edit8.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Operation') then

    begin

       Form7.Edit9.Text := SelectQ[pole2];

       Form7.Edit9.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Gruz') then

    begin

       Form7.Edit10.Text := SelectQ[pole2];

       Form7.Edit10.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Ceha')and(Form3.Caption = 'Öåõ çàêàç÷èê') then

    begin

       Form8.Edit2.Text := SelectQ[pole2];

       Form8.Edit2.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Ceha')and(Form3.Caption = 'Öåõ èñïîëíèòåëü') then

    begin

       Form8.Edit3.Text := SelectQ[pole2];

       Form8.Edit3.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Vid_uslug') then

    begin

       Form5.Edit1.Text := SelectQ[pole2];

       Form5.Edit1.Tag := SelectQ[pole1];

    end;


  if (Tbl = 'Ves') then

    begin

       Form5.Edit2.Text := SelectQ[pole2];

       Form5.Edit2.Tag := SelectQ[pole1];

    end;

end;


Procedure ForReport();

var

   Polya, Tabli, Tabli2, Svyaz, Svyaz2, QueryString : string;

begin

    Polya := 'n_dor_ved,invent_nomer,OSV.mydate, OSV.mytime,STN.station as STN,FN.front as FN,CNA.n_ceha as NA,CNA.bal_schet as BSO,STK.station as STK,FK.front as FK,CS.n_ceha as CS,CS.bal_schet as CBS,G.gruz,VU.vid_uslug,VE.ves,weight,cena';

    Tabli := 'Vagon V, Rod_vagona RV, Raion_dvizheniya RD, Operations_s_vagonom OSV, Uslugi_sv USV, Stoimost ST, Vid_uslug VU, Ves VE, Ceha CNA, Ceha CS, Station STN, Station STK';

    Tabli2 := 'Front FN, Front FK, Operation OP, Gruz G';

    Svyaz := 'V.key_rod_vagona=RV.id and V.key_raion_dvizh=RD.id and V.id=OSV.key_vagon and OSV.id=USV.key_vagon and ST.id=USV.key_uslugi and VU.id=ST.key_vid_uslug and VE.id=ST.key_ves and USV.key_na=CNA.id and USV.key_s=CS.id';

    Svyaz2 := 'STN.id=OSV.key_station_otpr and STK.id=key_Station_naznach and FN.id=OSV.key_front_otpr and FK.id=OSV.key_front_naznach and OSV.key_operation=OP.id and OSV.key_gruz=G.id';


    if ForSort then

      begin

        QueryString := 'select '+Polya+' from '+Tabli+ ', '+ Tabli2 +' where '+Svyaz + ' and ' + Svyaz2 + ' order by '+ ForOrder;

      end;


    if ForFiltr then

      begin

        QueryString := 'select '+Polya+' from '+Tabli+ ', '+ Tabli2 +' where '+Svyaz + ' and ' + Svyaz2 + ' and '+ TmpFiltr;

      end;


    if ((ForSort=false)and(ForFiltr=False)) then

      begin

       QueryString := 'select '+Polya+' from '+Tabli+ ', '+ Tabli2 +' where '+Svyaz + ' and ' + Svyaz2 + ' order by invent_nomer desc';

Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29
2012 © Âñå ïðàâà çàùèùåíû
Ïðè èñïîëüçîâàíèè ìàòåðèàëîâ àêòèâíàÿ ññûëêà íà èñòî÷íèê îáÿçàòåëüíà.