Archive

Archive for 09/04/2010

Export to Text from CxGrid(Developer Express Componen)

09/04/2010 2 comments

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;
Categories: Delphi

membuat relationship di mysql dengan FOREIGN KEY

09/04/2010 4 comments

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
Categories: MySQL