Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 55 odgovora
  • 14.184 pregleda

Najnovija ↓

Re: Otvaranje formi,na koji nacin 27.11.2013. u 13:26 · pre 157 meseci #41
Vjerojatno negdje ubiješ frmproj prije nego se pozoveš na njezin edit i naravno da ga tvoj report više ne vidi.
Potpis
F
Re: Otvaranje formi,na koji nacin 27.11.2013. u 15:40 · pre 157 meseci #42
verovatnoa,li gde ga ubijam.....ja kada stavim kod frmpoj,pa tacka,meni izlazi koje mogucnosti u toj formi,sve,pa i ova edit1.....
Re: Otvaranje formi,na koji nacin 27.11.2013. u 17:37 · pre 157 meseci #43
Ne mora značiti da je taj problem koji sam ti rekao. Na kojoj liniji ti baci violation? Stavi break pa idi liniju po liniju. Ako ti stane na toj liniji onda je skoro pa sigurno taj problem. Btw, lakše ti je da samo proslijediš varijablu nego da pozivaš cijelu formu. Ili možeš još u frmproj npr.

Code (delphi):
QReport := TQReport.Create(self);
if Table1RedBr.AsInteger = strtoint(edit1.text) then
  begin
    QReport.QRDBText1.Enabled = False;
    //i tako sve redom
  end;
QReport.Preview; QReport.Release;


ili druga opcija, postaviš u QReport public varijablu intRedniBroj i onda

Code (delphi):
QReport := TQReport.Create(self);
QReport.intRedniBroj  := strtoint(edit1.text);
QReport.Preview; QReport.Release;


možeš koristiti i globalnu varijablu, niti jedan primjer mislim da nije loš...

Nakon frmproj. naravno da ti izlaze "mogućnosti" kada ti je frmproj u uses listi, ali to ne znači da ti možeš pozvati objekt iz frmproj (tedit) ako ti forma "ne postoji".

I za kraj samo mala napomena, lakše ti je izvrtiti dbedite nego pisati sve redom (ako postavljaš sve na true/false, a i ako ne možeš napraviti neki npr. array koji idu u filter a koji ne), znači (pišem iz glave, možda sam negdje napravio grešku, ali čisto da dobiješ dojam):

Code (delphi):
for i := 0 to ComponentCount - 1 do
begin
  if Components[i] is QRDBTextBox then
    QRDBTextBox.Components[i].Enabled := false;
end;
Potpis
F
Re: Otvaranje formi,na koji nacin 27.11.2013. u 17:59 · pre 157 meseci #44
I skini si ovo DelForExp već kada ti se neda sam uređivati kod

i onda Tools -> Source Formatter -> Whole project i onda če ti kod ličiti na nešto, ovako kako ti pišeš ri je jako nepregledno i teško je čitati kod.
Potpis
F
Re: Otvaranje formi,na koji nacin 27.11.2013. u 21:41 · pre 157 meseci
izmenjeno 2 puta, poslednji put popmilan76 27.11.2013. u 22:04
  1. popmilan7627.11.2013. u 22:04zapis iz teksta poruke
  2. popmilan7627.11.2013. u 21:54zapis iz teksta poruke
#45
Pokusao sam da to uradim vec u frmpoj,ali mi sada prikazuje samo praznu stranicu,samo sa zaglavljem.....

procedure TFrmPoj.BitBtn1Click(Sender: TObject);
var
stampasvih : TRepOdjave;

begin
stampasvih := TRepOdjave.Create(self);

try

if stampasvih.Table1RedBr.AsInteger = strtoint(edit1.text) then
begin

stampasvih.qrdbtext1.Enabled := true;
stampasvih.qrdbtext2.Enabled := true;
stampasvih.qrdbtext3.Enabled := true;
stampasvih.qrdbtext4.Enabled := true;
stampasvih.qrdbtext5.Enabled := true;
stampasvih.qrdbtext6.Enabled := true;
stampasvih.qrdbtext7.Enabled := true;
stampasvih.qrdbtext8.Enabled := true;

end
else
begin
stampasvih.qrdbtext1.Enabled := false;
stampasvih.qrdbtext2.Enabled := false;
stampasvih.qrdbtext3.Enabled := false;
stampasvih.qrdbtext4.Enabled := false;
stampasvih.qrdbtext5.Enabled := false;
stampasvih.qrdbtext6.Enabled := false;
stampasvih.qrdbtext7.Enabled := false;
stampasvih.qrdbtext8.Enabled := false;

end;

stampasvih.preview;

finally
stampasvih.free;
end;
end;

end.


ono sto meni zapravo treba,jeste da se stampa samo odredjen red,ako kliknem u edit 2,da stampa drugi red


tj. da podaci koje stampam budu u bilo kom redu,ali da izadje stampa u selektvanom redu....dakle,podaci koji su u tabeli u 10 redu,da ih ja stampam u 2
Re: Otvaranje formi,na koji nacin 28.11.2013. u 00:03 · pre 157 meseci #46
Mislim da nešto radiš jako krivo ali ne kužim šta točno radiš pa mi je teško otkriti problem.

Gdje otvaraš tablicu/dataset Table1RedBr.

Reci mi šta točno štampaš i onda ču ti moči bolje pomoći, možeš i na PM.

Citat:
dakle,podaci koji su u tabeli u 10 redu,da ih ja stampam u 2


Ako ti to znači da štampaš samo podatak u određenom REDU u tablici, onda ti onaj tvoj kod neče raditi, ili če štampati sve ili ništa.
Potpis
F
Re: Otvaranje formi,na koji nacin 28.11.2013. u 17:45 · pre 157 meseci #47
Baca gresku na ovaj deo table1redbr = frmpoj.edit1.text.....sve sam probao ,ali nece....ako stavim neki broj umesto edit,onda pokazuje taj red....
Re: Otvaranje formi,na koji nacin 28.11.2013. u 19:55 · pre 157 meseci #48
Onda je definitivno problem koji sam ti gore naveo. Gdje pozivaš report? Pokaži cijeli kod gdje ga pozivaš.
Potpis
F
Re: Otvaranje formi,na koji nacin 28.11.2013. u 20:35 · pre 157 meseci #49
Ovako pozivam report......

procedure TFrmPoj.BitBtn1Click(Sender: TObject);
var
stampasvih : TRepOdjave;


begin
stampasvih := TRepOdjave.Create(nil);

try


stampasvih.Table1.Active := true;
stampasvih.Preview;

finally

stampasvih.free;

end;
end;

end.


i stavio sam onaj kod od pre u detailband before print.....to radi u aplikaciji bez ovih modalformi...
Re: Otvaranje formi,na koji nacin 28.11.2013. u 23:32 · pre 157 meseci #50
Citat:
popmilan76:
Pokusao sam da to uradim vec u frmpoj,ali mi sada prikazuje samo praznu stranicu,samo sa zaglavljem.....

Code (delphi):
procedure TFrmPoj.BitBtn1Click(Sender: TObject);
var
  stampasvih : TRepOdjave;
begin
    stampasvih := TRepOdjave.Create(self);
  try
  if stampasvih.Table1RedBr.AsInteger   = strtoint(edit1.text) then
  begin
 stampasvih.qrdbtext1.Enabled := true;
end
else
begin
stampasvih.qrdbtext1.Enabled := false;
 end;
 stampasvih.preview;
  finally
       stampasvih.free;
     end;
end;

end.



A gdje otvaraš Table1?
Potpis
F
Re: Otvaranje formi,na koji nacin 28.11.2013. u 23:43 · pre 157 meseci #51
Stavim gore sa pocetka i taj kod ali opet nece....



stampasvih.Table1.Active := true;



I jos nesto,u vezi sa modalnim formama,kako refreshovati modalform,tj....kako refreshovati query.....da posle brisanja,nestanu delovi,koji su obrisani....znaci oni mi se pojavljuju u combobox1,ali kada izadjem pa udjem,oni nestanu...
Re: Otvaranje formi,na koji nacin 29.11.2013. u 10:53 · pre 157 meseci
izmenjeno 1 put, poslednji put popmilan76 29.11.2013. u 12:03
  1. popmilan7629.11.2013. u 12:03zapis iz teksta poruke
#52
Ovo za refreshovanje sam provalio to mi ne treba......ostaje samo ovaj qreport......

takodje,koja je razlika izmedju show i showmodal,znam da se modalna ne moze skinuti,ona je u focusu dok se ne ide na close...samo me zanima jel bolje koristiti show ili showmodal,kao i sta se obino stavlje u create aplikation,self,nil ili aplication....pitam iz razloga jer mi je komplikovanije sa modal,moram u kodu da stavljam if shoemodal= ok then,vec hocu da u samoj toj aplikaciju,u njegovom buttonu stavljam event....
Re: Otvaranje formi,na koji nacin 29.11.2013. u 14:59 · pre 157 meseci #53

nil - specifies that no object owns the form - and therefore a developer (you) is responsible for freeing the created form (by calling myForm.Free when you no longer need the form)
Self - specifies the object in which the method is called. If, for example, you are creating a new instance of a TMyForm form from inside a Button's OnClick handler (where this button is placed on a MainForm) - self refers to "MainForm". Thus, when the MainForm is freed - it will also free "MyForm".
Application - specifies a global TApplication type variable created when you run your application. "Application" encapsulates your application as well as providing many functions that occur in the background of the program.


Code (delphi):
ShowModal = mrOk


Ne možeš na ovo gledati da li ti se da ili ne da pisati. Ako ti treba modalni rezultat onda moraš raditi tako, kako ti je netko od kolega bio napomenuo, na modalnoj formi postaviš button sa ModalResult = mrOk, mrCancel ili šta ti već treba.

Forme općenito
Communicating between forms
Forme

Za QR koristi Prevoew, PreviewModal sam skoro siguran da ti ne treba.

Mislim da moraš negdje malo pročitati/proučiti osnove jer ovako samo pogađaš i ustvari neznaš šta točno radiš, a to nije dobro, imati češ kasnije ozbiljnih problema. Prouči dobro gornje linkove i google is your friend :)

Potpis
F
Re: Otvaranje formi,na koji nacin 29.11.2013. u 15:54 · pre 157 meseci #54
Ma to je jesno,i pogledao sam...ja bih samo hteo da radim kao i do sada,znaci sa show,ali da mi forme ne budu u autocreate...da se ne kreiraju sve odjednom...imam par aplikacija koje dozvoljavam tako jer nemaju mnogo formi,ali neke preko 10 tak,moram ovako...I sta znaci modalna forma,jel ona samo za citanje ili ne....pozdrav
Re: Otvaranje formi,na koji nacin 29.11.2013. u 16:52 · pre 157 meseci #55
Citat:
popmilan76: Ma to je jesno,i pogledao sam...ja bih samo hteo da radim kao i do sada,znaci sa show,ali da mi forme ne budu u autocreate...da se ne kreiraju sve odjednom...imam par aplikacija koje dozvoljavam tako jer nemaju mnogo formi,ali neke preko 10 tak,moram ovako...


Pa onda radi sa show ako želiš tako. Pitanje je šta ti treba a ne šta želiš. Show i ShowModal nema direktne veze sa time gdje se forma kreira. Opet bi ti citirao gornji post, isto kao i na ovo dolje pitanje. U linkovima imaš jako dobro opisano kako točno funkcioniraju modalne forme i čemu služe.

Citat:
popmilan76:I sta znaci modalna forma,jel ona samo za citanje ili ne....pozdrav


Potpis
F
Re: Otvaranje formi,na koji nacin 01.12.2013. u 18:42 · pre 157 meseci #56
Kako da u qreportu znam koji je koji red...dakle zelim da na recimo peti red,prikazem sedmi red iz tabele...izlistam jedan record u dbgridu,pomocu query i kada recimo kliknem na desni klik,i pokazem stampu,da izadje forma sa editom,u kojoj cu kucati taj red,recimo peti, koji treba da se prikaze,i da nista drugo ne bude prikazano sem petog reda,sa podacima iz dbgrida....Jel to moguce...
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme