AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Probleme mit Elementen In Frames

Ein Thema von Real_Thunder · begonnen am 25. Apr 2006 · letzter Beitrag vom 5. Mai 2006
 
Real_Thunder

Registriert seit: 25. Apr 2006
197 Beiträge
 
#13

Re: Probleme mit Elementen In Frames

  Alt 3. Mai 2006, 14:52
Schande auf mein Haupt,
darauf hätte ich auch selbst kommen können, da einfach ne abfrage vor zu setzten *schäm*

Nun versuche ich das Problem in den Griff zu bekommen, das ich aus einer Frame in eine Andere wecheln möchte.

Nach meiner Logig habe ich es so versucht.
Ich möchte vom Frame Kunden Beareiten, zu kunden Suchen wechseln

wenn ich es so mache, dann bekomm eich ein Access Violation.....


Delphi-Quellcode:
unit ku_bearb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, umysqlvio, uMysqlCT, uMysqlClient, uMysqlHelpers, ku_suche;

  {$I mysqlinc.inc}

type
    Tku_bea = class(TFrame)
    GroupBox1: TGroupBox;
    Label10: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    ku_bea_plz: TEdit;
    ku_bea_vname: TEdit;
    ku_bea_strasse: TEdit;
    ku_bea_hsnr: TEdit;
    ku_bea_nname: TEdit;
    ku_bea_tel: TEdit;
    ku_bea_fax: TEdit;
    ku_bea_url: TEdit;
    ku_bea_email: TEdit;
    ku_bea_zusatz: TMemo;
    GroupBox2: TGroupBox;
    Button2: TButton;
    ku_bea_ort: TComboBox;
    Button3: TButton;
    Button1: TButton;
    Label2: TLabel;
    Button4: TButton;
    GroupBox3: TGroupBox;
    u_hinweis: TLabel;
    ku_bea_kdnr: TEdit;
    Label11: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ku_bea_plzChange(Sender: TObject);
    procedure ku_bea_kdnrChange(Sender: TObject);

  private

    FMysql: TMysqlClient;
    FResult: TMysqlResult;
  public
    { Public-Deklarationen }
  end;

var

kd_nname, kd_vname, kd_strasse, kd_hsnr, kd_plz, kd_ort, kd_email: string;
kd_url, kd_zusatz, kd_tel, kd_fax: string;
 TKu_suche1: TFrame;

  anz_frame: TFrame;
  anz_frame2: TFrame;
implementation

uses haupt;

{$R *.dfm}

procedure Tku_bea.ku_bea_kdnrChange(Sender: TObject);

var

  q: string;
  ex: boolean;


begin

if length(ku_bea_kdnr.Text) < 10 then u_hinweis.Caption:='Bitte Kundennummer vollständig eingeben';


  if length(ku_bea_kdnr.Text) = 10 then begin
   u_hinweis.Caption:='Prüfe Kundendaten';
    FMysql := TMysqlClient.create;

  // Eigenschaften setzen
  FMysql.Host := 'antieo.de';
  FMysql.port := 3306;
  FMysql.user :='delphi';
  FMysql.password := 'sqlmain';
  FMysql.UnixSocket := '';
  FMysql.Db := 'delphi'; // Datenbank auf dem Server
  FMysql.UseNamedPipe := false;
  FMysql.UseSSL := false;
  FMysql.Compress := true;
  FMysql.TrySockets := false;

  q := 'SELECT name, vorname, strasse, hsnr, plz, ort, tel, fax, email, url, zusatz FROM kunden WHERE kdnr="'+ ku_bea_kdnr.Text +'"';

    FResult := FMysql.query(q, true, ex);

    if FResult.RowsCount > 0 then begin

    // Daten Einlesen

      kd_nname:= Fresult.FieldValue(0);
      kd_vname:= Fresult.FieldValue(1);
      kd_strasse:= Fresult.FieldValue(2);
      kd_hsnr:= Fresult.FieldValue(3);
      kd_plz:= Fresult.FieldValue(4);
      kd_ort:= Fresult.FieldValue(5);
      kd_tel:= Fresult.FieldValue(6);
      kd_fax:= Fresult.FieldValue(7);
      kd_email:= Fresult.FieldValue(8);
      kd_url:= Fresult.FieldValue(9);
      kd_zusatz:= Fresult.FieldValue(10);


    // Daten zuweisen;
      ku_bea_plz.text := kd_plz;
      ku_bea_nname.text := kd_nname;
      ku_bea_vname.text := kd_vname;
      ku_bea_strasse.text := kd_strasse;
      ku_bea_hsnr.text := kd_hsnr;
      ku_bea_ort.text := kd_ort;
      ku_bea_tel.text := kd_tel;
      ku_bea_fax.text := kd_fax;
      ku_bea_email.text := kd_email;
      ku_bea_url.text := kd_url;
      ku_bea_zusatz.text := kd_zusatz;


     FreeAndNil(Fresult);





      // Neue Optionen
        ku_bea_kdnr.Enabled := False;
        u_hinweis.Caption := 'Kunde kann bearbeitet werden';


      // Buttons Aktivieren / Deaktivieren
        button1.Enabled:= true;
        button2.Enabled:= true;
        button3.Enabled:= false;
        button4.Enabled:= true;


      // felder aktivieren
        ku_bea_nname.Enabled := true;
        ku_bea_vname.Enabled := true;
        ku_bea_strasse.Enabled := true;
        ku_bea_hsnr.Enabled := true;
        ku_bea_plz.Enabled := true;
        ku_bea_ort.Enabled := true;
        ku_bea_tel.Enabled := true;
        ku_bea_fax.Enabled := true;
        ku_bea_email.Enabled := true;
        ku_bea_url.Enabled := true;
        ku_bea_zusatz.Enabled := true;

        ku_bea_nname.SetFocus;

    end
      else
     u_hinweis.Caption:= 'Kundennummer nicht in der Datenbank';




  end;

end;







procedure Tku_bea.ku_bea_plzChange(Sender: TObject);
var
  q: string;
  j: integer;
  ex: boolean;

begin
   ku_bea_ort.Text:='';
  if length(ku_bea_plz.text) = 5 then begin
    ku_bea_ort.Text:='';
    FMysql := TMysqlClient.create;

    // Eigenschaften setzen
    FMysql.Host := 'antieo.de';
    FMysql.port := 3306;
    FMysql.user :='delphi';
    FMysql.password := 'sqlmain';
    FMysql.UnixSocket := '';
    FMysql.Db := 'delphi'; // Datenbank auf dem Server
    FMysql.UseNamedPipe := false;
    FMysql.UseSSL := false;
    FMysql.Compress := true;
    FMysql.TrySockets := false;

    q:= 'SELECT Ort FROM orte Where PLZ ="'+ku_bea_plz.text+'"';
    FResult := FMysql.query(q, true, ex);
    ku_bea_ort.Items.Clear;

    if Fresult.RowsCount > 0 then begin
      If Fresult.RowsCount = 1 then
        ku_bea_ort.Text:=FResult.FieldValue(0)
      else
        ku_bea_ort.Text:='Bitte wählen';

      for j:=0 to FResult.RowsCount-1 do begin


        ku_bea_ort.Items.add(FResult.FieldValue(0));
        FResult.Next;
      end;
    end;
    FreeAndNil(FResult);


  end;




end;

procedure Tku_bea.Button1Click(Sender: TObject);
begin
      ku_bea_plz.text := kd_plz;
      ku_bea_nname.text := kd_nname;
      ku_bea_vname.text := kd_vname;
      ku_bea_strasse.text := kd_strasse;
      ku_bea_hsnr.text := kd_hsnr;
      ku_bea_ort.text := kd_ort;
      ku_bea_tel.text := kd_tel;
      ku_bea_fax.text := kd_fax;
      ku_bea_email.text := kd_email;
      ku_bea_url.text := kd_url;
      ku_bea_zusatz.text := kd_zusatz;
end;

procedure Tku_bea.Button4Click(Sender: TObject);
begin

      // Neue Optionen
        ku_bea_kdnr.Enabled := true;
        ku_bea_kdnr.Enabled := true;



      // Buttons Aktivieren / Deaktivieren
        button1.Enabled:= false;
        button2.Enabled:= false;
        button3.Enabled:= true;
        button4.Enabled:= false;


      // felder Deaktivieren
        ku_bea_nname.Enabled := false;
        ku_bea_vname.Enabled := false;
        ku_bea_strasse.Enabled := false;
        ku_bea_hsnr.Enabled := false;
        ku_bea_plz.Enabled := false;
        ku_bea_ort.Enabled := false;
        ku_bea_tel.Enabled := false;
        ku_bea_fax.Enabled := false;
        ku_bea_email.Enabled := false;
        ku_bea_url.Enabled := false;
        ku_bea_zusatz.Enabled := false;




      // Felder Leeren
        ku_bea_kdnr.text := '';
        ku_bea_plz.text := '';
        ku_bea_nname.text := '';
        ku_bea_vname.text := '';
        ku_bea_strasse.text := '';
        ku_bea_hsnr.text := '';
        ku_bea_ort.text := '';
        ku_bea_tel.text := '';
        ku_bea_fax.text := '';
        ku_bea_email.text := '';
        ku_bea_url.text := '';
        ku_bea_zusatz.text := '';

         u_hinweis.Caption := 'Bitte vollständige Kundennummer eingeben';

         ku_bea_kdnr.SetFocus;

end;




// Daten Updaten
procedure Tku_bea.Button2Click(Sender: TObject);

var
  q1,q4,q5: string;
  q: string;
  ex: boolean;

begin
 FMysql.Host := 'antieo.de';
  FMysql.port := 3306;
  FMysql.user :='delphi';
  FMysql.password := 'sqlmain';
  FMysql.UnixSocket := '';
  FMysql.Db := 'delphi'; // Datenbank auf dem Server
  FMysql.UseNamedPipe := false;
  FMysql.UseSSL := false;
  FMysql.Compress := true;
  FMysql.TrySockets := false;









    // Daten Vergleichen

    q1:= 'UPDATE kunden SET ';
    q4:='';
      if kd_nname <> ku_bea_nname.Text then q4:= q4+ ', name ="'     +ku_bea_nname.Text+'"';
      if kd_vname <> ku_bea_vname.Text then q4:= q4+ ', vname ="'    +ku_bea_vname.Text+'"';
      if kd_strasse <> ku_bea_strasse.Text then q4:= q4+ ', strasse ="'  +ku_bea_strasse.Text+'"';
      if kd_hsnr <> ku_bea_hsnr.Text then q4:= q4+ ', hsnr ="'     +ku_bea_hsnr.Text+'"';
      if kd_plz <> ku_bea_plz.Text then q4:= q4+ ', plz ="'      +ku_bea_plz.Text+'"';
      if kd_ort <> ku_bea_ort.Text then q4:= q4+ ', ort ="'      +ku_bea_ort.Text+'"';
      if kd_tel <> ku_bea_tel.Text then q4:= q4+ ', tel ="'      +ku_bea_tel.Text+'"';
      if kd_fax <> ku_bea_fax.Text then q4:= q4+ ', fax ="'      +ku_bea_fax.Text+'"';
      if kd_email <> ku_bea_email.Text then q4:= q4+ ', email ="'    +ku_bea_email.Text+'"';
      if kd_url <> ku_bea_url.Text then q4:= q4+ ', url ="'      +ku_bea_url.Text+'"';
      if kd_zusatz <> ku_bea_zusatz.Text then q4:= q4+ ', zusatz ="'   +ku_bea_zusatz.Text+'"';

      if length(q4) > 0 then begin

        q5:= ' WHERE kdnr="'+ku_bea_kdnr.Text+'"';

        Delete(q4,1,2);

         q:= q1+q4+q5 ;

        FResult := FMysql.query(q, true, ex);

        button1.Enabled:=false;
        button2.Enabled:=false;
        button3.Enabled:=true;
        button4.Enabled:=true;

        ku_bea_nname.Enabled := false;
        ku_bea_vname.Enabled := false;
        ku_bea_strasse.Enabled := false;
        ku_bea_hsnr.Enabled := false;
        ku_bea_plz.Enabled := false;
        ku_bea_ort.Enabled := false;
        ku_bea_tel.Enabled := false;
        ku_bea_fax.Enabled := false;
        ku_bea_email.Enabled := false;
        ku_bea_url.Enabled := false;
        ku_bea_zusatz.Enabled := false;




      end;

u_hinweis.Caption := 'Kunde Erfolgreich Bearbeitet';


end;

procedure Tku_bea.Button3Click(Sender: TObject);
begin


form1.KundeSuchen1.Click;
end;

end.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz