• Beranda
  • Autosultan
  • Bitcoin
  • Dollar
  • Linux
  • LOKER
  • Printer
  • Sofware
  • sosial
  • TISniper
  • Virus
  • Windows

T.I Sniper

#Expert Advisor for MetaTrader 4 #Expert Advisor for MetaTrader 5 #youtube #google #free dollar business every day #Lowongan #Pekerjaan #Loker #forex #trading Autopilot #mining crypto #Update #Tutorial #Komputer Perbaikan, #Email #Facebook , #whatsapp ,#instagram #telegram ,#Internet ,#Motivasi , #Crypto , #AirDrop, #Bitcoin, #Ethereum, #Binance coin, #Cardano, #Degocoin, #Litecoin #Indodax, #Coinbase, #Nexo Dan Mata Uang Digital Lain , #Website, Perbaikan #Server #Domain , #Hosting, #Whm

    • Beranda
    • Contact Forum
    • Coffee JKs88
    • Tentang Kami
    • Parse Code Html
    • Text Terbalik
    • Privacy Policy

    Ikuti Kami!

    Follow Akun Instagram Kami Dapatkan Notifikasi Terbaru!
    Ikuti Kami di Facebok! Untuk mendapatkan notifikasi terbaru.

    Postingan Populer

    Backlink dengan Google Dork Seo

    Dork Seo
    Januari 01, 2016
    0

    Cara Dapat Backlink dengan Google Dork

    Dork Seo
    Februari 13, 2016
    0

    Cara Dapat Backlink Edu Gratis

    Seo
    Februari 13, 2016
    0

    Download File ISO Windows 11 Dan Bootable USB Rufus

    Sofware Windows
    Desember 02, 2021
    0

    FORUM 

    FORUM
    Desember 31, 2021
    0
    Author
    chmood
    Tautan disalin ke papan klip!
    Share Posts "Source Code Membuat Nomor Otomatis di Delphi 7"
  • Salin link
  • Simpan Ke Daftar Bacaan
  • Bagikan ke Facebook
  • Bagikan ke Twitter
  • Bagikan ke Pinterest
  • Bagikan ke Telegram
  • Bagikan ke Whatsapp
  • Bagikan ke Tumblr
  • Bagikan ke Line
  • Bagikan ke Email
  • HomePemogramanSource Code Membuat Nomor Otomatis di Delphi 7
    Source Code Membuat Nomor Otomatis di Delphi 7

    Source Code Membuat Nomor Otomatis di Delphi 7

    Simpan Postingan


                                          
        Nomor Otomatis ini banyak kegunaannya, selain bisa mempermudah pengurutan data, nomor ini juga bisa untuk mengantisipasi munculnya pesan error duplicate values in the index / primary key atau adanya primary key yang ganda saat penyimpanan apabila nomor yang di otomatis menjadi primary key di databasenya.

    Berikut cara mudah membuat nomor otomatis di delphi 7

    Caranya :1. Tulis Procedure Otomatis; di unit.pas di atas tag private.




    2. Tekan Ctrl+Shift+C
    3.Masukkan source code Nomor Otomatis seperti berikut


    procedure TFAnggota.otomatis;
    var hasil,no:string;
    nilai:string;
    i,n:integer;
    begin
    if modul.ADOTAnggota.RecordCount = 0 then
    n:=1 else
    begin
    modul.ADOTAnggota.Last;
    no:=modul.ADOTAnggota['No_Anggota'];
    for i:=3 to 6 do
    begin
    nilai:=nilai+no[i];
    n:=StrToInt(nilai)+1;
    end;
    end;


    case length (Trim(IntToStr(n))) of
    1: hasil :='A-'+'000'+Trim(IntToStr(n));
    2: hasil :='A-'+'00'+Trim(IntToStr(n));
    3: hasil :='A-'+'0'+Trim(IntToStr(n));
    4: hasil :='A-'+Trim(IntToStr(n));
    end;
    enoangg.Text:=hasil;
    enoangg.SelStart:=length(Trim(hasil));
    end;


    Keterangan :
    ADOTAnggota = Koneksi dengan Table di database access
    No_Anggota = field yang ingin dibuat otomatis

    4. Pada button tambah isikan procedure otomatis.




    5. Selesai.

                                      
    Pemograman
    September 16, 2015 • 0 komentar
    Disclaimer: gambar, artikel ataupun video yang ada di web ini terkadang berasal dari berbagai sumber media lain. Hak Cipta sepenuhnya dipegang oleh sumber tersebut. Jika ada masalah terkait hal ini, Anda dapat menghubungi kami di halaman ini.
    Isi dari komentar adalah tanggung jawab dari pengirim. T.I Sniper mempunyai hak untuk tidak memperlihatkan komentar yang tidak etis atau kasar. Jika ada komentar yang melanggar aturan ini, tolong dilaporkan.

    T.I Sniper

    Your description here

    • Follow
    • Autosultan
    • Wa Admin Bisnis
    Copyright ©2010 - 2022 🔥 T.I Sniper.
    • Beranda
    • Cari
    • Posting
    • Trending
    • Tersimpan