programma di fatturazione

[nomorelogic]

ciao
puoi usare ad esempio la TStringGrid

[maxt]

sono riuscito a selezionare l'intera riga con dbgrid.. ma non riesco a capire come associare al fatto che viene selezionata una riga l'esecuzione di uno spezzone di codice
non trovo l'evento onclick
ho usato il keydown ma ovviamente va bene solo per la tastiera
cioe' se clicco col mouse su una riga vorrei visualizare i dati relativi al record in alcune caselle di testo e non riesco a trovare l'evento giusto da usare

scusate se sto approfittando della vs gentilizza

[nomorelogic]

per fare quello che dici tu non hai bisogno di controllare l'evento OnClick della griglia ma devi semplicemente collegare altri data controls allo stesso data source della griglia.

se disponi ad esempio:
1 TDbGrid
1 TDbEdit
1 TDbText
ed associ tutti e tre allo stesso datasource avrai il comportamento che stai cercando senza scrivere codice

[maxt]

grazie per l'indicazione
proprio adesso sto provando questi componenti

non capisco come fai con questo codice (usando un campo edit) riesco a cancellare senza problemi
SQLQuery1.SQL.text:='DELETE FROM Student WHERE StudentID='+edit7.text +';';

mentre usando il tdbedit mi da un messaggio di errore:
SQLQuery1.SQL.text:='DELETE FROM Student WHERE StudentID='+dbedit4.text+';';

[Stilgar]

dbedit4??
UN editor dataware?
Non serve, devi lanciare il comando dal dataset, non da query.
Altrimenti il codice lo devi cambiare in :

Codice: [Seleziona]

QLQuery1.SQL.text:='DELETE FROM Student WHERE StudentID='+dbedit4.Field.asString+';';

(Il codice l'ho scritto a memoria)

[maxt]

non funzionava perche' prima del delete c'era un SQLQuery1.Close;
di conseguenza credo che veniva a mancare il valore presente nel dbedit proprio quando doveva prendere il valore da quell'oggetto

cmq ora sembra funzionare

[nomorelogic]

ok per l'SQLQuery1 che era closed, però è meglio non usare la proprietà text di un datacontrol (TDB*) in quanto quello che c'è nel controllo potrebbe non corrispondere con quello che c'è nel dampo del dataset.

devi vedere i datacontrol come dei controlli a cui vengono notificati i dati (oltre che per inserirli ovviamente ) da parte del dataset
quindi hai 2 scelte:

• dbedit4.Field.asString (così accedi al TField che contiene il dato del dataset)
• SQLQuery1.FieldByName('nome del campo').AsString (idem come sopra ma passi per il dataset)

[maxt]

sto da ore a cercare di capire come fare per risolvere un problema
sembra banale.. ma non ci sto riuscendo

praticamente ho una memobox con una ventina di righe di testo all'interno e vorrei stamparle

stavo leggendo questo documento
http://wiki.freepascal.org/Using_the_printer
ma non riesco a capire come fare per sostituire al posto della frase scritta nel codice (  HEADLINE = 'I Printed My Very First Text On ', il contenuto della casella memobox

potreste aiutarmi?
grazie

[Legolas]

Nell'esempio da te citato:

Codice: [Seleziona]

 Canvas.TextOut(LEFTMARGIN, YPos, Memo1.Lines.Text); 

dovrebbe fare quello che ti serve

[maxt]

grazie

sono riuscito a stampare, ma c'e' un piccolissimo problema 
se nella memobox c'e' scritto:
uno
due
tre
(cioe' scritte su piu' righe)

sul foglio stampato esce tutto su una sola riga (unoduetre)

io vorrei stampare tutta la memobox con i relativi fine riga (devo scrivermi il codice da solo, tipo con un for oppure c'e' qualcosa di gia' pronto per fare queste cose?)

[nomorelogic]

canvas.textout  dovrebbe lasciare la penna del canvas dove si trova alla fine del disegno...

prova con Canvas.TextOut('ciao' + #10 + 'mondo');
non ci credo più di tanto ma magari funziona...

se non va prova con qualcosa del genere per simulare un a capo
Canvas.MoveTo(0, Canvas.PenPos.Y + 20);
il +20, se funziona, dovremo sostituirlo con l'altezza del font in un secondo momento

[maxt]

prova con Canvas.TextOut('ciao' + #10 + 'mondo');
non ci credo più di tanto ma magari funziona...

no, pare che non va

quindi dici che devo fare tutto manualmente, cioe' indicare a mano il punto esatto dove andare a scrivere
pensavo ci fosse qualche funzione gia' pronta per inviare l'intera memobox alla stampa

[Stilgar]

Oddio, potresti mandare in stampa l'intero form, ma non credo sia di tuo gradimento.
Controlla i sorgenti di SynEdit.
Vedrai che stampare non è il massimo della vita.
Tanti conti e poca soddisfazione
(Al posto del memo, prova ad usare il SynEditor, lui ha già delle funzioni di stampa integrate)
Stilgar

[nomorelogic]

ho cercato sul forum ufficiale ed ho trovato questo thread

http://www.lazarus.freepascal.org/index.php?topic=8599.0

sembra che il codice qui sotto funzioni a dovere

Codice: [Seleziona]

procedure PrintTStrings(Lst : TStrings) ;
var
  I,
  //Line : Integer;
begin
  I := 0;
  //Line := 0 ;
  Printer.BeginDoc ;
  for I := 0 to Lst.Count - 1 do begin
    Printer.Canvas.TextOut(0, Line, Lst);
    {Font.Height is calculated as -Font.Size * 72 / Font.PixelsPerInch which returns
     a negative number. So Abs() is applied to the Height to make it a non-negative
     value}
    Line := Line + Abs(Printer.Canvas.TextHeight('I'));
    if (Line >= Printer.PageHeight) then
      Printer.NewPage;
  end;
  Printer.EndDoc;
end;

[maxt]

non sono molto pratico.. cosa dovrei scrivere nel codice del pulsante per richiamare questa funzione? e cosa dovrei passargli? il contenuto di memobox?