membuat report di deplhi menggunakan Crystal Report ..

kemaren dapat tugas nie mu buat report pake CR (Crystal Report) di delphi sebenernya dah banyak nie tutorialnya ya maklum laa baru baru sih belajar delphinya juga, ya lumayan sulit juga nie cari sana cari sini ada yang bilang enggak usah pake komponen ada yang pake komponen, saya liat tutorial yang pake komponen pake CrystalReports11XIVcl. ternyata gampang ko yu kita mulai dulu eh jangan lupa download dulu komponennya CrystalReports11XIVcl.zip
di sini CrystalReports11XIVcl terus install deh komponennya, bisa kan installnya tinggal baca readme aja ..hhe..

kalo udah selesai yu kita mulai, eh tunggu dlu komponen yang ini lumayan membingungkan juga soalnya tidak membuat tab baru komponennya, terletak di tab DataAkses nama komponennya Crpe1,

<br />
procedure TForm1.btnCetakClick(Sender: TObject);<br />
begin  Crpe1.ServerName:=ExtractFilePath(Application.ExeName)+'namadatabase.mdb'); //saya pake ms access<br />
Crpe1.Password:='dbpassword'; //kalo ada passowrdnya<br />
Crpe1.DatabaseName:=ExtractFilePath(Application.ExeName)+'namdatabase.mdb'); //pake ms access jga<br />
Crpe1.WindowState:=wsMaximized;<br />
Crpe1.Execute;<br />
end;<br />

gampang kan, coba aja dulu kalo ada eroor, itu wat belajar aja, hhe..

untuk conto ini langsung di execute di delphinya tapi jangan lupa CrystalReportnya harus sudah jalan yc waktu di priview ..

selamat mencoba,,

mencari sebuah record pada DBGrid

pagi ini udah mencoba cari yang baru lagi nie,, saya pusing gimana ya caranya mencari sebuah record pada sebuah tabel tanpa menggunakan script SQL. saya coba menggunakan fungsi LOCATE,,

sample

procedure TForm1.Button1Click(Sender: TObject);
begin  ADOQuery1.Locate('KODE_BARANG;NAMA_BARANG;',VarArrayOf(['0010','BARANG1']),[loPartialKey]);
end;

dengan properti :

AdoConnection1.Provider := ' Microsoft.Jet.OLEDB.4.0 ';
AdoConnection1.ConnectionString := ' Data Source=database.mdb;Persist Security Info=False;Jet OLEDB:Database Password=''';
AdoConnection1.Connected:=True;

AdoQuery.Connection:='AdoConnection1';
AdoQuery.SQL:='select * from tablename';

DataSource1.DataSet:='AdoQuery1';

database nya bikin sendiri yac,, gax sempet buat db nya nie soalnya mau pulang, hhe…

Export to Text from CxGrid(Developer Express Componen)

dah lama pengen ngulik-ngulik, sebelum jumatam posting dulu deh. hhe

procedure TfrmUlik.cxbtnTextClick(Sender: TObject);
var
  s : string;
  i : integer;
  sl : TStringList;
begin
  sl := TStringList.Create;
  with dmDiklat.quPeserta do
  begin
    while not Eof do
    begin
      s := '';
      for i:=0 to cxGrid1DBTableView1.ItemCount-1 do
        s := s + cxGrid1DBTableView1.Columns[i].DataBinding.Field.DisplayText + ' ';
        sl.add(s);
        Next;
        Application.ProcessMessages;
    end;
  end;
    sl.SaveToFile(ExtractFilePath(Application.ExeName)+'export.txt');
    sl.Free;
end;

membuat relationship di mysql dengan FOREIGN KEY

membuat suatu relationship di sebuah database itu hal yang
gampang gampang susah “meni serius yc”, hhe..

langsung aja yc di sini saya ingin membuat relationship di MYSQL,
mungkiin untuk di MS. ACCESS itu hal yang mudah tinggal drag sana
drag sini trus checlist jadi dech, tapi beda halnya dengan di mysql.
udah ah kita langsung aja yc ,

pertama kita buat 2 buat table

create table siswa(
NIS varchar(7) not null primary key,
NAMA varchar(30) not null,
KELAS varchar(4))ENGINE=INNODB;

create table absen(
NIS varchar(7)not null,
JAM_MASUK datetime,
JAM_KELUAR datetime)ENGINE=INNODB;

ya table nya emang itu itu saja yang namanya create table,
nah di sini baru kita buat relasinya

alter table `absen` add CONSTRAINT `siswa_fk`
FOREIGN KEY (`NIS`) REFERENCES `siswa`(`NIS`) 
ON DELETE CASCADE ON UPDATE CASCADE

masih bingung ? ni saya jelasin ununtuk yg `siswa_fk` itu
nama dari foreign nya bebas ko di isi apa aja tapi jangan samapi ada yang sama
jadi kita alter table absen, artinya jika kita update atau delete record
yang ada di table siswa maka table absen pun ikut terganti atau terdelete.

untuk menghapus FOREIGN KEY itu juga mudah, hanya dengan

ALTER TABLE `siswa` DROP FOREIGN KEY `siswa_fk`;

untuk melihat sebuah nama FOREIGN KEy dari table ini, mestinya ini dulu yc baru untk menghapus
tapi biarin deh biar di baca semuanya, hhe.

SHOW CREATE TABLE `absen` 

eh ada yang kelupaan, jika table yang dibuat itu sudah lama
liat dulu type table yang di pakai apakah MyIsam atau InnoDB atau yang lainya,
eh ternyata punya aku MyIsam, aduh gimana yac enggak bisa donk, tidak perlu panik
gunakan saja

ALTER TABLE `siswa` ENGINE = InnoDB

membuat angka nol di depan bilangan ..

setelah kemaren ngerjain aplikasi yang enggak puguh punya kesulitan nie untuk membuat kode barang yang bertype integer di db nya tapi saya ingin tampil ada angka nol nya di depan angka itu kalo untuk varchar itu enggak jadi masalah, dari pada ganti jdi varchar lebih baik saya cari solusinya tanya sana tanya sini eh ada temen saya yang ngasih function, ya sekedar ingin berbagi,

<?php
 function nolnoldidepan($value, $places){
 if(is_numeric($value)){
 for($x = 1; $x <= $places; $x++){
 $ceiling = pow(10, $x);
 if($value < $ceiling){
 $zeros = $places - $x;
 for($y = 1; $y <= $zeros; $y++){
 $leading .= "0";
 }
 $x = $places + 1;
 }
 }
 $output = $leading . $value;
 }
 else{
 $output = $value;
 }
 return $output;
}
?>

enggak sulit, cara nya tinggal di echo kan saja masih enggak tau juga, itu biasa yg di katakan temen saya ke saya jadi malu jga yc, ya udah ni saya kasih contoh :

<?php
$bilangan=1;
echo nolnoldidepan($bilangan,3);
?>

gampang kan, :d