14-06-2019, Saat: 10:00
Merhaba,
Ben multi-platform tarafinda sql server'a veri kaydetmeye calisiyorum,
Sorun windowsta derledigimde gayet duzgun calisiyor hat vermeden fakat androidde derledigimde read-only hatasi aliyorum.
isin ilginc tarafi veri okurken hicbir sikinti yok sadece veri kaydederken bu hatayi aliyorum.
Ben multi-platform tarafinda sql server'a veri kaydetmeye calisiyorum,
Sorun windowsta derledigimde gayet duzgun calisiyor hat vermeden fakat androidde derledigimde read-only hatasi aliyorum.
isin ilginc tarafi veri okurken hicbir sikinti yok sadece veri kaydederken bu hatayi aliyorum.
procedure TForm1.btn_onaylaClick(Sender: TObject); Var i:integer; begin if Edit1.Text='1578' then begin ayarlartab_slide.ExecuteTarget(self); edit1.Text:=''; exit; end; if length(edit1.Text)<>11 then Begin ShowMessage('Hatalı Tc No'); edit1.Text:=''; Exit; End; Qry_Hasta.Close; Qry_Hasta.SQL.Text:='SELECT * FROM HASTA where TC_KIMLIK_NUMARASI='+QuotedStr(Edit1.Text); Qry_Hasta.Open; if Qry_Hasta.RecordCount=0 then Begin ShowMessage('Aranılan Kayıt Bulunamadı'); Edit1.Text:=''; Edit1.SetFocus; Exit; End; Qry_SiraAl.Close; Qry_SiraAl.SQL.Text:='SELECT * FROM HASTA_SIRA WHERE KABUL_TARIHI='+TarihDuzenlesql(date,'')+' AND HASTA_KODU='+Qry_Hasta.FieldByName('HASTA_KODU').AsString; Qry_SiraAl.Open; if Qry_SiraAl.RecordCount>0 then Begin Qry_sirakntrl.Close; Qry_sirakntrl.ParamByName('TC_KIMLIK_NUMARASI').Value:=edit1.Text; Qry_sirakntrl.Open; if Qry_sirakntrl.RecordCount<>0 then begin label2.Text:='MEVCUT SIRANIZ'; siranotab_slide.ExecuteTarget(self); label2.Text:=Qry_sirakntrl.FieldByName('NUMARATOR_SIRASI').AsString; end; //ShowMessage('Kişi Daha Önce Sıra Almış Tekrar Alamaz...'); edit1.Text:=''; Exit; End; Qry_Sorgu.Close; Qry_Sorgu.SQL.Text:='SELECT MAX (NUMARATOR_SIRASI) AS SIRA FROM HASTA_SIRA WHERE KABUL_TARIHI='+TarihDuzenlesql(date,'')+' AND AH_KIMLIK_NO='+QuotedStr(initc); //KAC KAYIT VAR SORGULU Qry_Sorgu.Open; i:=Qry_Sorgu.FieldByName('SIRA').AsInteger+1; Qry_SiraAl.Append; Qry_SiraAl.FieldByName('HASTA_KODU').Value:=Qry_Hasta.FieldByName('HASTA_KODU').AsString ; Qry_SiraAl.FieldByName('TC_KIMLIK_NUMARASI').Value:=Qry_Hasta.FieldByName('TC_KIMLIK_NUMARASI').AsString; Qry_SiraAl.FieldByName('AD').Value:=Qry_Hasta.FieldByName('AD').AsString ; Qry_SiraAl.FieldByName('SOYADI').Value:=Qry_Hasta.FieldByName('SOYADI').AsString ; Qry_SiraAl.FieldByName('AH_KIMLIK_NO').Value:=initc; Qry_SiraAl.FieldByName('NUMARATOR_SIRASI').AsInteger:=i; Qry_SiraAl.FieldByName('KABUL_TARIHI').AsDateTime:=DATE; Qry_SiraAl.FieldByName('KABUL_ZAMANI').AsDateTime:=NOW; Qry_SiraAl.Post; label2.Text:=i.ToString; siranotab_slide.ExecuteTarget(self); edit1.Text:=''; end;
Muharrem ARSLAN