BAB I
PENDAHULUAN
1.1 Awal Pembuatan
Suatu saat ketika penulis pergi ke kantor kepala desa dengan maksud untuk pembuatan sebuah KTP yang membutuhkan surat pengantar yang harus diisi oleh pemohon KTP, namun pada akhirnya dalam permintaan surat pengantar yang masih manual dan peletakan yang sembarangan mengenai Arsip dan berkas kependudukan, Penulis berinisiatip untuk membuat program yang didalamnya memuat data-data penduduk suatu Desa agar mempermudah proses transaksi KTP. ataupun dalam proses Sensus kependudukan nasional.
1.2 Maksud dan Tujuan
- Pembelajaran dan pengenalan tentang sebuah program
- Mengerti dalam penyusunan sebuah program
- Diharapkan mampu dalam pembuatan program sederhana
BAB II
ANALISA PROGRAM APLIKASI
2.1 Entity Relationship Diagram
2.2 Kamus Data
- Penduduk = {#No NIK/NIKS, Nama Lengkap, Tempat dan Tanggal Lahir, Jenis Kelamin, Alamat, Agama, Pekerjaan, Status Perkawinan, No Telphone}
- Stap Desa = {#NIP, Nama Stap, Kedudukan)
2.3 Struktur File
Data Base Penduduk
 |
Data Base Stap
 |
Data Base Pasword
Struktur Menu Program
2.4 Tampilan Program dan Listing Program Aplikasi
 |  | ||
Tampilan awal (Sing In)
#include "Unit1tugas.h"
#include "Unit6tugas.h"
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
String username;
String pasword;
TbPassword->SetKey();
TbPassword->FieldByName("USER")->AsString=Edit1->Text;
if (!TbPassword->GotoKey())
{
ShowMessage(" Maaf, Nama dan Pasword Yang Anda Masukan Salah");
}
else
{
username=TbPassword->FieldValues["User"];
pasword=TbPassword->FieldValues["Pasword"];
{
if ((Edit1->Text==username)&&(Edit2->Text==pasword))
{
ShowMessage("Selamat, Nama dan Pasword yang Anda Masuikan Benar");
Form6->ShowModal();
}
else
{
ShowMessage("Nama Yang Anda Masukan Salah");
}
}
}
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Label3->Caption=Date();
Label4->Caption=Time();
}
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Close();
}
Tampilan Menu Utama
#include "Unit6Tugas.h"
#include "Unit2Tugas.h"
#include "Unit3Tugas.h"
#include "Unit4Tugas.h"
#include "Unit5Tugas.h"
#include "Unit7Tugas.h"
#include "Unit8Tugas.h"
#include "Unit9Tugas.h"
#include "Unit10Tugas.h"
void __fastcall TForm6::Petunjuk1Click(TObject *Sender)
{
Form5->Show();
}
void __fastcall TForm6::Keluar1Click(TObject *Sender)
{
Application->Terminate();
}
void __fastcall TForm6::Timer1Timer(TObject *Sender)
{
Label1->Caption=Date();
Label2->Caption=Time();
}
void __fastcall TForm6::TentangPembuat1Click(TObject *Sender)
{
Form7->Show();
}
void __fastcall TForm6::DataPenduduk2Click(TObject *Sender)
{
Form2->Show();
}
void __fastcall TForm6::DataStap1Click(TObject *Sender)
{
Form8->Show();
}
void __fastcall TForm6::DataPenduduk3Click(TObject *Sender)
{
Form3->Show();
}
void __fastcall TForm6::DataStap2Click(TObject *Sender)
{
Form9->Show();
}
void __fastcall TForm6::DataPenduduk4Click(TObject *Sender)
{
Form4->Show();
}
void __fastcall TForm6::DataStap3Click(TObject *Sender)
{
Form10->Show();
}
void __fastcall TForm6::Image1Click(TObject *Sender)
{
}
Tampilan Pemasukan Data Penduduk
#include "Unit2tugas.h"
void __fastcall TForm2::BitBtn3Click(TObject *Sender)
{
Close();
}
void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{
Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Edit4->Clear();
ComboBox1->Text=""; Edit5->Clear(); ComboBox2->Text="";
Edit6->Clear(); ComboBox3->Text=""; ComboBox4->Text="";
Edit7->Clear(); ComboBox5->Text=""; Edit8->Clear();
Edit9->Clear(); Edit10->Clear(); Edit11->Clear(); Edit12->Clear();
Edit13->Clear(); Edit14->Clear(); Edit15->Clear(); Edit16->Clear();
Edit17->Clear(); Edit1->SetFocus();
}
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
TbPenduduk->Append();
TbPenduduk->FieldValues["NIK/NIKS"]=Edit1->Text;
TbPenduduk->FieldValues["Nama"]=Edit10->Text;
TbPenduduk->FieldValues["Tempat/Tanggal"]=Edit11->Text;
TbPenduduk->FieldValues["Jenis Kelamin"]=Edit12->Text;
TbPenduduk->FieldValues["Alamat"]=Edit13->Text;
TbPenduduk->FieldValues["Agama"]=Edit14->Text;
TbPenduduk->FieldValues["Pekerjaan"]=Edit15->Text;
TbPenduduk->FieldValues["Status"]=Edit16->Text;
TbPenduduk->FieldValues["Telphone"]=Edit17->Text;
TbPenduduk->Post();
}
void __fastcall TForm2::BitBtn4Click(TObject *Sender)
{
Edit10->Text=Edit2->Text;
Edit11->Text=Edit3->Text+", "+Edit4->Text+" "+ComboBox1->Text+" "+Edit5->Text;
Edit12->Text=ComboBox2->Text;
Edit13->Text=Edit6->Text+" RT/RW "+ComboBox3->Text+"/"+ComboBox4->Text;
Edit14->Text=Edit7->Text;
Edit15->Text=Edit8->Text;
Edit16->Text=ComboBox5->Text;
Edit17->Text=Edit9->Text;
}
void __fastcall TForm2::FormCreate(TObject *Sender)
{
ComboBox1->Items->Add("Januari"); ComboBox1->Items->Add("Februari");
ComboBox1->Items->Add("Maret"); ComboBox1->Items->Add("April");
ComboBox1->Items->Add("Mei"); ComboBox1->Items->Add("Juni");
ComboBox1->Items->Add("Juli"); ComboBox1->Items->Add("Agustus");
ComboBox1->Items->Add("September"); ComboBox1->Items->Add("Oktober");
ComboBox1->Items->Add("November");ComboBox1->Items->Add("Desember");
ComboBox2->Items->Add("Laki-laki");ComboBox2->Items->Add("Perempuan");
ComboBox3->Items->Add("01"); ComboBox3->Items->Add("02");
ComboBox3->Items->Add("03"); ComboBox3->Items->Add("04");
ComboBox3->Items->Add("05");
ComboBox4->Items->Add("01"); ComboBox4->Items->Add("02");
ComboBox4->Items->Add("03"); ComboBox4->Items->Add("04");
ComboBox4->Items->Add("05");
ComboBox5->Items->Add("Kawin"); ComboBox5->Items->Add("Tidak Kawin");
}
void __fastcall TForm2::Tambih1Click(TObject *Sender)
{
TbPenduduk->Append();
}
void __fastcall TForm2::Robihy1Click(TObject *Sender)
{
TbPenduduk->Edit();
}
void __fastcall TForm2::Pupus1Click(TObject *Sender)
{
TbPenduduk->Delete();
}
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
Label25->Caption="Tanggal Sekarang "+Date();
Label26->Caption="Waktu Sekarang "+Time();
}
Tampilan Pemasukan Data Stap
#include "Unit8Tugas.h"
void __fastcall TForm8::Timer1Timer(TObject *Sender)
{
Label5->Caption=Date(); Label6->Caption=Time();
}
void __fastcall TForm8::Button1Click(TObject *Sender)
{
TbStap->Append();
TbStap->FieldValues["NIP"]=Edit1->Text;
TbStap->FieldValues["Nama Stap"]=Edit2->Text;
TbStap->FieldValues["Kedudukan"]=Edit3->Text;
TbStap->Post();
}
void __fastcall TForm8::BitBtn1Click(TObject *Sender)
{
Edit1->Clear(); Edit2->Clear();
Edit3->Clear(); Edit1->SetFocus();
}
void __fastcall TForm8::BitBtn2Click(TObject *Sender)
{
Close();
}
Tampilan Menu Search Penduduk
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
if (RadioButton1->Checked);
{
TbPenduduk->SetKey();
TbPenduduk->FieldByName("NIK/NIKS")->AsString=Edit1->Text;
if(!TbPenduduk->GotoKey())
{
ShowMessage("Data Penduduk Dengan Kode Yang Dicari Tidak Ditemukan");
}
}
if (RadioButton2->Checked)
{
TbPenduduk->IndexName="Nama Penduduk";
TbPenduduk->FindNearest(ARRAYOFCONST((Edit1->Text)));
if(!TbPenduduk->GotoKey())
{
ShowMessage("Data Penduduk Dengan Nama Yang Dicari Tidak Ditemukan");
}
}
}
void __fastcall TForm3::Timer1Timer(TObject *Sender)
{
Label2->Caption=Date(); Label3->Caption=Time();
}
void __fastcall TForm3::BitBtn3Click(TObject *Sender)
{
Edit1->Clear(); Edit1->SetFocus();
}
Tampilan Menu Search Stap
#include "Unit9Tugas.h"
void __fastcall TForm9::BitBtn1Click(TObject *Sender)
{
if (RadioButton1->Checked);
{
TbStap->SetKey();
TbStap->FieldByName("NIP")->AsString=Edit1->Text;
if(!TbStap->GotoKey())
{
ShowMessage("Data Stap Dengan Kode Yang Dicari Tidak Ditemukan");
}
}
if (RadioButton2->Checked)
{
TbStap->IndexName="Nama";
TbStap->FindNearest(ARRAYOFCONST((Edit1->Text)));
if(!TbStap->GotoKey())
{
ShowMessage("Data Stap Dengan Nama Yang Dicari Tidak Ditemukan");
}
}
}
void __fastcall TForm9::BitBtn2Click(TObject *Sender)
{
Edit1->Clear(); Edit1->SetFocus();
}
Tampilan awal (Quick Report) Penduduk
void __fastcall TForm4::BitBtn2Click(TObject *Sender){
Close();
}
void __fastcall TForm4::BitBtn1Click(TObject *Sende)
{
QRPenduduk->Preview();
}
 |
Tampilan awal (Quick Report) Stap
void __fastcall TForm10::BitBtn1Click(TObject *Sende)
{
QRStap->Preview();
}
Tampilan Preview Penduduk
 |
Tampilan Preview Stap
Tampilan Petunjuk
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
Close();
}
 |
Tampilan Tentang Pembuat
BAB III
KESIMPULAN
Jadi maksud pembuatan makalah ini adalah, sebagai sarana pembelajaran seorang calon progremer dalam mengasah kemampuannya dalam hal pembuatan sebuah program yang pastinya sangat jauh dari pada bagus ataupun sempurna diharapkan pembaca dapat memberikan saran, adapun sebagai gambaran mengenai tugas akhir yang harus kita buat dikemudian hari.
Tidak ada komentar:
Posting Komentar