Merhaba arkadaşlar.
formda 4 adet tarih alanım var. bu tarihleri normal tarihle kaydedebiliyorum hiç bir problem yok. fakat kayıt güncelle yaptığımda resimdeki örnek gibi 30.11.1912 tarih giriyorum fakat veri tabanına 19.11.2030 olarak kaydediyor. sürekli kullandığım kodlar bu defa skoy verdi 4 tarih alanımın 4 üde ay şekilde kaydediyor. bi türlü çözemedim. gözümden kaçan birşeyler var ama nedir. Sizin gözünüze takılabilir arkadaşlar bi yardımcı olurmusunuz.
güncelle butonunun kodları:
Kod: Tümünü seç
procedure TForm31.cxButton1Click(Sender: TObject);
var
a,b:integer;
begin
islem.close;
islem.sql.clear;
islem.SQL.add('select * from urunekle where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.open;
a:=islem.RecordCount;
if a=0 then
begin
showmessage('En Az 1 Ürün Ekleyiniz.')
end
else
begin
//edit5.Clear;
if (trim(cxcombobox1.Text)='') then
begin
Application.MessageBox('Personel Adını Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox1.SetFocus();
end
else if (trim(cxbuttonedit1.Text)='') then
begin
Application.MessageBox('Müşteri Adını Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxbuttonedit1.SetFocus();
end
else if (trim(cxtextedit3.Text)='') then
begin
Application.MessageBox('TC/Vergi No Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit3.SetFocus();
end
else if (trim(cxtextedit5.Text)='') then
begin
Application.MessageBox('Telefon Numarası Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit5.SetFocus();
end
else if (trim(cxtextedit8.Text)='') then
begin
Application.MessageBox('Mail Adresini Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit8.SetFocus();
end
else if (trim(cxmemo1.Text)='') then
begin
Application.MessageBox('Adres Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxmemo1.SetFocus();
end
else if (trim(cxmemo2.Text)='') then
begin
Application.MessageBox('Açıklama Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxmemo2.SetFocus();
end
else if (trim(edit1.Text)='') then
begin
Application.MessageBox('Belge Türü Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
end
else if (trim(edit3.Text)='') then
begin
Application.MessageBox('Ödeme Türünü Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
end
else if (trim(edit4.Text)='') then
begin
Application.MessageBox('Ödeme Durumu Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
end
else if (trim(cxcurrencyedit1.Text)<>'0,00') and (trim(cxcombobox5.Text)='') then
begin
Application.MessageBox('Para Birimi Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox5.SetFocus();
end
else if (trim(cxcombobox5.Text)<>'') and (trim(edit6.Text)='') then
begin
Application.MessageBox('Kdv Durumunu Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
end
else
begin
guncelle.Close;
guncelle.SQL.Clear;
guncelle.SQL.Add('update siparis set tarih='+quotedstr(trim(cxDateEdit1.Text))+', personel='+quotedstr(trim(cxcombobox1.Text))+', ckod='+quotedstr(trim(cxtextedit2.Text))+', madi='+quotedstr(trim(cxbuttonedit1.Text))+'');
guncelle.SQL.Add(', mtc='+quotedstr(trim(cxtextedit3.Text))+', mvergi='+quotedstr(trim(cxtextedit4.Text))+', mturu='+quotedstr(trim(cxtextedit11.Text))+', mtelefon='+quotedstr(trim(cxtextedit5.Text))+'');
guncelle.SQL.Add(', mgsm='+quotedstr(trim(cxtextedit6.Text))+', mfax='+quotedstr(trim(cxtextedit7.Text))+', mmail='+quotedstr(trim(cxtextedit8.Text))+', madres='+quotedstr(trim(cxmemo1.Text))+'');
guncelle.SQL.Add(', irsaliye='+quotedstr(trim(edit1.Text))+', ino='+quotedstr(trim(cxtextedit9.Text))+', itarih='+quotedstr(trim(cxdateedit3.Text))+', fatura='+quotedstr(trim(edit2.Text))+'');
guncelle.SQL.Add(', fno='+quotedstr(trim(cxtextedit16.Text))+', ftarih='+quotedstr(trim(cxdateedit4.Text))+', testarih='+quotedstr(trim(cxdateedit5.Text))+', fiyat='+quotedstr(trim(cxcurrencyedit1.Text))+'');
guncelle.SQL.Add(', odeme='+quotedstr(trim(edit3.Text))+', pbirim='+quotedstr(trim(cxcombobox5.Text))+', kdv='+quotedstr(trim(edit6.Text))+', tahsilat='+quotedstr(trim(edit4.Text))+', tahsilattarih='+quotedstr(trim(cxdateedit2.Text))+', aciklama='+quotedstr(trim(cxmemo2.Text))+'');
guncelle.SQL.Add(', hastane='+quotedstr(trim(cxtextedit18.Text))+', bolum='+quotedstr(trim(cxtextedit19.Text))+', doktor='+quotedstr(trim(cxtextedit20.Text))+', tani='+quotedstr(trim(cxtextedit21.Text))+'');
guncelle.SQL.Add(', kguncelleyen='+quotedstr(trim(cxtextedit12.Text + ' --KAYITTA DEĞİŞİKLİK YAPTI' + '--'+datetostr(now)))+', sonuc='+quotedstr(trim(cxcombobox4.Text))+', saciklama='+quotedstr(trim(cxmemo3.Text))+', kacan='+quotedstr(trim(cxtextedit12.Text))+' where skod='+quotedstr(trim(cxtextedit1.Text))+'');
guncelle.ExecSQL;
Application.MessageBox('Kayıt Güncellendi...',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
guncelle.Close;
guncelle.SQL.Clear;
guncelle.SQL.Add('select * from siparis order by pr_id DESC');
guncelle.Open;
close;
end;
end;
Tüm formun kodları:
Kod: Tümünü seç
unit Unit31;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
cxContainer, cxEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, ComCtrls, dxCore, cxDateUtils, cxStyles,
dxSkinscxPCPainter, cxCustomData, cxFilter, cxData, cxDataStorage,
cxNavigator, DB, cxDBData, DBAccess, MyAccess, MemDS, Menus, AdvMenus,
ImgList, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, cxCurrencyEdit,
cxCheckBox, StdCtrls, cxRadioGroup, AdvGroupBox, cxMemo, cxButtonEdit,
cxDropDownEdit, cxMaskEdit, cxCalendar, cxTextEdit, cxLabel, AdvSmoothPanel,
RzButton, dateutils, cxGroupBox, cxButtons;
type
TForm31 = class(TForm)
cxImageList1: TcxImageList;
AdvPopupMenu1: TAdvPopupMenu;
rnSil1: TMenuItem;
mnSil1: TMenuItem;
qurunekle: TMyQuery;
dsiparis: TMyDataSource;
durunekle: TMyDataSource;
qryterminal: TMyQuery;
qryterminalpr_id: TIntegerField;
qryterminaladi: TStringField;
qryterminalkisakod: TStringField;
qryterminaldepartman: TStringField;
qryterminaltelefon: TStringField;
qryterminalmail: TStringField;
qryterminalkullanici: TStringField;
qryterminalsifre: TStringField;
qryterminaltkod: TStringField;
qryterminaldurum: TStringField;
qryterminalsimdi: TStringField;
qryterminaltip: TStringField;
islem: TMyQuery;
urunler: TMyQuery;
dislem: TMyDataSource;
siparis1: TMyQuery;
pbirim: TMyQuery;
guncelle: TMyQuery;
terminal: TMyQuery;
cxGroupBox1: TcxGroupBox;
cxLabel1: TcxLabel;
cxTextEdit1: TcxTextEdit;
cxLabel2: TcxLabel;
cxLabel17: TcxLabel;
cxComboBox1: TcxComboBox;
cxGroupBox2: TcxGroupBox;
cxTextEdit2: TcxTextEdit;
cxTextEdit3: TcxTextEdit;
cxTextEdit4: TcxTextEdit;
cxTextEdit5: TcxTextEdit;
cxLabel3: TcxLabel;
cxLabel4: TcxLabel;
cxLabel5: TcxLabel;
cxLabel6: TcxLabel;
cxLabel7: TcxLabel;
cxLabel8: TcxLabel;
cxButtonEdit1: TcxButtonEdit;
cxTextEdit6: TcxTextEdit;
cxTextEdit7: TcxTextEdit;
cxTextEdit8: TcxTextEdit;
cxLabel9: TcxLabel;
cxLabel10: TcxLabel;
cxMemo1: TcxMemo;
cxLabel11: TcxLabel;
cxLabel18: TcxLabel;
cxTextEdit11: TcxTextEdit;
cxTextEdit18: TcxTextEdit;
cxTextEdit19: TcxTextEdit;
cxTextEdit20: TcxTextEdit;
cxTextEdit21: TcxTextEdit;
cxLabel33: TcxLabel;
cxLabel34: TcxLabel;
cxLabel35: TcxLabel;
cxLabel36: TcxLabel;
cxGroupBox3: TcxGroupBox;
cxTextEdit13: TcxTextEdit;
cxComboBox2: TcxComboBox;
cxTextEdit14: TcxTextEdit;
cxTextEdit15: TcxTextEdit;
cxCurrencyEdit4: TcxCurrencyEdit;
cxLabel20: TcxLabel;
cxLabel21: TcxLabel;
cxLabel22: TcxLabel;
cxLabel23: TcxLabel;
cxLabel24: TcxLabel;
cxLabel25: TcxLabel;
cxButtonEdit2: TcxButtonEdit;
cxCurrencyEdit5: TcxCurrencyEdit;
cxTextEdit17: TcxTextEdit;
cxLabel31: TcxLabel;
cxGroupBox4: TcxGroupBox;
cxGrid1: TcxGrid;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1DBTableView1pr_id: TcxGridDBColumn;
cxGrid1DBTableView1skod: TcxGridDBColumn;
cxGrid1DBTableView1ukod: TcxGridDBColumn;
cxGrid1DBTableView1uadi: TcxGridDBColumn;
cxGrid1DBTableView1ubirim: TcxGridDBColumn;
cxGrid1DBTableView1utipi: TcxGridDBColumn;
cxGrid1DBTableView1Column2: TcxGridDBColumn;
cxGrid1DBTableView1adet: TcxGridDBColumn;
cxGrid1DBTableView1fiyat: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxGroupBox5: TcxGroupBox;
cxCheckBox1: TcxCheckBox;
cxCheckBox2: TcxCheckBox;
cxDateEdit5: TcxDateEdit;
cxLabel15: TcxLabel;
cxMemo2: TcxMemo;
cxLabel16: TcxLabel;
cxCurrencyEdit1: TcxCurrencyEdit;
cxLabel19: TcxLabel;
cxCheckBox3: TcxCheckBox;
Edit1: TEdit;
Edit2: TEdit;
cxLabel13: TcxLabel;
cxLabel14: TcxLabel;
cxDateEdit3: TcxDateEdit;
cxDateEdit4: TcxDateEdit;
cxLabel28: TcxLabel;
cxLabel29: TcxLabel;
cxTextEdit9: TcxTextEdit;
cxTextEdit16: TcxTextEdit;
cxLabel37: TcxLabel;
cxComboBox5: TcxComboBox;
AdvGroupBox1: TAdvGroupBox;
cxRadioButton10: TcxRadioButton;
cxRadioButton11: TcxRadioButton;
Edit6: TEdit;
cxGroupBox6: TcxGroupBox;
cxMemo3: TcxMemo;
cxLabel32: TcxLabel;
cxComboBox4: TcxComboBox;
cxLabel30: TcxLabel;
cxGroupBox7: TcxGroupBox;
Edit5: TEdit;
cxTextEdit12: TcxTextEdit;
cxButton1: TcxButton;
cxButton2: TcxButton;
cxButton3: TcxButton;
cxGroupBox8: TcxGroupBox;
cxRadioButton1: TcxRadioButton;
cxRadioButton2: TcxRadioButton;
cxRadioButton3: TcxRadioButton;
cxRadioButton4: TcxRadioButton;
cxRadioButton5: TcxRadioButton;
Edit3: TEdit;
cxGroupBox9: TcxGroupBox;
cxRadioButton6: TcxRadioButton;
cxRadioButton7: TcxRadioButton;
cxDateEdit2: TcxDateEdit;
cxLabel12: TcxLabel;
Edit4: TEdit;
cxRadioButton8: TcxRadioButton;
cxRadioButton9: TcxRadioButton;
cxDateEdit1: TcxDateEdit;
procedure toplamguncelle();
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure FormShow(Sender: TObject);
procedure RzToolButton4Click(Sender: TObject);
procedure RzToolButton3Click(Sender: TObject);
procedure cxCheckBox3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure cxButtonEdit2PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure cxComboBox4PropertiesChange(Sender: TObject);
procedure cxRadioButton10Click(Sender: TObject);
procedure cxRadioButton11Click(Sender: TObject);
procedure rnSil1Click(Sender: TObject);
procedure mnSil1Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure cxRadioButton8Click(Sender: TObject);
procedure cxRadioButton9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form31: TForm31;
implementation
uses globaller, Unit3, Unit18, Unit32;
{$R *.dfm}
procedure TForm31.cxRadioButton9Click(Sender: TObject);
begin
if cxradiobutton9.Checked then
begin
edit4.Text:='BEDELSIZ';
end;
end;
Procedure TForm31.toplamguncelle();
var
GridBorc: currency;
begin
islem.close;
islem.SQL.clear;
islem.SQL.Add('SELECT * FROM urunekle');
islem.SQL.Add('where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.filtered := True;
islem.Open;
islem.First;
while not islem.eof do
begin
GridBorc:=GridBorc+StrtoFloat(islem.fieldbyname('fiyat').asstring);
islem.Next;
end;
cxcurrencyedit1.Text:=Floattostr(GridBorc);
cxcurrencyedit1.Text := FormatFloat('#####0.00',strtofloat(cxcurrencyedit1.Text ));
end;
procedure TForm31.cxButton1Click(Sender: TObject);
var
a,b:integer;
begin
islem.close;
islem.sql.clear;
islem.SQL.add('select * from urunekle where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.open;
a:=islem.RecordCount;
if a=0 then
begin
showmessage('En Az 1 Ürün Ekleyiniz.')
end
else
begin
//edit5.Clear;
if (trim(cxcombobox1.Text)='') then
begin
Application.MessageBox('Personel Adını Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox1.SetFocus();
end
else if (trim(cxbuttonedit1.Text)='') then
begin
Application.MessageBox('Müşteri Adını Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxbuttonedit1.SetFocus();
end
else if (trim(cxtextedit3.Text)='') then
begin
Application.MessageBox('TC/Vergi No Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit3.SetFocus();
end
else if (trim(cxtextedit5.Text)='') then
begin
Application.MessageBox('Telefon Numarası Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit5.SetFocus();
end
else if (trim(cxtextedit8.Text)='') then
begin
Application.MessageBox('Mail Adresini Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit8.SetFocus();
end
else if (trim(cxmemo1.Text)='') then
begin
Application.MessageBox('Adres Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxmemo1.SetFocus();
end
else if (trim(cxmemo2.Text)='') then
begin
Application.MessageBox('Açıklama Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxmemo2.SetFocus();
end
else if (trim(edit1.Text)='') then
begin
Application.MessageBox('Belge Türü Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
end
else if (trim(edit3.Text)='') then
begin
Application.MessageBox('Ödeme Türünü Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
end
else if (trim(edit4.Text)='') then
begin
Application.MessageBox('Ödeme Durumu Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
end
else if (trim(cxcurrencyedit1.Text)<>'0,00') and (trim(cxcombobox5.Text)='') then
begin
Application.MessageBox('Para Birimi Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox5.SetFocus();
end
else if (trim(cxcombobox5.Text)<>'') and (trim(edit6.Text)='') then
begin
Application.MessageBox('Kdv Durumunu Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
end
else
begin
guncelle.Close;
guncelle.SQL.Clear;
guncelle.SQL.Add('update siparis set tarih='+quotedstr(trim(cxDateEdit1.Text))+', personel='+quotedstr(trim(cxcombobox1.Text))+', ckod='+quotedstr(trim(cxtextedit2.Text))+', madi='+quotedstr(trim(cxbuttonedit1.Text))+'');
guncelle.SQL.Add(', mtc='+quotedstr(trim(cxtextedit3.Text))+', mvergi='+quotedstr(trim(cxtextedit4.Text))+', mturu='+quotedstr(trim(cxtextedit11.Text))+', mtelefon='+quotedstr(trim(cxtextedit5.Text))+'');
guncelle.SQL.Add(', mgsm='+quotedstr(trim(cxtextedit6.Text))+', mfax='+quotedstr(trim(cxtextedit7.Text))+', mmail='+quotedstr(trim(cxtextedit8.Text))+', madres='+quotedstr(trim(cxmemo1.Text))+'');
guncelle.SQL.Add(', irsaliye='+quotedstr(trim(edit1.Text))+', ino='+quotedstr(trim(cxtextedit9.Text))+', itarih='+quotedstr(trim(cxdateedit3.Text))+', fatura='+quotedstr(trim(edit2.Text))+'');
guncelle.SQL.Add(', fno='+quotedstr(trim(cxtextedit16.Text))+', ftarih='+quotedstr(trim(cxdateedit4.Text))+', testarih='+quotedstr(trim(cxdateedit5.Text))+', fiyat='+quotedstr(trim(cxcurrencyedit1.Text))+'');
guncelle.SQL.Add(', odeme='+quotedstr(trim(edit3.Text))+', pbirim='+quotedstr(trim(cxcombobox5.Text))+', kdv='+quotedstr(trim(edit6.Text))+', tahsilat='+quotedstr(trim(edit4.Text))+', tahsilattarih='+quotedstr(trim(cxdateedit2.Text))+', aciklama='+quotedstr(trim(cxmemo2.Text))+'');
guncelle.SQL.Add(', hastane='+quotedstr(trim(cxtextedit18.Text))+', bolum='+quotedstr(trim(cxtextedit19.Text))+', doktor='+quotedstr(trim(cxtextedit20.Text))+', tani='+quotedstr(trim(cxtextedit21.Text))+'');
guncelle.SQL.Add(', kguncelleyen='+quotedstr(trim(cxtextedit12.Text + ' --KAYITTA DEĞİŞİKLİK YAPTI' + '--'+datetostr(now)))+', sonuc='+quotedstr(trim(cxcombobox4.Text))+', saciklama='+quotedstr(trim(cxmemo3.Text))+', kacan='+quotedstr(trim(cxtextedit12.Text))+' where skod='+quotedstr(trim(cxtextedit1.Text))+'');
guncelle.ExecSQL;
Application.MessageBox('Kayıt Güncellendi...',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
guncelle.Close;
guncelle.SQL.Clear;
guncelle.SQL.Add('select * from siparis order by pr_id DESC');
guncelle.Open;
close;
end;
end;
end;
function IncMonthX(pTarih: TDate; pAy: Byte): TDate;
var Yil, Ay, Gun: Word;
begin
Result := pTarih;
if pAy = 0 then Exit;
DecodeDate(pTarih, Yil, Ay, Gun);
IncAMonth(Yil, Ay, Gun, pAy);
Result := EncodeDate(Yil, Ay, Gun);
end;
procedure TForm31.cxButton2Click(Sender: TObject);
begin
Close;
end;
procedure TForm31.cxButton3Click(Sender: TObject);
var a,b:integer;
tutar,oran,kdvtutar,geneltutar:real;
mydate:tdatetime;
sayi2,sayi1,sonuc:real;
begin
if (trim(cxbuttonedit2.Text)='') then
begin
Application.MessageBox('Ürün Kodu Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxbuttonedit2.SetFocus();
end
else
if (trim(cxtextedit13.Text)='') then
begin
Application.MessageBox('Ürün Adı Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit13.SetFocus();
end
else
if (trim(cxcombobox2.Text)='') then
begin
Application.MessageBox('Ürün Birimi Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox2.SetFocus();
end
else
if (trim(cxtextedit14.Text)='') then
begin
Application.MessageBox('Ürün Tipi Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit14.SetFocus();
end
else
if (trim(cxtextedit14.Text)='CIHAZ') AND (trim(cxtextedit17.Text)='') then
begin
Application.MessageBox('Serino Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit17.SetFocus();
end
else
if (trim(cxtextedit15.Text)='') then
begin
Application.MessageBox('Adet Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit15.SetFocus();
end
else if (trim(cxcurrencyedit4.Text)='') then
begin
Application.MessageBox('Fiyat Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcurrencyedit4.SetFocus();
end
else
begin
//sayi1:=StrTocurr(cxtextEdit15.Text);
//sayi2:=StrTocurr(cxcurrencyedit4.Text);
//sonuc:=sayi1*sayi2;
//
//tutar:=sonuc;
//oran:=strtofloat(cxtextedit10.Text);
//kdvtutar:=(tutar*oran)/100;
//geneltutar:=tutar*(1+(oran/100));
////cxcurrencyedit2.Text:=floattostr(kdvtutar);
//cxcurrencyedit5.Text:=floattostr(geneltutar);
//if islem.IsEmpty<>true then
//cxcurrencyedit5.text:=currtostr(sonuc);
//
// cxcurrencyedit5.SetFocus();
myDate := StrToDate(cxdateedit5.Text);
myDate := Incmonthx(myDate, 12);
islem.Close;
islem.SQL.Clear;
islem.SQL.Add('select * from urunekle');
islem.Open;
a:=islem.RecordCount;
with islem do
begin
Insert;
FieldByName('skod').AsString:=trim(cxtextedit1.Text);
FieldByName('ukod').AsString:=trim(cxbuttonedit2.Text);
FieldByName('uadi').AsString:=trim(cxtextedit13.Text);
FieldByName('ubirim').AsString:=trim(cxcombobox2.Text);
FieldByName('utipi').AsString:=trim(cxtextedit14.Text);
FieldByName('serino').AsString:=trim(cxtextedit9.Text);
FieldByName('adet').AsString:=trim(cxtextedit15.Text);
FieldByName('fiyat').AsString:=trim(cxcurrencyedit4.Text);
FieldByName('ckodu').AsString:=trim(cxtextedit2.Text);
FieldByName('madi').AsString:=trim(cxbuttonedit1.Text);
//FieldByName('mtc').AsString:=trim(cxtextedit3.Text);
//FieldByName('mvergi').AsString:=trim(cxtextedit4.Text);
FieldByName('mturu').AsString:=trim(cxtextedit11.Text);
FieldByName('mtelefon').AsString:=trim(cxtextedit5.Text);
FieldByName('mmobil').AsString:=trim(cxtextedit6.Text);
//FieldByName('mfax').AsString:=trim(cxtextedit7.Text);
FieldByName('mmail').AsString:=trim(cxtextedit8.Text);
FieldByName('madres').AsString:=trim(cxmemo1.Text);
fieldbyname('hastane').AsString:=trim(cxtextedit16.Text);
fieldbyname('bolum').AsString:=trim(cxtextedit17.Text);
fieldbyname('doktor').AsString:=trim(cxtextedit18.Text);
fieldbyname('tani').AsString:=trim(cxtextedit19.Text);
fieldbyname('arama').AsString:='YENI KAYIT';
fieldbyname('tarih').AsString:=trim(cxdateedit5.Text);
fieldbyname('ttarih').AsString:=datetostr(mydate);
//FieldByName('pbirim').AsString:=trim(cxcombobox4.Text);
Post;
islem.close;
islem.sql.clear;
islem.SQL.add('select * from urunekle where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.open;
toplamguncelle();
cxbuttonedit2.clear;
cxtextedit13.clear;
cxcombobox2.clear;
cxtextedit14.clear;
cxtextedit15.clear;
cxcurrencyedit4.clear;
//cxtextedit10.clear;
cxcurrencyedit5.clear;
end;
end;
end;
procedure TForm31.cxButtonEdit1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
SHOWMESSAGE('Hata.! Sipariş inceleme/Düzenleme ekranında cari ismini değiştiremezsiniz...');
end;
procedure TForm31.cxButtonEdit2PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
form32.showmodal;
end;
procedure TForm31.cxCheckBox3Click(Sender: TObject);
begin
if cxcheckbox3.Checked then
begin
cxcurrencyedit1.Properties.ReadOnly:=false;
end
else
begin
cxcurrencyedit1.Properties.ReadOnly:=true;
end;
end;
procedure TForm31.cxComboBox4PropertiesChange(Sender: TObject);
begin
if (trim(cxcombobox4.Text)='ONAYLANDI') then
begin
siparis1.Close;
siparis1.SQL.Clear;
siparis1.SQL.Add('select * from siparis where pr_id='+kkodu+'');
siparis1.execute;
edit5.Clear;
edit5.Text:=cxtextedit12.Text + ' --KAYIT ONAY İŞLEMİ GERÇEKLEŞTİRDİ'+ '--' + datetostr(now);
end
else if (trim(cxcombobox4.Text)='ONAYLANMADI') then
begin
siparis1.Close;
siparis1.SQL.Clear;
siparis1.SQL.Add('select * from siparis where pr_id='+kkodu+'');
siparis1.execute;
edit5.Clear;
edit5.Text:=cxtextedit12.Text + ' --KAYIT ONAY İPTAL İŞLEMİ GERÇEKLEŞTİRDİ'+ '--' + datetostr(now);
end
else if (trim(cxcombobox4.Text)='ONAY BEKLIYOR') then
begin
siparis1.Close;
siparis1.SQL.Clear;
siparis1.SQL.Add('select * from siparis where pr_id='+kkodu+'');
siparis1.execute;
edit5.Clear;
edit5.Text:=cxtextedit12.Text + ' --KAYIT ONAYINI BEKLETME İŞLEMİ GERÇEKLEŞTİRDİ'+ '--' + datetostr(now);
end
else if (trim(cxcombobox4.Text)='IPTAL') then
begin
siparis1.Close;
siparis1.SQL.Clear;
siparis1.SQL.Add('select * from siparis where pr_id='+kkodu+'');
siparis1.execute;
edit5.Clear;
edit5.Text:=cxtextedit12.Text + ' --KAYIT İPTALİ GERÇEKLEŞTİRDİ' + '--' + datetostr(now);
end
else
end;
procedure TForm31.cxRadioButton10Click(Sender: TObject);
begin
if cxradiobutton10.Checked then
begin
edit6.Text:='KDV DAHIL';
end;
end;
procedure TForm31.cxRadioButton11Click(Sender: TObject);
begin
if cxradiobutton11.Checked then
begin
edit6.Text:='KDV HARIC';
end;
end;
procedure TForm31.cxRadioButton8Click(Sender: TObject);
begin
if cxradiobutton8.Checked then
begin
edit3.Text:='BEDELSIZ';
end;
end;
procedure TForm31.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FORM3.qryterminal.close;
FORM3.qryterminal.sql.clear;
FORM3.qryterminal.SQL.add('select * from terminal where kullanici='+quotedstr(trim(form18.cxtextEdit1.text))+'');
FORM3.qryterminal.open;
FORM3.edit5.text:=FORM3.qryterminal.fields[1].asstring;
FORM3.edit6.text:=FORM3.qryterminal.fields[11].asstring;
if (trim(FORM3.edit6.text)='YONETICI') or (trim(FORM3.edit6.text)='MUHASEBE') then
begin
FORM3.siparis.Close;
FORM3.siparis.SQL.Clear;
FORM3.siparis.SQL.Add('select * from siparis order by pr_id DESC');
FORM3.siparis.Open;
end
else
begin
FORM3.siparis.Close;
FORM3.siparis.SQL.Clear;
FORM3.siparis.SQL.Add('select * from siparis where personel='+quotedstr(trim(FORM3.edit5.Text))+'');
FORM3.siparis.Open;
end;
end;
procedure TForm31.FormShow(Sender: TObject);
begin
urunler.Active:=true;
qryterminal.Active:=true;
siparis1.Active:=true;
islem.Active:=true;
qurunekle.Active:=true;
pbirim.Active:=true;
guncelle.Active:=true;
terminal.Active:=true;
qryterminal.close;
qryterminal.sql.clear;
qryterminal.SQL.add('select * from terminal where kullanici='+quotedstr(trim(form18.cxtextEdit1.text))+'');
qryterminal.open;
cxtextedit12.text:=qryterminal.fields[1].asstring;
siparis1.Close;
siparis1.SQL.Clear;
siparis1.SQL.Add('select * from siparis where pr_id='+kkodu+'');
siparis1.execute;
//siparis1.Close;
//siparis1.SQL.Clear;
//siparis1.SQL.Add('select * from siparis where skod='+quotedstr(trim(cxtextedit1.Text))+'');
//siparis1.open;
cxtextedit1.Text:=siparis1.Fields[1].AsString;
cxdateedit1.Text:=siparis1.Fields[2].AsString;
cxcombobox1.Text:=siparis1.Fields[3].AsString;
cxtextedit2.Text:=siparis1.Fields[4].AsString;
cxbuttonedit1.Text:=siparis1.Fields[5].AsString;
cxtextedit3.Text:=siparis1.Fields[6].AsString;
cxtextedit4.Text:=siparis1.Fields[7].AsString;
cxtextedit11.Text:=siparis1.Fields[8].AsString;
cxtextedit5.Text:=siparis1.Fields[9].AsString;
cxtextedit6.Text:=siparis1.Fields[10].AsString;
cxtextedit7.Text:=siparis1.Fields[11].AsString;
cxtextedit8.Text:=siparis1.Fields[12].AsString;
cxmemo1.Text:=siparis1.Fields[13].AsString;
edit1.Text:=siparis1.Fields[14].AsString;
edit2.Text:=siparis1.Fields[17].AsString;
edit3.Text:=siparis1.Fields[24].AsString;
edit4.Text:=siparis1.Fields[25].AsString;
cxdateedit5.Text:=siparis1.Fields[20].AsString;
cxcurrencyedit1.Text:=siparis1.Fields[21].AsString;
cxcombobox5.Text:=siparis1.Fields[23].AsString;
cxtextedit9.Text:=siparis1.Fields[15].AsString;
cxtextedit16.Text:=siparis1.Fields[18].AsString;
cxdateedit3.Text:=siparis1.Fields[16].AsString;
cxdateedit4.Text:=siparis1.Fields[19].AsString;
cxmemo2.Text:=siparis1.Fields[27].AsString;
cxdateedit2.Text:=siparis1.Fields[26].AsString;
cxcombobox4.Text:=siparis1.Fields[28].AsString;
cxmemo3.Text:=siparis1.Fields[29].AsString;
//cxtextedit12.Text:=siparis1.Fields[30].AsString;
cxtextedit18.Text:=siparis1.Fields[31].AsString;
cxtextedit19.Text:=siparis1.Fields[32].AsString;
cxtextedit20.Text:=siparis1.Fields[33].AsString;
cxtextedit21.Text:=siparis1.Fields[34].AsString;
edit6.Text:=siparis1.Fields[36].AsString;
//edit5.Text:=siparis1.Fields[35].AsString;
islem.close;
islem.sql.clear;
islem.SQL.add('select * from urunekle where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.open;
if (trim(edit1.Text)='IRSALIYE') then
begin
cxcheckbox1.Checked:=true;
end
else
begin
end;
if (trim(edit2.Text)='FATURA') then
begin
cxcheckbox2.Checked:=true;
end
else
begin
end;
if (trim(edit3.Text)='NAKIT') then
begin
cxradiobutton1.Checked:=true;
end
else
begin
end;
if (trim(edit3.Text)='HAVALE') then
begin
cxradiobutton2.Checked:=true;
end
else
begin
end;
if (trim(edit3.Text)='KREDI KARTI') then
begin
cxradiobutton3.Checked:=true;
end
else
begin
end;
if (trim(edit3.Text)='CEK') then
begin
cxradiobutton4.Checked:=true;
end
else
begin
end;
if (trim(edit3.Text)='SENET') then
begin
cxradiobutton5.Checked:=true;
end
else
begin
end;
if (trim(edit3.Text)='BEDELSIZ') then
begin
cxradiobutton8.Checked:=true;
end
else
begin
end;
if (trim(edit4.Text)='BEDELSIZ') then
begin
cxradiobutton9.Checked:=true;
end
else
begin
end;
if (trim(edit4.Text)='YAPILDI') then
begin
cxradiobutton6.Checked:=true;
end
else
begin
end;
if (trim(edit4.Text)='YAPILMADI') then
begin
cxradiobutton7.Checked:=true;
end
else
begin
end;
if (trim(edit6.Text)='KDV DAHIL') then
begin
cxradiobutton10.Checked:=true;
end
else
begin
cxradiobutton10.Checked:=false;
end;
if (trim(edit6.Text)='KDV HARIC') then
begin
cxradiobutton11.Checked:=true;
end
else
begin
cxradiobutton11.Checked:=false;
end;
if (trim(cxcurrencyedit1.Text)='0') then
begin
cxcurrencyedit1.Text:='0,00';
end
else
begin
end;
qryterminal.close;
qryterminal.SQL.Clear;
qryterminal.SQL.Add('select * from terminal order by pr_id ASC');
//ASC dersen en eski kaydı en başa alır
//DESC dersen en yeni kaydı en başa alır
qryterminal.open;
cxcombobox1.Properties.Items.Clear;
while not qryterminal.eof do
begin
cxcombobox1.Properties.Items.Add(qryterminal.fieldbyname('adi').asstring);
qryterminal.next;
cxbuttonedit1.SetFocus();
end;
pbirim.close;
pbirim.SQL.Clear;
pbirim.SQL.Add('select * from pbirim order by pr_id ASC');
//ASC dersen en eski kaydı en başa alır
//DESC dersen en yeni kaydı en başa alır
pbirim.open;
cxcombobox5.Properties.Items.Clear;
while not pbirim.eof do
begin
cxcombobox5.Properties.Items.Add(pbirim.fieldbyname('pbirim').asstring);
pbirim.next;
cxbuttonedit1.SetFocus();
end;
end;
procedure TForm31.mnSil1Click(Sender: TObject);
begin
islem.Close;
islem.SQL.Clear;
islem.SQL.Add('delete from urunekle where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.ExecSQL;
islem.Close;
islem.SQL.Clear;
islem.SQL.Add('select * from urunekle where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.Open;
toplamguncelle();
end;
procedure TForm31.rnSil1Click(Sender: TObject);
var cvp:word;
var kod:string;
a:integer;
begin
cvp:=Application.MessageBox('UYARI : Ürünü Silmek İstediğinize Eminmisiniz ?',
'Kayıt Silme',
MB_YESNO+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
if cvp=IDYES then
begin
islem.close;
islem.sql.clear;
islem.SQL.add('select * from urunekle where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.open;
a:=islem.RecordCount;
if a=0 then
begin
showmessage('Silinecek Ürün Bulunamadı.')
end
else
begin
kod:='';
kod:=islem.Fields[0].AsString;
islem.Close;
islem.SQL.Clear;
islem.SQL.Add('delete from urunekle where pr_id='+kod+'');
islem.ExecSQL;
//islem.Close;
//islem.SQL.Clear;
//islem.SQL.Add('select * from urunekle order by pr_id DESC');
//islem.Open;
islem.close;
islem.sql.clear;
islem.SQL.add('select * from urunekle where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.open;
toplamguncelle();
end;
end;
end;
procedure TForm31.RzToolButton3Click(Sender: TObject);
begin
close;
end;
procedure TForm31.RzToolButton4Click(Sender: TObject);
var a,b:integer;
tutar,oran,kdvtutar,geneltutar:real;
mydate:tdatetime;
sayi2,sayi1,sonuc:real;
begin
if (trim(cxbuttonedit2.Text)='') then
begin
Application.MessageBox('Ürün Kodu Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxbuttonedit2.SetFocus();
end
else
if (trim(cxtextedit13.Text)='') then
begin
Application.MessageBox('Ürün Adı Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit13.SetFocus();
end
else
if (trim(cxcombobox2.Text)='') then
begin
Application.MessageBox('Ürün Birimi Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox2.SetFocus();
end
else
if (trim(cxtextedit14.Text)='') then
begin
Application.MessageBox('Ürün Tipi Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit14.SetFocus();
end
else
if (trim(cxtextedit14.Text)='CIHAZ') AND (trim(cxtextedit17.Text)='') then
begin
Application.MessageBox('Serino Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit17.SetFocus();
end
else
if (trim(cxtextedit15.Text)='') then
begin
Application.MessageBox('Adet Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxtextedit15.SetFocus();
end
else if (trim(cxcurrencyedit4.Text)='') then
begin
Application.MessageBox('Fiyat Giriniz!',
'Kayıt Kontrol',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcurrencyedit4.SetFocus();
end
else
begin
//sayi1:=StrTocurr(cxtextEdit15.Text);
//sayi2:=StrTocurr(cxcurrencyedit4.Text);
//sonuc:=sayi1*sayi2;
//
//tutar:=sonuc;
//oran:=strtofloat(cxtextedit10.Text);
//kdvtutar:=(tutar*oran)/100;
//geneltutar:=tutar*(1+(oran/100));
////cxcurrencyedit2.Text:=floattostr(kdvtutar);
//cxcurrencyedit5.Text:=floattostr(geneltutar);
//if islem.IsEmpty<>true then
//cxcurrencyedit5.text:=currtostr(sonuc);
//
// cxcurrencyedit5.SetFocus();
myDate := StrToDate(cxdateedit5.Text);
myDate := Incmonthx(myDate, 12);
islem.Close;
islem.SQL.Clear;
islem.SQL.Add('select * from urunekle');
islem.Open;
a:=islem.RecordCount;
with islem do
begin
Insert;
FieldByName('skod').AsString:=trim(cxtextedit1.Text);
FieldByName('ukod').AsString:=trim(cxbuttonedit2.Text);
FieldByName('uadi').AsString:=trim(cxtextedit13.Text);
FieldByName('ubirim').AsString:=trim(cxcombobox2.Text);
FieldByName('utipi').AsString:=trim(cxtextedit14.Text);
FieldByName('serino').AsString:=trim(cxtextedit9.Text);
FieldByName('adet').AsString:=trim(cxtextedit15.Text);
FieldByName('fiyat').AsString:=trim(cxcurrencyedit4.Text);
FieldByName('ckodu').AsString:=trim(cxtextedit2.Text);
FieldByName('madi').AsString:=trim(cxbuttonedit1.Text);
//FieldByName('mtc').AsString:=trim(cxtextedit3.Text);
//FieldByName('mvergi').AsString:=trim(cxtextedit4.Text);
FieldByName('mturu').AsString:=trim(cxtextedit11.Text);
FieldByName('mtelefon').AsString:=trim(cxtextedit5.Text);
FieldByName('mmobil').AsString:=trim(cxtextedit6.Text);
//FieldByName('mfax').AsString:=trim(cxtextedit7.Text);
FieldByName('mmail').AsString:=trim(cxtextedit8.Text);
FieldByName('madres').AsString:=trim(cxmemo1.Text);
fieldbyname('hastane').AsString:=trim(cxtextedit16.Text);
fieldbyname('bolum').AsString:=trim(cxtextedit17.Text);
fieldbyname('doktor').AsString:=trim(cxtextedit18.Text);
fieldbyname('tani').AsString:=trim(cxtextedit19.Text);
fieldbyname('arama').AsString:='YENI KAYIT';
fieldbyname('tarih').AsString:=trim(cxdateedit5.Text);
fieldbyname('ttarih').AsString:=datetostr(mydate);
//FieldByName('pbirim').AsString:=trim(cxcombobox4.Text);
Post;
islem.close;
islem.sql.clear;
islem.SQL.add('select * from urunekle where skod='+quotedstr(trim(cxtextEdit1.text))+'');
islem.open;
toplamguncelle();
cxbuttonedit2.clear;
cxtextedit13.clear;
cxcombobox2.clear;
cxtextedit14.clear;
cxtextedit15.clear;
cxcurrencyedit4.clear;
//cxtextedit10.clear;
cxcurrencyedit5.clear;
cxcombobox5.clear;
end;
end;
end;
end.
