Membuat Hypelink Dalam Tabel

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

header1	header2	header3
baris 1 kolom 1	baris 1 kolom 2	baris 1 kolom 3
baris 2 kolom 1	baris 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

Baca Selengkapnya »

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)

Baca Selengkapnya »

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

oke Klik Disini untuk mendownload

Baca Selengkapnya »

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

Baca Selengkapnya »

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

Klik Link Di sini untuk mendownload

Baca Selengkapnya »

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 

2. 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

Baca Selengkapnya »