Radim u D3 ,sa paradox tabelom kao bayom,,,e stavio sam na edit (uppercase)velika slova,font charset easterneurope,i sada kada kucam slovo ć,i predjem u drugi edit tabom,to je dobro,ali za sve drugo nije dobro,za č,hoce samo malo,kada je veliko prebaci ga u nesto bezveze,a kod đ,ž,š,skine samo kvacice gore i bude s,d,z...Kako da to uradim da bude dobro...Pozdrav
Hitno potrebno resenje problema
Zaključano
Zakačeno
D3 nema podrsku za Unicode karaktere - probaj da nadjes unicode TNT komponente za starije verzije Delphija, one ti mozda mogu pomoci. Jedino drugo resenje je da predjes na noviju verziju Delphi-ja (>= D2009)
Koji font koristiš, probaj npr. Arial.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Koristim Arial black,zanimljivo je da hoce da ga prikaze dok ga kucam,ali kada izadjem iz polja,ono vrati na neke hiroglife....
> Koristim Arial black,zanimljivo je da hoce da ga prikaze dok ga kucam,ali kada izadjem iz polja,ono vrati na neke hiroglife....
Uzmi običan Arial. Da to nije DBEdit polje? Probaj sa običnim TEditom.
Uzmi običan Arial. Da to nije DBEdit polje? Probaj sa običnim TEditom.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
izmenjeno 1 put, poslednji put popmilan76 17.12.2012. u 20:55
Izmene poruke
- popmilan7617.12.2012. u 20:55zapis iz teksta poruke
Jeste dbedit polje,i hoce sa edit za sada...Hvala i moze li se urediti da bude i na dbeditu...
U stvari znacilo bi mi da bude u dbeditu,jer ako nije tako,imam dosta toga da menjam,a i da stavim obican edit,opet u reportu mi pokazuje hiroglife....
U stvari znacilo bi mi da bude u dbeditu,jer ako nije tako,imam dosta toga da menjam,a i da stavim obican edit,opet u reportu mi pokazuje hiroglife....
> Jeste dbedit polje,i hoce sa edit za sada...Hvala i moze li se urediti da bude i na dbeditu...
Do promene iz naših slova u nešto treće dolazi jer ti je tako baza setovana. Koristiš paradox, ne sećam se kakva je tu situacija sa podešavanjima jezika, potraži neku opciju gde ćeš takođe navesti da je u pitanju EASTERN_EUROPE charset, odnosno da se ne radi prevođenje karaktera (ono što otkućaš da se sačuva i koristi).
Do promene iz naših slova u nešto treće dolazi jer ti je tako baza setovana. Koristiš paradox, ne sećam se kakva je tu situacija sa podešavanjima jezika, potraži neku opciju gde ćeš takođe navesti da je u pitanju EASTERN_EUROPE charset, odnosno da se ne radi prevođenje karaktera (ono što otkućaš da se sačuva i koristi).
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Ali zanimljivo je da mi neka kuca,a neka ne kuca,recimo hoce veliko i malo ć,hoce samo malo č,a recimo š i đ,prevodi u s i d(sto je nekako i podnosljivo),jedino ž prebacuje u oznaku funte...cini mi se...
jos nesto...da li je moguce promeniti vrednosti u dbgridu koji je povezan sa bazom preko query,ja imam ovaj kod koji je jedno vreme radio,pa posle nece,prijavljuje gresku da je dataset not edit or insert....
PRETRAGA.Query1.Edit;
PRETRAGA.Query1RedBr.Value := strtofloat(edit4.text);
PRETRAGA.Query1NAZIVKORISNIKA.Value := EDIT1.Text ;
PRETRAGA.Query1ADRESA.Value := EDIT2.Text ;
PRETRAGA.Query1REON.Value := EDIT3.Text ;
PRETRAGA.Query1OPUNOMOCENALICA.Value := MEMO1.Text ;
PRETRAGA.Query1PRIMLJENODANA.Value := DATETIMEPICKER1.Date ;
PRETRAGA.Query1DO1.Value := DATETIMEPICKER2.Date ;
PRETRAGA.Query1.Post;
PRETRAGA.Query1.Edit;
PRETRAGA.Query1RedBr.Value := strtofloat(edit4.text);
PRETRAGA.Query1NAZIVKORISNIKA.Value := EDIT1.Text ;
PRETRAGA.Query1ADRESA.Value := EDIT2.Text ;
PRETRAGA.Query1REON.Value := EDIT3.Text ;
PRETRAGA.Query1OPUNOMOCENALICA.Value := MEMO1.Text ;
PRETRAGA.Query1PRIMLJENODANA.Value := DATETIMEPICKER1.Date ;
PRETRAGA.Query1DO1.Value := DATETIMEPICKER2.Date ;
PRETRAGA.Query1.Post;
Ili da preformulisem pitanje,kako da znam da li je dataset u edit ili insert mode...
> jos nesto...da li je moguce promeniti vrednosti u dbgridu koji je povezan sa bazom preko query,ja imam ovaj kod koji je jedno vreme radio,pa posle nece,prijavljuje
> gresku da je dataset not edit or insert....
Moguće je ali ti treba updatesql (ili tako nešto) komponenta povezana na kveri komponentu koja prikazuje podatke u gridu.
Prema ovom kodu ti izgleda to radiš ručno (nije vezano za grid), tu je bolje da koristiš parametre i napišeš odgovarajući UPDATE izraz pa da vrednosti polja ubacuješ preko parametara.
> gresku da je dataset not edit or insert....
Moguće je ali ti treba updatesql (ili tako nešto) komponenta povezana na kveri komponentu koja prikazuje podatke u gridu.
Prema ovom kodu ti izgleda to radiš ručno (nije vezano za grid), tu je bolje da koristiš parametre i napišeš odgovarajući UPDATE izraz pa da vrednosti polja ubacuješ preko parametara.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Stavio sam i komponentu updatesql,i opet mi pokazuje da mi nije dataset insert or edit mode
pretraga.UpdateSQL1.DataSet.CancelUpdates ;
PRETRAGA.Query1.Edit;
PRETRAGA.Query1RedBr.Value := strtofloat(edit4.text);
PRETRAGA.Query1NAZIVKORISNIKA.Value := EDIT1.Text ;
PRETRAGA.Query1ADRESA.Value := EDIT2.Text ;
PRETRAGA.Query1REON.Value := EDIT3.Text ;
PRETRAGA.Query1OPUNOMOCENALICA.Value := MEMO1.Text ;
PRETRAGA.Query1PRIMLJENODANA.Value := DATETIMEPICKER1.Date ;
PRETRAGA.Query1DO1.Value := DATETIMEPICKER2.Date ;
PRETRAGA.Query1.Post;
pretraga.UpdateSQL1.DataSet.ApplyUpdates;
pretraga.UpdateSQL1.DataSet.CancelUpdates ;
PRETRAGA.Query1.Edit;
PRETRAGA.Query1RedBr.Value := strtofloat(edit4.text);
PRETRAGA.Query1NAZIVKORISNIKA.Value := EDIT1.Text ;
PRETRAGA.Query1ADRESA.Value := EDIT2.Text ;
PRETRAGA.Query1REON.Value := EDIT3.Text ;
PRETRAGA.Query1OPUNOMOCENALICA.Value := MEMO1.Text ;
PRETRAGA.Query1PRIMLJENODANA.Value := DATETIMEPICKER1.Date ;
PRETRAGA.Query1DO1.Value := DATETIMEPICKER2.Date ;
PRETRAGA.Query1.Post;
pretraga.UpdateSQL1.DataSet.ApplyUpdates;
izmenjeno 1 put, poslednji put popmilan76 19.12.2012. u 12:21
Izmene poruke
- popmilan7619.12.2012. u 12:21zapis iz teksta poruke
Molio bih Vas ako mozete da mi pomognete u vezi ovoga,vrlo su cudne greke,slicne kodove imam i u drugim aplikacijama i tamo rade,a ovde nece,sta sam mogao uraditi da mi se desi tako nesto,ako ne moze da se ubaci tj,izmeni podatak u dbgridu,koji je u vezi sa query,prebacim da mi bude table veza sa dbgridom,i onda menjam ,pokazujemi isto da nije insert ili edit mode ....Ovo bi mi trebalo do veceras,inace sam pukao...
Jos nesto sam video,a to je da u Database desctop kada otvorim tabelu paradox i pokusam da je restrtructure,pojavljuje mi access dennied,i ima neku putanju...
Jos nesto sam video,a to je da u Database desctop kada otvorim tabelu paradox i pokusam da je restrtructure,pojavljuje mi access dennied,i ima neku putanju...
Citat:
popmilan76:
Ili da preformulisem pitanje,kako da znam da li je dataset u edit ili insert mode...
Ili da preformulisem pitanje,kako da znam da li je dataset u edit ili insert mode...
Code:
If (DataSet.State in [dsEdit, dsInsert]) then
If (DataSet.State in [dsEdit, dsInsert]) then
Potpis
F
> Stavio sam i komponentu updatesql,i opet mi pokazuje da mi nije dataset insert or edit mode
Pogledaj u helpu (ili u nekim primerima) kako se radi sa updatesql komponentom, sa njom ti ne treba PRETRAGA.Query1 za update tabele.
Zaboravi na Edit, Post sa kveri komponentama. Napiši klasičan update sql izraz, npr:
> Jos nesto sam video,a to je da u Database desctop kada otvorim tabelu paradox i pokusam da je restrtructure,pojavljuje mi access dennied,i ima neku putanju...
Pa kakva putanja, šta se u njoj nalazi. Možda negde držiš tabelu otvorenu, pre izmene strukture, zatvori Delphi i program koji radi sa tom tabelom.
Pogledaj u helpu (ili u nekim primerima) kako se radi sa updatesql komponentom, sa njom ti ne treba PRETRAGA.Query1 za update tabele.
Zaboravi na Edit, Post sa kveri komponentama. Napiši klasičan update sql izraz, npr:
Code:
Query.SQL :=
'UPDATE ' +
'NAZIV_TABELE ' +
'SET ' +
'REDNI_BROJ = :RedBr, ' +
'ADRESA = :Adr ' + // Dodaj ostala polja
'WHERE ' +
'TABlE_ID = :Id';
Query.Prepare; // Ili tako nesto
Query.Params[0] := RedniBroj;
Query.Params[1] := Adresa;
Query.Params[2] := ID_sloga_koji_menjas;
Query.ExecSql;
Query.SQL :=
'UPDATE ' +
'NAZIV_TABELE ' +
'SET ' +
'REDNI_BROJ = :RedBr, ' +
'ADRESA = :Adr ' + // Dodaj ostala polja
'WHERE ' +
'TABlE_ID = :Id';
Query.Prepare; // Ili tako nesto
Query.Params[0] := RedniBroj;
Query.Params[1] := Adresa;
Query.Params[2] := ID_sloga_koji_menjas;
Query.ExecSql;
> Jos nesto sam video,a to je da u Database desctop kada otvorim tabelu paradox i pokusam da je restrtructure,pojavljuje mi access dennied,i ima neku putanju...
Pa kakva putanja, šta se u njoj nalazi. Možda negde držiš tabelu otvorenu, pre izmene strukture, zatvori Delphi i program koji radi sa tom tabelom.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Capticard----pokusao sam i to,i opet nece,cak sam stavio i kod da mi pokazuije da li je u editor mode ili ne...nesto ovako
if table1.State in [dsEdit, dsInsert] then
showmessage('jeste')
else
showmessage('nije')
i uvek pokazuje da nije.....
ne mogu uopste da menjam dbgrid,kada kliknem na njega da ga izmenim,on nece nista da izmeni.....
Ajd probacu ovo sto kazes sa obicnim update...pa se javljam...
toliko gluposti jos nisma video.....
if table1.State in [dsEdit, dsInsert] then
showmessage('jeste')
else
showmessage('nije')
i uvek pokazuje da nije.....
ne mogu uopste da menjam dbgrid,kada kliknem na njega da ga izmenim,on nece nista da izmeni.....
Ajd probacu ovo sto kazes sa obicnim update...pa se javljam...
toliko gluposti jos nisma video.....
Unit4, imaš:
procedure TPretraga.Query1AfterEdit(DataSet: TDataSet);
begin
QUERY1.FlushBuffers;
end;
Čim uđeš u edit mod, uradio si flushbuffers i on izađe iz edit mod-a.
FlushBuffers odradi na drugom mestu.
Bilo bi dobro da proveriš pre zatvaranja upita/tabele da li je uopšte dataset aktivan, jer ti baca greške.
procedure TPretraga.Query1AfterEdit(DataSet: TDataSet);
begin
QUERY1.FlushBuffers;
end;
Čim uđeš u edit mod, uradio si flushbuffers i on izađe iz edit mod-a.
FlushBuffers odradi na drugom mestu.
Bilo bi dobro da proveriš pre zatvaranja upita/tabele da li je uopšte dataset aktivan, jer ti baca greške.
Najbolji savjet koji ti mogu dati je da pređeš na npr. Firebird koji je besplatan i odlično klapa sa Delphi-em.
Potpis
F
I još jedan općeniti savjet, probaj urednije pisati kod, ovo je jako teško čitati.
Ovo:
Bi bilo puno elegantnije da napraviš u npr. samo jednom DBEdit-u:
i onda ostale samo povežeš na njega za npr. OnEnter metodu.
Ovo:
Code:
procedure TUnos.DBEdit2Enter(Sender: TObject);
begin
dbedit2.Color := clyellow;
end;
procedure TUnos.DBEdit2Exit(Sender: TObject);
begin
dbedit2.Color := clwindow;
end;
procedure TUnos.DBEdit5Exit(Sender: TObject);
begin
dbedit5.Color := clwindow;
end;
procedure TUnos.DBEdit5Enter(Sender: TObject);
begin
dbedit5.Color := clyellow;
end;
procedure TUnos.DBEdit4Exit(Sender: TObject);
begin
dbedit4.Color := clwindow;
end;
procedure TUnos.DBEdit4Enter(Sender: TObject);
begin
dbedit4.Color := clyellow;
end;
procedure TUnos.DBMemo1Enter(Sender: TObject);
begin
dbmemo1.Color := clyellow;
end;
procedure TUnos.DBMemo1Exit(Sender: TObject);
begin
dbmemo1.Color := clwindow;
end;
procedure TUnos.DBEdit2Enter(Sender: TObject);
begin
dbedit2.Color := clyellow;
end;
procedure TUnos.DBEdit2Exit(Sender: TObject);
begin
dbedit2.Color := clwindow;
end;
procedure TUnos.DBEdit5Exit(Sender: TObject);
begin
dbedit5.Color := clwindow;
end;
procedure TUnos.DBEdit5Enter(Sender: TObject);
begin
dbedit5.Color := clyellow;
end;
procedure TUnos.DBEdit4Exit(Sender: TObject);
begin
dbedit4.Color := clwindow;
end;
procedure TUnos.DBEdit4Enter(Sender: TObject);
begin
dbedit4.Color := clyellow;
end;
procedure TUnos.DBMemo1Enter(Sender: TObject);
begin
dbmemo1.Color := clyellow;
end;
procedure TUnos.DBMemo1Exit(Sender: TObject);
begin
dbmemo1.Color := clwindow;
end;
Bi bilo puno elegantnije da napraviš u npr. samo jednom DBEdit-u:
Code:
TDBEdit(Sender).Color := clYellow;
TDBEdit(Sender).Color := clYellow;
i onda ostale samo povežeš na njega za npr. OnEnter metodu.
Potpis
F
Hvala DERANE,to je to.....znao sam da je neka glupost....Hvala i tebi Capticard na savetima,aljkavost mi jeste mana inace,a ovde ima malo i ne znanja....Hvala puno.