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.
Tidak ada komentar:
Posting Komentar