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...
- Daftarkan Outletmu (dari nomor MKIOS) dengan cara Ketik KISELREG#Nama#Nama_Outlet#Kecamatan lalu kirim ke nomor Center yang ditentukan
- 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.
- 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