Tutorial Pembuatan Aplikasi Penjualan Barang by safarazrizal

VIEWS: 1,688 PAGES: 20

									Software Aplikasi                                                                                 Delphi InterFace



                       MEMBUAT APLIKASI PENJUALAN BARANG
1. Persiapan
a. Buat database penjualan dengan table sbb :
   T_Barang                            T_Pelanggan
   Field Name Type Size        Key     Field Name    Type Size                    Key
   Kd_barang       A      5     *      Kd_pelanggan    A    5                      *
   Nm_barang       A      20           Nm_pelanggan    A    25
   Satuan          A      15           Alamat          A    50
   Hrg_satuan      $
   T_jual                              T_petugas
   Field Name      Type Size Key
                                        Field Name  Type Size                    Key
    Kd_jual          A     5    *
                                        nama          A    25                     *
   Kd_pelanggan      A     5
                                        password      A    25                     *
   Kd_barang         A     5
                                        Klasifikasi   A    25                     *
   Jml_barang        I
   Jml_bayar         $
b. Buat Alias menejer dengan nama penjualan

2. Membuat Form Login Aplikasi
a. Buka Borland Delphi dephi dan buat form login dangan komponen form 2 label,2 edit dan 1 button,
   1 table. Dan desain form hingga Nampak sbb:
                                             Komponen                Properties             Value
                                             Form1                   Auto size              True
                                                                     Border Style           bsNone
                                                                     Position               poDesktopCenter
                                                                     Printscale             poNone
                                             Table1                  DatabaseName           Penjualan
                                                                     Table Name             T_Petugas
                                                                     Aktive                 True

Catatan :
     Pengaturan properties belaku untuk semua form kecuali form menu utama dan form cetak
       laporn.
     Pengaturan properties table belaku pada setiap form kecuali table name(disesuaikan)
b. Rubah properties untuk kompenen form dan table seperti table disamping.
c. Buat perintah enter dari edit 1 ke edit 2
d. Sedangkan untuk edit2 nya masukkan perintah sbb :

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var ada : Boolean;
begin
if not (key=chr(13)) then Exit;
if length(edit2.Text)=20 then
if (length(edit1.Text)=table1['Nama'] and length(edit2.Text)=table1['Password']) then
table1.IndexName:='';
Ada:=table1.FindKey([edit1.Text,edit2.Text]);
If Ada Then
Begin
Edit2.SetFocus;
Edit2.SelectAll;
if (Edit1.Text=table1['Nama']) and (table1['Klasifikasi']='administrator') then
Begin
Form1.hide;
form2.show;

1                                                                                       Create By : Ngajiyanto
Software Aplikasi                                                                             Delphi InterFace


form2.label1.Caption:='Admin Aktif :';
form2.label2.Caption:=table1['nama'];
form3.Qrlabel11.caption:=table1['nama'];
form4.Qrlabel11.caption:=table1['nama'];
                                                     Digunakan untuk membuat nama petugas pada tiap
form5.Qrlabel11.caption:=table1['nama'];
                                                     laporan
form8.Edit1.Text:=table1['nama'];
form6.qrlabel14.caption:=table1['nama'];
form7.qrlabel14.caption:=table1['nama'];
form7.qrlabel31.caption:=table1['nama'];
End
Else
 Begin
Form1.hide;
form2.show;
form2.label1.Caption:='User Aktif :';
form2.label2.Caption:=table1['nama'];
form3.Qrlabel11.caption:=table1['nama'];
form4.Qrlabel11.caption:=table1['nama'];               Digunakan untuk membuat nama petugas pada tiap
form5.Qrlabel11.caption:=table1['nama'];               laporan
form8.Edit1.Text:=table1['nama'];
form6.qrlabel14.caption:=table1['nama'];
form7.qrlabel14.caption:=table1['nama'];
form7.qrlabel31.caption:=table1['nama'];
End;
 End
Else
Begin
ShowMessage('Akses Anda Ditolak ….!');
edit2.text:='';
Edit1.SetFocus;
end;
end;


e. Sedangkan untuk batal nya masukkan perintah sbb :
     procedure TForm1.Button1Click(Sender: TObject);
     //perintah batal
     var konfirmasi : integer;
     begin
     konfirmasi :=Application.MessageBox('Yakin Mau Keluar ?','Konfirmasi Tutup',
     MB_YESNO or MB_ICONQUESTION);
     if Konfirmasi=IdYes then
     application.Terminate;
     end;


3. Membuat Form Menu Utama
a. Siapkan 1 form baru
b. Masukkan 2 panel dan rubah warnanya untuk membedakan masukkan label yang diperlukan sesuai
   dengan kebutuhan. (biarkan label 1,2,8 seperti gambar)
c. Masukkan komponen timer dari tab system dan klik 2x komponen tersebut dan masukkan perintah
   sbb :
    procedure TForm2.Timer1Timer(Sender: TObject);
    begin
    label8.Caption:=datetostr(date);
    end;



2                                                                                   Create By : Ngajiyanto
Software Aplikasi                                                                             Delphi InterFace


d. Masukkan komponen main menu dari tab standard an buat isi menu utama dengan urutan sbb :
   Master          Transaksi        Log Out
   Input Barang    Input Penjualan Keluar
   Input Pelanggan Cetak Laporan
   Update Petugas

     Serta masukkan komponen timer dan label – label Hingga tampilan form menu sbb :




e. Siapkan 5 form lagi dan simpan semua komponen Delphi dengan cara dari menu file dan pilih save
   All dan ganti dengan nama sbb :
   Nama Komponen Nama File
   Unit 1               U_Login
   Unit 2               U_Menu
   Unit 3               U_barang
   Unit 4               U_pelanggan
   Unit 5               U_petugas
   Unit 6               U_jual
   Unit 7               U_cetak
   Project 1            Penjualan

f.   Setelah selesai menyimpan semua form dan project, kembali ke form menu utama dan masukkan
     perintah untuk memanggil form berikutnya dengan cara klik masing-masing menu. Perintahnya
     adalah sbb :

     procedure TForm2.Keluar1Click(Sender: TObject);
     //peerintah keluar
     var konfirmasi : integer;
     begin
     konfirmasi :=Application.MessageBox('Yakin Mau Keluar ?','Konfirmasi Tutup',
     MB_YESNO or MB_ICONQUESTION);
     if Konfirmasi=IdYes then
     application.Terminate;
     end;

     procedure TForm2.InputBarang1Click(Sender: TObject);
     begin
     //memanggil form barang
     form3.show;
     form2.Hide;
     end;




3                                                                                   Create By : Ngajiyanto
Software Aplikasi                                                                Delphi InterFace


    procedure TForm2.InputPelanggan1Click(Sender: TObject);
    begin
    //memanggil form pelanggan
    form4.show;
    form2.Hide;
    end;

    procedure TForm2.UpdatePetugas1Click(Sender: TObject);
    begin
    //memanggil form petugas
    form5.show;
    form2.Hide;
    end;

    procedure TForm2.InputPenjualan1Click(Sender: TObject);
    begin
    //memanggil form penjualan
    form6.show;
    form2.Hide;
    end;

    procedure TForm2.CetakLaporan1Click(Sender: TObject);
    begin
    //memanggil form cetak
    form7.show;
    form2.Hide;
    end;

Catatan :
Show : Tampil
Hide : Tidak Tampil


4. Membuat form input barang
a. Rancang form barang sbb : kemudian hubungkan semua komponen ke database sesuai
   kebutuhan.




4                                                                      Create By : Ngajiyanto
Software Aplikasi                                                                            Delphi InterFace


b. Setelah semua konkesi yang diperlukan kecilkan table hingga tampak seperti dibawah.




c. Masukan procedure perintah sbb :
    procedure TForm3.Button1Click(Sender: TObject);
    var konfirmasi : integer;
    begin
    //perintah keluar
    konfirmasi :=Application.MessageBox('Yakin Mau Keluar ?','Konfirmasi Tutup',
    MB_YESNO or MB_ICONQUESTION);
    if Konfirmasi=IdYes then
    form2.show;
    form3.Hide;
    end;

    procedure TForm3.Button4Click(Sender: TObject);
    begin
    //perintah tambah
    table1.Append;
    edit1.SetFocus;
    button4.Enabled:=false;
    button3.Enabled:=false;
    button5.Enabled:=false;
    button2.Enabled:=true;
    button1.Enabled:=false;
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    edit1.SetFocus;
    end;

    procedure TForm3.Button3Click(Sender: TObject);
    begin
    //perintah hapus
    table1.Delete;
    table1.First;
    end;


5                                                                                  Create By : Ngajiyanto
Software Aplikasi                                                                        Delphi InterFace


    procedure TForm3.Button5Click(Sender: TObject);
    begin
    //perintah cetak
    quickrep1.Preview;
    end;

    procedure TForm3.Button2Click(Sender: TObject);
    begin
    //perintah simpan
    with table1 do
    table1.Insert;
    table1['kd_barang']:=edit1.Text;
    table1['nm_barang']:=edit2.Text;
    table1['satuan']:=edit3.Text;
    table1['hrg_satuan']:=edit4.Text;
    table1.Post;
    button4.Enabled:=true;
    button3.Enabled:=true;
    button5.Enabled:=true;
    button2.Enabled:=false;
    button1.Enabled:=true;
    end;

    procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
    var sPesan, sCari, sPesanCari: string;
    begin
    //perintah enter dari edit1 ke edit2
    if key=chr(13)then
    begin
    if (Edit1.Text = '') then
    begin
    MessageBox(Self.Handle,'Input kosong tidak diizinkan !!!', 'Perhatian',
    MB_OK + MB_ICONINFORMATION)
    end
    else if table1.FindKey([edit1.text]) then
    begin
    sPesanCari:= 'Kode Barang : ' + edit1.Text + ' Sudah ada !!!';
    MessageBox(Self.Handle,PChar(sPesanCari), 'Informasi',MB_OK + MB_ICONINFORMATION)
    end
    else
    edit2.SetFocus
    end;
    end;

    procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
    begin
    //perintah enter dari edit2 ke edit3
    if key=chr(13)then
    edit3.SetFocus;
    end;

    procedure TForm3.Edit3KeyPress(Sender: TObject; var Key: Char);
    begin
    //perintah enter dari edit2 ke edit4
    if key=chr(13)then
    edit4.SetFocus;


6                                                                              Create By : Ngajiyanto
Software Aplikasi                                                                        Delphi InterFace


    end;


5. Membuat Form Pelanggan
a. Rancang form barang sbb : kemudian hubungkan semua komponen ke database sesuai
   kebutuhan.




b. Setelah semua konkesi yang diperlukan kecilkan table hingga tampak seperti dibawah.




c. Masukkan Procedur perintah sbb :
    procedure TForm4.Button1Click(Sender: TObject);
    var sPesan, sCari, sPesanCari: string;
    begin
    //perintah cari
    sCari:=InputBox('Cari Pelanggan','Input Kode Pelanggan :','Kode Pelanggan');
    if (sCari = '') then
    MessageBox(Self.Handle,'Input kosong tidak diizinkan !!!', 'Perhatian',
    MB_OK + MB_ICONINFORMATION)
    else if not table1.FindKey([sCari]) then
    begin
    sPesanCari:= 'Kode Petugas : ' + sCari + ' tidak ada !!!';
    MessageBox(Self.Handle,PChar(sPesanCari), 'Informasi',MB_OK + MB_ICONINFORMATION)
    end;
    edit1.Text:=table1['kd_pelanggan'];
    edit2.Text:=table1['nm_pelanggan'];
    edit3.Text:=table1['alamat'];
    end;




7                                                                              Create By : Ngajiyanto
Software Aplikasi                                                                            Delphi InterFace


    procedure TForm4.Button5Click(Sender: TObject);
    begin
    //perintah tambah
    table1.Append;
    edit1.SetFocus;
    button4.Enabled:=false;
    button3.Enabled:=true;
    button5.Enabled:=false;
    button6.Enabled:=false;
    button2.Enabled:=false;
    button1.Enabled:=false;
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit1.SetFocus;
    end;

    procedure TForm4.Button2Click(Sender: TObject);
    var konfirmasi : integer;
    begin
    //perintah keluar
    konfirmasi :=Application.MessageBox('Yakin Mau Keluar ?','Konfirmasi Tutup',
    MB_YESNO or MB_ICONQUESTION);
    if Konfirmasi=IdYes then
    form2.show;
    form4.Hide;
    end;

    procedure TForm4.Button3Click(Sender: TObject);
    begin
    //perintah simpan
    with table1 do
    table1.Insert;
    table1['kd_pelanggan']:=edit1.Text;
    table1['nm_pelanggan']:=edit2.Text;
    table1['alamat']:=edit3.Text;
    table1.Post;
    button4.Enabled:=true;
    button3.Enabled:=false;
    button5.Enabled:=true;
    button6.Enabled:=true;
    button2.Enabled:=true;
    button1.Enabled:=true;
    end;

    procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
    var sPesan, sCari, sPesanCari: string;
    begin
    //perintah enter dari edit1 ke edit2
    if key=chr(13)then
    begin
    if (Edit1.Text = '') then
    begin
    MessageBox(Self.Handle,'Input kosong tidak diizinkan !!!', 'Perhatian',
    MB_OK + MB_ICONINFORMATION)
    end


8                                                                                  Create By : Ngajiyanto
Software Aplikasi                                                                         Delphi InterFace


     else if table1.FindKey([edit1.text]) then
     begin
     sPesanCari:= 'Kode Pelanggan : ' + edit1.Text + ' Sudah ada !!!';
     MessageBox(Self.Handle,PChar(sPesanCari), 'Informasi',MB_OK + MB_ICONINFORMATION)
     end
     else
     edit2.SetFocus
     end;
     end;

     procedure TForm4.Button4Click(Sender: TObject);
     begin
     //perintah Hapus
     table1.Delete;
     table1.First;
     end;

     procedure TForm4.Button6Click(Sender: TObject);
     begin
     //perintah cetak
     quickrep1.Preview;
     end;

6.   Membuat Form Petugas
a.   Rancang form Petugas sbb : kemudian hubungkan semua komponen ke database sesuai
     kebutuhan.




b. Setelah semua konkesi yang diperlukan kecilkan table hingga tampak seperti dibawah.




9                                                                               Create By : Ngajiyanto
Software Aplikasi                                                                           Delphi InterFace


c. Masukkan Procedur perintah sbb :
     procedure TForm5.Button2Click(Sender: TObject);
     //perintah keluar
     var konfirmasi : integer;
     begin
     konfirmasi :=Application.MessageBox('Yakin Mau Keluar ?','Konfirmasi Tutup',
     MB_YESNO or MB_ICONQUESTION);
     if Konfirmasi=IdYes then
     form2.show;
     form5.Hide;
     end;

     procedure TForm5.Button5Click(Sender: TObject);
     begin
     //perintah tambah
     table1.Append;
     edit1.SetFocus;
     button4.Enabled:=false;
     button3.Enabled:=true;
     button5.Enabled:=false;
     button6.Enabled:=false;
     button7.Enabled:=false;
     button2.Enabled:=false;
     button1.Enabled:=false;
     edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';
     edit1.SetFocus;
     end;

     procedure TForm5.Button4Click(Sender: TObject);
     begin
     //perintah Hapus
     table1.Delete;
     table1.First;
     end;

     procedure TForm5.Button1Click(Sender: TObject);
     var sPesan, sCari, sPesanCari: string;
     begin
     //perintah cari
     sCari:=InputBox('Cari Petugas','Input Nama Petugas :','Nama Petugas');
     if (sCari = '') then
     MessageBox(Self.Handle,'Input kosong tidak diizinkan !!!', 'Perhatian',
     MB_OK + MB_ICONINFORMATION)
     else if not table1.FindKey([sCari]) then
     begin
     sPesanCari:= 'Nama Petugas : ' + sCari + ' tidak ada !!!';
     MessageBox(Self.Handle,PChar(sPesanCari), 'Informasi',MB_OK + MB_ICONINFORMATION)
     end;
     edit1.Text:=table1['nama'];
     edit2.Text:=table1['Password'];
     edit3.Text:=table1['klasifikasi'];
     end;




10                                                                                  Create By : Ngajiyanto
Software Aplikasi                                                                               Delphi InterFace


     procedure TForm5.Button6Click(Sender: TObject);
     begin
     //perintah cetak
     quickrep1.Preview;
     end;

     procedure TForm5.Button3Click(Sender: TObject);
     begin
     //perintah simpan
     with table1 do
     table1.Insert;
     table1['nama']:=edit1.Text;
     table1['password']:=edit2.Text;
     table1['klasifikasi']:=edit3.Text;
     table1.Post;
     button4.Enabled:=true;
     button3.Enabled:=false;
     button5.Enabled:=true;
     button6.Enabled:=true;
     button7.Enabled:=true;
     button2.Enabled:=true;
     button1.Enabled:=true;
     end;

     procedure TForm5.Button7Click(Sender: TObject);
     begin
     //perintah update
     form8.show;
     form5.Hide;
     end;



7.   Membuat Form Update Petugas
     a. Rancang form Update petugas sbb : kemudian hubungkan semua komponen ke database
         sesuai kebutuhan.




     b. Masukkan Procedur perintah sbb :
         procedure TForm8.Button2Click(Sender: TObject);
         //perintah keluar
         var konfirmasi : integer;
         begin
         konfirmasi :=Application.MessageBox('Yakin Mau Keluar ?','Konfirmasi Tutup',
         MB_YESNO or MB_ICONQUESTION);
         if Konfirmasi=IdYes then
         form5.show;
         form8.Hide;



11                                                                                      Create By : Ngajiyanto
Software Aplikasi                                                                       Delphi InterFace


        end;

        procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);
        //perintah enter dari edit1 ke edit2 (mencari nama petugas)
        var sCari, sPesanCari: string;
        begin
        if key=chr(13)then
        begin
        sCari:=edit1.Text;
        if (sCari = '') then
        MessageBox(Self.Handle,'Input kosong tidak diizinkan !!!', 'Perhatian',
        MB_OK + MB_ICONINFORMATION)
        else if not table1.FindKey([sCari]) then
        begin
        sPesanCari:= 'Nama Petugas : ' + sCari + ' tidak ada !!!';
        MessageBox(Self.Handle,PChar(sPesanCari), 'Informasi',MB_OK + MB_ICONINFORMATION)
        end;
        edit1.Text:=table1['nama'];
        edit3.Text:=table1['Password'];
        edit2.SetFocus;
         end;
        end;

        procedure TForm8.Button1Click(Sender: TObject);
        begin
        //perintah simpan
        with table1 do
        table1.Edit;
        table1['nama']:=edit2.Text;
        table1['Password']:=edit4.Text;
        table1.Refresh ;
        end;

        procedure TForm8.Edit2KeyPress(Sender: TObject; var Key: Char);
        begin
        if key=#13 then
        edit4.SetFocus
        end;




12                                                                              Create By : Ngajiyanto
Software Aplikasi                                                                    Delphi InterFace


8.   Membuat Form Jual
     a. Rancang form Jual sbb : kemudian hubungkan semua komponen ke database sesuai kebutuhan.




     b. Properties Masing –masing komponen
        Komponen                     Properties                     Value
        Table1                       DatabaseName                   Penjualan
                                     TableName                      T_pelanggan
                                     Active                         True
        Table2                       DatabaseName                   Penjualan
                                     TableName                      T_jual
                                     Active                         True
        Table3                       DatabaseName                   Penjualan
                                     TableName                      T_barang
                                     Active                         True
        Query1                       DatabaseName                   penjualan
        Quickrep1                    DataSet                        Query1
        QrDbtext1 s/d 8              Dataset                        Query1
        QRSysData1 dan 3             Data                           qrsdate
        QRSysData2                   data                           QrsdetailNo
        Form6                        Auto size                      True
                                     Border Style                   bsNone
                                     Position                       poDesktopCenter
                                     Printscale                     poNone
     c. Setelah semua konkesi yang diperlukan kecilkan form hingga tampak seperti dibawah.




13                                                                           Create By : Ngajiyanto
Software Aplikasi                                                                       Delphi InterFace


     c. Masukkan Procedur perintah sbb :
procedure TForm6.Button1Click(Sender: TObject);
//perintah keluar
var konfirmasi : integer;
begin
konfirmasi :=Application.MessageBox('Yakin Mau Keluar ?','Konfirmasi Tutup',
MB_YESNO or MB_ICONQUESTION);
if Konfirmasi=IdYes then
form2.show;
form6.Hide;
end;

procedure TForm6.Button2Click(Sender: TObject);
//perintah tambah
var
urutan: integer;
satu,dua,tiga,nopelanggan,nocash,nocredit:string;
y,d,M : word;
begin
DecodeDate(now, y,M,d );
satu:=IntToStr(y);
dua:=IntToStr(M);
tiga:=IntToStr(d);
urutan:=table2.RecordCount+1;
nopelanggan:=satu+'P-'+dua+tiga+'-'+inttostr(urutan);
edit1.Text:=nopelanggan;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit2.SetFocus;
end;

procedure TForm6.Edit2KeyPress(Sender: TObject; var Key: Char);
var sCari, sPesanCari: string;
begin
//perintah cari pelanggan
if key=chr(13)then
begin
sCari:=edit2.Text;
if (sCari = '') then
MessageBox(Self.Handle,'Input kosong tidak diizinkan !!!', 'Perhatian',
MB_OK + MB_ICONINFORMATION)
else if not table1.FindKey([sCari]) then
begin
sPesanCari:= 'Kode Pelanggan : ' + sCari + ' tidak ada !!!';
MessageBox(Self.Handle,PChar(sPesanCari), 'Informasi',MB_OK + MB_ICONINFORMATION)
end;
edit2.Text:=table1['kd_pelanggan'];
edit3.Text:=table1['nm_pelanggan'];
edit4.SetFocus;
 end;
end;

14                                                                              Create By : Ngajiyanto
Software Aplikasi                                                                         Delphi InterFace


procedure TForm6.Button6Click(Sender: TObject);
//perintah simpan
begin
with table2 do
table2.Insert;
table2['kd_jual']:=edit1.Text;
table2['kd_pelanggan']:=edit2.Text;
table2['kd_barang']:=edit4.Text;
table2['jml_barang']:=edit7.Text;
table2['sub_harga']:=edit8.Text;
table2.Post;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit4.SetFocus;
end;

procedure TForm6.Edit4KeyPress(Sender: TObject; var Key: Char);
var sCari, sPesanCari: string;
begin
//perintah cari barang
if key=chr(13)then
begin
sCari:=edit4.Text;
if (sCari = '') then
MessageBox(Self.Handle,'Input kosong tidak diizinkan !!!', 'Perhatian',
MB_OK + MB_ICONINFORMATION)
else if not table3.FindKey([sCari]) then
begin
sPesanCari:= 'Kode Barang : ' + sCari + ' tidak ada !!!';
MessageBox(Self.Handle,PChar(sPesanCari), 'Informasi',MB_OK + MB_ICONINFORMATION)
end;
edit4.Text:=table3['kd_barang'];
edit5.Text:=table3['nm_barang'];
edit6.Text:=table3['hrg_satuan'];
edit7.SetFocus;
 end;
end;

procedure TForm6.Button3Click(Sender: TObject);
//perintah hapus
var konfirmasi : integer;
begin
konfirmasi :=Application.MessageBox('Yakin Mau Menghapus ?','Konfirmasi Tutup',
MB_YESNO or MB_ICONQUESTION);
if Konfirmasi=IdYes then
table2.Delete;
table2.First;
end;




15                                                                                Create By : Ngajiyanto
Software Aplikasi                                                                       Delphi InterFace


procedure TForm6.Button4Click(Sender: TObject);
var sCari, sPesanCari: string;
begin
//perintah cari
sCari:=InputBox('Cari Transaksi','Input kode Transaksi :','Kode');
if (sCari = '') then
MessageBox(Self.Handle,'Input kosong tidak diizinkan !!!', 'Perhatian',
MB_OK + MB_ICONINFORMATION)
else if not table1.FindKey([sCari]) then
begin
sPesanCari:= 'Kode Transaksi : ' + sCari + ' tidak ada !!!';
MessageBox(Self.Handle,PChar(sPesanCari), 'Informasi',MB_OK + MB_ICONINFORMATION)
end;
label3.Caption:='Kode pelangan';
label4.Caption:='Total Bayar';
label5.Caption:='';
label6.Caption:='';
label7.Caption:='';
label8.Caption:='';
label10.Caption:='';
edit1.Text:=table2['kd_jual'];
edit2.Text:=table2['kd_pelanggan'];
edit3.Text:=table2['total_bayar'];
edit4.Visible:=false;
edit5.Visible:=false;
edit6.Visible:=false;
edit7.Visible:=false;
edit8.Visible:=false;
end;

procedure TForm6.Button5Click(Sender: TObject);
begin
//perintah cetak
query1.SQL.Clear;
query1.SQL.Add('select *from t_barang,t_jual,t_pelanggan');
query1.SQL.Add('where t_barang.kd_barang=t_jual.kd_barang');
query1.SQL.Add('and t_jual.kd_pelanggan=t_pelanggan.kd_pelanggan');
query1.SQL.Add('and kd_jual='''+edit1.text+'''');
query1.Prepare;
query1.Open;
qrdbtext1.DataField:='kd_pelanggan';
qrdbtext2.DataField:='nm_pelanggan';
qrdbtext3.DataField:='alamat';
qrdbtext4.DataField:='kd_barang';
qrdbtext5.DataField:='nm_barang';
qrdbtext6.DataField:='jml_barang';
qrdbtext7.DataField:='hrg_satuan';
qrdbtext8.DataField:='sub_harga';
qrexpr1.Expression :='SUM(query1.Sub_harga)';
quickrep1.Preview;
end;




16                                                                              Create By : Ngajiyanto
Software Aplikasi                                                                 Delphi InterFace


procedure TForm6.Button7Click(Sender: TObject);
var sCari: string;
begin
//perintah cari
sCari:=InputBox('Cari Transaksi','Input kode Transaksi :','Kode');
if (sCari = '') then
MessageBox(Self.Handle,'Input kosong tidak diizinkan !!!', 'Perhatian',
MB_OK + MB_ICONINFORMATION);
query1.SQL.Clear;
query1.SQL.Add('select *from t_barang,t_jual,t_pelanggan');
query1.SQL.Add('where t_barang.kd_barang=t_jual.kd_barang');
query1.SQL.Add('and t_jual.kd_pelanggan=t_pelanggan.kd_pelanggan');
query1.SQL.Add('and kd_jual='''+scari+'''');
query1.Prepare;
query1.Open;
qrdbtext1.DataField:='kd_pelanggan';
qrdbtext2.DataField:='nm_pelanggan';
qrdbtext3.DataField:='alamat';
qrdbtext4.DataField:='kd_barang';
qrdbtext5.DataField:='nm_barang';
qrdbtext6.DataField:='jml_barang';
qrdbtext7.DataField:='hrg_satuan';
qrdbtext8.DataField:='sub_harga';
qrexpr1.Expression :='SUM(query1.Sub_harga)';
quickrep1.Preview;
end;

procedure TForm6.Edit7KeyPress(Sender: TObject; var Key: Char);
var
hs,jb,sh:real;
begin
if key=chr(13)then
begin
hs:=strtofloat(edit6.Text);
jb:=strtofloat(edit7.Text);
sh:=hs*jb;
edit8.Text:=floattostr(sh);
end;
end;




17                                                                        Create By : Ngajiyanto
Software Aplikasi                                                                                Delphi InterFace


9.   Membuat Form Laporan
     a. Rancang form laporan sbb : kemudian hubungkan semua komponen ke database sesuai
        kebutuhan.




     d. Properties Masing –masing komponen
        Komponen                     Properties                                Value
        MainMenu                     Caption                                   Cetak data
                                                                               Cetak Pelanggan
                                                                               Cetak Penjualan
                                                                               Keluar
        Query1                            DatabaseName                         Penjualan
        Quickrep1 dan 2                   DataSet                              Query1
        QrDbtext1 s/d 16                  Dataset                              Query1
        QRSysData1 dan 2                  Data                                 qrsdate
        QRSysData2                        data                                 QrsdetailNo
        DatabaseName                      dat
        Form7                             Auto size                            True
                                          Border Style                         bsNone
                                          Position                             poDesktopCenter
                                          Printscale                           poNone

     b. Setelah semua konkesi yang diperlukan kecilkan form hingga tampak seperti dibawah.




     c. Masukkan Procedur perintah sbb :
procedure TForm7.Keluar1Click(Sender: TObject);
//keluar
var konfirmasi : integer;
begin
konfirmasi :=Application.MessageBox('Yakin Mau Keluar ?','Konfirmasi Tutup',
MB_YESNO or MB_ICONQUESTION);
if Konfirmasi=IdYes then

18                                                                                       Create By : Ngajiyanto
Software Aplikasi                                                                   Delphi InterFace


begin
form2.show;
form7.Hide;
end
else
form7.Show;
end;

procedure TForm7.CetakPelanggan1Click(Sender: TObject);
//cetak pelanggan
var sCari,cari, sPesanCari: string;
begin
Cari:=InputBox('Masukkan Nama Pelanggan','Nama Pelanggan :','Pelanggan');
query1.SQL.Clear;
query1.SQL.Add('select *from t_barang,t_jual,t_pelanggan');
query1.SQL.Add('where t_barang.kd_barang=t_jual.kd_barang');
query1.SQL.Add('and t_jual.kd_pelanggan=t_pelanggan.kd_pelanggan');
query1.SQL.Add('and nm_pelanggan='''+cari+'''');
query1.Prepare;
query1.Open;
qrdbtext1.DataField:='kd_pelanggan';
qrdbtext2.DataField:='nm_pelanggan';
qrdbtext3.DataField:='alamat';
qrdbtext4.DataField:='kd_barang';
qrdbtext5.DataField:='nm_barang';
qrdbtext6.DataField:='jml_barang';
qrdbtext7.DataField:='hrg_satuan';
qrdbtext8.DataField:='sub_harga';
qrexpr1.Expression :='SUM(query1.Sub_harga)';
quickrep1.Preview;
end;

procedure TForm7.CetakPenjualan1Click(Sender: TObject);
//cetak penjualan
var sCari,cari, sPesanCari: string;
begin
Cari:=InputBox('Masukkan Kode Transaksi','Kode transaksi :','Transaksi');
query1.SQL.Clear;
query1.SQL.Add('select *from t_barang,t_jual,t_pelanggan');
query1.SQL.Add('where t_barang.kd_barang=t_jual.kd_barang');
query1.SQL.Add('and t_jual.kd_pelanggan=t_pelanggan.kd_pelanggan');
query1.SQL.Add('and kd_barang='''+cari+'''');
query1.Prepare;
query1.Open;
qrdbtext9.DataField:='kd_barang';
qrdbtext10.DataField:='nm_barang';
qrdbtext11.DataField:='satuan';
qrdbtext12.DataField:='hrg_satuan';
qrdbtext13.DataField:='Kd_jual';
qrdbtext14.DataField:='nm_pelanggan';
qrdbtext15.DataField:='jml_barang';
qrdbtext16.DataField:='sub_harga';
qrexpr2.Expression :='SUM(query1.Sub_harga)';
quickrep2.Preview;
end;



19                                                                          Create By : Ngajiyanto
Software Aplikasi                                        Delphi InterFace


procedure TForm7.Timer1Timer(Sender: TObject);
begin
//label berkedip
Label1.Visible := Not Label1.Visible;
Label1.Left := 100
end;




                                  SEKIAN
                    Semoga Bermanfaat




20                                               Create By : Ngajiyanto

								
To top