Haushaltsbuch

[Phoenix]

Zitat von rotfc:

Pro Tag fuffzich neue Updates von FAlters Demo runterzuladen macht mir wirklich Spaß, vor Allem deshalb, weil er pro Update nur ein Leerzeichen im closed-source geändert hat. ODER?

Bitte. Es ist genug des OT nun.
Diese Sparte ist genau dafür da kostenlose Anwendungen vorzustellen. Das müssen keine 100%-Lösungen sein. Sowas verlangt niemand - erst recht nicht von Hobbyentwicklern.

Es ist ja schliesslich auch niemand gezwungen die Anwendungen hier auszuprobieren und Feedback zu liefern.

[rotfc]

OK

[GreenHorn3600]

hallo Alter Falter

lust dich bei mir einzuhängen? bin grad bei, eine kleine fibu zum privat gebrauch zu schreiben, und da wäre ein kleines kassenbuch für die bank-/kassakonten nicht schlecht.

baue allerdings mein kleines programm auf die komponenten von DevExpress auf.

Melde Dich per PM wenn du lust und laune hast.

Euer GreenHorn

[FAlter]

Hi,

@GreenHorn3600:

ich werd drüber nachdenken... Wobei ich das kleine Projekt eigentlich auch zu was ganz anderem missbrauchen wollte (CSV zu meinen eigenen DB-Klassen dazu), außerdem nehm ich TurboDelphi dazu, also Fremdkomponenten nur zur Laufzeit erstellen (die da wären: THTMLViewer). Naja, also ich werds mir überlegen. Erst mal sehen, wieviel Zeit ich beim Studium noch dazu haben werde, denn ich muss auch noch ein wenig am MF20XX arbeiten (Name angelehnt an DP200X ). In spätestens drei Monaten sollte ich wissen, wieviel Zeit mir noch bleibt. Eigentlich wollte ich ja schon immer mal an was größerem mit Delphi arbeiten, hat aber bisher nie wirklich geklappt, außer wenn ich alleine blieb.

Falls ich mich nicht mehr melden sollte, erinnere mich daran.

Mfg
FAlter

[Mackhack]

Nutzt du auch SQL darin da das ganze in einer csv Datei steht?

[FAlter]

Hi,

nein, in diesem Fall nutze ich kein SQL. Die DB-Klassen sind so ausgelegt, dass sie ohne SQL funktionieren, bzw. wenn eine echte DB abgefragt werden soll, wird der SQL-String zusammengebastelt.

Ungefähr so:

Delphi-Quellcode:

function TMySqlDb.Get(const Table: String; const Fields: array of String;
  Condition: TQueryCondition; const From, Count: Cardinal): TQueryResult;
var
  L, H, I: Integer;
  FieldNames: String;
  F, C: String;
begin
  try
    L := Low(Fields);
    H := High(Fields);

    if L > H then
      FieldNames := '*'
    else
    begin
      FieldNames := '';
      for I := L to H do
        FieldNames := FieldNames + ', `' + Escape(Fields[I]) + '`';

      System.Delete(FieldNames, 1, 2);
    end;

    Str(From, F);
    Str(Count, C);

    Result := DoQuery(
      'SELECT ' + FieldNames +
      #13'FROM `' + Escape(Table) +
      '`'#13'WHERE ' + (Condition as TMySqlCondition).GetSQL +
      #13'LIMIT ' + F + ', ' + C
    );
  finally
    Condition.Free;
  end;
end;

Aber bei der CSV-Klasse wird das ganze ohne SQL erledigt. Wobei Bedingungen da noch nicht funktionieren, aber das kommt noch.

Mfg
FAlter

[edit] Im ersten Beitrag gibts ne neue Version. [/edit]

[FAlter]

Hi,

ich habe mich nun doch entschieden, die Unterscheidung zwischen Einnahmen und Ausgaben nicht anhand der Anzahl, sondern am Vorzeichen des Betrages, vorzunehmen. Dies gefällt mir dann doch besser, und es dürfte eher auf Verständnis stoßen.

Wichtig
Das Programm ist dadurch nicht mehr kompatibel zu den Daten, die mit vorherigen Versionen gespeichert wurden.

Mfg
FAlter