Hallo allerseits!
Ich möchte einen einfachen Vokabeltrainer programmieren, der auf eine XML Datenbank zugreift.
Das Hinzufügen, Abspeichern und Laden in diese Datenbank habe ich schon hinbekommen mit einem DBGrid + Navigator und einem clientdataset + Datasource.
Von Datenbanken habe ich aber leider wenig Ahnung, also sorry wenn die Frage ein bisschen dumm ist, aber wie kann ich jetzt die Strings aus den zwei Spalten ansprechen, abfragen usw?
ich komme damit leider garnicht weiter, obwohl es doch simple Befehle sein müssten?
Achja und ich hätte es mir so vorgestellt, dass die Vokabeln einfach abgefragt werden, und mit einem button ein neues Fenster aufgeht(wie?) mit dem Grid um neue Vokabeln hinzuzufügen usw.
Danke schonmal im Vorraus
hier der bisherige Quelltext
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:
| unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ExtCtrls, DBCtrls, Grids, DBGrids, DBClient, StdCtrls, Buttons;
type TForm1 = class(TForm) DataSource1: TDataSource; ClientDataSet1: TClientDataSet; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; ClientDataSet1Russ: TStringField; ClientDataSet1Deu: TStringField; BitBtn1: TBitBtn; Label1: TLabel; Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); private public end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin clientdataset1.FileName := ExtractFilePath(ParamStr(0))+'vok.xml'; clientdataset1.SaveToFile(clientdataset1.FileName, dfXML); end;
procedure TForm1.FormCreate(Sender: TObject); begin clientdataset1.FileName := ExtractFilePath(ParamStr(0))+'vok.xml'; if fileexists(clientdataset1.FileName) then clientdataset1.LoadFromFile(clientdataset1.FileName) else clientdataset1.CreateDataSet; end;
end. |
Moderiert von Christian S.: Delphi-Tags hinzugefügt