Baralek gadang kisel

Baru2 ini ada sebuah kompetisi yang diadakan oleh kiSEL sebagai Autorized Dealer TELKOMSEL yang diberi nama Baralek Gadang kiSEL dan kalau di Indonesiakan menjadi Helatan Besar kiSEL.
Dalam acara Baralek Gadang kiSEL ini, kisel memberikan hadiah Dua Buah motor Honda Scoopy, 6 Blackberry, 16 Handphone serta uang tunai jutaan rupiah....
Yang ingin 0mem bahas disini bukanlah tentag acaranya melainkan cara pembuatan Aplikasinya menggunakan Visual Bassic 6.
Sebelum membuat aplikasinya tentu saja 0mem bakalan menjelaskan dulu alur dari Acara Baralek Gadang yang digelar oleh kiSEL ini, namun tentunya dengan sedikit penyesuaian karena kalau 0mem membuatnya seperti program yang diadakan tentunya butuh sumber daya yang jauh lebih banyak yang salah satunya adalah akses ke database Telkomsel sendiri sehingga memang tidak mungkin untuk dibuat oleh 0mem.
Langsung aja begini aturan main dari program Baralek Gadang kiSEL versi 0mem...

1. Daftarkan Outletmu (dari nomor MKIOS) dengan cara Ketik KISELREG#Nama#Nama_Outlet#Kecamatan lalu kirim ke nomor Center yang ditentukan
2. Forward SMS balasan dari transaksi MKIOS yang dilakukan. Setiap Voucher mendapatkan point bervariasi tergantung jenis vouchernya.V5 = 1, V10=2, V20=5, V25=10, V50=15, V100=40.
3. Cek Jumlah Point dengan cara Ketik KISELBINTANG kirim ke nomor Center yang telah disediakan.

Setelah tahu aturan main dari Program yang bakalan dibuat maka sekarang saatnya perancangan dari database. Cikidot bro....
Database : BaralekGadang
Table : TKecamatan

CREATE TABLE `tkecamatan` (
`ID` VARCHAR(2) NOT NULL DEFAULT '',
`Nama` VARCHAR(50) NULL DEFAULT NULL,
PRIMARY KEY (`ID`)
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB
ROW_FORMAT=DEFAULT

 Table : TPenjualanOutlet

CREATE TABLE `tpenjualanoutlet` (
`Seri` VARCHAR(50) NOT NULL DEFAULT '',
`Waktu` TIMESTAMP NULL DEFAULT CURRENT_TIMESTAMP,
`RS` VARCHAR(20) NULL DEFAULT NULL,
`Voucher` VARCHAR(4) NULL DEFAULT NULL,
`Validasi` VARCHAR(1) NULL DEFAULT '0',
PRIMARY KEY (`Seri`)
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB
ROW_FORMAT=DEFAULT

Table : TPeserta

CREATE TABLE `tpeserta` (
`RS` VARCHAR(20) NOT NULL DEFAULT '',
`Nama` VARCHAR(50) NULL DEFAULT NULL,
`Outlet` VARCHAR(50) NULL DEFAULT NULL,
`Kecamatan` VARCHAR(2) NULL DEFAULT NULL,
PRIMARY KEY (`RS`)
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB
ROW_FORMAT=DEFAULT

 Table : TPoint

CREATE TABLE `tpoint` (
`Voucher` VARCHAR(4) NOT NULL DEFAULT '',
`Point` INT(10) NULL DEFAULT NULL,
PRIMARY KEY (`Voucher`)
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB
ROW_FORMAT=DEFAULT

 Table : TRS

CREATE TABLE `trs` (
`ID` VARCHAR(20) NOT NULL DEFAULT '',
`Nama` VARCHAR(50) NULL DEFAULT NULL,
`Alamat` VARCHAR(50) NULL DEFAULT NULL,
`status` VARCHAR(50) NULL DEFAULT 'Active',
`SD` VARCHAR(2) NULL DEFAULT NULL,
PRIMARY KEY (`ID`)
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB
ROW_FORMAT=COMPACT

 Table : TSeri

CREATE TABLE `tseri` (
`Seri` VARCHAR(50) NULL DEFAULT NULL,
`Waktu` TIMESTAMP NULL DEFAULT CURRENT_TIMESTAMP
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB
ROW_FORMAT=DEFAULT

 Table : TSkor

CREATE TABLE `tskor` (
`RS` VARCHAR(20) NOT NULL DEFAULT '',
`Point` INT(10) NULL DEFAULT '0',
PRIMARY KEY (`RS`)
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB
ROW_FORMAT=DEFAULT

 Trigger : TRPeserta

CREATE DEFINER=`root`@`localhost` TRIGGER `TRPeserta` AFTER INSERT ON `tpeserta` FOR EACH ROW BEGIN Insert Into TSkor (RS) values(new.RS); END;

 Trigger : TRSeri

CREATE DEFINER=`root`@`localhost` TRIGGER `TRSeri` AFTER INSERT ON `tseri` FOR EACH ROW BEGIN Update TPenjualanOutlet set validasi = '1' where Seri = new.Seri; END;

 Trigger : TRUpdatePenjualan

CREATE DEFINER=`root`@`localhost` TRIGGER `TRUpdatePenjualan` AFTER UPDATE ON `tpenjualanoutlet` FOR EACH ROW BEGIN Update TSkor set Point = point + (Select TPoint.Point From TPoint, TPenjualanOutlet Where new.Voucher = TPoint.voucher ) Where RS = new.RS; END;

0mem rasa sudah terlalu panjang untuk sesi ini, maka ada baiknya kita lanjutka pada sesi berikutnya dengan judul Pembuatan Aplikasi Baralek Gadang kiSEL