Contoh Pembuatan Aplikasi Rekord Delphi Console

Pemrograman Dasar - Rekord

Mr. Berry Prima, S. Kom

Rekord merupakan type data terstruktur yang digunakan untuk menyimpan sejumlah data dengan type data yang berbeda dalam suatu tempat yang  merupakan konsep dasar dari DataBase.

Deklarasi Rekord antara lain :
Type
Pengenal : Record
NamaField1 : typedata;
NamaField2 : typedata;
...
NamaField(n) : typedata;


program ProjectTestRecord;
{$APPTYPE CONSOLE}

uses
  Windows,
  Messages,
  SysUtils;

const
maks=3;

type
  data_mhs = record
     nim : string[10];
     nama_mhs : string[25];
     nilai_mhs : string[25];
end;
var
  mhs : array[1..maks] of data_mhs;
  nmr, nama : string[25];
  i, n, nilai : Integer;
  pilihan, cek : char;

  procedure ClrScr;
    var
      hStdOut: HWND;
      ScreenBufInfo: TConsoleScreenBufferInfo;
      Coord1: TCoord;
      z: Integer;
    begin
      hStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
      GetConsoleScreenBufferInfo(hStdOut, ScreenBufInfo);
      for z := 1 to ScreenBufInfo.dwSize.Y do
      WriteLn('');
      Coord1.X := 0;
      Coord1.Y := 0;
      SetConsoleCursorPosition(hStdOut, Coord1);
    end;

  procedure Header;
    begin
    writeln('');
    writeln(' =================================================');
    writeln('  PROGRAM RECORD MAHASISWA, MIN MAX DAN RATA-RATA');
    writeln(' =================================================');
    end;

  procedure CekMhs;
    begin
      write('  Masukkan Nim : A00');readln(n);
      writeln('  Nama         : ' + mhs[n].nama_mhs);
      writeln('  Nilai        : ' + mhs[n].nilai_mhs);
      writeln;
    end;

begin {Starting Main Statement}
  {Input element Array}
  Header;
  FOR i := 1 to maks DO
    begin
      write('  Masukkan Nama  : ');readln(nama);
      write('  Masukkan Nilai : ');readln(nilai);
      nmr := ('A00' + IntToStr(i));
      ClrScr;
      Header;
      WITH mhs[i] DO
        begin
        nim := nmr;
        nama_mhs := nama;
        nilai_mhs := IntToStr(nilai);
        end;
    end;

  REPEAT
    begin
      ClrScr;
      Header;
      CekMhs;
      write('  Anda ingin menghitung lagi [Y/T] : '); readln(pilihan);
      ClrScr;
    end;
  UNTIL (pilihan = 't') or (pilihan = 'T');
  readln;
  halt;

end.


Sumber Thanks to
Terminate Delphi Console Application
Operasi Pengulangan Delphi Console
Clear screen di aplikasi delphi console

Postingan populer dari blog ini

Membuat Split File Zip Dengan 7-Zip

Gambar
Saya kesulitan apabila hendak mengupload file setup dari Aplikasi yang saya buat untuk saya email atau lain sebagainya. Karena layanan Internet yang saya miliki hanya dari kantor, yang mana user Internet-nya dibatasin untuk menDownload maupun mengUpload file. Selama itupula saya tidak dapat mengupload, membagi maupun mengirimkan file dalam jumlah besar. Namun sekarang sudah ada solusinya yaitu dengan mensplit file setup saya yang relatif besar (diatas 10 Mb). Saya menggunakan 7-Zip sebagai mesin pengkompresnya. Mungkin dengan WinRar juga bisa, namun untuk saat ini saya menggunakan 7-Zip. Langkahnya cukup simpel dan cepat, saya hanya melakukan beberapa klik dan klak saja dan File Zip split tercipta. Untuk melakukannya Pilih/ Sorot/ Seleksi File / Foldernya Klik Kanan/ Klak >> Pilih/ Sorot/ Seleksi 7-Zip Add to archieve Setting/Pilih Lokasi/ Folder untuk menyimpan file-nya Pilih Jenis/ Tipe Split pada Dropdown Split to Volume, bytes: Pilih Ok Apabila ingin dipasword maka masukkan/k
Baca selengkapnya

Load Dan Insert Image ke MySQL BLOB dengan VB6

Sumber Dari http://heng-line.com/?p=66 MySQL memiliki fasilitas penyimpanan berupa objek gambar dengan data type BLOB. Berikut adalah contoh untuk mengakses table pada MySQL pada colom dengan data type BLOB dari Visual Basic 6 menggunakan ADODB dan Stored Procedure. uat database MySQL, Contoh: CREATE DATABASE contoh; Buat Tablenya, Contoh: CREATE TABLE pegawai (id_pegawai INT AUTO_INCREMENT, nama VARCHAR(50), foto MEDIUMBLOB); Buat Procedure, Contoh: DELIMITER$$ CREATE PROCEDURE pegawai_p( pchProc CHAR(1), pinIdPegawai INT, pvcNama VARCHAR(50), pmbFoto MEDIUMBLOB ) BEGIN /*Khusus untuk meload data berdasarkan id_pegawai tertentu*/ IF pchProc = ‘R’ THEN SELECT id_pegawai, nama, foto FROM pegawai WHERE id_pegawai = ‘1’; END IF; /*Khusus untuk melakukan insert data ke table pegawai*/ IF pchProc = ‘N’ THEN INSERT pegawai (nama, foto) SELECT pvcNama, pmbFoto; END IF; END$$ DELIMITER; Berikut adalah yang harus kita buat di Visual Basic 6 ‘Tambahkan variable global pada
Baca selengkapnya

Pembuatan Function PowerBuilder

Gambar
Prakata : Tulisan atau artikel ini dimaksudkan bukan untuk mengajarkan kepada Anda yang membacanya, namun Kami sekedar menulis dengan maksud apabila Kami lupa akan cara pembuatan Function pada PowerBuilder, maka Kami dapat ingat kembali dengan melihat dan membaca tulisan Kami ini. Namun alangkah baiknya apabila bermanfaat bagi Anda-anda yang membacanya, tak sedikitpun terbersit niat bahwa “Kami adalah seorang master dalam bidang pemrograman”, Kami hanya mencoba menuangkan sedikit pengetahuan Kami untuk dibagikan kepada rekan-rekan yang mungkin masih awam terhadap pemrograman PowerBuilder. Definisi Function : ialah prosedur yang dapat memberikan suatu hasil balik ke program yang memanggilnya atau tidak meberikan hasil balik sama sekali. Hasil balik ini biasanya berupa suatu nilai yang dibutuhkan oleh bagian program yang memanggilnya. Apa yang membedakan pemrograman PowerBuilder dengan pemrograman lainnya?, hakikat sebuah pemrograman adalah sama, yang membedakan hanyalah bahasa
Baca selengkapnya