Arsip: Kode Looping???

 
user image
more 12 years ago

camp_sire

Aku pny listing buat ngurutin no kode.Masalahnya bila ada record yg ditengah2 dihapus, kode itu nempatin kode yg terakhir. Aku pengennya tuh kode secara otomatis menempati kode yg kosong yg plg awal. Gmn tuh?? Thnx alot.
procedure TFPetugas.Kode;
var Kd :string;
begin
  with DM do
  begin
    if (ADOQ1.RecordCount<=0) then
    begin
      EdId.Text := 'kp001'
    end
    else
    begin
      ADOQ3.Close;
      ADOQ3.SQL.Clear;
      ADOQ3.SQL.Add('select max(right(Kd_Petugas,3)) as Kode from TPetugas');
      ADOQ3.Open;
      Kd := 'kp' + FormatFloat('000',ADOQ3['Kode']+1);
      EdId.Text := Kd;
    end;
  end;
end;
user image
more 12 years ago

EkoIndri

Mungkin link dibawah ini bisa membantu http://ekoindritutorialmenengahdatabase.wordpress.com/solution/
user image
more 12 years ago

yusdi

koq judul n isinya agak ga nyambung ya?? looping=perulangan pengurutan=sorting apa aku yg lg ga nyambung?
user image
more 12 years ago

EkoIndri

sudah dicoba apa belum mas? silahkan anda coba ilustrasi itu dulu sori kalau nggak nyambung...
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com