/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
DBCheckBox problem !
Fra : Anders Holm Jensen


Dato : 16-01-02 13:29

Hej

Jeg har et DBCheckBox problem ! Når jeg sætter DBCheckBox true med et flue
ben, udføre den ikke "TRUE" handlingen, og omvendt ved false.

Hvorfor virker det ikke ????

procedure TFTimeFak.DBCheckBox2Click(Sender: TObject);
var FakG :real;
indstillinger: Tindstillinger;
IndFil: file of Tindstillinger;
begin
AssignFile(Indfil, filnavn);
try
Reset(Indfil);
Read(Indfil, indstillinger);
FakG := indstillinger.Fakgebyr;
finally
CloseFile(Indfil);
end;

tblTimeFaktura.edit;

if tblTimeFaktura['Fakgebyr'] = true then //Er prøvet med
DBCheckBox.checked = true
begin
DBEdit5.color := clWindow;
DBEdit5.enabled := true;
if tblTimeFaktura['Fakgebyrpris'] = 0.00 then
begin
tblTimeFaktura['Fakgebyrpris'] := FakG;
tblTimeFaktura['Moms'] := (tblTimeFaktura['Moms'] +
(tblTimeFaktura['Fakgebyrpris'] * 0.25));
tblTimeFaktura['Prisialt'] := (tblTimeFaktura['Prisialt'] +
(tblTimeFaktura['Fakgebyrpris'] * 1.25));
end;
end;

if tblTimeFaktura['Fakgebyr'] = false then //Er prøvet med
DBCheckBox.checked = false
begin
DBEdit5.color := clSilver;
DBEdit5.enabled := false;
if tblTimeFaktura['Fakgebyrpris'] <> 0.00 then
begin
tblTimeFaktura['Moms'] := (tblTimeFaktura['Moms'] -
(tblTimeFaktura['Fakgebyrpris'] * 0.25));
tblTimeFaktura['Prisialt'] := (tblTimeFaktura['Prisialt'] -
(tblTimeFaktura['Fakgebyrpris'] * 1.25));
tblTimeFaktura['Fakgebyrpris'] := 0.00;
end;
end;
tblTimeFaktura.post;
tblTimeFaktura.refresh;
end;

--
Hilsen AHJ




 
 
Uffe Kousgaard (16-01-2002)
Kommentar
Fra : Uffe Kousgaard


Dato : 16-01-02 14:06

Hej

Fordi "click" sker før ændringen er skrevet til databasen. Derfor er
værdien modsat af hvad du ser efter du har klikket.

Du bør i øvrigt anvende single/double i stedet for real med mindre du
har gode grunde til det modsatte. Beregninger med real emuleres i
software fremfor direkte med CPU'ens floating point instruktioner.

Hilsen
Uffe

"Anders Holm Jensen" <ahjmw@stofanet.dk> wrote in message
news:3c457225$0$251$ba624c82@nntp02.dk.telia.net...
> Hej
>
> Jeg har et DBCheckBox problem ! Når jeg sætter DBCheckBox true med et
flue
> ben, udføre den ikke "TRUE" handlingen, og omvendt ved false.
>
> Hvorfor virker det ikke ????
>
> procedure TFTimeFak.DBCheckBox2Click(Sender: TObject);
> var FakG :real;
> indstillinger: Tindstillinger;
> IndFil: file of Tindstillinger;
> begin
> AssignFile(Indfil, filnavn);
> try
> Reset(Indfil);
> Read(Indfil, indstillinger);
> FakG := indstillinger.Fakgebyr;
> finally
> CloseFile(Indfil);
> end;



Anders Holm Jensen (16-01-2002)
Kommentar
Fra : Anders Holm Jensen


Dato : 16-01-02 15:36

Hvordan for jeg vendt den så det sker før ? er der en anden mulighed ?

Hilsen AHJ

"Uffe Kousgaard" <uffe@routeware.dk> skrev i en meddelelse
news:3c457ab3$0$80435$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Fordi "click" sker før ændringen er skrevet til databasen. Derfor er
> værdien modsat af hvad du ser efter du har klikket.
>
> Du bør i øvrigt anvende single/double i stedet for real med mindre du
> har gode grunde til det modsatte. Beregninger med real emuleres i
> software fremfor direkte med CPU'ens floating point instruktioner.
>
> Hilsen
> Uffe
>
> "Anders Holm Jensen" <ahjmw@stofanet.dk> wrote in message
> news:3c457225$0$251$ba624c82@nntp02.dk.telia.net...
> > Hej
> >
> > Jeg har et DBCheckBox problem ! Når jeg sætter DBCheckBox true med et
> flue
> > ben, udføre den ikke "TRUE" handlingen, og omvendt ved false.
> >
> > Hvorfor virker det ikke ????
> >
> > procedure TFTimeFak.DBCheckBox2Click(Sender: TObject);
> > var FakG :real;
> > indstillinger: Tindstillinger;
> > IndFil: file of Tindstillinger;
> > begin
> > AssignFile(Indfil, filnavn);
> > try
> > Reset(Indfil);
> > Read(Indfil, indstillinger);
> > FakG := indstillinger.Fakgebyr;
> > finally
> > CloseFile(Indfil);
> > end;
>
>



Uffe Kousgaard (16-01-2002)
Kommentar
Fra : Uffe Kousgaard


Dato : 16-01-02 15:55

"Anders Holm Jensen" <ahjmw@stofanet.dk> wrote in message
news:3c458fe2$0$260$ba624c82@nntp02.dk.telia.net...
> Hvordan for jeg vendt den så det sker før ? er der en anden mulighed ?
>
> Hilsen AHJ
>

brug NOT operatoren !



Anders Holm Jensen (16-01-2002)
Kommentar
Fra : Anders Holm Jensen


Dato : 16-01-02 16:44

Kan du ikke gir et lille eksempel på hvordan, for jeg har ikke helt fange
ideen endnu !

Hilsen AHJ

"Uffe Kousgaard" <uffe@routeware.dk> skrev i en meddelelse
news:3c45944b$0$80510$edfadb0f@dspool01.news.tele.dk...
> "Anders Holm Jensen" <ahjmw@stofanet.dk> wrote in message
> news:3c458fe2$0$260$ba624c82@nntp02.dk.telia.net...
> > Hvordan for jeg vendt den så det sker før ? er der en anden mulighed ?
> >
> > Hilsen AHJ
> >
>
> brug NOT operatoren !
>
>



Anders Holm Jensen (16-01-2002)
Kommentar
Fra : Anders Holm Jensen


Dato : 16-01-02 15:52

På det indslag før skulle det være efter istedet for før !!!!!!!

Hilsen AHJ
"Uffe Kousgaard" <uffe@routeware.dk> skrev i en meddelelse
news:3c457ab3$0$80435$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Fordi "click" sker før ændringen er skrevet til databasen. Derfor er
> værdien modsat af hvad du ser efter du har klikket.
>
> Du bør i øvrigt anvende single/double i stedet for real med mindre du
> har gode grunde til det modsatte. Beregninger med real emuleres i
> software fremfor direkte med CPU'ens floating point instruktioner.
>
> Hilsen
> Uffe
>
> "Anders Holm Jensen" <ahjmw@stofanet.dk> wrote in message
> news:3c457225$0$251$ba624c82@nntp02.dk.telia.net...
> > Hej
> >
> > Jeg har et DBCheckBox problem ! Når jeg sætter DBCheckBox true med et
> flue
> > ben, udføre den ikke "TRUE" handlingen, og omvendt ved false.
> >
> > Hvorfor virker det ikke ????
> >
> > procedure TFTimeFak.DBCheckBox2Click(Sender: TObject);
> > var FakG :real;
> > indstillinger: Tindstillinger;
> > IndFil: file of Tindstillinger;
> > begin
> > AssignFile(Indfil, filnavn);
> > try
> > Reset(Indfil);
> > Read(Indfil, indstillinger);
> > FakG := indstillinger.Fakgebyr;
> > finally
> > CloseFile(Indfil);
> > end;
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste