[es] - Otvaranje formi,na koji nacin

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Otvaranje formi,na koji nacin

^{27.11.2013. u 12:26 - pre 126 meseci}

Vjerojatno negdje ubiješ frmproj prije nego se pozoveš na njezin edit i naravno da ga tvoj report više ne vidi.

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1343
*.ptt.rs.

+5 Profil

Re: Otvaranje formi,na koji nacin

^{27.11.2013. u 14:40 - pre 126 meseci}

verovatnoa,li gde ga ubijam.....ja kada stavim kod frmpoj,pa tacka,meni izlazi koje mogucnosti u toj formi,sve,pa i ova edit1.....

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Otvaranje formi,na koji nacin

^{27.11.2013. u 16:37 - pre 126 meseci}

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;

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Otvaranje formi,na koji nacin

^{27.11.2013. u 16:59 - pre 126 meseci}

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.

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1343
*.dynamic.sbb.rs.

+5 Profil

Re: Otvaranje formi,na koji nacin

^{27.11.2013. u 20:41 - pre 126 meseci}

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

_{[Ovu poruku je menjao popmilan76 dana 27.11.2013. u 21:54 GMT+1]}

_{[Ovu poruku je menjao popmilan76 dana 27.11.2013. u 22:04 GMT+1]}

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Otvaranje formi,na koji nacin

^{27.11.2013. u 23:03 - pre 126 meseci}

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.

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1343
*.dynamic.sbb.rs.

+5 Profil

Re: Otvaranje formi,na koji nacin

^{28.11.2013. u 16:45 - pre 126 meseci}

Baca gresku na ovaj deo table1redbr = frmpoj.edit1.text.....sve sam probao ,ali nece....ako stavim neki broj umesto edit,onda pokazuje taj red....

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Otvaranje formi,na koji nacin

^{28.11.2013. u 18:55 - pre 126 meseci}

Onda je definitivno problem koji sam ti gore naveo. Gdje pozivaš report? Pokaži cijeli kod gdje ga pozivaš.

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1343
*.dynamic.sbb.rs.

+5 Profil

Re: Otvaranje formi,na koji nacin

^{28.11.2013. u 19:35 - pre 126 meseci}

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...

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Otvaranje formi,na koji nacin

^{28.11.2013. u 22:32 - pre 126 meseci}

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?

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1343
*.dynamic.sbb.rs.

+5 Profil

Re: Otvaranje formi,na koji nacin

^{28.11.2013. u 22:43 - pre 126 meseci}

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...

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1343
*.dynamic.sbb.rs.

+5 Profil

Re: Otvaranje formi,na koji nacin

^{29.11.2013. u 09:53 - pre 126 meseci}

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....

_{[Ovu poruku je menjao popmilan76 dana 29.11.2013. u 12:03 GMT+1]}

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Otvaranje formi,na koji nacin

^{29.11.2013. u 13:59 - pre 126 meseci}

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 :)

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1343
*.ptt.rs.

+5 Profil

Re: Otvaranje formi,na koji nacin

^{29.11.2013. u 14:54 - pre 126 meseci}

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

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Otvaranje formi,na koji nacin

^{29.11.2013. u 15:52 - pre 126 meseci}

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

Citat:

captPicard:
Forme općenito
Communicating between forms
Forme

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1343
*.dynamic.sbb.rs.

+5 Profil

Re: Otvaranje formi,na koji nacin

^{01.12.2013. u 17:42 - pre 126 meseci}

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...

Odgovor na temu