Selasa, 13 Januari 2015
link lengkap tutorial blog javascript dan css3
Senin, 12 Januari 2015
Bikin Scrollbars sebelah kii
Membuat scollbars di posisi sebelah kiri bisa dilakukan dengan 2 cara:
Gunakan kode berikut untuk membuat scrollbars berada di kiri:
- Hanya menggunakan kode html (xHTYML).
- Menggunakan xHTML dan kode CSS.
Gunakan kode berikut untuk membuat scrollbars berada di kiri:
xHTMl scrollbars Kiri:
<div style="unicode-bidi:bidi-override;direction:rtl;text-align:left;overflow:auto;height:200px;width:400px;padding:15px 10px;margin:15px 0;border:1px solid #000;font-size:12px;font-family:Tahoma;"> <div dir="ltr"> Letakkan semua teks, kode html atau barang anda di sini! </div> </div>
Membuat Scrollbars di Sisi Kiri dg xHTML
Dengan bantuan kode css maka membuat xHTML yang digunakan menjadi sangat simple.
xHTMl scrollbars Kiri:
<div class="GRscrollbars">
<div>
Letakkan semua teks, kode html atau barang anda di sini!
</div>
</div>
Cara Menggunakan kode:
- Login ke Blogger. Tuliskan User Name atau Alamat Email dan Password anda kemudian klik Sign in.
- Setelah login anda akan masuk di halaman Dasbor (Dasboard).
- Cari dan klik "Rancangan (Design)".
- Cari dan klik "Edit HTML".
- Setelah box Edit HTML yang berisi kode-kode html template terlihat, cari kode ]]></b:skin>.
- Copy dan paste-kan kode CSS dibawah ini, di atas kode ]]></b:skin>.
kode:
.GRscrollbars{
height:200px;
width:400px;
text-align:left;
overflow:auto;
padding:15px 10px;
margin:15px 0;
border:1px solid #666;
unicode-bidi:
bidi-override;direction:rtl;
font-size:12px;
font-family:Tahoma;
}
.GRscrollbars div{direction:ltr;}
Klik "Simpan Template (Save Template)"
kemudian pada postingan gunakan HTML seperti ini:
<div class="GRscrollbars">
<div>
Tuliskan teks atau apapun yang akan disimpan dalam scrollbars di sini!
</div>
</div>
- Anda bisa membuang kode yang mungkin tidak diperlukan seperti misalnya:
font-family:Tahoma; dan font-size:12px;. - Berberapa kode bisa juga dirubah nilainya seperti:
height:200px;, width:400px;, padding:15px 10px;, margin:15px 0; dan border:1px solid #666;. - text-align:left; dapat juga diganti dengan text-align:justify; (rata tengah).
Minggu, 28 Desember 2014
Ganti jenis ukuran huruf pada blog
Cara mengganti jenis dan ukuran huruf postingan blog sangat mudah.
- Cari kode "font-family" atau "font" di template Anda. Misalnya begini: post-body {font-family: Arial; font-size:14px} atau body {font:Arial;size:13px} dan semisalnya.
- Ganti Arial dengan jenis huruf lain
- Ganti 14px dengan ukuran lebih kecil (13px) atau lebih besar (15px). Proporsionalkan aja, jangan terlalu kecil, jangan pula terlalu besar.
Minggu, 05 Oktober 2014
TRANSAKSI DAN FORM BARANG DENGAN DATABASE ACCESS
MEMBUAT FORM
TRANSAKSI DAN FORM BARANG DENGAN DATABASE ACCESS
Buat form sbb:
Dan database untuk table barang dan table transaksi sbb:
Beri komponen setiap formnya ADO Connection,ADO Table,dan Data Source
Seting propertiesnya:
kompponen
|
Form 2
|
Form 1
|
ADO Connection,ADO
|
Connection string= ke
database yang dibuat
Login promp=false
connection=true
|
Connection string= ke
database yang dibuat
Login promp=false
connection=true
|
ADO Table
|
Connection=con1
Master source= Form2.ds1
Table name= tb_transaks
Active=true
|
Connection=con1
Table name= tb_barang
Active=true
|
Data Source
|
Dataset=tbl1
|
Dataset=tbl1
|
dbbgrid
|
Datasource=ds1
|
Datasource=ds1
|
DBNAVIGATOR
|
Datasource=ds1
|
Datasource=ds1
|
Untuk form 1 komponent
dibuat disable semua kecuali button tambah
Coding form transaksi sbb:
procedure TForm1.btn1Click(Sender: TObject);
begin
edt1.Enabled:=True;
edt1.SetFocus;
edt2.Text:=datetostr(date);
edt1.Text:='';
edt3.Text:='';
edt4.Text:='';
edt5.Text:='0';
edt6.Text:='0';
edt7.Text:='0';
edt8.Text:='0';
edt9.Text:='0';
end;
procedure TForm1.edt1KeyPress(Sender: TObject; var
Key: Char);
begin
if key=#13 then
begin
dblkcbb1.Enabled:=true;
dblkcbb1.SetFocus;
btn1.Enabled:=false;
end;
end;
procedure TForm1.dblkcbb1Click(Sender: TObject);
begin
edt3.Text:=Form2.tbl1['namabarang'];
edt4.Text:=Form2.tbl1['hargajual'];
edt5.Text:=Form2.tbl1['jumlahbarang'];
edt6.Enabled:=True;
edt6.SetFocus;
end;
procedure TForm1.edt6KeyPress(Sender: TObject; var
Key: Char);
var
jumbel,harga,total,jumbar,total1:integer;
begin
if key=#13 then
//koding bila stok habis
begin
if(Form2.tbl1['jumlahbarang']<(StrToInt(edt6.Text))) then
begin
ShowMessage('stok barang tidak
mencukupi');
Exit;
end
else
harga:=strtoint(edt4.Text);
jumbel:=strtoint(edt6.Text);
jumbar:=strtoint(edt5.Text);
total:=harga*jumbel;
total1:=jumbar-jumbel;
edt7.Text:=inttostr(total);
edt5.Text:=inttostr(total1);
edt8.Enabled:=True;
edt8.SetFocus;
end;
end;
procedure TForm1.edt8KeyPress(Sender: TObject; var
Key: Char);
var kembali:Integer;
begin
if Key=#13 then
begin
if (StrToInt(edt8.Text)<
StrToInt(edt7.Text)) then
BEGIN
ShowMessage('Uang anda kurang');
Exit;
end
else
kembali:= StrToInt(edt8.Text)-
StrToInt(edt7.Text);
edt9.Text:=IntToStr(kembali);
btn2.Enabled:=True;
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
tbl1.Append;
tbl1['no trans']:=edt1.Text;
tbl1['tgl trans']:=edt2.Text;
tbl1['kdbarang']:=dblkcbb1.Text;
tbl1['namabarang']:=edt3.Text;
tbl1['hargajual']:=edt4.Text;
tbl1['jumlahbeli']:=edt6.Text;
tbl1['totalbayar']:=edt8.Text;
tbl1.Post;
begin
Form2.tbl1.Edit;
Form2.tbl1['jumlahbarang']:=edt4.Text;
Form2.tbl1.Post;
end;
end;
end.
Langganan:
Komentar (Atom)