Membuat program kecamatan menggunakan VB6 dan SQL Server 2000

Belakangan ini sudah banyak sekolah-sekolah di Indonesia yang diajarkan mengenai dasar-dasar komputer beserta tugas-tugas yang memusingkan khususnya di bidang komputer aplikasi database. Dibawah ini akan kami berikan tutorial untuk membuat program kecamatan dari kabupaten dan provinsi. Untuk sementara kami berikan yang lingkup Pulau Jawa. Mudah-mudahan tutorial ini dapat membantu adik-adik yang masih sekolah untuk dapat melengkapi tugas-tugas aplikasi databasenya, atau mungkin juga program ini dapat digunakan untuk yang sudah bekerja atau wiraswasta, karena saya buat semudah mungkin.

Alat-alat yang harus diperlukan :
1 paket komputer yang bisa menyala dan berfungsi (monitor, cpu, keyboard, mouse)

OS yang digunakan :
Windows XP (diharapkan) (bisa di unduh pake torrent di windows xp sp3
windows yang lain juga gak papa asal dapat diinstall VB and SQL

Software yang digunakan :
aplikasi SQL Server 2000
aplikasi Visual Basic 6.0 (bisa di unduh pake torrent di vb6 enterprise edition
componentone true dbgrid 7.0 (bisa di unduh di true dbgrid 7.0

Bila semua peralatan telah disiapkan silahkan membaca petunjuk berikutnya :

Langkah I :
- Aktifkan database yang dituju di SQL server 2000 (bila masih belum mempunyai database lakukan create database dengan cara klik kanan "Databases" di bawah nama komputer yang ada di SQL Server 2000 lalu klik New Database (dalam contoh berikut menggunakan dbGeneral)). Lihat gambar berikut :


- Setelah dilakukan pemilihan data (select database) atau pembuatan data create database). Pilihlah "SQL Query Analyzer" di menu Tools lalu tekan tombol untuk execute atau Query - Execute. Lihat gambar berikut


- Copykan script dibawah ini menggunakan SQL Query Analyzer.

IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'dbGeneral')
DROP DATABASE [dbGeneral]
GO

CREATE DATABASE [dbGeneral] ON (NAME = N'dbGeneral_Data', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL\Data\dbGeneral_Data.MDF' , SIZE = 1, FILEGROWTH = 10%) LOG ON (NAME = N'dbGeneral_Log', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL\Data\dbGeneral_Log.LDF' , SIZE = 1, FILEGROWTH = 10%)
COLLATE SQL_Latin1_General_CP1_CI_AS
GO

exec sp_dboption N'dbGeneral', N'autoclose', N'true'
GO

exec sp_dboption N'dbGeneral', N'bulkcopy', N'false'
GO

exec sp_dboption N'dbGeneral', N'trunc. log', N'true'
GO

exec sp_dboption N'dbGeneral', N'torn page detection', N'true'
GO

exec sp_dboption N'dbGeneral', N'read only', N'false'
GO

exec sp_dboption N'dbGeneral', N'dbo use', N'false'
GO

exec sp_dboption N'dbGeneral', N'single', N'false'
GO

exec sp_dboption N'dbGeneral', N'autoshrink', N'true'
GO

exec sp_dboption N'dbGeneral', N'ANSI null default', N'false'
GO

exec sp_dboption N'dbGeneral', N'recursive triggers', N'false'
GO

exec sp_dboption N'dbGeneral', N'ANSI nulls', N'false'
GO

exec sp_dboption N'dbGeneral', N'concat null yields null', N'false'
GO

exec sp_dboption N'dbGeneral', N'cursor close on commit', N'false'
GO

exec sp_dboption N'dbGeneral', N'default to local cursor', N'false'
GO

exec sp_dboption N'dbGeneral', N'quoted identifier', N'false'
GO

exec sp_dboption N'dbGeneral', N'ANSI warnings', N'false'
GO

exec sp_dboption N'dbGeneral', N'auto create statistics', N'true'
GO

exec sp_dboption N'dbGeneral', N'auto update statistics', N'true'
GO

use [dbGeneral]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_tblKecamatan_tblKabupaten]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1)
ALTER TABLE [dbo].[tblKecamatan] DROP CONSTRAINT FK_tblKecamatan_tblKabupaten
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_tblKabupaten_tblProvinsi]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1)
ALTER TABLE [dbo].[tblKabupaten] DROP CONSTRAINT FK_tblKabupaten_tblProvinsi
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tblKabupaten]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[tblKabupaten]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tblKecamatan]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[tblKecamatan]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tblProvinsi]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[tblProvinsi]
GO

CREATE TABLE [dbo].[tblKabupaten] (
[Kode Provinsi] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Kode Kabupaten] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Nama Kabupaten] [varchar] (25) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Username] [varchar] (30) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Tanggal] [datetime] NULL
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[tblKecamatan] (
[Kode Provinsi] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Kode Kabupaten] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Kode Kecamatan] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Nama Kecamatan] [varchar] (25) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Username] [varchar] (30) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Tanggal] [datetime] NULL
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[tblProvinsi] (
[Kode Provinsi] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Nama Provinsi] [varchar] (25) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Username] [varchar] (30) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Tanggal] [datetime] NULL
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[tblKabupaten] WITH NOCHECK ADD
CONSTRAINT [PK_tblKabupaten] PRIMARY KEY CLUSTERED
(
[Kode Provinsi],
[Kode Kabupaten]
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[tblKecamatan] WITH NOCHECK ADD
CONSTRAINT [PK_tblKecamatan] PRIMARY KEY CLUSTERED
(
[Kode Provinsi],
[Kode Kabupaten],
[Kode Kecamatan]
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[tblProvinsi] WITH NOCHECK ADD
CONSTRAINT [PK_tblProvinsi] PRIMARY KEY CLUSTERED
(
[Kode Provinsi]
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[tblKabupaten] WITH NOCHECK ADD
CONSTRAINT [DF_tblKabupaten_Nama Kabupaten] DEFAULT (' ') FOR [Nama Kabupaten],
CONSTRAINT [DF_tblKabupaten_Username] DEFAULT ('RENCEMAN') FOR [Username],
CONSTRAINT [DF_tblKabupaten_Tanggal] DEFAULT (getdate()) FOR [Tanggal]
GO

ALTER TABLE [dbo].[tblKecamatan] WITH NOCHECK ADD
CONSTRAINT [DF_tblKecamatan_Nama Kecamatan] DEFAULT (' ') FOR [Nama Kecamatan],
CONSTRAINT [DF_tblKecamatan_Username] DEFAULT ('RENCEMAN') FOR [Username],
CONSTRAINT [DF_tblKecamatan_Tanggal] DEFAULT (getdate()) FOR [Tanggal]
GO

ALTER TABLE [dbo].[tblProvinsi] WITH NOCHECK ADD
CONSTRAINT [DF_tblProvinsi_Nama Provinsi] DEFAULT (' ') FOR [Nama Provinsi],
CONSTRAINT [DF_tblProvinsi_Username] DEFAULT ('RENCEMAN') FOR [Username],
CONSTRAINT [DF_tblProvinsi_Tanggal] DEFAULT (getdate()) FOR [Tanggal]
GO

ALTER TABLE [dbo].[tblKabupaten] ADD
CONSTRAINT [FK_tblKabupaten_tblProvinsi] FOREIGN KEY
(
[Kode Provinsi]
) REFERENCES [dbo].[tblProvinsi] (
[Kode Provinsi]
) ON UPDATE CASCADE
GO

ALTER TABLE [dbo].[tblKecamatan] ADD
CONSTRAINT [FK_tblKecamatan_tblKabupaten] FOREIGN KEY
(
[Kode Provinsi],
[Kode Kabupaten]
) REFERENCES [dbo].[tblKabupaten] (
[Kode Provinsi],
[Kode Kabupaten]
) ON UPDATE CASCADE
GO

Keterangan :
Untuk dbGeneral dapat di ganti dengan cara find replace sesuai dengan nama database yang akan di tuju, contohnya di situs ini menggunakan database dbGeneral. Lihat gambar di bawah :



Untuk pembuatan database telah selesai.

Langkah II :
- Pembuatan program klik pembuatan program menggunakan VB6