Delphi-PRAXiS - Prism Datagrid

ich glaube nicht das ich werte dranhänge

hier mal ein bisschen Code

Ich habe eine Parent Form
hier wird bei OnLoad
das ausgeführt

Delphi-Quellcode:

			Procedure Medien_DA_Erzeugen_DBC();

var

sel_s : String;

upd_cmd : OleDbCommand;

upd_par : OleDbParameter;

ins_cmd : OleDbCommand;

ins_par : OleDbParameter;

del_cmd : OleDbCommand;

del_par : OleDbParameter;

begin

//Select

  //Select String

  sel_s := 'SELECT * FROM GFC_Medien';

  //Daten aus der DB holen

  g_c_medien_da := OleDbDataAdapter.Create(sel_s, gf_conn);

//Update

  //Update Command

  upd_cmd := OleDbCommand.Create();

  upd_cmd.CommandType := CommandType.StoredProcedure;

  upd_cmd.CommandText := 'GFC_M_UPDATE';

  upd_cmd.Connection := gf_conn;

  upd_cmd.Parameters.Clear;

  upd_cmd.Parameters.Add('@GFC_M_NAME', OleDbType.VarWChar, 100, 'GFC_M_NAME');

  upd_cmd.Parameters.Add('@GFC_M_AKTIV', OleDbType.Boolean, 1, 'GFC_M_AKTIV');

  upd_cmd.Parameters.Add('@GFC_M_OUT', OleDbType.Boolean, 1, 'GFC_M_OUT');

  upd_cmd.Parameters.Add('@GFC_M_USER_NAME', OleDbType.VarWChar, 50, 'GFC_M_USER_NAME');

  upd_cmd.Parameters.Add('@GFC_M_USER_TXT', OleDbType.LongVarWChar, 16, 'GFC_M_USER_TXT');

  upd_cmd.Parameters.Add('@GFC_M_USER_DATE', OleDbType.DBTimeStamp, 4, 'GFC_M_USER_DATE');

  upd_par := upd_cmd.Parameters.Add('@ID', OleDbType.Integer);

  upd_par.SourceColumn := 'ID';

  upd_par.SourceVersion := DataRowVersion.Current;

//Insert

  //Insert Command

  ins_cmd := OleDbCommand.Create();

  ins_cmd.CommandType := CommandType.StoredProcedure;

  ins_cmd.CommandText := 'GFC_M_INSERT';

  ins_cmd.Connection := gf_conn;

  ins_cmd.Parameters.Clear;

  ins_cmd.Parameters.Add('@GFC_M_NAME', OleDbType.VarWChar, 100, 'GFC_M_NAME');

  ins_cmd.Parameters.Add('@GFC_M_AKTIV', OleDbType.Boolean, 1, 'GFC_M_AKTIV');

  ins_cmd.Parameters.Add('@GFC_M_OUT', OleDbType.Boolean, 1, 'GFC_M_OUT');

  ins_cmd.Parameters.Add('@GFC_M_USER_NAME', OleDbType.VarWChar, 50, 'GFC_M_USER_NAME');

  ins_cmd.Parameters.Add('@GFC_M_USER_TXT', OleDbType.LongVarWChar, 16, 'GFC_M_USER_TXT');

  ins_cmd.Parameters.Add('@GFC_M_USER_DATE', OleDbType.DBTimeStamp, 4, 'GFC_M_USER_DATE');

  ins_par := ins_cmd.Parameters.Add('@Identity', OleDbType.Integer, 4, 'ID');

  ins_par.Direction := System.Data.ParameterDirection.Output;

  ins_par.SourceColumn := 'ID';

  ins_par.SourceVersion := DataRowVersion.Current;

//Delete

  //Delete Command

  del_cmd := OleDbCommand.Create();

  del_cmd.CommandType := CommandType.StoredProcedure;

  del_cmd.CommandText := 'GFC_M_DELETE';

  del_cmd.Connection := gf_conn;

  del_cmd.Parameters.Clear;

  del_par := del_cmd.Parameters.Add('@ID', OleDbType.Integer, 4, 'ID');

  del_par.SourceColumn := 'ID';

  del_par.SourceVersion := DataRowVersion.Original;

  //Commands übergeben

  g_c_medien_da.UpdateCommand := upd_cmd;

  g_c_medien_da.InsertCommand := ins_cmd;

  g_c_medien_da.DeleteCommand := del_cmd;

  //Daten ins Dataset

  gf_conn.Open;

  g_c_medien_da.Fill(g_c_dataset_ds, 'GFC_Medien');

  gf_conn.Close;

  //DataTable laden

  g_c_medien_dt := g_c_dataset_ds.Tables['GFC_Medien'];

end;

in der Mdi Form
als erstes alle Mdi Form close
dann auch hier im OnLoad

Delphi-Quellcode:

			Procedure DataGrid1_Binden_C1();

var

style1 : DataGridTableStyle;

textboxcol1 : DataGridTextBoxColumn;

textboxcol2 : DataGridTextBoxColumn;

textboxcol3 : DataGridTextBoxColumn;

textboxcol4 : DataGridTextBoxColumn;

begin

  //DataGrid löschen

  C1.DataGrid1.DataSource := NIL;

  C1.DataGrid1.DataBindings.Clear;

  //Style1 erzeugen

  style1 := DataGridTableStyle.Create;

  style1.MappingName := 'GFC_Medien';

  style1.RowHeaderWidth := 10;

  //Style1 Farbe

  style1.AlternatingBackColor := System.Drawing.Color.LightSteelBlue;

  //TextCol1 GFC_M_ID

  textboxcol1 := DataGridTextBoxColumn.Create;

  textboxcol1.MappingName := 'GFC_M_ID';

  textboxcol1.HeaderText := 'Nr.';

  textboxcol1.Width := 50;

  //TextCol2 GFC_M_NAME

  textboxcol2 := DataGridTextBoxColumn.Create;

  textboxcol2.MappingName := 'GFC_M_NAME';

  textboxcol2.HeaderText := 'Name';

  textboxcol2.Width := 300;

  //TextCol3 GFC_M_USER_NAME

  textboxcol3 := DataGridTextBoxColumn.Create;

  textboxcol3.MappingName := 'GFC_M_USER_NAME';

  textboxcol3.HeaderText := 'geändert von';

  textboxcol3.Width := 200;

  //TextCol4 GFC_M_USER_DATE

  textboxcol4 := DataGridTextBoxColumn.Create;

  textboxcol4.MappingName := 'GFC_M_USER_DATE';

  textboxcol4.HeaderText := 'geändert am';

  textboxcol4.Width := 120;

  //Zum Style hinzufügen

  style1.GridColumnStyles.Clear;

  style1.GridColumnStyles.Add(textboxcol1);

  style1.GridColumnStyles.Add(textboxcol2);

  style1.GridColumnStyles.Add(textboxcol3);

  style1.GridColumnStyles.Add(textboxcol4);

  //Style DataGrid übergeben

  C1.DataGrid1.TableStyles.Clear;

  C1.DataGrid1.TableStyles.Add(style1);

  //Daten übergeben

  C1.DataGrid1.DataSource := g_c_medien_dt;  <---------------------------

wenn ich jetzt das erstmal die Mdi öffne, ist alles Ok, es stehen im Datagrid 10 datensätze
schliesse ich sie wieder und öffne sie neu, stehen im DataGrid jetzt 20 datensätze
beim nächsten öfnen 30 usw.

er hängt immer wieder nur die datensätze an das Grid an