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
