Pengertian Interbase

Interbase adalah sebuah relational database management system (RDBMS) yang mampu melakukan pemrosesan transaksi dengan cepat dan menggunakan data secara bersama baik dalam lingkungan singel user ataupun multi user.
Interbase menggunakan sebuah data definition language (DDL) untuk mendefinisikan berbagai objek database yang berisi informasi mengenai struktur database beserta datanya. Objek-objek ini sering juga disebut sebagai “metadata”.

Sebagaimana MySQL, Interbase juga memiliki kemampuan mengelola data skala enterprise. Meskipun penggunanya tidak sebanyak MySQL, tetapi tidak sedikit masyarakat TI, termasuk perusahaan yang menggunakan Interbase. Tutorial kali ini akan membahas perancangan database untuk Sistem Informasi Sirkulasi Perpustakaan menggunakan berbagai objek database yang didukung Interbase.


Tutorial ini tidak hanya dapat dimanfaatkan untuk pengguna Interbase, tapi juga FireBird. Database FireBird memiliki arsitektur yang sangat mirip dengan Interbase, sehingga tidak heran bila FireBird sering disebut sebagai “kloning”-nya Interbase. FireBird juga sering dikenal dengan versi open source-nya Interbase.

Read More..

Membuat Menu Login Pada Delphi

Untuk seorang pemula seperti saya ini tentu akan sangat pusing sekali mencari cara supaya membuat menu login pada program yang akan dibuat.
Setelah sekian lama mencari, akhirnya saya menemukan cara agar bisa membuat form login untuk program saya.

pertama - tama buat dulu tabel login di microsoft access atau Sql, tapi untuk contoh ini saya buat dalam microsoft access 2007









nama tabel : login (tinggal sesuaikan terserah anda)
field       type
Username    text
password    text  inputmask: password

setelah itu simpan database anda dengan format access 2003(ekstensi *.mdb). 


buka program delphi anda. buat sebuah project baru,lalu buat 2 buah form ,beri nama formlogin dan formutama.

Form Login

implementasikan menuutama ddengan cara tekan alt+F11 lalu pilih menuutama klik ok
 
tambahkan komponen adoconnection,adoquery,2 tlabel, 2 tedit,2 tbutton, 1 progressbar. atur seperti gambar dibawah 




 
klik pada adoconecction1 klik pada connecctionstring pada build pilih microsoft jet ole provider

pada select database name pilih database yang telah dibuat

kemudian klik test conecction lalu klik ok.
propeties login prompt isikan false, lalu connected : true.

klik pada adoquery1 lalu isikan sesuai berikut:
connection : adoconnection1
sql        : select*from login
active     : true

setelah itu klik pada form, masukkan kode berikut pada event oncreate:

procedure Tformlogin.FormCreate(Sender: TObject);
var
   S:char;
   alamatDB:widestring ;

begin

   // Manipulasi cursors crSQLWait agar tidak tampil
   Screen.Cursors[crSQLWait] := Screen.Cursors[crDefault];
   // atur tampilan form
   s :='*';
   Edit1.Text := '';
   Edit2.PasswordChar := s;
   Edit2.Text := '';
end;

     
setelah itu klik dua kali pada button login dan masukkan kode berikut:

procedure Tformlogin.SpeedButton1Click(Sender: TObject);
var
   baris,nilai:integer;
begin
      with ADOQuery1 do begin
        Close ;
        SQL.Clear; // bersihkan perintah sql jika ada
        SQL.Add('select * from login where username='+QuotedStr(Edit1.Text));
        Open ;
      end; // end with
      // jika tidak ditemukan data yang dicari maka
      // tampilkan pesan
     if ADOQuery1.RecordCount = 0 then
       Application.MessageBox('Maap, username tersebut tidak ada', 'Informasi',MB_OK or MB_ICONINFORMATION)
 else begin
     if ADOQuery1.FieldByName('password').AsString <> Edit2.Text
     then Application.MessageBox('Pastikan username atau password benar','Error', MB_OK or MB_ICONERROR)
     else begin
     ProgressBar1.Visible:=true;
     baris:=100;
     progressbar1.Min:=0;
     progressbar1.Max:=baris;
     for nilai:=1 to baris do
     progressbar1.Position:=nilai;
     progressbar1.Visible:=false;
     form2.Hide;
     Formutama.Show;
end
end;
end;

klik dua kali pada button cancel dan masukkan kode berikut:

application.terminated;

sehingga keseluruhan kodenya adalah sebagai berikut:
 

pilih jet 4.0 ole db provider

pilih database yang telah di buat

pilih jet 4.0 ole db provider

unit Ulogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, ADODB;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Edit2: TEdit;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
implementation

uses umenuutama;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
     Application.Terminate;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
   baris,nilai:integer;
begin
      with ADOQuery1 do begin
        Close ;
        SQL.Clear; // bersihkan perintah sql jika ada
        SQL.Add('select * from login where username='+QuotedStr(Edit1.Text));
        Open ;
      end; // end with
      // jika tidak ditemukan data yang dicari maka
      // tampilkan pesan
     if ADOQuery1.RecordCount = 0 then
       Application.MessageBox('Maap, username tersebut tidak ada', 'Informasi',MB_OK or MB_ICONINFORMATION)
 else begin
     if ADOQuery1.FieldByName('password').AsString <> Edit2.Text
     then Application.MessageBox('Pastikan username atau password benar','Error', MB_OK or MB_ICONERROR)
     else begin
     ProgressBar1.Visible:=true;
     baris:=100;
     progressbar1.Min:=0;
     progressbar1.Max:=baris;
     for nilai:=1 to baris do
     progressbar1.Position:=nilai;
     progressbar1.Visible:=false;
     form2.Hide;
     Formutama.Show;
end
end;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
   S:char;
   alamatDB:widestring ;

begin

   // Manipulasi cursors crSQLWait agar tidak tampil
   Screen.Cursors[crSQLWait] := Screen.Cursors[crDefault];
   // atur tampilan form
   s :='*';
   Edit1.Text := '';
   Edit2.PasswordChar := s;
   Edit2.Text := '';
end;
end.

Read More..

Foto Sambut Baru

Gereja St. Matias Rasul Tofa

Acara

Rio dan Ati

KIJANG @ Katedral

Bersama Amar, Bapa N mama

Opa Baltasar Kodi dan Oma Ross Mboi

Sambut Baru @ Katedral 2001

@ Katedral K Pius N Rio

Ine, Meti, Diana

Read More..

Sistematika Penulisan Tugas Akhir

Sistematika Pembahasan

Sistematika pembahasan yang digunakan untuk menyelesaikan tugas akhir adalah sebagai berikut:

            BAB I PENDAHULUAN

                        Menjelaskan mengenai latar belakang masalah, rumusan masalah, batasan masalah, tujuan penulisan, manfaat penulisan, defenisi istilah, spesifikasi produk yang diharapkan, pentingnya tugas akhir, asumsi dan keterbatasan.

            BAB II: TINJAUAN PUSTAKA

                        Berisi landasan teori yang membahas beberapa teori penunjang yang berhubungan dengan pokok pembahasan dalam tugas akhir ini yang secara garis besar berisi tentang pembuatan sistem informasi pendataan umat di gereja, database, Delphi Embarcadero, Microsoft Access 2007, dan teori-teori yang menunjang dalam pembuatan tugas akhir.

            BAB III: METODOLOGI

                        Menjelaskan mengenai sistem yang dikembangkan, prosedur pengembangan, uji coba sistem yang mencakup desain uji coba, subjek coba, jenis data, instrumen pengumpulan data dan teknik analisis data.

            BAB IV : HASIL DAN PEMBAHASAN

                        Dibahas mengenai penyajian data uji coba dan analisis data.

            BAB V : PENUTUP

                        Bab ini berisi tentang kesimpulan dari pelaksanaan tugas akhir ini dan saran untuk pengembangan sistem.

            DAFTAR PUSTAKA

Read More..

Perumusan Masalah dan Tujuan

1.1.   Perumusan Masalah

Berdasarkan uraian di atas, maka penulis dapat merumuskan masalah “Bagaimana membuat sistem informasi pendataan umat di gereja St. Matias Rasul Tofa?”.

1.2.   Batasan Masalah

Dalam penulisan laporan proyek sistem informasi ini penulis membatasi masalah yang akan dibahas antara lain:

a.       Sistem informasi yang dibuat difokuskan pada informasi tentang umat, dalam hal ini hanya menyangkut data umat, informasi kelompok umat basis (KUB) dan profil gereja.

b.      Sistem yang dibuat hanya sebatas sampai pada input data, edit data, hapus data dan laporan.

c.       Tampilan yang dihasilkan sistem hanya mencakup data umat, informasi kelompok umat basis (KUB) dan profil gereja.

d.      Sistem informasi ini dibuat menggunakan bahasa pemograman Delphi dan Microsoft Access 2007 sebagai database.

1.3.   Tujuan

Adapun tujuan yang ingin dicapai adalah membuat sistem informasi pendataan umat di gereja St. Matias Rasul Tofa.

1.4.   Manfaaat

Adapun manfaat yang ingin dicapai dalam pembuatan sistem informasi pendataan umat gereja ini adalah:

a.       Mempermudah dan membantu semua pihak yang membutuhkan informasi tentang umat, baik menyangkut data diri umat, sejarah gereja St. Matias Rasul Tofa, maupun tentang jumlah umat di setiap kelompok umat basis (KUB).

b.      Menghasilkan sebuah sistem informasi pendataan umat yang baik dan efisien dalam penyajian informasi tentang umat baik berupa data umat, informasi kelompok umat basis (KUB) dan profil gereja.

Read More..

Latar Belakang

Perkembangan ilmu pengetahuan dan teknologi tidak terlepas dari meningkatnya kebutuhan manusia akan informasi yang cepat dan tepat. Kemajuan ilmu pengetahuan dan teknologi ini, menyediakan berbagai aplikasi sistem informasi yang dapat membantu manusia dalam proses penanganan sistem informasi yang  sangat dibutuhkan dalam suatu organisasi. Organisasi yang membutuhkan sistem informasi tersebut salah satunya adalah gereja.

Gereja St. Matias Rasul Tofa memiliki jumlah umat yang cukup banyak. Jumlah umat ini menuntut ketersediaan akan informasi pelayanan yang semakin meningkat pula. Hal ini tidak sebanding dengan pengelolaan informasi yang telah ada, pengelolaan informasi dalam gereja masih dilakukan dengan cara manual, yaitu input dan output data masih menggunakan penulisan tangan. Informasi database umat masih menggunakan media kertas, sehingga berkas–berkas harus disusun dan disimpan sebagai tumpukan kertas dan saat mencari berkas harus dibongkar dari tumpukan kertas tersebut. Cara manual tersebut membuat pekerjaan menjadi lambat untuk diselesaikan.

Oleh karena itu, cara mengatasi masalah di atas penulis ingin membuat suatu sistem informasi umat St. Matias Rasul Tofa agar mempermudah dan membantu semua pihak yang membutuhkan informasi tentang umat, baik menyangkut data diri umat, sejarah gereja St. Matias Rasul Tofa, maupun tentang jumlah umat di setiap kelompok umat basis (KUB).

Delphi merupakan salah satu bahasa pemograman yang memiliki kemampuan memproses data, proses kompilasi cepat, memiliki menu, dan mudah dipelajari karena merupakan turunan dari bahasa pemograman Pascal, serta di dukung oleh Microsoft Access 2007 sebagai program aplikasi tambahan dalam proses pembuatan database. Berdasarkan hal tersebut penulis akan membuat suatu sistem informasi berbasis database dengan judul “Sistem Informasi Pendataan Umat Di Gereja St. Matias Rasul Tofa”.

Read More..