Anonymní profil Krpik – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Anonymní profil Krpik – Programujte.comAnonymní profil Krpik – Programujte.com

 

Příspěvky odeslané z IP adresy 46.174.58.–

Delphi › Rozdělení mysql příkazu
14. 1. 2019   #382794

#14 MilanL
Děkuji již jsem dneska dopoledne na to ještě mrknul a našel odpověd

  adoQuery2.SQL.Text :='CREATE or Replace view view_platby_karty ' + - dal jsem za každý řádek pro spojení scriptu

                    ' as select DATE_FORMAT

dále jsem si tam přidal ADOQuery2.ExecSQL(); a jede to 

asi to není nejlepší řešení přestal mi fungovat IF ELSE kdyby mi to nic nenačetlo tak abych věděl

     if AdoQuery2.IsEmpty then
     ShowMessage('Nic nenalezeno')

              else
     ShowMessage('Načteno');

to už je ale jiný příběh 

Děkuji všem za pomoc

Delphi › Rozdělení mysql příkazu
13. 1. 2019   #382780

#9 jerry
Ja jedu na počítači na mysql 5 , to bude vadit ne?

Delphi › Rozdělení mysql příkazu
13. 1. 2019   #382778

#7 Kit
jsou to dva jeden vytvoří tabulku ze selectem a druhy mi z ní vypíše hodnoty

CREATE or Replace view `view_platby_karty`
 as select
 DATE_FORMAT(s.closed,"%d.%m.%Y") datum, sum(case when s.storno=1 then 0 else CelkovaCena end) as trzba_celkem, 
SUM(case when s.storno=1 then 0 ELSE s.CelkovaCena/(100+s.SAZBA)*100 END) as zaklad_DPH, 
SUM(CASE WHEN COALESCE(s.SAZBA,0)=0 THEN s.CelkovaCena/((100+s.SAZBA)/100) ELSE 0 END )as bez_DPH, 
SUM(CASE WHEN s.SAZBA=21 THEN (s.CelkovaCena/1.21)*(s.SAZBA/100) ELSE 0 END )as dph21, SUM(CASE WHEN s.SAZBA=15 
THEN (s.CelkovaCena/1.15)*(s.SAZBA/100) ELSE 0 END )as dph15, SUM(CASE WHEN s.SAZBA=10 THEN (s.CelkovaCena/1.10)*(s.SAZBA/100) 
ELSE 0 END )as dph10, SUM(CASE WHEN s.SAZBA=21 THEN s.CelkovaCena-(s.CelkovaCena/1.21)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph21,
SUM(CASE WHEN s.SAZBA=15 THEN s.CelkovaCena-(s.CelkovaCena/1.15)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph15, 
SUM(CASE WHEN s.SAZBA=10 THEN s.CelkovaCena-(s.CelkovaCena/1.10)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph10 
from platby P inner join p_polozky s where p.id_ucty= s.id_ucty

and p.druh_platby_id =  '6'
and s.closed<>"0000-00-00%" AND s.storno<>1 AND DATE_FORMAT(s.closed,"%Y-%m-%d %H:%i") BETWEEN '2018-01-01'  AND  '2018-12-12'
 GROUP BY YEAR(s.closed), MONTH(s.closed),DAY(s.closed),s.id_ucty ;

píšu to jako

adoQuery2.SQL.text :='CREATE or Replace view `view_trzba_karty`';
               adoQuery2.SQL.text := adoQuery2.SQL.text + ' as select';

atd.

----------------

Teď dalším selectem dělám už sumy u DPH a vypíšu

 napsal bych to pod další button 

zde bych potom doplnil

Var
  i: integer;
  strT: string;
  slst: TStringList;

adoQuery1.SQL.Clear;
  adoQuery1.SQL.Add('select....

.slst:= TStringList.Create;
Try
  With DBGrid1.DataSource.DataSet Do
  begin
          First;
    while not Eof do
    begin
      strT:= ';'+Fields[0].AsString+';';
      for i:= 1 to FieldCount-1 do
        strT:= strT+';'+Fields[i].AsString+';';
      slst.Add(strT);
      Next;
    end;
          First;
  end;
  slst.SaveToFile('C:\data\test.xls');
Finally
  slst.Free;
End;

ale i když nechám ten první script pod jedním buttonem tak mě to nevytvoří tabulku a i když ten script by měl být správný

Delphi › Rozdělení mysql příkazu
13. 1. 2019   #382775

#5 MilanL
Děkuji tohle mi pomohl.

A náhodou nevíš jak tam napsat CREATE or Replace view `view_trzba_karty` ?

Pořád se mi to nedaří 

Mam zde dva selecty

CREATE or Replace view `view_trzba_karty` 

as select --- a teď mam select , který mi vyčte do tabulky view_trzba_karty vypočet DPH

za tím mám druhý select ,který vyčte z tabulky view_trzba_karty datum a  DPHačka na dvě desetina místa

Nechávám si to vyčíst celé do mema abych věděl jak to čte program to si zkopíruji do heidisql a tam mi script funguje

Delphi › Rozdělení mysql příkazu
11. 1. 2019   #382739

#2 jerry
Děkuji

Touhle cestou už bych asi nechtěl jít

program mam už hotový tohle je poslední příkaz co mi tam chybí. Mam to jen pro moje malé podnikání

Dlouhý příkaz co mam je potom rozdělení DPH pro  účetní

zaklad a daň z 15 a 21 % DPH, to mi krásně rozepíše a pak bych k tomu přidal uložení do CSV nebo txt 

Delphi › Rozdělení mysql příkazu
11. 1. 2019   #382737

Zdravím

Mam vytvořen script Select , který je ale dlouhý protože si potřebuji vypsat hodně tabulek a porovnat

Delphi mi nevezme tak velký příkaz do jednoho řádku

procedure TForm1.Button7Click(Sender: TObject);
begin
 with adoQuery1 do
  begin
  Active:=False;
      sql.clear;
     adoQuery1.SQL.Add  -- a zde bude dlouhý příkaz

Jak mohu příkaz rozdělit na více řádku aby se mi načetl jako jeden celý

děkuji

MySQL › SELECT_Vypsat_částky_dle_dph
9. 1. 2019   #382729

Zdravím

Mam program s databází 

V sql mam tabulky které teď potřebují porovnat a vypsat jak  potřebuji

tabulka prodej , platební_metoda,celkovy_prodej

V prodeji mám co si u mě zakoupí

JAKO Příklad

id 100 cd verbatin  množství 1ks  částka 10 kč DPH 15 

id 100 CD Karel Gott množství 1ks částka 200 kč DPH 15 

teď např něco z 21 % DPH

id 100 Pivo množství 1ks částka 10 kč DPH 21 

Platební metody mam id 1 to je hotově , id 2 to je kartou

celkovy_prodej 

zde mam celkovou částku tedy finální za ten nákup položek

tedy příklad

ID 1 , ID_prodej 100 Celkova castka 220 typ_platby 2

Zajímá mě co jsem celkově prodal v kartě a mít to rozepsáno jako částka v 15% DPH a 21% DPH

ve finále by to mělo být

částka     DPH

210            15

10              21

Je to jen příklad jde mi o script zda by jste někdo nevěděl 

Děkuji předem

Delphi › Více příkazu DELETE pro jede…
2. 12. 2018   #382507

#3 gna
No ale pomohl jsi mi tím slovem multi-statement :-D vygooglil jsem to a našel

Už jsem nevěděl jak to hledat

Za každý příkaz dat ExecSQL;  SQL.Clear; a je to

Děkuji

Delphi › Více příkazu DELETE pro jede…
2. 12. 2018   #382504

Zdravím, 

Mám aplikaci pro jednoduchý sklad a prodej

Používám k tomu mysql databázi

Zde bych chtěl udělat program , který mi smaže data ke dni

takže jsem si udělal nový program kde mam button a textedit

Do textedit zadávám datum např. 2018-01-01

Button mi projede příkazy

procedure TForm1.Button2Click(Sender: TObject);

begin


with adoQuery1 do
  begin

    Active:=False;
      sql.clear;

 adoQuery1.SQL.Add('Delete from prodej where Cas < '+ QuotedStr(Edit1.Text));

adoQuery1.SQL.Add('DELETE FROM inventura WHERE  timestamp  < '+ QuotedStr(Edit1.Text)); ;

   adoQuery1.SQL.Add('DELETE FROM prodej_polozek WHERE Cas < '+ QuotedStr(Edit1.Text));

tedy bude to vypadat jako 

 adoQuery1.SQL.Add('Delete from prodej where Cas < ' '2018-01-01'));

Problém je že mi to smaže jen data z jedné tabulky

můžete mi poradit co zde přidat aby mi button smazal všechny tři tabulky?

Krpik
C / C++ › C+ doplnění do labelu
13. 9. 2016   #212676

Dobrý den

Mám tři text boxy a jeden LABEL

Program by měl fungovat:
Label bude mít v sobě číslo 0.V textboxu 1,2 se zapíše 0.Pokud do Textboxu 1 nebo 2 napíší číslo 1 změní se číslo v labelu na 1.
třetí text box bude mít napsán číslo 1 .Nesmí se ale změnit label na 1 ten bude pořád 0.Pokud třetí textbox změním na číslo 0, Číslo v Labelu se změní na 1.

vždy se bude bude měnit pouze jeden textbox .Buttonem se vráti vše do původní podoby tedy Textbox 1,2 bude mít číslo 0.Textbox 3 bude mít číslo 1 a label číslo 0

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032019 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý