Aug 252010
 

Dalam membangun sebuah aplikasi kita sering dihadapkan pada kasus dimana pemakai aplikasi terdiri dari beberapa kalangan atau tingkatan akses data. misal, untuk sistem informasi akademik misalnya, sistem tersebut kelak dipakai oleh kepala sekolah, guru, siswa, dan bahkan TU. dan tentu saja, masing-masing jabatan atau kalangan memilliki akses data yang berbeda, misal, guru input nilai, sedangkan siswa melihat nilai dirinya pada beberapa mata pelajaran.

untuk menghadapi kasus ini, maka diperukan sebuah sistem yang memiliki login multi user. sehingga bisa dibedakan, user sebagai admin, siswa, guru atau yang lainnya. berikut adalah salah satu contoh solusi sederhana login multi user.

dengan spesifikasi memakai database MS access 2003, 2 user yaitu guest dan admin, dan dibuat menggunakan delpi7.

source untuk login :



———————————-begin————————
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
Continue reading »

Aug 222010
 

haaahhh.. akhirnya setelah sekian lama bisa juga disempatkan sedikit waktu untuk post sebuah artikel tutorial. kali ini saya akan membuat sebuah tutorial untuk menggabungkan beberapa String atau kata menjadi sebuah string. Dan kemudian memisahkan kembali string yang telah di gabung tersebut menjadi beberapa substring. mungkin dalam penggabungan kita tidak akan terlalu menemukan masalah karena sangat mudah hanya dengan script sederhana. misal:

String:=''+string1+' '+string2+'';

namun bagaimana jika kita hendak memisahkan lagi 2 string yang telah digabung tersebut untuk keperluan edit data atau keperluan lainnya?? itu lah yang agak merepotkan..

hal seperti ini baru saja saya alami. dimana biasanya saya hanya memakai datetimepicker untuk menyajikan data berupa tanggal. Namun kemarin, saya diminta untuk menyajikan tanggal dalam bentuk 3 combobox. sebut saja masing-masing dengan cbhari, cbbulan, dan cbtahun. user menginputkan dengan 3 combobox tersebut lalu data tanggal disimpan dalam 1 field bernama tanggal (proses penggabungan string) dan jika suatu saat diperlukan edit data tanggal, maka tanggal yang tadinya telah disimpan menjadi 1 string harus dipisah lagi menjadi 3 substring tanggal. yaitu untuk hari, bulan, dan tahun. contoh:

user input tanggal :
cbhari=7
cbbulan=April
cbtahun=1999

kemudian data disimpan menjadi 7/April/1999. dan jika dibutuhkan edit, maka String 7/April/1999 harus dipisah lagi menjadi:
cbhari=7
cbbulan=April
cbtahun=1999

o iya, disini dipakai pemisah/delimiter tanda ‘/’ sebenarnya bisa juga memakai spasi,’;’, atau tanda lainya…

berikut source lengkapnya..



——————————begin—————————
unit Unit1;

interface
Continue reading »

Jul 052010
 

Berikut adalah sebuah program berbasis console yang saya buat memakai bahasa pascal dengan borland delphi 7. program ini tidak memakai database apapun. jadi untuk mengatasi masalah stock buku, maka diasumsikan bahwa stock buku yang tersedia tidak terbatas. karena masalah database juga, maka diprogram ini tidak dipermasalahkan pengembalian buku. 🙂 singkat cerita, program ini cuma bisa dipake untuk minjam dan menghitung jumlah pembayaran.. yah.. namanya juga sederhana.. 🙂 tapi yangterpenting adalah konsep-konsep dasar yang ada didalamnya… yups, jangan pernah malu untuk belajar dari dasar. toh seorang pelari terhebat pun berawal dari merangkak… hehhe..

uke, berikut screen shot program yang sedang kita bicarakan :



perpus

sedangkan untuk scriptnya…. monggo… dinikmati…
=================================begin===========================

weprogram perpustakaan;

{$APPTYPE CONSOLE}
Continue reading »

Jul 032010
 

uke, baru kali ini saya post sebuah pemrograman dengan menggunakan bahasa pascal. eh, ngga juga ya? karena bahasa delphi kan juga pengembangan dari pascal.. hehe. (opo maksudte admin ki…).

saya membuat sebuah program sederhana, sebuah program yang dipake untuk menghitung nilai total atau nilai akhir mahasiswa dengan komposisi nilai akhir = (3*NilaiUAS+2*NilaiUTS+Nilaitgs)/6.

program ini menggunakan beberapa konsep dasar pemrograman, array, pengulangan, prosedur, dan fungsi.
berikut adalah screen shot nya…


program pascal

n untuk source code, silakan dinikmati :
—————————–begin——————————

program manteb;

{$APPTYPE CONSOLE}

uses
SysUtils;

Type
DataMhs = record
NIM : string[9];
Nama : string[20];
NilaiUAS : real;
NilaiUTS : real;
Nilaitgs : real;
Nakhir : Real;
End;

Var
ArMhs : array[1..1000] of DataMhs;
I, x : Integer;
TotalN : real;

Procedure pembuka;
Begin
Writeln(‘+————————————-+’);
Writeln(‘| Program Penghitung Nilai |’);
Writeln(‘| Original coding by |’);
Writeln(‘| Fahrizal S.P. |’);
Writeln(‘| www.inilahjalanku.com |’);
Writeln(‘+————————————-+’);
End;
Continue reading »