Ganti jenis ukuran huruf pada blog

TULISAN tentang Cara Mengganti Jenis dan Ukuran Huruf (Font) Posting Blog ini melanjutkan dua posting sebelumnya tentang Jenis Huruf Terbaik buat Blog dan Pengaruh Ukuran Huruf pada Bounce Rate Blog. CB bikin posting ini setelah mengganti jenis huruf blog ini dari Arial menjadi Droid Sans.

Cara mengganti jenis dan ukuran huruf postingan blog sangat mudah.

1. 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.
2. Ganti Arial dengan jenis huruf lain
3. Ganti 14px dengan ukuran lebih kecil (13px) atau lebih besar (15px). Proporsionalkan aja, jangan terlalu kecil, jangan pula terlalu besar.

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.