Kamis, 24 November 2011

Membuat Hypelink Dalam Tabel

Pada pembahasan sebelumnya kita sudah pernah posting tentang belajar membuat tabel dengan HTML, Contohnya Seperti di bawah ini



header1header2header3
baris 1 kolom 1baris 1 kolom 2baris 1 kolom 3
baris 2 kolom 1baris 2 kolom 2
baris 2 kolom 3




Dalam membuat website, pasti tidak terlepas dari pembuatan link. Apa itu link? Link atau lebih lengkapnya kita sebut hyperlink merupakan sebuah referensi dari satu dokumen yang mengacu ke dokumen yang lain. Sedangkan jika file yang dituju terdapat dalam satu dokumen maka disebut “anchor“. Jadi, disini kita akan menggunakan 2 buah istilah dalam pembuatan link, yaitu HTML Link dan HTML Anchor. Pembuatan kedua buah link tersebut tidak dapat terlepas dari element <a>.

HTML Link

HTML link digunakan untuk membuat link yang mengacu ke lain tempat di luar dokumen yang dibuat. Dalam hal ini, dokumen tempat kita membuat link merupakan sebuah website, sehingga acuan yang dibuat pun akan berupa alamat URL website yang ingin dituju, baik itu alamat untuk website, dokumen, file, gambar, suara, film, dll. Sehingga sintaknya akan menjadi sebagai berikut

<a href="URL">Nama Link</a>







jfjhgvfjhgkjgh
hgdhfhfyfjfy











































































Sabtu, 05 November 2011

Mengatasi Delphi Error Pada Windows Seven

Sore ini saya ada tugas mengerjakan tugas delphi dari seseorang yang saya cintai. kebetulan memakai os windows seven pada laptop yang kami pakai. Kemudian saya ambil mentahan delphi 7 dari Pc di rumah saya. selanjutnya Proses instalasi pun di mulai  hingga proses selesai. terinstallah sudah program delphi 7 yang telah kami instal pada laptop kami. Namun ketika kami jalankan ada pesan kesalahan atau yang di sebut error, seperti ini nih pesannya C://program files/Borland/Delphi 7/Bin/Delphi 32.$$$' to ' C://program files/Borland/Delphi 7/Bin/Delphi 32.Dro' .Kaya Begitu dach Pesannya.
seperti gmbar ini nih...










Kalian Ada yang pernah mengalami seperti itu tidak. hasil browsing kami pada embah Google, ternyata pesan itu adalah dari hak acces yang ada di seven, truz gimana donk cara mengatasinya..? oke kami kasih tau caranya bagaimana. pada start kalian ketik Cmd pada kolom search program and files, setelah itu klik kanan pilih run as administrator. kaya gambar di bawah ini nih....?
Klik Disini Buat terusannya, Cekidot gan










Lalu Ketikkan Seperti pada Comand Prompt seperti di bawah ini

net user administrator /active:yes --> tekan enter jika muncul seperti di bawah ini
the command completed succesfully --> artinya perintah mengubah akses kalian berhasil

seperti gambar di bawah ini





Setelah itu restart komputer kalian, coba di jalankan kembali delphi 7 kalian. Oia tidak perduli dia berjalan di 32 atau 64 bit, Delphi tetap bisa di jlankan koq di seven. Buktinya pada laptop kami sendiri..? Oke selamat mencoba tips dari kami....?.





Regards







(http://eliniyan.blogspot.com)















Menghitung IP dengan Kalkultor Ip

Hari ini di kelas, cukup danger juga dosennya, kita di tanya satu - satu secara acak untuk ip, subnetmas, dan host id. Kebetulan saya lagi Gogling nih tentang cara cepat menghitung ip. eh.....ada yang menyangkut di hati...(hehehehehee...Cewek kali..). saya nemuin sebuah aplikasi untuk menghitung ip addrse menggunakan kalkulator ip. Pada kesempatan kali ini saya akan berbagi ilmu dan pengalaman saya tentang jaringan disini saya penggunakan tools jaringan salah satunya PacketTracer531, disini kita akan membahas dasar jaringan yaitu menentukan IP Prefik dan Subnet Mask nya.
Sebelum menuju kesoal kita harus menentukan dulu bytenya jadi kita harus belajar menentukan byte karena kalua kita belum belajar atau mengerti 1 byte berapa dan nilai masing-masing dari kedelapan byte saya yakin anda tidak akan mengerti karena ini merupakan dasar sebelum kita menentukan sebuah IP address

Jumat, 04 November 2011

Membuat Table Pada Blog

Postingan Malam Ini adalah Bagaimana Caranya Kita membuat tabel pada postingan di dalam blog kita, carannya cukup sederhana sekali, kalian login ataua masuk ke dalam dasbor blog kalian, lalu pilih new post, pada dasbor yang telah di upgrade menjadi dasbor yang baru, kalian klik gambar orange yang bergambarkan pensil, jika pada dasbor yang lama, kalia klik saja pada tulisan entri baru.


HTML menyediakan tag-tag untuk membuat sebuah tabel, yaitu :

Tag <TABLE> : untuk mendefinisikan sebuah tebel
Tag <TR> : untuk mendefinisikan baris tabel
Tag <TH> : untuk mendefinisikan judul tiap kolom atau baris
Tag <TD> : untuk mendefinisikan isi tiap kolom

Nah setelah itu kalian copy paste dah, kode HTML di bawah ini, Tapi jangan lupa pada postingan kalian pilih HTML jangan Di compose, coz hasilnya akan tidak terjadi apa - apa. Bingung apaan itu yah..? itu loh yang ada di atas pojok kiri postingan kalian. Nih seperti di bawah ini kode htmlnya



<table border="4">
<tr>
<td>Baris 1 kolom 1 </td>
<td>Baris 1 kolom 2 </td>
<td>Baris 1 kolom 3 </td>
</tr>
<tr>
<td>Baris 2 kolom 1 </td>
<td>Baris 2 kolom 2 </td>
<td>Baris 2 kolom 3 </td>
</tr>
</body></table>


Inilah Hasilnya....






Klik Aja Tombolnya


Baris 1 kolom 1 Baris 1 kolom 2 Baris 1 kolom 3
Baris 2 kolom 1 Baris 2 kolom 2 Baris 2 kolom 3





Kamis, 03 November 2011

Download Linux fedora

Untuk Mengisi Sebuah Potingan Malam ini, kebetulan kami punya link untuk download linux fedora, sebelumnya kami jelaskan sekilas tentanf fedora.

Fedora adalah sistem operasi yang cepat, stabil dan hebat untuk penggunaan sehari-hari yang dibangun oleh komunitas teman-teman di seluruh dunia. Fedora benar-benar bebas digunakan, dipelajari, dan dibagi.
Oke Klik Disini Saja Untuk Link Downloadnya

Rabu, 02 November 2011

MEMBUAT PROGRAM DENGAN DELPHI 07

Iseng-iseng isi postingan tentang apaan, ane kebetulan ada program tentang delphi, buatan saya sendiri loh...
Nudah2an aja bermanfaat buat kalian semua.

Nih ane kasih program buatan ane....


Klik Disini Saja Untuk Melihat Program Delphi Kami
           PROGRAM DELPHI BENGKEL PT OBRAK ABRIK

                   Membuat Database dengan Nama Data Base begkel
                              1.Table barang



                   2. Table Customer





                   3. Tabel Transaksi
                  





              1.    Membuat Form Login







                Desain Properties


Object
Name
Caption
Form1
Form1
FORM LOG IN
Panel1
Panel1
Panel1
MainMenu1
MainMenu1
MainMenu1
Button1
Button1
Masuk
Button2
Button2
Keluar
Label1
Label1
UsserName
Object
Name
Caption
Label2
Label2
Password
Edit1
Edit1

Edit2
Edit2
*****
Edit3
Edit3
(Tanggal)
Edit4
Edit4
(jam)
Timer1
Timer1
Timer1


Membuat  Procedure form aktif, nonaktif, dan bersih;

private
    { Private declarations }
  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;


procedure Tform1.aktif ;
begin
panel1.Visible :=true;
end;

procedure Tform1.nonaktif;
begin
panel1.Visible :=false;
end;

procedure Tform1.bersih ;
begin
edit1.clear;
edit2.Clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Visible:=false;
end;





procedure TForm1.MASUK1Click(Sender: TObject);
begin
bersih;
aktif;
edit1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='PERMANA') and (edit2.text='12345') then
begin
ShowMessage('BERHASIl');
form1.hide;
form2.show;
end
else
begin
Application.MessageBox ('USSERNAME DAN PASSWORD SALAH','Informasi',mb_ok);
edit1.SetFocus;
end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
EDIT4.TEXT:=TIMETOSTR(TIME);
EDIT3.Text:=DATETOSTR(DATE);
end;

procedure TForm1.EXIT1Click(Sender: TObject);
begin
if Application.MessageBox('Anda Mau Keluar Dari Program','Informasi',mb_okcancel + mb_iconquestion)=idok then
close
else
Application.MessageBox('Tetap Disini Dulu','info',mb_ok);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
panel1.Hide;
end;
end.





                        Program Setelah Di Run.






                        Tanggal Dan Jam Muncul, Ussername dan Password Pada Pannel1 Tidak Muncul
                        Ketika Di Klik Login Maka Hasilnya Seperti Di Bawah Ini


 


                        Maka Pannel Ussername Dan Password Muncul…..???? Dan Ketika Password                                          dan Usser name benar Maka Tampil Form Menu seperti  Berikut ini…



                    2. Membuat Form Menu




       
                        Desain Properties


Object
Name
Caption
Main Menu 1
Main Menu 1
Main Menu1
Form2
Form2
Form Menu
Edit1
Edit1
(Jam)
Edit2
Edit2
(Tanggal)
Image1
Image1

Timer1
Timer1

Label1
Label1
Selamat Datang Di Program Bengkel Pt Obrak Abrik
















                        Aturlah Main Menu Seperti Tampilan Di Bawah ini





                    Listing Program Form Menu

                    procedure TForm2.BARANGSPAREPART1Click(Sender: TObject);
                        begin
                        form3.show;
                        end;

                        end.


                        procedure TForm2.CUSTOMER1Click(Sender: TObject);
                        begin
                        form5.show
                        end;

                        end.
           

                        procedure TForm2.RANSAKSI1Click(Sender: TObject);
                        begin
                        form4.show;
                        end;
           
                        end.


            procedure TForm2.EXIT1Click(Sender: TObject);
            begin
            if Application.MessageBox('Anda Mau Keluar Dari Program','Informasi',mb_okcancel +             mb_iconquestion)=idok then
            close
            else
            Application.MessageBox('Tetap Disini Dulu','info',mb_ok);

            end;

            end.

            procedure TForm2.Timer1Timer(Sender: TObject);
            begin
            edit1.Text:=datetostr(time);
            edit2.Text:=datetostr(date);
            end;
           

          Hasil Setelah Di running…!!!


            












                        3.  Membuat Form Barang Dan Spare Part






Object
Name
Caption
Edit1
Edit1
(Nama_Barang)
Edit2
Edit2
(Jumlah)
Edit3
Edit3
(Harga_Satuan)
Edit4
Edit4
(Total)
Edit5
Edit5
(Tanggal_Masuk)
Edit6
Edit6
(Kode_Barang)
Combobox1
Combobox1
(Satuan)
Label1
Label1
Kode Barang
Label2
Label2
Input Nama Barang
Label3
Label3
Jumlah
Label4
Label4
Satuan
Label5
Label5
Harga Satuan
Label6
Label6
Total
Datetimepicker1
Datetimepicker1

Db Navigator1
Db Navigator1
Data Source : Data Source1
DataSource1
DataSource1
DataSet :AdoTable1
AdoTable1
AdoTable1
ConnectionString : Cari Database
Table Name : Barang
Active :true
Dbgrid1
Dbgrid1
Datasource : Data Source1
AdoConnection1
AdoConnection1
Connected :True
Conectionstring : Cari Data Base
Login prompt: false
Button1
Button1
Simpan
Button2
Button2
Hapus
Button3
Button3
Baru
Button4
Button4
Batal
Form3
Form3
FORM BARANG
Image1
Image1
Picture…..
RvProject1
RvProject1
Project File :Cari Rave Report Yang Telah Di Buat
AdoConnection1
AdoConnection1
DataSet : AdoTable1
FieldAlias : Diasamakan Dg nama Rave Report Yang Disimpan



                LISTING PROGRAM KODE BARANG
                               

                private
                  { Private declarations }
                public
                  { Public declarations }
                  procedure aktif;
                  procedure pasif;
                   procedure tampil;
                 procedure bersih;
                 end;

                var
                Form3: TForm3;
                 a:Boolean;
                implementation
               
                {$R *.dfm}

                procedure Tform3.aktif;
                begin
                edit1.enabled:=true;
                edit2.enabled:=true;
                edit3.enabled:=true;
                edit4.enabled:=true;
                edit6.enabled:=true;
                combobox1.enabled:=true;
                end;

                procedure Tform3.pasif;
                begin
                edit1.enabled:=false;
                edit2.enabled:=false;
                edit3.enabled:=false;
                edit4.enabled:=false;
                edit6.enabled:=false;
                combobox1.enabled:=false;
                end;









                procedure Tform3.bersih;
                begin
                edit1.Clear;
                edit2.Clear;
                edit3.Clear;
                edit4.Clear;
                edit6.Clear;
                combobox1.Clear;
                end;

                procedure Tform3.tampil;
                begin
                edit1.text:=Adotable1['Nama_Barang'];
                edit2.text:=Adotable1['Jumlah'];
                edit3.text:=Adotable1['Harga_Satuan'];
                edit4.text:=Adotable1['Total'];
                combobox1.Text :=Adotable1['Satuan'];
                DateTimePicker1.Date:=Adotable1['Tanggal_Masuk'];
                end;

                procedure TForm3.FormCreate(Sender: TObject);
                begin
                combobox1.Items.Add('Pcs');
                combobox1.Items.Add('Lusin');
                combobox1.Items.Add('Gross');
                combobox1.Items.Add('Pack');
                combobox1.Items.Add('Dus');
                end;

                procedure TForm3.Edit3KeyPress(Sender: TObject; var Key: Char);
                begin
                if key =#13 then
                begin
                edit4.Text :=floattostr(strtofloat(edit3.Text )* strtofloat(edit2.Text ));
                end;
                end;

                procedure TForm3.Button2Click(Sender: TObject);
                begin
                aktif;
                bersih;
                end;

                procedure TForm3.Button1Click(Sender: TObject);
                begin
                Adotable1.Open;
                Adotable1.append;
                Adotable1.FieldByName('Kode_Barang').AsString :=edit6.Text ;
                Adotable1.FieldByName('Nama_Barang').AsString :=edit1.Text ;
                Adotable1.FieldByName('Jumlah').AsString :=edit2.Text ;
                Adotable1.FieldByName('Satuan').AsString :=Combobox1.Text ;
                Adotable1.FieldByName('Harga_Satuan').AsString :=edit3.Text ;
                Adotable1.FieldByName('Total').AsString :=edit4.Text ;
                Adotable1['Tanggal_Datang']:=DateTimePicker1.Date;
                Adotable1.Post;
                bersih;
                end;

                procedure TForm3.Button3Click(Sender: TObject);
                begin
                Adotable1.Delete;
                Adotable1.First;
                bersih;
                pasif;
                end;

                procedure TForm3.Edit6KeyPress(Sender: TObject; var Key: Char);
                begin
                if key=#13 then
                begin
                if not Adotable1.Locate('Kode_Barang',edit6.Text,[ ])then
                begin
                ShowMessage ('Data Tidak Ada');
                aktif;
                edit1.setfocus
                end
                else
                begin
                ShowMessage('Data Sudah Ada');
                edit1.Text:=AdoTable1['Nama_Barang'];
                edit2.Text:=AdoTable1['Jumlah'];
                edit3.Text:=AdoTable1['Harga_Satuan'];
                edit4.Text:=AdoTable1['Total'];
                combobox1.Text:=Adotable1['Satuan'];
                pasif;
                end;
                DBGrid1.DataSource:=DataSource1;
                end
                end;

                procedure TForm3.Button4Click(Sender: TObject);
                begin
                bersih ;
                ADOTable1.First;
                tampil;
                end;

                procedure TForm3.FormActivate(Sender: TObject);
                begin
                pasif;
                bersih;
                end;

                procedure TForm3.Button5Click(Sender: TObject);
                begin

                RvProject1.Execute;
                RvProject1.ExecuteReport('project1.rav');
                end;
                end



                                           Setelah Di Running


          
         Jika Kode Barang Di Enter Sudah Ada Maka Ada Pesan dan Data Di     Tampilkan, Jika belum ada  maka sebaliknya…
           
               


Data Barang Sudah Ada
Data Barang Di Tampilkan







                                            Bila Di Klik Print Maka Tampilan Report Seperti Di Bawah Ini, Bila    Diklik ok maka Tampillah Report Barang

Data Akan Di Print






                            Inilah Tampilan Report Data Barang

Data Report Barang Yang Akan Di Print





                                               3.  Membuat Form Service

Form Service



Object
Name
Caption
Edit1
Edit1
(kode_Service)
Edit2
Edit2
(Nama_Customer)
Edit3
Edit3
(Harga_Service)
Edit4
Edit4
(Harga_Olil)
Edit5
Edit5
(Total_Biaya)
DatetimePicker1
DatetimePicker1
(Tanggal_Service)
Edit7
Edit7
(No_Polisi)
Edit8
Edit8
(Uang_Bayar)
Listbox1
Listbox1

Label1
Label1
Kode service
Label2
Label2
Nama_customer
Label3
Label3
No_Polisi
Label4
Label4
Uang Bayar
Label5
Label5
Uang Kembali
Label6
Label6
Tanggal Service
RadioButton1
RadioButton1
Ringan
RadioButton2
RadioButton2
Ringan
Groupbox1
Groupbox1
Jenis Service
Groupbox2
Groupbox2
Harga oli



DataSource1
DataSource1
DataSet :AdoTable1
AdoTable1
AdoTable1
ConnectionString : Cari Database
Table Name : Service
Active :true
AdoConnection1
AdoConnection1
Connected :True
Conectionstring : Cari Data Base
Login prompt: false
Button1
Button1
Simpan
Button2
Button2
Hapus
Button3
Button3
Baru
Button4
Button4
Batal
Form4
Form4
FORM SERVICE
Dbgrid1
Dbgrid1
Datasource : Data Source1
Image1
Image1
Picture…..
RvProject2
RvProject1
Project File : Cari DataBase Project reportnya
RvDatasetConnection2
RvDatasetConnection2
Field Alias : Disamakan Dengan Project reportnya





                LISTING PROGRAM Data TRANSAKSI SERVICE



            private
            { Private declarations }
              public
              { Public declarations }
            procedure aktif;
            procedure nonaktif;
            procedure bersih;
             procedure tampil;
            end;

            var
            Form4: TForm4;

            implementation

            {$R *.dfm}

            procedure Tform4.aktif;
            begin
            edit1.Enabled:=true;
            edit2.Enabled:=true;
            edit3.Enabled:=true;
            edit4.Enabled:=true;
            edit5.Enabled:=true;
            edit7.Enabled:=true;
            edit8.Enabled:=true;
            edit9.Enabled:=true;
            end;



            procedure Tform4.nonaktif;
            begin
            edit1.Enabled:=false;
            edit2.Enabled:=false;
            edit3.Enabled:=false;
            edit4.Enabled:=false;
            edit5.Enabled:=false;
            edit7.Enabled:=false;
            edit8.Enabled:=false;
            edit9.Enabled:=false;
            end;

            procedure Tform4.bersih;
            begin
            edit1.clear;
            edit2.clear;
            edit3.clear;
            edit4.clear;
            edit5.clear;
            edit7.clear;
            edit8.clear;
            edit9.clear;
            end;

            procedure Tform4.tampil;
            begin
            edit1.text:=Adotable1['Kode_service'];
            edit2.text:=Adotable1['Nama_Customer'];
            edit3.text:=Adotable1['Harga_Service'];
            edit4.text:=Adotable1['Harga_Oli'];
            edit5.text:=Adotable1['Total_Biaya'];
            DateTimePicker1.Date:=Adotable1['Tanggal_Service'];
            edit7.text:=Adotable1['No_Polisi'];
            edit8.text:=Adotable1['Uang_Bayar'];
            edit9.text:=Adotable1['Uang_Kembali'];
            end;



            procedure TForm4.FormCreate(Sender: TObject);
            begin
            bersih;
            aktif;
            end;



            procedure TForm4.RadioButton1Click(Sender: TObject);
            begin
            if RadioButton1.Checked =true then
            edit3.Text:='35000';
            end;

            procedure TForm4.RadioButton2Click(Sender: TObject);
            begin
            if RadioButton2.Checked =true then
            edit3.Text:='55000';
            end;

            procedure TForm4.Button4Click(Sender: TObject);
            begin
            bersih ;
            ADOTable1.First;
            tampil;
            end;

            procedure TForm4.ListBox1Click(Sender: TObject);
            begin
            if ListBox1.ItemIndex =0 then
            begin
            edit4.Text:='26000'
            end
            else
            begin
            if ListBox1.ItemIndex =1 then
            begin
            edit4.Text:='22000'
            end
            else
            begin
            if ListBox1.ItemIndex =2 then
            begin
            edit4.Text:='23000'
            end
            else
            if ListBox1.ItemIndex =3 then
            begin
            edit4.Text:='28000'
            end
            else
            begin
            edit4.Text:='20000'
            end
            end;
            end;
            end;


            procedure TForm4.Button1Click(Sender: TObject);
            begin
            edit5.Text:=floattostr(strtofloat(edit3.Text) + strtofloat(edit4.Text));
            edit8.SetFocus;
            end;

            procedure TForm4.Edit8KeyPress(Sender: TObject; var Key: Char);
            begin
            if key=#13 then
            begin
            edit9.Text:=floattostr(strtofloat(Edit8.Text)- strtofloat(Edit5.Text ));
            end
            end;

            procedure TForm4.Button2Click(Sender: TObject);
            begin
            Adotable1.Open;
            Adotable1.append;
            Adotable1.FieldByName('Kode_Service').AsString :=edit1.Text ;
            Adotable1.FieldByName('Nama_Customer').AsString :=edit2.Text ;
            Adotable1.FieldByName('No_Polisi').AsString :=edit7.Text ;
            Adotable1.FieldByName('Harga_service').AsString :=edit3.Text ;
            Adotable1.FieldByName('Harga_Oli').AsString :=edit4.Text ;
            Adotable1['Tanggal_Service']:=DateTimePicker1.Date;
            Adotable1.FieldByName('Total_Biaya').AsString:=edit5.Text;
            Adotable1.FieldByName('Uang_Bayar').AsString:=edit8.Text;
            Adotable1.FieldByName('Uang_Kembali').AsString:=edit9.Text;
            Adotable1.Post;
            bersih;
            end;

            procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
            begin
            if key=#13 then
            begin
            if not Adotable1.Locate('Kode_Service',edit1.Text,[ ])then
            begin
            ShowMessage ('Data Tidak Ada');
            aktif;
            edit1.setfocus
            end
            else
            begin
            ShowMessage('Data Sudah Ada');
            edit2.Text:=AdoTable1['Nama_Customer'];
            edit3.Text:=AdoTable1['Harga_Service'];
            edit4.Text:=AdoTable1['Harga_Oli'];
            edit5.Text:=AdoTable1['Total_Biaya'];
            DateTimePicker1.DateTime :=AdoTable1['Tanggal_Service'];
            edit7.Text:=AdoTable1['No_Polisi'];
            edit8.Text:=AdoTable1['Uang_Bayar'];
            edit9.Text:=AdoTable1['Uang_Kembali'];
            nonaktif;
            end;
            DBGrid1.DataSource:=DataSource1;
            end
            end;

            procedure TForm4.Button3Click(Sender: TObject);
            begin
            Adotable1.Delete;
            Adotable1.First;
            bersih;
            nonaktif;
            end;

            procedure TForm4.Button5Click(Sender: TObject);
            begin
            bersih;
            aktif;
            end;

            procedure TForm4.Button6Click(Sender: TObject);
            begin
            RvProject2.Execute;
            RvProject2.ExecuteReport('project2.rav');
            end;
            end.

                                    Program Setelah Di running

Form setelah run



                        Data Muncul Setelah Di enter Jika Data Sudah Ada.., Dan Ketika Di Klik Print   Maka akan tampil Report Laporan Data Service

Form service sudah ada
Data Di Tampilkan



 

                        Tampilan Print Data Report Service

Form service akan di print



             Ketika Di klik ok maka tampil Report data Transaksi

Data Report transaksi

              


                        4. MEMBUAT  FORM  CUSTOMER


Design Form cust\


Object
Name
Caption
Edit1
Edit1
(kode_Customer)
Edit2
Edit2
(Nama_Customer)
Edit3
Edit3
(Alamat)
Edit4
Edit4
(No.Telepon)
ComboBox1
ComboBox1
(Jenis Kelamin)
Button1
Button1
(Simpan)
Button2
Button2
(Tambah)
Button3
Button3
(Hapus)
Button4
Button4
(Baru)
Button5
Button5
(Print)
Panel1
Panel1

Image1
Image1

Label1
Label1
Kode Customer
Label2
Label2
Nama Customer
Label3
Label3
Alamat
Label4
Label4
Jenis Kelamin
Label5
Label5
Telepon
DataSource1
DataSource1
DataSet :AdoTable1
AdoTable1
AdoTable1
ConnectionString : Cari Database
Table Name : Cutomer
Active :true
AdoConnection1
Name : Data
Connected :True
Conectionstring : Cari Data Base
Login prompt: false
Dbgrid1
Dbgrid1
Datasource : Data Source1
OpenPicture Dialog
OpenPicture Dialog

AdoCommand1
AdoCommand1
ConnectionData
RvProject3
RvProject3
ProjectFile : Cari project Report Yg Telah Di Buat
RvDatasetconnection3
RvDatasetconnection3
DataSet : AdoTable1
FieldAlias: Project3.rav




                                LISTING  PROGRAM



                        private
             { Private declarations }
            public
             { Public declarations }
             procedure aktif;
             procedure nonaktif;
             procedure bersih;
              procedure tampil;
              end;

            var
              Form5: TForm5;

            implementation

            {$R *.dfm}

            procedure Tform5.tampil;
            begin
            edit1.text:=Adotable1['Kode_Customer'];
            edit2.text:=Adotable1['Nama_Customer'];
            edit3.text:=Adotable1['Alamat'];
            edit4.text:=Adotable1['No_Telepon'];
            combobox1.Text :=Adotable1['Jenis_Kelamin'];
            end;

            procedure TForm5.aktif;
            begin;
            edit1.Enabled:=True;
            edit2.Enabled:=True;
            edit3.Enabled:=True;
            edit4.Enabled:=True;
            combobox1.Enabled:=True;
            end;

            procedure Tform5.nonaktif;
            begin
            edit1.Enabled:=False;
            edit2.Enabled:=False;
            edit3.Enabled:=False;
            edit4.Enabled:=False;
            combobox1.Enabled:=False;
            end;

            procedure Tform5.bersih;
            begin
            edit1.Clear;
            edit2.Clear;
            edit3.Clear;
            edit4.Clear;
            combobox1.Clear;
            end;






            procedure TForm5.Button5Click(Sender: TObject);
            begin
            if OpenPictureDialog1.Execute then
            begin
            Image1.Visible:=True;
            Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
            end;
            end;


            procedure TForm5.Button1Click(Sender: TObject);
            begin
            Adotable1.Open;
            Adotable1.append;
            Adotable1.FieldByName('Kode_Customer').AsString :=edit1.Text ;
            Adotable1.FieldByName('Nama_Customer').AsString :=edit2.Text ;
            Adotable1.FieldByName('Alamat').AsString :=edit3.Text ;
            Adotable1.FieldByName('Jenis_Kelamin').AsString :=Combobox1.Text ;
            Adotable1.FieldByName('No_Telepon').AsString :=edit4.Text ;
            Adotable1.Post;
            bersih;
            end;

            procedure TForm5.FormCreate(Sender: TObject);
            begin
            ComboBox1.Items.Add('Laki-Laki');
            ComboBox1.Items.Add('Perempuan');
            end;

            procedure TForm5.Button3Click(Sender: TObject);
            begin
            Adotable1.Delete;
            Adotable1.First;
            bersih;
            nonaktif;
            end;

            procedure TForm5.Button4Click(Sender: TObject);
            begin
            aktif;
            bersih;
            end;




            procedure TForm5.FormActivate(Sender: TObject);
            begin
            nonaktif;
            bersih;
            end;

            procedure TForm5.Button6Click(Sender: TObject);
            begin
            RvProject3.Execute;
            RvProject3.ExecuteReport('project3.rav');
            end;

            procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
            begin
            if key=#13 then
            begin
            if not Adotable1.Locate('Kode_Customer',edit1.Text,[ ])then
            begin
            ShowMessage ('Data Tidak Ada');
            aktif;
            edit1.setfocus
            end
            else
            begin
            ShowMessage('Data Sudah Ada');
            edit2.Text:=AdoTable1['Nama_Customer'];
            edit3.Text:=AdoTable1['Alamat'];
            Combobox1.text:=AdoTable1['Jenis_Kelamin'];
            edit4.Text:=AdoTable1['No_Telepon'];
            nonaktif;
            end;
            DBGrid1.DataSource:=DataSource1;
            end
            end;


            procedure TForm5.Button2Click(Sender: TObject);
            begin
            bersih ;
            ADOTable1.First;
            tampil;
            end;

            end.



                        Program Setelah Di Running Ketika Tekan Tombol Load Foto Maka Direktori           mencari file  foto yang diinginkan

               
Mengisi Data Customer dan menaruh foto customer






Menamplikan form customer




              Ketika Di klik Enter Pada Kode Customer Jika Data Sudah ada Maka Kan ada Pesan   Kesalahan Dan Data Di Tamplkan. Dan Ketika Di kill Print Maka kan Tampil Data Report Customer.



Data Sudah Ada
Data Di Tampilkan
Data Akan Di print






























 


























                Membuat Report Pada Komponen Rave




  1. Buaka komponen Rave Pilih Rv Project 

  1. Plih Data Set Connection
            Selanjutnya Double Klik Pada Komponen Rv Project  Atau Pilih menu Tools >> Rave           Designer maka akan muncul tampilan sbb :






                                Pada Menu Pilih Data Object, Lalu Pada data Connection Pilih Driver Data    View



                       




                                Lalu Pilhan Berkutnya Pilih Rv Data Setconnection yang Di pakai. Langkah    Selanjutbya Pilih Tools Report Wizard pilih simpleTable

               






                         Pilih DataViewYang Akan Dipakai





                                Pilih Field yang akan ditampilkan dalam report KLIK NEXT


                                




                   
                               
                        Klik Next


             






                                               Klik Generate






                Setelah dI Atur Maka KanTampil Seperti Berikut








 Ente tinggal di atur aja design rave report seperti yang kita butuhkan.

Ini Ane Kasih Link Juga Untuk Mendownload Program Buatan Ane

Download Program Benkel Obrak Abrik Delphi 07

Moga Bermanfaat ya...Jangan Lupa tinggalkan juga komentar kamu pada blog saya...thxs