Program Permohonan Surat Di kantor Desa atau Kecamatan

Gambar 1.0 Form Input Pemohon
Program ini hanya untuk tahap pembelajaran semata
dibuat karena ada salahsatu teman dari jauh meminta bantuan masalah it dikantornya.
bisa dikatakan program ini adalah bahan dasar untuk pembelajaran Pemrogramman Database dalam bahasa Delphi.
langkah pertama adalah buat form utama terlebih dahulu seperti pada gambar disamping
Gambar 2. Form Utama
yang kedua buat form baru dan desain lah dengan berbagai komponen seperti pada gambar 1.0\
kemudian buat form ke 3 untuk menampilkan hasil input pemohon seperti pada gambar dibawah ini
Gambar 3. Data Pemohon

pada form utama, main menu data, silahkan tuliskan perintah berikut ini agar form pemohon bisa dipanggil dari form utama
Gambar 4. Sintak Memanggil FOrm Pemohon

sekarang kembali ke form pemohon, kita coba mengfungsikan tombol simpan, silahkan klik 2 kali pada tombol simpan, kemudian diantara begin dan end isikan baris perintah berikut ini

procedure TfPemohonIn.btsimpanClick(Sender: TObject);
var i:integer;
 a:Boolean;
dataku:TDataSet;
gambarasl,gambartujuan:pchar;
gambarA,gambarB:string;
begin
if futama.cekKosong(Edit1,'Id no KTP belum ditentukan')=true then exit;
if futama.cekKosong(Edit2,'Nama Anggota belum ditentukan')=true then exit;
if futama.cekKosong(Edit3,'Tempat Tanggal Lahir belum ditentukan')=true then exit;


if btsimpan.Caption='Simpan' then
    begin
    //cek jika sudah ada data yang sama

    futama.MyCommand1.SQL.Clear;
    futama.MyCommand1.SQL.Add('insert into pemohon '+
    '(no_ktp,nama,tempatlahir,tgllahir,kelamin,agama,pekerjaan,pendidikanterakhir,'+
    ' alamat,foto) values('+
    QuotedStr(Edit1.Text)+','+
    QuotedStr(Edit2.Text)+','+
    QuotedStr(Edit3.Text)+','+
    QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date))+','+
    QuotedStr(cbjns_kel.Text)+','+
    QuotedStr(Edit4.Text)+','+
    QuotedStr(Edit5.Text)+','+
    QuotedStr(Edit6.Text)+','+
    QuotedStr(Edit7.Text)+','+
    QuotedStr(Edit1.Text+'.jpg')+')');
    futama.MyCommand1.Execute;

      //copy gambar
   if FileExists(Edit8.Text)=true then
      begin
      if DirectoryExists(ExtractFilePath(Application.ExeName)+'Gambar')=false then
          CreateDir(ExtractFilePath(Application.ExeName)+'Gambar');
      gambarasl:=Pchar(OpenPictureDialog1.FileName);
      gambartujuan:=Pchar(ExtractFilePath(Application.ExeName)+'Gambar\'+Edit1.Text+'.jpg');
      CopyFile(gambarasl,gambartujuan,true);
      end;

    ShowMessage( 'Proses penyimpanan berhasil');
    end
    else
    begin
    futama.MyCommand1.SQL.Clear;
    futama.MyCommand1.SQL.Add('update pemohon set '+
    'no_ktp='+QuotedStr(Edit1.Text)+
    ',nama='+QuotedStr(Edit2.Text)+
    ',tempatlahir='+QuotedStr(Edit3.Text)+
    ',tgllahir='+QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date))+
    ',kelamin='+QuotedStr(cbjns_kel.Text)+
    ',agama='+QuotedStr(Edit4.Text)+
    ',pekerjaan='+QuotedStr(Edit5.Text)+
    ',pendidikanterakhir='+QuotedStr(Edit6.Text)+
    ',alamat='+QuotedStr(Edit7.Text)+
    ' where no_ktp='+QuotedStr(lbkode.Caption));
    futama.MyCommand1.Execute;
 
    //update gambar
    if FileExists(Edit8.Text)=true then
      begin
      gambarA:=ExtractFileName(OpenPictureDialog1.FileName);
      gambarB:=Edit1.Text+'.jpg';
      gambarasl:=Pchar(OpenPictureDialog1.FileName);
      gambartujuan:=Pchar(ExtractFilePath(Application.ExeName)+'Gambar\'+Edit1.Text+'.jpg');

      if gambarA<>gambarB then
          begin
          DeleteFile(ExtractFilePath(Application.ExeName)+'Gambar\'+lbkode.Caption+'.jpg');
          CopyFile(gambarasl,gambartujuan,true);
          end;
      end;
   
    ShowMessage('update berhasil');

    end;
btbatalClick(Sender);
if fpemohon<>nil then fPemohon.MyQuery1.Refresh;
end;

tapi sebelumnya silahkan sobat install dulu databasenya ya, bisa copy pada folder contoh di paketan ini.

berikut ini adalah beberapa hal yang dibutuhkan sebelum anda mencobanya
1. Install Komponen Mydac V8.3.9 for delpji 7
2. Install Software Xampp dan aktifkan server MySQL
3. Install Software navicat v.8.0.29 enterprise
3. buka navicat dan buat database dengan nama "permohonan"
3. impor file database (pemohon.sql)yang ada pada folder DB satu paket dengan file permohonan.rar
cara Import
a. Klik kanan database permohonan kemudian pilih "execute bacth file"
b. cari file database nya (permohonan.sql)
c. chek Continue on Erroors
d. strart
f. Finish

nhah kawan selamat mencoba, yang kurang jelas bisa ditanyakan langsung lewat komentar atau email, thanks

oh iya untuk download contohnya bisa klik link dibawah ini :

http://adf.ly/6054696/dp-sc-programpermohonan

1 komentar:

  1. assalamualaikum mas,mau taya, bagaiaman caranya file tersebut di ekspor dalam format *.docx atau ms word?

    BalasHapus

Entri Populer