#3 USCO API ile USCO 01 Kontrol

[guverdik]

(29-05-2020, Saat: 12:53)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Merhaba hocam,
Emekleriniz ve değerli paylaşımlarınız için teşekkür ederiz.
Vaktiniz olursa ve mümkünse kod kısmını metinsel olarak da paylaşabilir misiniz?
Bu haliyle baktığımda, hem arama motorlarında hem de forum içeriğindeki aramalarda bu konuya ulaşmamız oldukça güç.
Arama motoru veya forum arama gözü, aşağıdaki gibi görüyor. 

Kodları özellikle TEXT olarak paylaşmak istememiştik. Kopyala yapıştır yapmamaları için.   Bununla birlikte bu durumu da değerlendirelim.

---

(29-05-2020, Saat: 13:33)guverdik Adlı Kullanıcıdan Alıntı:

(29-05-2020, Saat: 12:53)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Merhaba hocam,
Emekleriniz ve değerli paylaşımlarınız için teşekkür ederiz.
Vaktiniz olursa ve mümkünse kod kısmını metinsel olarak da paylaşabilir misiniz?
Bu haliyle baktığımda, hem arama motorlarında hem de forum içeriğindeki aramalarda bu konuya ulaşmamız oldukça güç.
Arama motoru veya forum arama gözü, aşağıdaki gibi görüyor. 

Kodları özellikle TEXT olarak paylaşmak istememiştik. Kopyala yapıştır yapmamaları için.   Bununla birlikte bu durumu da değerlendirelim.

Login formumuzda olan Button1'in OnClick olayı;

procedure TForm2.Button1Click(Sender: TObject);
var GELEN: String;
begin

 if Edit1.Text = '' then
 begin
   ShowMessage('Kullanıcı Adı Zorunlu');
   Exit;
 end;

 if Edit2.Text = '' then
 begin
   ShowMessage('Şifre Zorunlu');
   Exit;
 end;

 GELEN := DataForm.DATA.Temp.KULLANICI_KONTROL(Edit1.Text, Edit2.Text);
 if GELEN <> '0' then  begin
   DataForm.DATA.KULLANICI_ADI := Edit1.Text;
   DataForm.DATA.SIFRE:=Edit2.Text;
   USCO_01_KONTROL_FORM.ShowModal;
 end else ShowMessage('Kullanıcı adı veya şifre yanlış');

end;

USCO 01 Form Kontorl olayındaki kodlamalarımız.

procedure TUSCO_01_KONTROL_FORM.Button1Click(Sender: TObject);
begin
 DataForm.DATA.AIDI_GETIR(StrToInt(Edit1.Text));
end;

procedure TUSCO_01_KONTROL_FORM.Button2Click(Sender: TObject);
begin
 DataForm.DATA.Temp.CihazlarUscoDuzelt(DataForm.DATA.KULLANICI_ADI, DataForm.DATA.SIFRE, 
 (Sender as TButton).Hint, '', '', (Sender as TButton).Tag, StrToInt(Edit1.Text));
end;

procedure TUSCO_01_KONTROL_FORM.CheckBox1Click(Sender: TObject);
begin
 Timer1.Enabled := CheckBox1.Checked;
end;

procedure TUSCO_01_KONTROL_FORM.Timer1Timer(Sender: TObject);
begin
 Button1Click(Self);
end;

DataForm form'umuzdaki kodlamalarımız..

procedure TDATA.AIDI_GETIR(CIHAZ_KOD:Integer);
begin
 DataForm.DATA.AIDI_TABLE.Close;
 DataForm.DATA.lDataSet := DataForm.DATA.Temp.AIDI_GETIR(KULLANICI_ADI, SIFRE, CIHAZ_KOD);
 DataForm.DATA.DSP := TDataSetProvider.Create(Self);
 try
   DataForm.DATA.DSP.DataSet := DataForm.DATA.lDataSet;
   DataForm.DATA.AIDI_TABLE.SetProvider(DataForm.DATA.DSP);
   DataForm.DATA.AIDI_TABLE.Open;
 finally
   DataForm.DATA.AIDI_TABLE.SetProvider(nil);
   DataForm.DATA.DSP.Free;
 end;
end;

procedure TDATA.DataModuleCreate(Sender: TObject);
begin
 Temp := TServerMethods1Client.Create(DSRestConnection1);
end;

procedure TDATA.DataModuleDestroy(Sender: TObject);
begin
 Temp.Free;
end;