Tablo da Boş Kayıt Uyarısı [Çözüldü]

[ozcank]

ertank kardeşim sorunum locate değil sorunum tabloya cift kayıt atıyor ve biri NULL diğeri normal onu çözemedim.

[ozcank]

eğer müaitseniz bakabilirmisiniz size ammy versem?

[greenegitim]

@ertank hocam değerli bilgileriniz için teşekkür ederim. malumatınız varsa eğer viewtopic.php?f=2&t=36334 soruma da henüz tam bir yanıt bulabilmiş değilim.

[ertank]

Form içeriği;

Kod: Tümünü seç

unit MADENTANIMA;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Mask, DBCtrls, ComCtrls, Buttons, DB, ADODB,
  Grids, DBGrids, RzDBGrid, IBCustomDataSet, IBUpdateSQL, RzEdit, RzDBEdit,
  RzDTP, RzDBDTP, RzButton;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Panel2: TPanel;
    DBEdit3: TDBEdit;
    Panel3: TPanel;
    Label10: TLabel;
    Panel4: TPanel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DateTimePicker2: TDateTimePicker;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Shape1: TShape;
    Panel5: TPanel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    DBEdit15: TDBEdit;
    MaskEdit1: TMaskEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    Label30: TLabel;
    MaskEdit2: TMaskEdit;
    DBEdit18: TDBEdit;
    MaskEdit3: TMaskEdit;
    Panel6: TPanel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    ComboBox4: TComboBox;
    DBEdit21: TDBEdit;
    ComboBox5: TComboBox;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    Panel7: TPanel;
    Label39: TLabel;
    MaskEdit4: TMaskEdit;
    Label40: TLabel;
    Label41: TLabel;
    ComboBox6: TComboBox;
    Label42: TLabel;
    Label43: TLabel;
    ComboBox7: TComboBox;
    Label44: TLabel;
    DBEdit25: TDBEdit;
    Label45: TLabel;
    DBEdit26: TDBEdit;
    Label46: TLabel;
    DBEdit27: TDBEdit;
    Label47: TLabel;
    ComboBox8: TComboBox;
    Label48: TLabel;
    DBEdit28: TDBEdit;
    Label49: TLabel;
    ComboBox9: TComboBox;
    DBEdit29: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    ComboBox10: TComboBox;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    ComboBox13: TComboBox;
    ComboBox14: TComboBox;
    MADENKAYIT: TADOTable;
    DataSource1: TDataSource;
    Edit4: TEdit;
    DateTimePicker1: TDateTimePicker;
    MDKAYITID: TADOQuery;
    DataSource2: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Label50: TLabel;
    Edit5: TEdit;
    MDOGRARA: TADOQuery;
    DataSource3: TDataSource;
    Label51: TLabel;
    Label52: TLabel;
    Edit6: TEdit;
    Label53: TLabel;
    Edit7: TEdit;
    RzBitBtn1: TRzBitBtn;
    DBGrid2: TDBGrid;
    procedure BitBtn5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox12Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DataSource3DataChange(Sender: TObject; Field: TField);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses MADENMENU;

{$R *.dfm}

procedure TForm3.BitBtn5Click(Sender: TObject);
begin
Form3.Hide;
Form2.Show;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form3.Hide;
Form2.Show;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
GroupBox1.Visible:=False;
ComboBox1.Items.LoadFromFile('C:\MADENPRO\NUFUSIL.TXT');
ComboBox2.Items.LoadFromFile('C:\MADENPRO\DOGUMYERI.TXT');
ComboBox9.Items.LoadFromFile('C:\MADENPRO\CALISTIGIIL.TXT');
ComboBox10.Items.LoadFromFile('C:\MADENPRO\CALISTIGIILCE.TXT');
ComboBox13.Items.LoadFromFile('C:\MADENPRO\CALISTIGIKURUM.TXT');
ComboBox14.Items.LoadFromFile('C:\MADENPRO\CALISTIGIMADEN.TXT');
ComboBox13.Enabled:=False;
end;


procedure TForm3.ComboBox12Change(Sender: TObject);
begin
If (Combobox12.ItemIndex=1) Then
Begin
DBEdit29.Visible:=True;
DBEdit29.Text:='';
ComboBox13.Enabled:=False;
ComboBox13.Text:='';
End
Else
Begin
DBEdit29.Visible:=False;
DBEdit29.Text:='';
ComboBox13.Enabled:=True;
ComboBox13.Text:='';
end;
End;


procedure TForm3.FormCreate(Sender: TObject);
begin
//MADENKAYIT.Active:=True;
//MDKAYITID.Active:=True;
end;



procedure TForm3.BitBtn2Click(Sender: TObject);
//begin
//MADENKAYIT.Active:=True;
//MDKAYITID.Active:=True;

//MADENKAYIT.FieldByName('MD_KAYITID').Value:=Edit4.Text;

//IF MADENKAYIT.Locate('MD_CEMKODU',Edit1.Text,[]) then
//Begin
//Application.MessageBox('Aynı Çember Kodun da Öğrenci Kaydı Var !!!','Bilgilendirme Mesajı',MB_ICONINFORMATION);
//End
//Else if (Edit1.Text='') Then
//Begin
//Application.MessageBox('Öğrenci Çember Kodu Boş Geçilemez !!!','Bilgilendirme Mesajı',MB_ICONINFORMATION);
//End
//Else
//Begin
//MADENKAYIT.Append;


///////////////////////////////////////////////////////////

begin

  Edit1.Text := Trim(Edit1.Text);

  if (Edit1.Text = EmptyStr) then
  begin
    Application.MessageBox('Öğrenci Çember Kodu Boş Geçilemez !!!','Bilgilendirme Mesajı',MB_ICONINFORMATION);
    Exit;
  end;

//  if MADENKAYIT.Locate('MD_CEMKODU', Edit1.Text, []) then
//  begin
//    Application.MessageBox('Aynı Çember Kodun da Öğrenci Kaydı Var !!!', 'Bilgilendirme Mesajı', MB_ICONINFORMATION);
//    Exit;
///  end;

 if MADENKAYIT.RecordCount>0 then
        begin
          MessageBoxW(Handle, 'Aynı Çember Kodun da Öğrenci Kaydı Var.!!!!',
            'Uyarı', MB_OK + MB_ICONSTOP + MB_DEFBUTTON2);
            Edit1.SetFocus;
            Abort;
        end;

  MADENKAYIT.Append();

  // Aşağıdaki kod bloğu hata tespiti yardımı için
  if Trim(Edit1.Text) = EmptyStr then
  begin
    MADENKAYIT.Cancel();
    ShowMessage('Edit1 içi boş');
    Exit;
  end;

///////////////////////////////////////////////////////////
MADENKAYIT.FieldByName('MD_CEMKODU').AsString := Edit1.Text;
MADENKAYIT.FieldByName('MD_ADSOYAD').Value:=DBEdit1.Text;
MADENKAYIT.FieldByName('MD_SINIFI').Value:=DBEdit2.Text;
MADENKAYIT.FieldByName('MD_TCKIMLIK').Value:=Edit2.Text;
MADENKAYIT.FieldByName('MD_OGRNO').Value:=Edit3.Text;
MADENKAYIT.FieldByName('MD_NUFKAYIL').Value:=ComboBox1.Text;
MADENKAYIT.FieldByName('MD_DOGYERI').Value:=ComboBox2.Text;
MADENKAYIT.FieldByName('MD_DOGTARIHI').AsDateTime:=DateTimePicker1.Date;
MADENKAYIT.FieldByName('MD_BAYBYN').Value:=ComboBox3.Text;
MADENKAYIT.FieldByName('MD_KANGRUP').Value:=DBEdit3.Text;
MADENKAYIT.FieldByName('MD_UNVGTAR').AsDateTime:=DateTimePicker2.Date;
MADENKAYIT.FieldByName('MD_BLMKTERC').Value:=DBEdit4.Text;
MADENKAYIT.FieldByName('MD_IDLMESLEKLER').Value:=DBEdit5.Text;
MADENKAYIT.FieldByName('MD_MZOLDLISE').Value:=DBEdit6.Text;
MADENKAYIT.FieldByName('MD_LISEBNOTU').Value:=DBEdit7.Text;
MADENKAYIT.FieldByName('MD_OSSPUAN').Value:=DBEdit8.Text;
MADENKAYIT.FieldByName('MD_OSSTURU').Value:=DBEdit9.Text;
MADENKAYIT.FieldByName('MD_BABAMESL').Value:=DBEdit10.Text;
MADENKAYIT.FieldByName('MD_BSAGVEFAT').Value:=ComboBox4.Text;
MADENKAYIT.FieldByName('MD_ANNEMESL').Value:=DBEdit11.Text;
MADENKAYIT.FieldByName('MD_ASAGVEFAT').Value:=ComboBox5.Text;
MADENKAYIT.FieldByName('MD_KARDESSAYI').Value:=DBEdit12.Text;
MADENKAYIT.FieldByName('MD_OKYKRDSAYI').Value:=DBEdit13.Text;
MADENKAYIT.FieldByName('MD_AILEGDUZEY').Value:=DBEdit14.Text;
MADENKAYIT.FieldByName('MD_ADRES').Value:=DBEdit15.Text;
MADENKAYIT.FieldByName('MD_TELEFON').Value:=MaskEdit1.Text;
MADENKAYIT.FieldByName('MD_EPOSTA').Value:=DBEdit16.Text;
MADENKAYIT.FieldByName('MD_AILEADRES').Value:=DBEdit17.Text;
MADENKAYIT.FieldByName('MD_AILETELEFON').Value:=MaskEdit2.Text;
MADENKAYIT.FieldByName('MD_ACILYAKIN').Value:=DBEdit18.Text;
MADENKAYIT.FieldByName('MD_ACILTEL').Value:=MaskEdit3.Text;
MADENKAYIT.FieldByName('MD_SOSYALMEDYA').Value:=DBEdit19.Text;
MADENKAYIT.FieldByName('MD_OZELYETENEK').Value:=DBEdit20.Text;
MADENKAYIT.FieldByName('MD_HOBILER').Value:=DBEdit21.Text;
MADENKAYIT.FieldByName('MD_BURS').Value:=ComboBox6.Text;
MADENKAYIT.FieldByName('MD_BURSIHTY').Value:=ComboBox7.Text;
MADENKAYIT.FieldByName('MD_SAGLIKPROB').Value:=DBEdit22.Text;
MADENKAYIT.FieldByName('MD_GNLHASTALIK').Value:=DBEdit23.Text;
MADENKAYIT.FieldByName('MD_DGRHUSUS').Value:=DBEdit24.Text;
MADENKAYIT.FieldByName('MD_MEZUNYILI').Value:=MaskEdit4.Text;
MADENKAYIT.FieldByName('MD_MZNORTALAMA').Value:=DBEdit25.Text;
MADENKAYIT.FieldByName('MD_EGTDURUM').Value:=ComboBox8.Text;
MADENKAYIT.FieldByName('MD_CALISIL').Value:=ComboBox9.Text;
MADENKAYIT.FieldByName('MD_CALISILCE').Value:=ComboBox10.Text;
MADENKAYIT.FieldByName('MD_CALISYER').Value:=ComboBox11.Text;
MADENKAYIT.FieldByName('MD_MSLICDIS').Value:=DBEdit26.Text;
MADENKAYIT.FieldByName('MD_POZISYON').Value:=DBEdit27.Text;
MADENKAYIT.FieldByName('MD_CALISBOLM').Value:=DBEdit28.Text;
MADENKAYIT.FieldByName('MD_CALISKURUM').Value:=ComboBox12.Text;
MADENKAYIT.FieldByName('MD_CALKUROZEL').Value:=DBEdit29.Text;
MADENKAYIT.FieldByName('MD_CALKURMADI').Value:=ComboBox13.Text;
MADENKAYIT.FieldByName('MD_CALISMADEN').Value:=ComboBox14.Text;
MADENKAYIT.FieldByName('MD_YEDEK1').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK2').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK3').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK4').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK5').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK6').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK7').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK8').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK9').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK10').Value:=NULL;
//MADENKAYIT.FieldByName('MD_KAYITID').AsString:=Edit4.Text;
MADENKAYIT.FieldByName('MD_KAYITID').AsInteger := StrToInt(Edit4.Text);
MADENKAYIT.Post;
Application.MessageBox('Öğrenci Kaydı Eklenmiştir !!!','Bilgilendirme Mesajı',MB_ICONINFORMATION);
//////////////////////////////////////////////////////////////////////////////////////////////////////
Edit4.Text:=MDKAYITID.FieldByName('MD_KAYITID').Text;
MDKAYITID.close;
MDKAYITID.sql.clear;
MDKAYITID.SQL.Add('select MD_KAYITID from TBLMADENKAYIT order by MD_KAYITID DESC');
MDKAYITID.open;
  if (MDKAYITID.recordcount<=0) Then
    begin
     Edit4.Clear;
     Edit4.Text:='1';
  end
  else
  begin
    edit4.clear;
    edit4.text:=inttostr(MDKAYITID.fields[0].AsInteger+1);

//MADENKAYIT.Active:=False;
//MDKAYITID.Active:=False;

  end;
end;
//end;
/////////////////////////////////////////////////////////////////////////////////////////

procedure TForm3.FormShow(Sender: TObject);
begin
MADENKAYIT.Active:=True;
MDKAYITID.Active:=True;

Edit4.Text:=MDKAYITID.FieldByName('MD_KAYITID').Text;
MDKAYITID.close;
MDKAYITID.sql.clear;
MDKAYITID.SQL.Add('select MD_KAYITID from TBLMADENKAYIT order by MD_KAYITID DESC');
MDKAYITID.open;
  if (MDKAYITID.recordcount<=0) Then
    begin
     Edit4.Clear;
     Edit4.Text:='1';
  end
  else
  begin
    edit4.clear;
    edit4.text:=inttostr(MDKAYITID.fields[0].AsInteger+1);
//MADENKAYIT.Active:=False;
//MDKAYITID.Active:=False;
  end;
end;


procedure TForm3.BitBtn3Click(Sender: TObject);
begin
MADENKAYIT.Edit;
MADENKAYIT.FieldByName('MD_KAYITID').Value:=Edit4.Text;
MADENKAYIT.FieldByName('MD_CEMKODU').Value:=Edit1.Text;
MADENKAYIT.FieldByName('MD_ADSOYAD').Value:=DBEdit1.Text;
MADENKAYIT.FieldByName('MD_SINIFI').Value:=DBEdit2.Text;
MADENKAYIT.FieldByName('MD_TCKIMLIK').Value:=Edit2.Text;
MADENKAYIT.FieldByName('MD_OGRNO').Value:=Edit3.Text;
MADENKAYIT.FieldByName('MD_NUFKAYIL').Value:=ComboBox1.Text;
MADENKAYIT.FieldByName('MD_DOGYERI').Value:=ComboBox2.Text;
MADENKAYIT.FieldByName('MD_DOGTARIHI').AsDateTime:=DateTimePicker1.Date;
MADENKAYIT.FieldByName('MD_BAYBYN').Value:=ComboBox3.Text;
MADENKAYIT.FieldByName('MD_KANGRUP').Value:=DBEdit3.Text;
MADENKAYIT.FieldByName('MD_UNVGTAR').AsDateTime:=DateTimePicker2.Date;
MADENKAYIT.FieldByName('MD_BLMKTERC').Value:=DBEdit4.Text;
MADENKAYIT.FieldByName('MD_IDLMESLEKLER').Value:=DBEdit5.Text;
MADENKAYIT.FieldByName('MD_MZOLDLISE').Value:=DBEdit6.Text;
MADENKAYIT.FieldByName('MD_LISEBNOTU').Value:=DBEdit7.Text;
MADENKAYIT.FieldByName('MD_OSSPUAN').Value:=DBEdit8.Text;
MADENKAYIT.FieldByName('MD_OSSTURU').Value:=DBEdit9.Text;
MADENKAYIT.FieldByName('MD_BABAMESL').Value:=DBEdit10.Text;
MADENKAYIT.FieldByName('MD_BSAGVEFAT').Value:=ComboBox4.Text;
MADENKAYIT.FieldByName('MD_ANNEMESL').Value:=DBEdit11.Text;
MADENKAYIT.FieldByName('MD_ASAGVEFAT').Value:=ComboBox5.Text;
MADENKAYIT.FieldByName('MD_KARDESSAYI').Value:=DBEdit12.Text;
MADENKAYIT.FieldByName('MD_OKYKRDSAYI').Value:=DBEdit13.Text;
MADENKAYIT.FieldByName('MD_AILEGDUZEY').Value:=DBEdit14.Text;
MADENKAYIT.FieldByName('MD_ADRES').Value:=DBEdit15.Text;
MADENKAYIT.FieldByName('MD_TELEFON').Value:=MaskEdit1.Text;
MADENKAYIT.FieldByName('MD_EPOSTA').Value:=DBEdit16.Text;
MADENKAYIT.FieldByName('MD_AILEADRES').Value:=DBEdit17.Text;
MADENKAYIT.FieldByName('MD_AILETELEFON').Value:=MaskEdit2.Text;
MADENKAYIT.FieldByName('MD_ACILYAKIN').Value:=DBEdit18.Text;
MADENKAYIT.FieldByName('MD_ACILTEL').Value:=MaskEdit3.Text;
MADENKAYIT.FieldByName('MD_SOSYALMEDYA').Value:=DBEdit19.Text;
MADENKAYIT.FieldByName('MD_OZELYETENEK').Value:=DBEdit20.Text;
MADENKAYIT.FieldByName('MD_HOBILER').Value:=DBEdit21.Text;
MADENKAYIT.FieldByName('MD_BURS').Value:=ComboBox6.Text;
MADENKAYIT.FieldByName('MD_BURSIHTY').Value:=ComboBox7.Text;
MADENKAYIT.FieldByName('MD_SAGLIKPROB').Value:=DBEdit22.Text;
MADENKAYIT.FieldByName('MD_GNLHASTALIK').Value:=DBEdit23.Text;
MADENKAYIT.FieldByName('MD_DGRHUSUS').Value:=DBEdit24.Text;
MADENKAYIT.FieldByName('MD_MEZUNYILI').Value:=MaskEdit4.Text;
MADENKAYIT.FieldByName('MD_MZNORTALAMA').Value:=DBEdit25.Text;
MADENKAYIT.FieldByName('MD_EGTDURUM').Value:=ComboBox8.Text;
MADENKAYIT.FieldByName('MD_CALISIL').Value:=ComboBox9.Text;
MADENKAYIT.FieldByName('MD_CALISILCE').Value:=ComboBox10.Text;
MADENKAYIT.FieldByName('MD_CALISYER').Value:=ComboBox11.Text;
MADENKAYIT.FieldByName('MD_MSLICDIS').Value:=DBEdit26.Text;
MADENKAYIT.FieldByName('MD_POZISYON').Value:=DBEdit27.Text;
MADENKAYIT.FieldByName('MD_CALISBOLM').Value:=DBEdit28.Text;
MADENKAYIT.FieldByName('MD_CALISKURUM').Value:=ComboBox12.Text;
MADENKAYIT.FieldByName('MD_CALKUROZEL').Value:=DBEdit29.Text;
MADENKAYIT.FieldByName('MD_CALKURMADI').Value:=ComboBox13.Text;
MADENKAYIT.FieldByName('MD_CALISMADEN').Value:=ComboBox14.Text;
MADENKAYIT.FieldByName('MD_YEDEK1').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK2').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK3').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK4').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK5').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK6').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK7').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK8').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK9').Value:=NULL;
MADENKAYIT.FieldByName('MD_YEDEK10').Value:=NULL;
MADENKAYIT.Post;
Application.MessageBox('Öğrenci Kaydı Düzeltilmiştir !!!','Bilgilendirme Mesajı',MB_ICONINFORMATION);
end;

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // Öğrenci Rehber
  if Key = VK_F2 then
  begin
    GroupBox1.Visible := True;
    Edit5.SetFocus();
  end;
end;


procedure TForm3.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
IF Key=#27 Then
GroupBox1.Visible:=False;
Exit;
end;

procedure TForm3.Edit5Change(Sender: TObject);
begin
MDOGRARA.Active:=True;
MDOGRARA.Close;
MDOGRARA.SQL.Clear;
MDOGRARA.SQL.Add('SELECT DISTINCT MD_CEMKODU,MD_ADSOYAD,MD_TCKIMLIK,MD_OGRNO FROM TBLMADENKAYIT WHERE MD_CEMKODU LIKE :MD_CEMKODU');
MDOGRARA.Parameters.ParamByName('MD_CEMKODU').Value:=Edit5.text+'%';
MDOGRARA.Open;
End;

procedure TForm3.Edit6Change(Sender: TObject);
begin
MDOGRARA.Active:=True;
MDOGRARA.Close;
MDOGRARA.SQL.Clear;
MDOGRARA.SQL.Add('SELECT DISTINCT MD_CEMKODU,MD_ADSOYAD,MD_TCKIMLIK,MD_OGRNO FROM TBLMADENKAYIT WHERE MD_ADSOYAD LIKE :MD_ADSOYAD');
MDOGRARA.Parameters.ParamByName('MD_ADSOYAD').Value:=Edit6.text+'%';
MDOGRARA.Open;
end;


procedure TForm3.Edit7Change(Sender: TObject);
begin
MDOGRARA.Active:=True;
MDOGRARA.Close;
MDOGRARA.SQL.Clear;
MDOGRARA.SQL.Add('SELECT DISTINCT MD_CEMKODU,MD_ADSOYAD,MD_TCKIMLIK,MD_OGRNO FROM TBLMADENKAYIT WHERE MD_TCKIMLIK LIKE :MD_TCKIMLIK');
MDOGRARA.Parameters.ParamByName('MD_TCKIMLIK').Value:=Edit7.text+'%';
MDOGRARA.Open;
end;


procedure TForm3.RzBitBtn1Click(Sender: TObject);
begin
  // Öğrenci Rehber
    GroupBox1.Visible := True;
    Edit5.SetFocus();
end;

procedure TForm3.DBGrid1DblClick(Sender: TObject);
begin
MDOGRARA.Active:=True;
Edit1.Enabled:=False;
GroupBox1.Visible:=False;

//Edit1.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_CEMKODU').AsString;
//DBEdit1.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_ADSOYAD').AsString;
//Edit2.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_TCKIMLIK').AsString;
//Edit3.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_OGRNO').AsString;

IF MADENKAYIT.Locate('MD_CEMKODU',Edit1.Text,[])=True then
Begin
Edit1.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_CEMKODU').AsString;
DBEdit1.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_ADSOYAD').AsString;
Edit2.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_TCKIMLIK').AsString;
Edit3.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_OGRNO').AsString;
Edit4.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_KAYITID').AsString;
DBEdit10.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_BABAMESL').AsString;
ComboBox4.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_BSAGVEFAT').AsString;
DBEdit11.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_ANNEMESL').AsString;
ComboBox5.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_ASAGVEFAT').AsString;
DBEdit12.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_KARDESSAYI').AsString;
DBEdit13.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_OKYKRDSAYI').AsString;
DBEdit14.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_AILEGDUZEY').AsString;
DBEdit15.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_ADRES').AsString;
MaskEdit1.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_TELEFON').AsString;
DBEdit16.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_EPOSTA').AsString;
DBEdit17.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_AILEADRES').AsString;
MaskEdit2.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_AILETELEFON').AsString;
DBEdit18.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_ACILYAKIN').AsString;
MaskEdit3.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_ACILTEL').AsString;
DBEdit19.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_SOSYALMEDYA').AsString;
DBEdit20.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_OZELYETENEK').AsString;
DBEdit21.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_HOBILER').AsString;
ComboBox6.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_BURS').AsString;
ComboBox7.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_BURSIHTY').AsString;
DBEdit22.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_SAGLIKPROB').AsString;
DBEdit23.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_GNLHASTALIK').AsString;
DBEdit24.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_DGRHUSUS').AsString;
MaskEdit4.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_MEZUNYILI').AsString;
DBEdit25.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_MZNORTALAMA').AsString;
ComboBox8.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_EGTDURUM').AsString;
ComboBox9.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_CALISIL').AsString;
ComboBox10.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_CALISILCE').AsString;
ComboBox11.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_CALISYER').AsString;
DBEdit26.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_MSLICDIS').AsString;
DBEdit27.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_POZISYON').AsString;
DBEdit28.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_CALISBOLM').AsString;
ComboBox12.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_CALISKURUM').AsString;
DBEdit29.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_CALKUROZEL').AsString;
ComboBox13.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_CALKURMADI').AsString;
ComboBox14.Text:=DBGrid2.DataSource.DataSet.FieldByName('MD_CALISMADEN').AsString;
end;
END;


procedure TForm3.DataSource3DataChange(Sender: TObject; Field: TField);
begin
Edit1.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_CEMKODU').AsString;
DBEdit1.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_ADSOYAD').AsString;
Edit2.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_TCKIMLIK').AsString;
Edit3.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_OGRNO').AsString;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
//////////////TEMİZLE/////////////////////
Edit1.Enabled:=True;
//Edit4.Clear;
Edit1.Text:='';
DBEdit1.Text:='';
DBEdit2.Text:='';
Edit2.Text:='';
Edit3.Text:='';
DateTimePicker1.Date:=Date;
DBEdit3.Text:='';
DateTimePicker2.Date:=Date;
DBEdit4.Text:='';
DBEdit5.Text:='';
DBEdit6.Text:='';
DBEdit7.Text:='';
DBEdit8.Text:='';
DBEdit9.Text:='';
DBEdit10.Text:='';
DBEdit11.Text:='';
DBEdit12.Text:='';
DBEdit13.Text:='';
DBEdit14.Text:='';
DBEdit15.Text:='';
MaskEdit1.Text:='';
DBEdit16.Text:='';
DBEdit17.Text:='';
MaskEdit2.Text:='';
DBEdit18.Text:='';
MaskEdit3.Text:='';
DBEdit19.Text:='';
DBEdit20.Text:='';
DBEdit21.Text:='';
DBEdit22.Text:='';
DBEdit23.Text:='';
DBEdit24.Text:='';
MaskEdit4.Text:='';
DBEdit25.Text:='';
DBEdit26.Text:='';
DBEdit27.Text:='';
DBEdit28.Text:='';
DBEdit29.Text:='';
end;

Eğer form üzerinde DataSource3 bileşeninin DataSet değerinde MADENKAYIT var ise sorununuz aşağıdaki kod kaynaklı gözüküyor.

Kod: Tümünü seç

procedure TForm3.DataSource3DataChange(Sender: TObject; Field: TField);
begin
Edit1.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_CEMKODU').AsString;
DBEdit1.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_ADSOYAD').AsString;
Edit2.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_TCKIMLIK').AsString;
Edit3.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_OGRNO').AsString;
end;

Düzeltmek için aşağıdaki gibi bir kod yazmanız mümkün olabilir.

Kod: Tümünü seç

procedure TForm3.DataSource3DataChange(Sender: TObject; Field: TField);
begin
  if DataSource3.State = dsBrowse then
  begin
    Edit1.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_CEMKODU').AsString;
    DBEdit1.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_ADSOYAD').AsString;
    Edit2.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_TCKIMLIK').AsString;
    Edit3.Text:=DBGrid1.DataSource.DataSet.FieldByName('MD_OGRNO').AsString;
  end;
end;

[ozcank]

dediğiniz düzenlemeyi yaptım sorun hala devam ediyor:(


---------------------------
Debugger Exception Notification
---------------------------
Project MADENPRJ1.exe raised exception class EOleException with message 'Cannot insert the value NULL into column 'MD_KAYITID', table 'MADENPRO.dbo.TBLMADENKAYIT'; column does not allow nulls. INSERT fails'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

[ertank]

Uygulamanızda Form2 içinde MADENKAYIT bileşenini kullanan herhangi bir kod/bileşen var mı? Sorun Form2 içinde de olabilir. Zira siz uygulama içindeki tüm formları ilk çalışma zamanında oluşturup Show()/Hide() kullanarak ekranda gösteriyorsunuz.

[ozcank]

evet kontrol ettim form2 de sadece form3 e yönlendirme var.

[ozcank]

Kod: Tümünü seç

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form2.Hide;
Form3.Show;
end;

[ozcank]

Datasetsource1 de Properties de AutoEdit özelliği False yaptık.

program da "kayıt Ekle" buttonun da
MADENKAYIT.Open;
MADDENKAYIT.Append;

"Kaydet" butonunda da
MADENKAYIT.Post; yaparak sorun düzeldi.

[greenegitim]

Datasetsource1 de Properties de AutoEdit özelliği False yaptık.

program da "kayıt Ekle" buttonun da
MADENKAYIT.Open;
MADDENKAYIT.Append;

"Kaydet" butonunda da
MADENKAYIT.Post; yaparak sorun düzeldi.

sormayı unutum nesnelerinize neden anlaşılır isimler vermiyorsunuz form1 yerine frm_anamenu yada FrmAnaMenu button1 yerine btn_kaydet veye BtnKaydet gibi bu şekilde kullanım da nasıl hatırlıyorsunuz git gide zorlaşmıyormu?