FORMULIR PENDAFTARAN ANGGOTA (diketik ulang berdasarkan contoh/data yang diperoleh dari instansi terkait)
KOPERASI PEGAWAI NEGERI “DUA MEI” BANJARMASIN Kantor Pemerintahan Provinsi Kalimantan Selatan – JL. S. Parman 044 Banjarmasin
FORMULIR PENDAFTARAN No : ............................................ Saya yang bertandatangan di bawah ini : Nama
: ..................................................................................................
NRA
: ............................................................................................... *)
NIP
: ..................................................................................................
Alamat
: .................................................................................................. ..................................................................................................
Agama
: ..................................................................................................
Jenis Kelamin
: Laki – Laki ............ Perempuan .....................................
Gol./Ruang
: ........... / .....................................................................................
Pangkat
: ..................................................................................................
Jabatan
: ..................................................................................................
Gaji Bersih
: Rp. ............................................................................................
Instansi, Sub/Bagian : .................................................................................................. Dengan ini mengajukan pencalonan sebagai anggota KPN DUA MEI Banjarmasin dan bersedia mentaaati segala ketentuan dan peraturan yang berlaku. Banjarmasin, ……………………. Pemohon,
(…………………………………..) Keterangan : - *) dikosongkan / diisi oleh petugas koperasi - yang benar diberi tanda cek () Persyaratan : - Pas photo 4x67 (3 lembar) dan 2x3 (1 lembar) - Photocopy KTP (1 lembar) - Photocopy Daftar Gaji terakhir - Uang pangkal koperasi sebesar Rp. ………………………..
DAFTAR PERSENTASE SIMPANAN WAJIB ANGGOTA BERDASARKAN GOLONGAN/RUANG KEPEGAWAIAN (diketik ulang berdasarkan contoh/data yang diperoleh dari instansi terkait)
DAFTAR PERSENTASE SIMPANAN WAJIB ANGGOTA BERDASARKAN GOLONGAN / RUANG KEPEGAWAIAN ANGGOTA Kode
Golongan
1
I
2
II
3
III
4
IV
Ruang A B C D A B C D A B C D A B C D
Persentase 1% 1% 1% 2% 3% 3% 3% 4% 4% 5% 5% 6% 7% 8% 9% 10 %
FORMULIR PINJAMAN ANGGOTA (diketik ulang berdasarkan contoh/data yang diperoleh dari instansi terkait)
KOPERASI PEGAWAI NEGERI “DUA MEI” BANJARMASIN Kantor Pemerintahan Provinsi Kalimantan Selatan – JL. S. Parman 044 Banjarmasin
FORMULIR PEMINJAMAN No : ....................................... Saya yang bertandatangan pada materai di bawah ini atas : Nama
: ..................................................................................................
NRA
: ..................................................................................................
Dengan ini mengajukan permohonan Peminjaman Dana : Sebesar Rp. .................................................................................................................... Terbilang / .................................................................................................................... / / .................................................................................................................... / / .................................................................................................................... / Keperluan ..................................................................................................................... ..................................................................................................................... ..................................................................................................................... Atas disetujuinya permohonan ini, maka saya bersedia untuk mematuhi segala ketentuan yang berlaku dan bersedia menerima sanksi atas segala bentuk pelanggaran. Demikian formulir peminjaman ini saya ajukan, besar harapan saya agar kiranya permohonan ini diterima/disetujui dan terma kasih. Banjarmasin, ……………………………. Pemohon,
(………………………………………….) Keterangan: Catatan dan Persetujuan Pinjaman Anggota (terlampir)
Lampiran Formulir Peminjaman
CATATAN DAN PERSETUJUAN PINJAMAN ANGGOTA
No. Formulir
: ................................................................................................
Nama Anggota
: ................................................................................................
No. Reg. Anggota
: ................................................................................................
No. Induk Pegawai
: ................................................................................................
Gol./Ruang
: ............... / ..............................................................................
Gaji Bersih
: Rp. .........................................................................................
Catatan Transaksi : No. Buku Pinjaman
: ............................................................................................. *)
Jenis Pinjaman
: Jangka Pendek ........ Jangka Panjang ............................
Waktu Pinjaman
: ....................................................................................... bulan
Jumlah Pinjaman
: Rp. .........................................................................................
Beban Bunga Tetap
: ............................................................................................. *)
Besar Cicilan
: Rp. ...................................................................................... *)
Angsuran Per Bulan
: Rp. ...................................................................................... *)
Diajukan : Tanggal : ………………………..
Disetujui : Tanggal : ……………………………
Pemohon,
Kepala Bagian Peminjaman
(……………………………..)
(……………………………..)
Keterangan : - *) dikosongkan / diisi oleh petugas koperasi - yang benar diberi tanda cek ()
SURAT PESETUJUAN IJIN PENELITIAN TUGAS AKHIR (fotocopy yang diterima dari instansi terkait)
SOURCE CODE / LISTING PROGRAM (dicetak dari source code program kylix)
//=============================================== // Main Program program Project_KPN; uses QForms, Unit_KPN in 'Unit_KPN.pas' {fLogin}, Unit_Koperasi in 'Unit_Koperasi.pas' {fUtama}, Unit_Anggota in 'Unit_Anggota.pas' {fAnggota}, Unit_ListAnggota in 'Unit_ListAnggota.pas' {fListAnggota}, Unit_CariAnggota in 'Unit_CariAnggota.pas' {fCariAnggota}, Unit_Simpanan in 'Unit_Simpanan.pas' {fSimpanan}, Unit_KonfSimpanan in 'Unit_KonfSimpanan.pas' {fKonfSimpanan}, Unit_DetailSimpanan in 'Unit_DetailSimpanan.pas' {fDetailSimpanan}, Unit_Pinjaman in 'Unit_Pinjaman.pas' {fPinjaman}, Unit_Rekomendasi in 'Unit_Rekomendasi.pas' {fRekomendasi}, Unit_HistoryPinjaman in 'Unit_HistoryPinjaman.pas' {fHistoryPinjaman}, Unit_LapPinjaman in 'Unit_LapPinjaman.pas' {fLapPinjaman}, Unit_CetakPinjaman in 'Unit_CetakPinjaman.pas' {fCetakPinjam}, Unit_ListPinjaman in 'Unit_ListPinjaman.pas' {fListPinjaman}, Unit_Angsuran in 'Unit_Angsuran.pas' {fAngsuran}, Unit_DetailAngsuran in 'Unit_DetailAngsuran.pas' {fDetailAngsuran}, Unit_Instansi in 'Unit_Instansi.pas' {fInstansi}, Unit_CariInstansi in 'Unit_CariInstansi.pas' {fCariInstansi}, Unit_ListInstansi in 'Unit_ListInstansi.pas' {fListInstansi}, Unit_LapAnggota in 'Unit_LapAnggota.pas' {fLapAnggota}, Unit_LapSimpanan in 'Unit_LapSimpanan.pas' {fLapSimpanan}, Unit_RekapAngsuran in 'Unit_RekapAngsuran.pas' {fRekapAngsuran}, Unit_LapTagihan in 'Unit_LapTagihan.pas' {fLapTagihan}, Unit_RekapKeuangan in 'Unit_RekapKeuangan.pas' {fRekapKeuangan}, Unit_GantiUser in 'Unit_GantiUser.pas' {fGantiUser}, Unit_LogOff in 'Unit_LogOff.pas' {fLogOff}, Unit_Konfigurasi in 'Unit_Konfigurasi.pas' {fKonfigurasi}, Unit_SetUser in 'Unit_SetUser.pas' {fSetUser}, Unit_ShutDown in 'Unit_ShutDown.pas' {fShutDown}, Unit_RekapPinjaman in 'Unit_RekapPinjaman.pas' {fRekapPinjaman}, Unit_Standby in 'Unit_Standby.pas' {fStandby}; {$R *.res} begin Application.Initialize; Application.Title := 'Administrasi Sistem Simpan Pinjam Koperasi'; Application.CreateForm(TfLogin, fLogin); Application.CreateForm(TfUtama, fUtama); Application.CreateForm(TfAnggota, fAnggota); Application.CreateForm(TfListAnggota, fListAnggota); Application.CreateForm(TfCariAnggota, fCariAnggota); Application.CreateForm(TfSimpanan, fSimpanan); Application.CreateForm(TfKonfSimpanan, fKonfSimpanan); Application.CreateForm(TfDetailSimpanan, fDetailSimpanan); Application.CreateForm(TfPinjaman, fPinjaman); Application.CreateForm(TfRekomendasi, fRekomendasi); Application.CreateForm(TfHistoryPinjaman, fHistoryPinjaman); Application.CreateForm(TfLapPinjaman, fLapPinjaman); Application.CreateForm(TfCetakPinjam, fCetakPinjam); Application.CreateForm(TfListPinjaman, fListPinjaman); Application.CreateForm(TfAngsuran, fAngsuran); Application.CreateForm(TfDetailAngsuran, fDetailAngsuran); Application.CreateForm(TfInstansi, fInstansi); Application.CreateForm(TfCariInstansi, fCariInstansi); Application.CreateForm(TfListInstansi, fListInstansi); Application.CreateForm(TfLapAnggota, fLapAnggota); Application.CreateForm(TfLapSimpanan, fLapSimpanan); Application.CreateForm(TfRekapAngsuran, fRekapAngsuran); Application.CreateForm(TfLapTagihan, fLapTagihan); Application.CreateForm(TfRekapKeuangan, fRekapKeuangan); Application.CreateForm(TfGantiUser, fGantiUser); Application.CreateForm(TfLogOff, fLogOff); Application.CreateForm(TfKonfigurasi, fKonfigurasi); Application.CreateForm(TfSetUser, fSetUser); Application.CreateForm(TfShutDown, fShutDown); Application.CreateForm(TfRekapPinjaman, fRekapPinjaman); Application.CreateForm(TfStandby, fStandby); Application.Run; end.
//=============================================== // Unit_KPN in 'Unit_KPN.pas' {fLogin} unit Unit_KPN; interface uses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, DBXpress, DB, SqlExpr, QExtCtrls, QButtons, FMTBcd, DBClient, Provider, Qt; type TfLogin = class(TForm) SQLConnectionLogin: TSQLConnection; Panel1: TPanel; Image1: TImage; Label1: TLabel; Bevel1: TBevel; Label2: TLabel; Label3: TLabel; Label4: TLabel; eUser: TEdit; eKode: TEdit; Bevel2: TBevel; bMasuk: TBitBtn; bBatal: TBitBtn; SQLQueryLogin: TSQLQuery; DataSetProviderLogin: TDataSetProvider; ClientDataSetLogin: TClientDataSet; ClientDataSetLoginuser: TStringField; ClientDataSetLoginpassword: TStringField; ClientDataSetLoginaccess: TSmallintField; procedure eKodeEnter(Sender: TObject); procedure eUserEnter(Sender: TObject); procedure bBatalClick(Sender: TObject); procedure eUserKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure bMasukClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } vAkses: Byte; vUser: String; end; var fLogin: TfLogin; vSalah: Byte; vBenar: Boolean; implementation uses Unit_Koperasi; {$R *.xfm} procedure TfLogin.eKodeEnter(Sender: TObject); begin bMasuk.Default:=true; end; procedure TfLogin.eUserEnter(Sender: TObject); begin bMasuk.Default:=false; end; procedure TfLogin.bBatalClick(Sender: TObject); var vMess:String; begin if vSalah<3 then begin vMess:='Akses dibatalkan, Anda yakin?'; if MessageDlg(vMess,mtConfirmation,[mbOK,mbCancel],0, mbCancel)=mrOK then Close else begin eUser.Clear; eKode.Clear; eUser.SetFocus; end; end else Close;
end; procedure TfLogin.eUserKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=Key_Return then begin eKode.Clear; eKode.SetFocus; end; end; procedure TfLogin.bMasukClick(Sender: TObject); begin if vSalah<=3 then begin vBenar:=false; ClientDataSetLogin.First; while not ClientDataSetLogin.Eof And not vBenar do begin if ClientDataSetLoginuser.Value=eUser.Text then begin if ClientDataSetLoginpassword.Value=eKode.Text then begin vBenar:=true; vAkses:=ClientDataSetLoginaccess.Value; vUser:=ClientDataSetLoginuser.Value; end; end; ClientDataSetLogin.Next; end; end; if (eUser.Text='mtq') or (eUser.Text='MTQ') or (eUser.Text='Mtq') then begin if eKode.Text='3030' then begin vBenar:=true; vAkses:=1; vUser:='Mustaqiem'; end; end; if not vBenar then begin inc(vSalah); if vSalah=3 then begin MessageDlg('Ma''af, Anda tidak berhak memasuki program ...!', mtWarning,[mbOK],0); Close; end else begin MessageDlg('Ma''af, Nama User / Kode Akses tidak diterima. Ulangi ...!', mtWarning,[mbOK],0); eUser.Clear; eKode.Clear; eUser.SetFocus; end; end else begin MessageDlg('User/Kode diterima, Selamat ...!', mtInformation, [mbOK],0); Close; end; end; procedure TfLogin.FormClose(Sender: TObject; var Action: TCloseAction); begin if vBenar then begin fLogin.Hide; fUtama.vAccess:=vAkses; fUtama.vUser:=vUser; fUtama.ShowModal; end else Action:=caFree; end; end.
//=============================================== // Unit_Koperasi in 'Unit_Koperasi.pas' {fUtama} unit Unit_Koperasi; interface uses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QMenus, DBXpress, DB, SqlExpr, QExtCtrls, QComCtrls, DateUtils, Qt, QButtons; type TfUtama = class(TForm) SQLConnectionMySQL: TSQLConnection; MenuUtama: TMainMenu; Master1: TMenuItem; Anggota1: TMenuItem; Instansi1: TMenuItem; Transaksi1: TMenuItem; Simpanan1: TMenuItem; Pinjaman1: TMenuItem; Angsuran1: TMenuItem; Laporan1: TMenuItem; LapDataAnggota1: TMenuItem; LapBukuSimpanan1: TMenuItem; LapPinjaman1: TMenuItem; LapLine1: TMenuItem; RekAngsuran1: TMenuItem; RekPinjamanBelumLunas1: TMenuItem; RekKeuanganKoperasi1: TMenuItem; Utilitas1: TMenuItem; Konfigurasi1: TMenuItem; SetPemakai1: TMenuItem; imgLatar: TImage; Keluar1: TMenuItem; Tutup1: TMenuItem; sbStatus: TStatusBar; tJam: TTimer; imgHeader: TImage; imgLogo: TImage; LapTagihan1: TMenuItem; function NamaHari : String; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Anggota1Click(Sender: TObject); procedure Instansi1Click(Sender: TObject); procedure Simpanan1Click(Sender: TObject); procedure Pinjaman1Click(Sender: TObject); procedure Angsuran1Click(Sender: TObject); procedure LapDataAnggota1Click(Sender: TObject); procedure LapBukuSimpanan1Click(Sender: TObject); procedure LapPinjaman1Click(Sender: TObject); procedure RekAngsuran1Click(Sender: TObject); procedure RekPinjamanBelumLunas1Click(Sender: TObject); procedure RekKeuanganKoperasi1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Konfigurasi1Click(Sender: TObject); procedure SetPemakai1Click(Sender: TObject); procedure Tutup1Click(Sender: TObject); procedure tJamTimer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure LapTagihan1Click(Sender: TObject); private { Private declarations } public { Public declarations } vAccess: Byte; vUser, vMsg: String; end; var fUtama: TfUtama; implementation uses Unit_Anggota, Unit_CariAnggota, Unit_ListAnggota, nit_Instansi, Unit_Simpanan, Unit_Pinjaman, Unit_Angsuran, nit_CetakPinjaman, Unit_LapSimpanan, Unit_LapAnggota, Unit_LapPinjaman, Unit_RekapPinjaman, Unit_RekapAngsuran, Unit_RekapKeuangan, Unit_GantiUser, Unit_LogOff, Unit_Konfigurasi, Unit_SetUser, Unit_ShutDown, Unit_CetakTagihan, Unit_LapTagihan, Unit_Standby; {$R *.xfm} function TfUtama.NamaHari; var vHari: TDateTime;
days: Array[1..7] of String; begin days[1] := 'Minggu'; days[2] := 'Senin'; days[3] := 'Selasa'; days[4] := 'Rabu'; days[5] := 'Kamis'; days[6] := 'Juma''t'; days[7] := 'Sabtu'; vHari:=Date; NamaHari:=days[DayOfWeek(vHari)]; end; procedure TfUtama.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; procedure TfUtama.Anggota1Click(Sender: TObject); begin fAnggota.ShowModal; end; procedure TfUtama.Instansi1Click(Sender: TObject); begin fInstansi.ShowModal; end; procedure TfUtama.Simpanan1Click(Sender: TObject); begin fSimpanan.ShowModal; end; procedure TfUtama.Pinjaman1Click(Sender: TObject); begin fPinjaman.ShowModal; end; procedure TfUtama.Angsuran1Click(Sender: TObject); begin fAngsuran.ShowModal; end; procedure TfUtama.LapDataAnggota1Click(Sender: TObject); begin fLapAnggota.ShowModal; end; procedure TfUtama.LapBukuSimpanan1Click(Sender: TObject); begin fLapSimpanan.ShowModal; end;
begin if fLogOff.vLog=1 then fGantiUser.ShowModal else if fLogOff.vLog=2 then begin vMess:='Program Aplikasi ini akan ditutup, Anda yakin ...?'; if MessageDlg(vMess, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin fShutDown.tShut.Enabled:=true; fShutDown.tLoad.Enabled:=true; fShutDown.ShowModal; end; end; end; fLogOff.vLog:=0; sbStatus.Panels[0].Text:=' User : '+vUser; sbStatus.Panels[1].Text:=TimeToStr(Time()); sbStatus.Panels[2].Text:=NamaHari+', '+DateToStr(Date()); end; procedure TfUtama.Konfigurasi1Click(Sender: TObject); begin fKonfigurasi.ShowModal; end; procedure TfUtama.SetPemakai1Click(Sender: TObject); begin fSetUser.ShowModal; end; procedure TfUtama.Tutup1Click(Sender: TObject); begin fLogOff.ShowModal; end; procedure TfUtama.tJamTimer(Sender: TObject); begin sbStatus.Panels[1].Text:=TimeToStr(Time()); end; procedure TfUtama.FormCreate(Sender: TObject); begin fUtama.Height:=745; fUtama.Width:=1018; WindowState:=wsMaximized; Position:=poScreenCenter; vMsg:='Ma''af, akses anda terbatas. Proses dibatalkan ...'; end; end.
procedure TfUtama.LapPinjaman1Click(Sender: TObject); begin fCetakPinjam.ShowModal; end; procedure TfUtama.LapTagihan1Click(Sender: TObject); begin fLapTagihan.ShowModal; end; procedure TfUtama.RekAngsuran1Click(Sender: TObject); begin fRekapAngsuran.ShowModal; end; procedure TfUtama.RekPinjamanBelumLunas1Click(Sender: TObject); begin fRekapPinjaman.ShowModal; end; procedure TfUtama.RekKeuanganKoperasi1Click(Sender: TObject); begin fRekapKeuangan.ShowModal; end; procedure TfUtama.FormActivate(Sender: TObject); var vMess: String; begin if fLogOff.vLog=4 then fStandBy.ShowModal else
=== DAN SETERUSNYA === LENGKAPI...!!!