SISTEM INFORMASI PENGOLAHAN DATA TRANSAKSI PENJUALAN
DI KOPERASI UNIT DESA TANGJUNG HARAPAN
1. PERANCANGAN ANTAR MUKA
Antar muka atau interface
merupakan salah satu alat komunikasi antara pengguna dengan komputer. Oleh
karena itu antar muka yang dibangun atau dibuat haruslah mudah dimengerti dan
mudah di operasikan oleh pungguna.
Berikut ini merupakan interface atau antar muka dari
sistem yang dibangun dan terdiri dari beberapa bagian, antara lain:
Ø
Form
Login
Gambar 1. Form Login
Ø
Menu
Utama
Gambar 2. Menu Utama
Ø
Data
Barang
Gambar 3. Data Barang
Ø
Penjualan
Langsung
Gambar 5. Penjualan Langsung
Ø
Data
Penjualan Langsung
Gambar 6. Data Penjualan Langsung
2.
IMPLEMENTASI
Tahap implementasi merupakan
tahapan yang meliputi kebutuhan Perangkat
Lunak, Perangkat Keras,
Basis Data, dan
implementasi antarmuka,
serta pengujian aplikasi
sistem yang telah
dirancang sesuai dengan kebutuhan aplikasi.
·
Batasan Implementasi
Dalam mengimplemetasikan Sistem
Informasi Transaksi Penjualan ini terdapat beberapa hal yang menjadi batasan
implementasi, yaitu :
1. Kebutuhan
pada Sistem Informasi Transaksi
Penjualan ini hanya
menyangkut masalah pengelolaan transaksi,
data hasil transaksi, dan
pembuatan laporan hasil transaksi.
2. Basis
data yang harus
digunakan dalam pengimplementasian ini adalah MySQL.
·
Implementasi Kebutuhan Perangkat Lunak
Untuk implementasi Sistem Informasi Transaksi Penjualan ini dibutuhkan beberapa perangkat lunak penunujang,
antara lain :
Ø
Sistem Operasi Windows XP SP3
Ø
DataBase MySQL
Ø
XAMPP
Ø
ODBC Drive
·
Implementasi Kebutuhan Perangkat Keras
Kebutuhan perangkat keras yang
dibutuhkan oleh Sistem Informasi Transaksi Penjualan dalam implementasinya adalah sebagai
berikut :
1.
Processor yang dipergunakan adalah intel
Pentium4
2.
Harddisk terpasang 80GB, Rekomendasi minimum 40GB.
3.
RAM
500
MB.
4.
VGA card Onboard.
5.
Mouse, Keyboard, dan Monitor sebagai alat input antar muka
4.1. IMPLEMENTASI
ANTAR MUKA
Ø Form LogIn
Ø Form Menu Utama
Ø Form Data Barang
Ø Form Penjualan Langsung
Ø Form Data Penjualan Langsung
3. CODING
Ø LogIn
procedure
TFormLogin.Button1Click(Sender: TObject);
begin
Close;
end;
procedure
TFormLogin.sButton2Click(Sender: TObject);
begin
Close;
end;
procedure
TFormLogin.sButton1Click(Sender: TObject);
begin
if
(sEdit1.Text='Admin') and (sEdit2.Text=Memo1.Lines[0])then
begin
FormUtama.ShowModal;
sEdit1.Clear;
sEdit2.Clear;
sEdit1.SetFocus;
end
else
begin
MessageDlg('Maaf, akses ditolak!',
mtError, [mbOK], 0);
sEdit1.Clear;
sEdit2.Clear;
sEdit1.SetFocus;
end;
end;
procedure
TFormLogin.FormActivate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('Password.txt');
end;
end.
Ø Form Utama
procedure
TFormUtama.DataBarang1Click(Sender: TObject);
begin
FormDataMasterBarang.ShowModal;
end;
procedure
TFormUtama.DataAnggota1Click(Sender: TObject);
begin
FormDataMasterAnggota.ShowModal;
end;
procedure
TFormUtama.GantiPassword1Click(Sender: TObject);
begin
FormUbahPassword.ShowModal;
end;
procedure
TFormUtama.Penjualan1Click(Sender: TObject);
begin
FormPembayaranBarangCash.ShowModal;
end;
procedure
TFormUtama.Kredit1Click(Sender: TObject);
begin
FormTransaksiKredit.ShowModal
end;
procedure
TFormUtama.Penjualan2Click(Sender: TObject);
begin
CetakLaporanCashPerhari.ShowModal;
end;
procedure
TFormUtama.Kredit2Click(Sender: TObject);
begin
CetakLaporanKredit.ShowModal;
end;
procedure
TFormUtama.entangAplikasi1Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure
TFormUtama.entangPembuat1Click(Sender: TObject);
begin
FormPembuat.ShowModal;
end;
end.
Ø Penjualan Langsung
function
TFormPembayaranBarangCash.kode:String;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text := 'select KodeTransaksi
from ByrBrgCash where KodeTransaksi like "CS' + FormatDateTime('dd',
now)+FormatDateTime('mm',Now) + FormatDateTime('yy',Now) + '%" order by
KodeTransaksi';
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
ADOQuery1.Last;
Result:='CS'+
FormatDateTime('dd',now)+FormatDateTime('mm',Now) + FormatDateTime('yy',Now) +
FormatFloat('000',StrToInt(Copy(ADOQuery1.Fields[0].AsString,9,3)) + 1)
end
else
Result :='CS'+ FormatDateTime('dd',now)+FormatDateTime('mm',Now)
+ FormatDateTime('yy',Now) + '001';
end;
procedure
TFormPembayaranBarangCash.tampil;
begin
with DM.Cash do
begin
Close;
SQL.Clear;
SQL.Add('Select * from byrbrgCash Where
KodeTransaksi LIKE "'+Edit2.Text+'"');
Open;
end;
end;
procedure
TFormPembayaranBarangCash.sButton4Click(Sender: TObject);
begin
DM.Cash.Insert;
FormTambahBarang.ShowModal;
end;
procedure
TFormPembayaranBarangCash.FormActivate(Sender: TObject);
begin
Edit2.Text:=kode;
tampil;
with DM.Cash do
begin
Close;
SQL.Clear;
SQL.Add('Select * from ByrBrgCash Where
KodeTransaksi LIKE"'+Edit2.Text+'" Order By KodeTransaksi ASC');
Open;
end;
end;
procedure TFormPembayaranBarangCash.sButton2Click(Sender:
TObject);
begin
tampil;
if DM.Cash.RecordCount=0 then
ShowMessage('Tidak ada barang yang dibeli')
else if (Edit3.Text='')or (Edit3.Text='0')
then
ShowMessage('Pembeli belum membayar!')
else if Edit1.Text[1]='-' then
ShowMessage('Uang pembeli kurang!')
else
begin
with DM.FakturCash do
begin
Close;
SQL.Clear;
SQL.Add('Select * from ByrBrgCash Where
KodeTransaksi LIKE"'+Edit2.Text+'" Order By KodeTransaksi ASC');
Open;
end;
if DM.FakturCash.RecordCount=0 then
ShowMessage('Data tidak ada!')
else
begin
RvProject1.Close;
RvProject1.ProjectFile:='FakturCash.rav';
RvProject1.SelectReport('Report2',
false);
RvProject1.SetParam('Tanggal',
FormatDateTime('dd/mm/yyyy', Now));
RvProject1.SetParam('Cash', Edit3.Text);
RvProject1.SetParam('Kembalian',
Edit1.Text);
RvProject1.Execute;
end;
Edit2.Text:=kode;
tampil;
Edit3.Text:='0';
Edit1.Text:='0';
Label4.Caption:='0';
end;
end;
procedure
TFormPembayaranBarangCash.Edit3Change(Sender: TObject);
begin
if Edit3.Text='' then
Edit1.Text:='0'
else
Edit1.Text:=IntToStr(StrToInt(Edit3.Text)-StrToInt(Label4.Caption));
end;
procedure
TFormPembayaranBarangCash.Button1Click(Sender: TObject);
begin
if MessageDlg('Anda yakin akan membatalkan
transaksi?', mtConfirmation, mbOKCancel, 0)=mrok then
begin
with DM.Cash do
begin
Close;
SQL.Clear;
SQL.Add('Delete From ByrBrgCash Where
KodeTransaksi LIKE "'+Edit2.Text+'"');
ExecSQL;
SQL.Clear;
SQL.Add('Select * from ByrBrgCash
Where KOdeTransaksi LIKE "'+Edit2.Text+'"');
Open;
end;
end;
Edit2.Text:=kode;
tampil;
Edit3.Text:='0';
Edit1.Text:='0';
Label4.Caption:='0';
end;
procedureTFormPembayaranBarangCash.sButton5Click(Sender:
TObject);
var KodeTrans, KodeBrg,
Qty, Harga:string;
begin
KodeTrans:=DM.Cash['KodeTransaksi'];
KodeBrg:=DM.Cash['KodeBarang'];
Qty:=DM.Cash['Qty'];
Harga:=DM.Cash['Harga'];
Label4.Caption:=IntToStr(StrToInt(Label4.Caption)-StrToInt(Harga));
with DM.Cash do
begin
Close;
SQL.Clear;
SQL.Add('Delete From ByrBrgCash Where
KodeTransaksi LIKE "'+KodeTrans+'" AND KodeBarang LIKE
"'+KodeBrg+'" AND Qty Like "'+Qty+'" AND Harga LIKE
"'+Harga+'"');
ExecSQL;
SQL.Clear;
SQL.Add('Select * from ByrBrgCash Where
KodeTransaksi LIKE "'+Edit2.Text+'"');
Open;
end;
end;
end.
