Sistemci Posted May 12, 2014 Share Posted May 12, 2014 biraz işlerim var yardım edecem kardeşim sabır Quote Link to comment Share on other sites More sharing options...
murat3246683 Posted May 12, 2014 Author Share Posted May 12, 2014 tmm abicim sen iste yeterki :jump: Quote Link to comment Share on other sites More sharing options...
Sistemci Posted May 15, 2014 Share Posted May 15, 2014 Buyur Kardeşim nerdeyse baştan yazdım bütün kodlarda hata vardı işallah işini görür http://www.mediafire.com/download/uhj612un133y582/Teknik_Servis_Programı.apz Quote Link to comment Share on other sites More sharing options...
murat3246683 Posted May 16, 2014 Author Share Posted May 16, 2014 (edited) hocam eline koluna sağlık ya senin hakkını nasıl ödecim ya cok teşekkür ederimm birde bu KintaRo hocamın kodunu ben nereye yazacağım Edited May 16, 2014 by murat3246683 Quote Link to comment Share on other sites More sharing options...
murat3246683 Posted May 17, 2014 Author Share Posted May 17, 2014 hocam not menüsü ve garanti menüsündeki silme kodları calışmıyo ben dün paylaştığından beri uğrasıyom ama yapamadım düzeltme yapıyom sadece not yazan yeri siliyor garanti te ise gönderen kişiyi siliyor diyerleri aynı duruyor. nSecilen = TreeList.GetSelected("liste1") -- secilene bak if nSecilen ~= -1 then -- eğer seçilen varsa nID = TreeList.GetRowData("liste1", nSecilen) adi = TreeList.GetCellText("liste1", 0, nSecilen) sSoru = Dialog.Message("Uyarı!", adi .. " Not Kaydı silinecektir! Devam etmek istiyor musunuz?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2) -- soru sor if sSoru == IDYES then -- eğer evet tusuna basilirsa sql.baglan() SQLite3Connection:execute("DELETE FROM note WHERE id='" .. nID .. "'") sql.kapat() Page.Jump("Page1") -- sayfayi yenile end end sql.baglan() db, err = SQLite3Connection:execute("SELECT * FROM note"); tVeri = db:fetch({}, "a") TreeList.ClearRows("liste1") while tVeri do id = tVeri.id adi = tVeri.adi soyadi = tVeri.soyadi adres = tVeri.adres telefon = tVeri.telefon mail = tVeri.mail tarih = tVeri.tarih nott = tVeri.nott TreeList.AddRow("liste1", id .. "|" .. adi .. "|" .. soyadi .. "|" .. adres .. "|" .. telefon .. "|" .. mail .. "|" .. tarih .. "|" .. nott, nil, nil) tVeri = db:fetch(tVeri,"a"); end sql.kapat(); Quote Link to comment Share on other sites More sharing options...
Sistemci Posted May 17, 2014 Share Posted May 17, 2014 (edited) Not Silme Butonu Kardeşim [spoiler]nSecilen = TreeList.GetSelected("liste1") -- secilene bak if nSecilen ~= -1 then -- eğer seçilen varsa nID = TreeList.GetCellText("liste1", 0, nSecilen) sSoru = Dialog.Message("Uyarı!", nID .. " Not Kaydı silinecektir! Devam etmek istiyor musunuz?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2) -- soru sor if sSoru == IDYES then -- eğer evet tusuna basilirsa sql.baglan() SQLite3Connection:execute("DELETE FROM note WHERE id='" .. nID .. "'") sql.kapat() Page.Jump("Page1") -- sayfayi yenile end end sql.baglan() db, err = SQLite3Connection:execute("SELECT * FROM note"); tVeri = db:fetch({}, "a") TreeList.ClearRows("liste1") while tVeri do id = tVeri.id adi = tVeri.adi soyadi = tVeri.soyadi adres = tVeri.adres telefon = tVeri.telefon mail = tVeri.mail tarih = tVeri.tarih not_al = tVeri.nott TreeList.AddRow("liste1", id.."|"..adi .. "|" .. soyadi .. "|" .. adres .. "|" .. telefon .. "|" .. mail .. "|" .. tarih .. "|" .. not_al, nil, nil) tVeri = db:fetch(tVeri,"a"); end sql.kapat(); [/spoiler] Garanti Silme Butonu [spoiler]nSecilen = TreeList.GetSelected("liste2") -- secilene bak if nSecilen ~= -1 then -- eğer seçilen varsa nID = TreeList.GetCellText("liste2", 0, nSecilen) sSoru = Dialog.Message("Uyarı!", nID .. " Arıza Kaydı silinecektir! Devam etmek istiyor musunuz?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2) -- soru sor if sSoru == IDYES then -- eğer evet tusuna basilirsa sql.baglan() SQLite3Connection:execute("DELETE FROM garanti WHERE id='" .. nID .. "'") sql.kapat() end end sql.baglan() db, err = SQLite3Connection:execute("SELECT * FROM garanti"); TreeList.ClearRows("liste2"); tVeri = db:fetch({}, "a") while tVeri do id = tVeri.id urunsahibi = tVeri.urunsahibi telefon = tVeri.telefon markasi = tVeri.markasi uruntipi = tVeri.uruntipi serino = tVeri.serino servisadresi = tVeri.servisadresi servistelefon = tVeri.servistelefon gidistarihi = tVeri.gidistarihi gelistarihi = tVeri.gelistarihi gonderenkisi = tVeri.gonderenkisi TreeList.AddRow("liste2", id.."|"..urunsahibi .. "|" .. telefon .. "|" .. markasi .. "|" .. uruntipi .. "|" .. serino .. "|" .. servisadresi .. "|" .. servistelefon .. "|" .. gidistarihi .."|".. gelistarihi .."|" .. gonderenkisi, nil, nil) tVeri = db:fetch(tVeri,"a"); end sql.kapat();[/spoiler] Edited May 17, 2014 by Sistemci Quote Link to comment Share on other sites More sharing options...
murat3246683 Posted May 17, 2014 Author Share Posted May 17, 2014 hocam çok çok saolsın ya hakkını nasıl ödücem ya gerçekten hocam daha öncede sormuştum ama kitaro hocamın kodunu nereye yazacağım ben Quote Link to comment Share on other sites More sharing options...
Sistemci Posted May 17, 2014 Share Posted May 17, 2014 hocam çok çok saolsın ya hakkını nasıl ödücem ya gerçekten hocam daha öncede sormuştum ama kitaro hocamın kodunu nereye yazacağım ben önemli değil kardeşim. garanti bölümünde kaydederken yazacaksın bu kodları kardeşim Quote Link to comment Share on other sites More sharing options...
murat3246683 Posted May 17, 2014 Author Share Posted May 17, 2014 (edited) Sistemci Hocam Seninde Kafanı ağrıtıyom ama (onceki_yil, onceki_ay ve onceki_gun değişkenlerine garantiye gidiş tarihinin verilerini atamak) derken ben bunu anlamadım hocam birde garanti bölümü kaydet butonuna koydum hocam doğrumudur Edited May 17, 2014 by murat3246683 Quote Link to comment Share on other sites More sharing options...
Sistemci Posted May 17, 2014 Share Posted May 17, 2014 evet kardeşim doğru verileri ay gun yil olarak tek tek çek bu kadar kolay şuan evdeyim proje yenımda yok teknik servis programı yazacam Allah nasip ederse sen vesile oldun paylaşınca görürsün gerekirse sana apz atarım kardeşim Quote Link to comment Share on other sites More sharing options...
murat3246683 Posted May 17, 2014 Author Share Posted May 17, 2014 saolsın hocam gönderirsen cok memnun olur sayende bende bişeyler öğreniyom hocam Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.