Kod: Tümünü seç
procedure TForm9.Button1Click(Sender: TObject);
begin
SeriNoKayit.Close;
SeriNoKayit.Active:=True;
IF SeriNoKayit.Locate('SERI',Edit3.Text,[]) Then
Begin
Application.MessageBox('Farklı Seri Girmelisiniz !!!','Uyarı Mesajı',MB_ICONERROR);
Exit;
End
Else
//IF NOT SeriNoKayit.Locate('SERI',Edit3.Text,[]) Then
SeriNoKayit.SQL.Clear();
SeriNoKayit.SQL.Text:='INSERT INTO TBLEFATUNO(SUBE_KODU,SERI,TIP,NUMARA) VALUES (''0'','+#39+''+Edit3.Text+''+#39+',''1'',''000000000000'')';
SeriNoKayit.ExecSQL;
End;