20-11-2019, Saat: 14:07
Bir mobil uygulama geliştiriyorum.Uygulamamda bir update işlemi yapacam fakat update yapıyor hemen ardından uygulamayı kapatıyor.
kod örneği.
islem.Close;
islem.Open;
islem.SQL.Text:= format('select ORDER_ID from RECEIVED_ORDER where RECEICED_CODE=''%s''',[gelenhareketCode]);
islem.Execute;
id := islem['ORDER_ID'];
kontrol.Close;
kontrol.Open;
kontrol.SQL.Text:= format('select * from RECEIVED_ORDER where ORDER_ID=''%s''',[id]);
kontrol.Execute;
while not kontrol.Eof do
begin
guncelle.close;
guncelle.SQLUpdate.Text:=format('UPDATE RECEIVED_ORDER SET PATIENT_DURUM =ATIENT_DURUM where ORDER_ID=''%s'' ',[id]);
guncelle.Open;
guncelle.Edit;
guncelle.FieldByName('PATIENT_DURUM').AsInteger:= 8;
guncelle.Post;
kontrol.next;
end;
gorev.Close;
gorev.Open;
gorev.SQL.Text:= format('SELECT H_ADI_SOYADI,RECEICED_CODE,''Or.Durum:''+ps.DURUM+'' - ''+ILAC_ADI +''''+ CONVERT(VARCHAR, ILAC_MIKTARI) +'' -Adet'' as ilacBilgisi ,'+
'+''Order Sıra:''+CONVERT(VARCHAR,ORDER_DETAY_ID) + ''- Koltuk Adı:''+SEAT_NAME as KoltukBilgileri from '+
'RECEIVED_ORDER , PATIENT_STATUS as ps WHERE (PATIENT_DURUM =1 OR PATIENT_DURUM=9 OR PATIENT_DURUM=2) AND ORDER_DURUM= 6 AND HASTA_GELDIMI=1 AND PATIENT_DURUM = ps.ID AND USER_CODE=''%s''',[frm_Login.per_usercode]);
gorev.Execute;
kod örneği.
islem.Close;
islem.Open;
islem.SQL.Text:= format('select ORDER_ID from RECEIVED_ORDER where RECEICED_CODE=''%s''',[gelenhareketCode]);
islem.Execute;
id := islem['ORDER_ID'];
kontrol.Close;
kontrol.Open;
kontrol.SQL.Text:= format('select * from RECEIVED_ORDER where ORDER_ID=''%s''',[id]);
kontrol.Execute;
while not kontrol.Eof do
begin
guncelle.close;
guncelle.SQLUpdate.Text:=format('UPDATE RECEIVED_ORDER SET PATIENT_DURUM =ATIENT_DURUM where ORDER_ID=''%s'' ',[id]);
guncelle.Open;
guncelle.Edit;
guncelle.FieldByName('PATIENT_DURUM').AsInteger:= 8;
guncelle.Post;
kontrol.next;
end;
gorev.Close;
gorev.Open;
gorev.SQL.Text:= format('SELECT H_ADI_SOYADI,RECEICED_CODE,''Or.Durum:''+ps.DURUM+'' - ''+ILAC_ADI +''''+ CONVERT(VARCHAR, ILAC_MIKTARI) +'' -Adet'' as ilacBilgisi ,'+
'+''Order Sıra:''+CONVERT(VARCHAR,ORDER_DETAY_ID) + ''- Koltuk Adı:''+SEAT_NAME as KoltukBilgileri from '+
'RECEIVED_ORDER , PATIENT_STATUS as ps WHERE (PATIENT_DURUM =1 OR PATIENT_DURUM=9 OR PATIENT_DURUM=2) AND ORDER_DURUM= 6 AND HASTA_GELDIMI=1 AND PATIENT_DURUM = ps.ID AND USER_CODE=''%s''',[frm_Login.per_usercode]);
gorev.Execute;