1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
773:
774:
775:
776:
777:
778:
779:
780:
781:
782:
783:
784:
785:
786:
787:
788:
789:
790:
791:
792:
793:
794:
795:
796:
797:
798:
799:
800:
801:
802:
803:
804:
805:
806:
807:
808:
809:
810:
811:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, comobj,comctrls,Db, DBTables, DBCtrls, Mask, Grids, DBGrids, ExtCtrls, Menus;

type
  TBank = class(TForm)
    GroupBox2: TGroupBox;
    Label23: TLabel;
    Button2: TButton;
    DataSource2: TDataSource;
    Table2: TTable;
    Table2Name: TStringField;
    Table2Betrag: TFloatField;
    DataSource1: TDataSource;
    Table1: TTable;
    Table1Name1: TStringField;
    Table1Vorname: TStringField;
    Table1Vorname1: TStringField;
    Table1Strasse: TStringField;
    Table1Ort: TStringField;
    Table1Blz: TFloatField;
    Table1Einzug1: TStringField;
    Table1Eintritt: TDateField;
    Table1Kndigung: TDateField;
    Table1berweisung: TDateField;
    Table1Name: TStringField;
    Table1Bemerkung: TMemoField;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Table2Termin: TDateField;
    Table2Gebucht: TDateField;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBNavigator1: TDBNavigator;
    DBGrid2: TDBGrid;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label12: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Button3: TButton;
    Table1Einzug: TDateField;
    Table1Bank: TStringField;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    DBGrid3: TDBGrid;
    Panel1: TPanel;
    Label8: TLabel;
    DataSource3: TDataSource;
    Table3: TTable;
    Table1Konto: TStringField;
    Table1Anrede: TStringField;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button4: TButton;
    DBEdit1: TDBEdit;
    DataSource4: TDataSource;
    Query1: TQuery;
    Memo1: TMemo;
    Table1Titel: TStringField;
    Table1Anrede2: TStringField;
    Table1Titel2: TStringField;
    Table2Soll: TFloatField;
    Table2Haben: TFloatField;
    Table1MNR: TStringField;
    Table2MNR: TStringField;
    Table1Richedit: TBlobField;
    Table1Telefon: TStringField;
    Table1Fax: TStringField;
    Table2Buchungsnr: TStringField;
    Label9: TLabel;
    Label10: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Label14: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Label11: TLabel;
    Edit8: TEdit;
    Label13: TLabel;
    DBEdit3: TDBEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Button1: TButton;
    MaskEdit1: TMaskEdit;
    Button5: TButton;
    Label15: TLabel;
    Label18: TLabel;
    Button6: TButton;
    Label21: TLabel;
    DBEdit4: TDBEdit;
    ComboBox2: TComboBox;
    CheckBox1: TCheckBox;
    Table2Tag: TStringField;
    Table2Monat: TStringField;
    Table2Jahr: TStringField;
    Label24: TLabel;
    DBEdit5: TDBEdit;
    Label25: TLabel;
    DBEdit6: TDBEdit;
    Label26: TLabel;
    DBEdit7: TDBEdit;
    Table2Lfd: TStringField;
    Label27: TLabel;
    DBEdit8: TDBEdit;
    PopupMenu1: TPopupMenu;
    Beitrag1: TMenuItem;
    Spende1: TMenuItem;
    N1: TMenuItem;
    Bro1: TMenuItem;
    Memo2: TMemo;
    DataSource5: TDataSource;
    Query2: TQuery;
    Query3: TQuery;
    Memo3: TMemo;
    ComboBox3: TComboBox;
    Query4: TQuery;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit3: TEdit;
    Timer1: TTimer;
    Edit12: TEdit;
    Table2Lfd1: TAutoIncField;
    Table2Leer: TStringField;
    DataSource6: TDataSource;
    Table4: TTable;
    Table4MNR: TStringField;
    Table4Buchungsnr: TStringField;
    Table4Soll: TFloatField;
    Table4Haben: TFloatField;
    Table4Name: TStringField;
    Table4Tag: TStringField;
    Table4Monat: TStringField;
    Table4Jahr: TStringField;
    BatchMove1: TBatchMove;
    Table2Bdatum: TDateField;
    Table2BBetrag2: TFloatField;
    Table2BText: TStringField;
    Table4BDATUM: TDateField;
    Table4BTEXT: TStringField;
    Button7: TButton;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    Label1: TLabel;
    Label20: TLabel;
    CheckBox2: TCheckBox;
    Memo4: TMemo;
    CheckBox3: TCheckBox;
    Button8: TButton;
    Fristenplan: TButton;
    Button9: TButton;
    Table3LFD: TStringField;
    Table3MNR: TStringField;
    Table3BETRAG: TFloatField;
    Table3TERMIN: TDateField;
    Table3BDATUM: TDateField;
    Table3TAG: TStringField;
    Table3MONAT: TStringField;
    Table3JAHR: TStringField;
    Table3GEBUCHT: TDateField;
    Table3NFRIST: TDateField;
    DBEdit2: TDBEdit;
    Button10: TButton;
    Edit13: TEdit;
    Edit14: TEdit;
    Table1Einzbetrag: TFloatField;
    Table1Email2: TStringField;
    Table1Geburtstag: TDateField;
    Table1Geburtst1: TDateField;
    Table1Anr1: TStringField;
    Table1Anr2: TStringField;
    Table1Betreff: TStringField;
    Table1Plz: TStringField;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button5Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Beitrag1Click(Sender: TObject);
    procedure Spende1Click(Sender: TObject);
    procedure Bro1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure FristenplanClick(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Bank: TBank;

implementation

uses Unit1, Unit8;

{$R *.DFM}

procedure TBank.Button1Click(Sender: TObject);
var
a:real;
begin
//Buchungsvorgang
if edit4.text='' then exit;
radiobutton1.checked:=false;
radiobutton2.checked:=false;
table2.indexname:='Laufend';
Table2.insert;
table2['MNR']:=edit7.text;
table2['Buchungsnr']:=edit6.text;
table2['BDatum']:=maskedit1.text;
table2['BText']:=edit4.text;

//Aufsplittung Datum
a:=strtodate(maskedit1.text);
table2['Tag']:=formatdatetime('dd',a);

a:=strtodate(maskedit1.text);
table2['Monat']:=formatdatetime('mm',a);

a:=strtodate(maskedit1.text);
table2['Jahr']:=formatdatetime('yyyy',a);

if edit5.text='' then table2['Haben']:=edit8.text;
if edit8.text='' then table2['Soll']:=edit5.text;

//table2['Haben']:=edit8.text;
table2.post;
button4.click;

//Eingabefelder löschen
edit7.text:='';
edit6.text:='';
maskedit1.text:='';
edit4.text:='';
edit5.text:='';
edit8.text:='';
table2.indexname:='BuchungD';
end;

procedure TBank.Button3Click(Sender: TObject);

var
bez:string;

begin
table1.Locate('M-Nr.',edit2.text,[locaseinsensitive,lopartialkey]);
bez:=edit1.text;
table2.edit;
table2['M-Nr.']:=table1['M-Nr.'];
table2['BDatum']:=maskedit1.text;
table2['BText']:=edit4.Text;
table2['BBetrag']:=edit5.text;
table2.post;
end;

procedure TBank.Button4Click(Sender: TObject);
var
bez1:string;
w,x,y:real;
d,e:real;
begin

bez1:=bank.edit2.text;


bank.memo1.clear;
bank.memo1.lines[0]:='select sum (soll), sum (haben) from '#39'd:\33\daten.db'#39'';
bank.memo2.clear;
bank.memo2.lines[0]:='select sum (haben) from '#39'd:\33\daten.db'#39' where Buchungsnr='#39'1'#39'';
bank.memo3.clear;
bank.memo3.lines[0]:='select sum (haben) from '#39'd:\33\daten.db'#39' where Buchungsnr='#39'2'#39'';


bank.query1.sql:=memo1.lines;
bank.query1.active:=true;
bank.query1.open;

bank.query2.sql:=memo2.lines;
bank.query2.active:=true;
bank.query2.open;

bank.query3.sql:=memo3.lines;
bank.query3.active:=true;
bank.query3.open;



//Soll
if bank.query1.fields[0].text='' then label15.caption:='0';
//Soll

if bank.query1.fields[0].text<>'' then w:=strtofloat (bank.query1.fields[0].text);
label15.caption:=formatfloat('#,##0.00 €',w);


//Haben
if bank.query1.fields[1].text='' then label18.caption:='0';
//Haben

if bank.query1.fields[1].text<>'' then x:=strtofloat (bank.query1.fields[1].text);
label18.caption:=formatfloat('#,##0.00 €',x);


//Kontostand
y:=x-w;
label19.caption:=formatfloat('#,##0.00 €',y);

if y>=0 then label19.color:=$00CDDCC2;
if y<=0 then label19.color:=$008080FF;


//Beiträge
if bank.query2.fields[0].text='' then label17.caption:='0';

if bank.query2.fields[0].text<>'' then d:=strtofloat (bank.query2.fields[0].text);
label16.caption:=formatfloat('#,##0.00 €',d);


//Spenden
if bank.query3.fields[0].text='' then label17.caption:='0';

if bank.query3.fields[0].text<>'' then e:=strtofloat (bank.query3.fields[0].text);
label17.caption:=formatfloat('#,##0.00 €',e);

bank.memo1.clear;
end;


procedure TBank.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TBank.Button2Click(Sender: TObject);
var
c:real;
s:string;
i:integer;
begin

if messagedlg('Einzug buchen' + #10 + 'Soll Einzug gebucht werden?', mtconfirmation, [mbyes, mbno],0)=mrno then
exit
else
table2.indexname:='';
table2.insert;
S:= InputBox('Buchungsdatum', 'Bitte Datum eingeben!','');
edit13.text:=s;
//maskedit1.text:=S;
table2['BDatum']:=s;
table2['MNR']:=table1['MNR'];
table2['Buchungsnr']:='1';
//Einzugsdatum
//table2['BDatum']:=formatdatetime('dd.mm.yyyy',date);
table2['BText']:='Mitgliedsbeitrag '+table1['Name'];
table2['Haben']:=table1['Einzbetrag'];
c:=strtodate(edit12.text);
table2['Tag']:=formatdatetime('dd',c);
table2['Monat']:=formatdatetime('mm',c);
table2['Jahr']:=formatdatetime('yyyy',c);
table2.post;
table2.indexname:='BuchungD';
//Nummer
//button7.click;
//Kontostand
button4.click;
//Fristenkalender
//table3.select
  button10.click;

end;


procedure TBank.FormShow(Sender: TObject);
begin
showscrollbar(dbgrid3.handle, SB_Vert,false);



table3.active:=false;
table4.active:=false;
edit12.text := formatDateTime('dd.mm.yyyy',Now);
combobox4.text:= formatDateTime('yyyy',Now);
combobox6.text:= formatDateTime('mm',Now);

table1.active:=false;
button4.click;
bank.dbgrid2.Refresh;
begin
try
bank.table2.first;
combobox3.clear;
while not bank.table2.eof do
begin
combobox3.text:='Jahr';
combobox3.items.add(bank.table2.fieldbyname('Jahr').asstring);
bank.table2.next;
end;
except
end;
end;
end;



procedure TBank.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
a,b,n,bez:string;
y,x,w:real;
  begin
  showscrollbar(dbgrid3.handle, SB_Vert,false);

  //Table1.Filter :='(Typ ='+quotedStr(a)+' and PLZ = '+QuotedStr(b) +')';
table3.active:=true;
button9.click;
bez:=combobox1.text;
a:=edit1.text;
table1.active:=true;
table1.filtered:=true;
//dbgrid1.visible:=true;

begin
table1.active:=true;
if bez='Mitglieds-Nr.' then
if key=13 then
table1.Active:=true;
Table1.Filter :='(mnr ='+quotedStr(a)+')';
table2.filter:='(mnr ='+quotedStr(a)+')';

//Kontostand - Einzel
//bez1:=bank.edit2.text;
n:=edit1.text;

bank.memo1.clear;
bank.memo1.lines[0]:='select sum (haben), sum(soll) from '#39'd:\33\daten.db'#39' where mnr='#39+n+#39'';

bank.query1.sql:=memo1.lines;
bank.query1.active:=true;
bank.query1.open;


//Haben
if bank.query1.fields[0].text='' then label18.caption:='0';
if bank.query1.fields[0].text<>'' then w:=strtofloat (bank.query1.fields[0].text);
label18.caption:=formatfloat('#,##0.00 €',w);

//Soll
if bank.query1.fields[1].text='' then label15.caption:='0';
if bank.query1.fields[1].text<>'' then x:=strtofloat (bank.query1.fields[1].text);
label15.caption:=formatfloat('#,##0.00 €',x);

y:=w-x;
label19.caption:=formatfloat('#,##0.00 €',y);

memo1.clear;
button9.click;
end;


if bez='Name' then
begin
a:=edit1.text;
if key=13 then
table1.Active:=true;
Table1.Filter :='(Name ='+quotedStr(a)+')';
table2.filter:='(Name ='+quotedStr(a)+')';
end;


if bez='Buchungsbetrag' then
begin
b:=edit1.text;
table2.filtered:=true;
if combobox1.text='Buchungsbetrag' then
if key=13 then
Table2.Filter :='(Soll ='+quotedStr(b)+' or Haben = '+QuotedStr(b) +')';
if edit1.text='0' then table2.filter:='';
edit1.setfocus;
end;


//erweiterte Suchfunktion um Datumswert herum
if bez='Buchungsdatum' then
begin
a:=edit1.text;
if key=13 then
Table1.Filter :='(Einzug1='+quotedStr(a)+')';
//Table1.Filter :='(Buchungsdatum='+quotedStr(a)+' and Buchungsdatum = '+QuotedStr(c) +')';


button9.click;
end;
end;


procedure TBank.DBGrid2CellClick(Column: TColumn);
var a:string;
begin
a:=dbedit1.text;
table1.filter:='';
table1.active:=true;
Table1.Filter :='(MNR ='+quotedStr(a)+')';
end;

procedure TBank.ComboBox1Change(Sender: TObject);
begin
//Datum Ausblenden
if combobox1.text<>'Buchungsdatum' then
edit9.visible:=false;
if combobox1.text<>'Buchungsdatum' then
edit10.visible:=false;
if combobox1.text<>'Buchungsdatum' then
edit11.visible:=false;
if combobox1.text<>'Buchungsdatum' then
edit1.setfocus;

//Datum Einblenden
if combobox1.text='Buchungsdatum' then
edit9.visible:=true;
if combobox1.text='Buchungsdatum' then
edit10.visible:=true;
if combobox1.text='Buchungsdatum' then
edit11.visible:=true;
if combobox1.text='Buchungsdatum' then
edit9.setfocus;

if combobox1.text='Alle' then table2.filter:='';
edit1.text:='';
button4.click;

end;

procedure TBank.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then self.perform(WM_NextDLGCTL,0,0);
end;

procedure TBank.Button5Click(Sender: TObject);
begin
dbgrid2.SelectedRows.Delete;
button4.click;
end;

procedure TBank.DBGrid2DblClick(Sender: TObject);
begin
Kontoauszug.datasource2.DataSet:=Bank.table2;


//Kontoauszug.caption:='Übersicht';
Kontoauszug.dbgrid2.Columns[0].width:=45;
Kontoauszug.dbgrid2.columns[0].fieldname:='MNR';
Kontoauszug.dbgrid2.Columns[1].width:=45;
Kontoauszug.dbgrid2.columns[1].fieldname:='Buchungsnr';
Kontoauszug.dbgrid2.Columns[2].width:=70;
Kontoauszug.dbgrid2.columns[2].fieldname:='Bdatum';
Kontoauszug.dbgrid2.Columns[3].width:=350;
Kontoauszug.dbgrid2.columns[3].fieldname:='BText';
Kontoauszug.dbgrid2.Columns[4].width:=80;
Kontoauszug.dbgrid2.Columns[4].fieldname:='Soll';
Kontoauszug.dbgrid2.Columns[5].width:=80;
Kontoauszug.dbgrid2.Columns[5].fieldname:='Haben';



//Soll
Kontoauszug.label15.caption:=bank.label15.caption;
//Kontostand
Kontoauszug.label19.caption:=bank.label19.caption;
//Haben
Kontoauszug.label18.caption:=bank.label18.caption;
Kontoauszug.label19.color:=bank.label19.color;

kontoauszug.show;
end;

procedure TBank.Button6Click(Sender: TObject);
begin
table1.filter:='';
table1.active:=false;
table2.filter:='';
end;

procedure TBank.Beitrag1Click(Sender: TObject);
begin
edit6.text:='1';
maskedit1.setfocus;
end;

procedure TBank.Spende1Click(Sender: TObject);
begin
edit6.text:='2';
maskedit1.setfocus;
end;

procedure TBank.Bro1Click(Sender: TObject);
begin
edit6.text:='001';
maskedit1.setfocus;
end;

procedure TBank.RadioButton1Click(Sender: TObject);
begin
//neuen Index anlegen
//if radiobutton1.Checked=true then table2.indexname:='BDatum1';
end;


procedure TBank.RadioButton2Click(Sender: TObject);
begin
//neuen Index anlegen
//if radiobutton2.Checked=true then table2.indexname:='Lfd2';
end;

procedure TBank.FormResize(Sender: TObject);
begin
wfo.panel6.visible:=false;
wfo.image1.visible:=false;
wfo.panel7.visible:=false;
wfo.image5.visible:=false;
wfo.Auszug.visible:=false;
end;

procedure TBank.DBGrid3CellClick(Column: TColumn);
var
a:string;
c,b,n,bez:string;
y,x,w:real;
begin
showscrollbar(dbgrid3.handle, SB_Vert,false);

c:=table1['MNR'];
table2.filter:='';
table2.active:=true;
Table2.Filter :='(mnr ='+quotedStr(c)+')';
edit2.text:=dbedit1.Field.Text;
n:=edit2.text;

bank.memo1.clear;
bank.memo1.lines[0]:='select sum (haben), sum(soll) from '#39'd:\33\daten.db'#39' where mnr='#39+n+#39'';

bank.query1.sql:=memo1.lines;
bank.query1.active:=true;
bank.query1.open;


//Haben
if bank.query1.fields[0].text='' then label18.caption:='0';
if bank.query1.fields[0].text<>'' then w:=strtofloat (bank.query1.fields[0].text);
label18.caption:=formatfloat('#,##0.00 €',w);

//Soll
if bank.query1.fields[1].text='' then label15.caption:='0';
if bank.query1.fields[1].text<>'' then x:=strtofloat (bank.query1.fields[1].text);
label15.caption:=formatfloat('#,##0.00 €',x);

y:=w-x;
label19.caption:=formatfloat('#,##0.00 €',y);

memo1.clear;
end;



procedure TBank.Button8Click(Sender: TObject);
var
a:string;
b,c:integer;
d:integer;
begin

a:=dbedit1.text;
table3.filter:='mnr='#39+a+#39'';

//table1.Locate('NFrist',edit1.text,[locaseinsensitive,lopartialkey]);


begin
table3.edit;
//table3['BDatum']:=edit5.text;
table3.post;
table3.filter:='BDatum=null';
end;

end;

procedure TBank.Button7Click(Sender: TObject);
var
c:real;
s,t:string;
begin

if messagedlg('Spende buchen' + #10 + 'Soll Spende gebucht werden?', mtconfirmation, [mbyes, mbno],0)=mrno then
exit
else
table2.indexname:='';
table2.insert;
S:= InputBox('Buchungsdatum', 'Bitte Datum eingeben!','');
//maskedit1.text:=S;
table2['BDatum']:=s;
table2['MNR']:=table1['MNR'];
table2['Buchungsnr']:='2';
//Einzugsdatum
//table2['BDatum']:=formatdatetime('dd.mm.yyyy',date);
table2['BText']:='Spende '+table1['Name'];
T:= InputBox('Spendenbetrag', 'Bitte Betrag eingeben!','');
table2['Haben']:=t;
c:=strtodate(edit12.text);
table2['Tag']:=formatdatetime('dd',c);
table2['Monat']:=formatdatetime('mm',c);
table2['Jahr']:=formatdatetime('yyyy',c);
table2.post;
table2.indexname:='BuchungD';
//Kontostand
button4.click;
end;

procedure TBank.CheckBox2Click(Sender: TObject);
begin
if checkbox2.checked=true then bank.combobox7.enabled:=true;
if checkbox2.checked=false then bank.combobox7.enabled:=false;

if checkbox2.checked=true then bank.combobox5.enabled:=true;
if checkbox2.checked=false then bank.combobox5.enabled:=false;

//memo4.lines[0]:='select distinct monat, jahr from '#39'd:\33\daten.db''';
//query5.sql:=memo4.lines;
//query5.open;



end;

procedure TBank.FristenplanClick(Sender: TObject);
var
excel:variant;
begin
//onshow(Bank);

excel:=createoleobject('excel.Application');
excel.visible:=true;
excel.workbooks.open(filename:='d:\33\fristenkalender.xls');

end;

procedure TBank.Button9Click(Sender: TObject);
var
z:string;
begin
z:=dbedit2.Text;
table3.filter:='(BDatum=null) and (MNR='#39+z+#39')';
end;

procedure TBank.Button10Click(Sender: TObject);
var
a:string;
b,c:integer;
d:integer;
begin

a:=dbedit2.text;
table3.filter:='mnr='#39+a+#39'';
c:=table3['nfrist'];
table3.Locate('NFrist',edit14.text,[locaseinsensitive,lopartialkey]);


begin
table3.edit;
//edit13.text:=
table3['BDatum']:=edit13.text;
table3.post;
//table1.filter:='BDatum=null';
end;
end;

procedure TBank.DBGrid1CellClick(Column: TColumn);
begin
edit14.text:=table3['nfrist'];
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, comobj,printers, ComCtrls, jpeg, ExtCtrls, DBCtrls, Db, DBTables, Mask, ToolWin,
  Grids, DBGrids, ImgList;

type
  TWFO = class(TForm)
    Panel1: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Timer1: TTimer;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    PrintDialog1: TPrintDialog;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Image2: TImage;
    Panel4: TPanel;
    Image3: TImage;
    Panel5: TPanel;
    Image4: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    StatusBar1: TStatusBar;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Auszug: TButton;
    Panel6: TPanel;
    Image1: TImage;
    Panel7: TPanel;
    Image5: TImage;
    Panel8: TPanel;
    Image6: TImage;
    ToolButton9: TToolButton;
    DBLookupComboBox1: TDBLookupComboBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    procedure EndeClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Image4DblClick(Sender: TObject);
    procedure AuszugClick(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure Image5DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Image6DblClick(Sender: TObject);
    
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  WFO: TWFO;

implementation

uses Unit3, Unit2, Unit4, Unit5, Unit6;

{$R *.DFM}

procedure TWFO.EndeClick(Sender: TObject);
begin
close;
end;

procedure TWFO.FormShow(Sender: TObject);
begin
Person.dbedit1.SetFocus;
end;

procedure TWFO.Timer1Timer(Sender: TObject);
begin
statusbar1.panels[5].text:=timetostr(time);
statusbar1.panels[6].text:=formatdatetime('dddd,  dd.mm.yyyy', date);
combobox2.text:=formatdatetime('yyyy', date);
end;


procedure TWFO.ToolButton2Click(Sender: TObject);
begin
uebersicht.table1.active:=false;
person.windowstate:=wsmaximized;
person.show;
person.ComboBox1.setfocus;

wfo.image4.visible:=false;
wfo.panel5.visible:=false;
wfo.image4.hint:='Scanvorgang starten';
wfo.image4.ShowHint:=false;
wfo.image2.visible:=false;
wfo.panel3.visible:=false;
wfo.image4.visible:=false;
wfo.panel3.visible:=false;

end;

procedure TWFO.ToolButton3Click(Sender: TObject);
begin
bank.windowstate:=wsmaximized;
bank.show;
bank.combobox1.setfocus;

wfo.panel6.visible:=true;
wfo.image1.visible:=true;
wfo.panel7.visible:=true;
wfo.image5.visible:=true;

wfo.image4.visible:=false;
wfo.image4.hint:='Scanvorgang starten';
wfo.image4.ShowHint:=false;
wfo.panel5.visible:=false;
wfo.image2.visible:=false;
wfo.panel3.visible:=false;
wfo.image4.visible:=false;
wfo.panel3.visible:=false;
//bank.button4.click;
wfo.auszug.visible:=false;

end;

procedure TWFO.ToolButton6Click(Sender: TObject);
begin
Auswertungen.windowstate:=wsmaximized;

panel5.visible:=true;
panel8.visible:=true;
image6.visible:=true;
image4.visible:=true;
panel3.visible:=true;
image2.visible:=true;
//panel4.visible:=true;
//image3.visible:=true;


wfo.image4.visible:=true;
wfo.image4.hint:='Bescheinigung';
wfo.image4.ShowHint:=true;
wfo.panel5.visible:=true;
wfo.image2.visible:=false;
wfo.panel3.visible:=false;
wfo.panel3.visible:=false;

wfo.button2.visible:=true;
wfo.button3.visible:=true;
wfo.button4.visible:=true;

Auswertungen.show;



end;

procedure TWFO.ToolButton1Click(Sender: TObject);
begin
panel5.visible:=false;
image4.visible:=false;
panel3.visible:=false;
image2.visible:=false;
panel4.visible:=false;
image3.visible:=false;




Uebersicht.windowstate:=wsmaximized;
Uebersicht.show;

end;

procedure TWFO.ToolButton11Click(Sender: TObject);
//var
//a,b:integer;

//druckername,druckertreiber:string;
begin
uebersicht.print;

//uebersicht.PixelsPerInch:=72;

//if printdialog1.Execute then begin
//druckername:=printer.printers[printer.printerindex];
//druckertreiber:=printer.printers[printer.printerindex];

//a:=printers.printer.printerindex;
//b:=printers.tprinter.create.printerindex;

//edit1.text:=druckername;
//edit2.text:=druckertreiber;


//if activemdichild=bank then
//bank.PixelsPerInch:=72;
//bank.print;

{if activemdichild=uebersicht then
uebersicht.PixelsPerInch:=72;
uebersicht.print;

if activemdichild=person then
person.PixelsPerInch:=72;
person.print;

if activemdichild=Auswertungen then
auswertungen.PixelsPerInch:=72;
Auswertungen.print;

if activemdichild=form6 then
form6.PixelsPerInch:=72;
form6.print;
}
end;

procedure TWFO.ToolButton8Click(Sender: TObject);
begin
form6.windowstate:=wsmaximized;
form6.show;
wfo.image4.visible:=false;
wfo.image4.hint:='Scanvorgang starten';
wfo.image4.ShowHint:=true;
wfo.panel5.visible:=false;
wfo.image2.visible:=false;
wfo.panel3.visible:=false;
wfo.image4.visible:=true;
wfo.panel3.visible:=false;


end;

procedure TWFO.FormCreate(Sender: TObject);
begin
panel6.visible:=false;
image1.visible:=false;
panel7.visible:=false;
image5.visible:=false;


panel5.visible:=false;
image4.visible:=false;
panel3.visible:=false;
image2.visible:=false;
panel4.visible:=false;
image3.visible:=false;

end;

procedure TWFO.FormClose(Sender: TObject; var Action: TCloseAction);
begin
wfo.button2.visible:=false;
wfo.button3.visible:=false;
wfo.button4.visible:=false;

action:=cafree;
end;

procedure TWFO.Button1Click(Sender: TObject);
begin
wfo.close;
end;

procedure TWFO.Image4DblClick(Sender: TObject);
var
word:variant;
b:string;
begin
onshow(Auswertungen);

if auswertungen.combobox1.text='Textauswahl' then exit else
begin
b:=statusbar1.panels[1].text;
word:=createoleobject('Word.Application');
word.visible:=true;
word.documents.open(filename:=b);
end;

end;

procedure TWFO.AuszugClick(Sender: TObject);
var
excel:variant;
//a,c:string;
//d:integer;
begin
onshow(Bank);

bank.table4.active:=false;
//bank.table4.indexname:='Bdatum';
//bank.batchmove1.mode:=batupdate;
//bank.batchmove1.execute;
bank.batchmove1.mode:=batcopy;
bank.batchmove1.Execute;

excel:=createoleobject('excel.Application');
excel.visible:=true;
excel.workbooks.open(filename:='d:\33\auszugg.xls');

excel.application.Run('modul2.makro2');



//excel.activeworkbook:='Auszug G';

//
//d:=bank.table4.recordcount;
//label15.caption:=floattostr(a);



end;

procedure TWFO.Image1DblClick(Sender: TObject);
begin
wfo.auszug.click;
end;

procedure TWFO.Image5DblClick(Sender: TObject);
var
excel:variant;
begin
onshow(Bank);

excel:=createoleobject('excel.Application');
excel.visible:=true;
excel.workbooks.open(filename:='d:\33\fristenkalender.xls');
end;

procedure TWFO.Button2Click(Sender: TObject);
begin
onshow(Auswertungen);
auswertungen.button15.click;
end;

procedure TWFO.Button3Click(Sender: TObject);
begin
onshow(Auswertungen);
Auswertungen.button16.click;
end;

procedure TWFO.Button4Click(Sender: TObject);
begin
onshow(Auswertungen);
Auswertungen.button19.Click;
end;

procedure TWFO.Image6DblClick(Sender: TObject);
var
excel:variant;
begin
onshow(Auswertungen);
Auswertungen.table2.active:=false;
excel:=createoleobject('excel.Application');
excel.visible:=true;
excel.workbooks.open(filename:='d:\33\mitgliederliste.xls');



end;

end.