Blog's Ragiel

Ini Aplikasi Yang open source,..,.,.
Semoga Ini  bermanfaat!!!!!!!

Kamus dan kodenya Download kamus

Coba download properti ini  Ikon asik 
Ini juga mungkin dapat membantu anda   Skin

Ini percobaanya

procedure TF_utama.Button1Click(Sender: TObject);
var
sl:TStringList;
i:integer;
begin
sPathDialog1.Execute;sSkinManager1.SkinDirectory:=sPathDialog1.Path;
 sl := TStringList.Create;
sSkinManager1.GetSkinNames(sl);

  ComboBox1.Clear;
  for i := 0 to sl.Count - 1 do begin
   ComboBox1.Items.Add(sl[i]); end;
end;

procedure TF_utama.ComboBox1Change(Sender: TObject);
beginsSkinManager1.SkinName:=ComboBox1.Items[ComboBox1.Itemindex];
end;
end.

Ini kode yang sederhana cukup untuk tambah,hapus dan simpan.
belum juga disediakan komponenen

Jika ingin mencari silahkan download di  sini  atau kunjungi sini Atau punya saya Data Ragiel

Langkah 1 (Pengkoneksian) :

► ZMySqlDatabase1 (Zeos Access)
Properties :
Database :Nama Database di Mysql
Host : localhost
Login : root
Connected : True
►ZMySqlTransact1 (Zeos Access)
Properties :
Database : ZMySqlDatabase1 / Didouble click
►ZMySqlTable1 (Zeos Access)
Properties :
Database : ZMySqlDatabase1 / Didouble click
TableName : Nama Table Di Database di Mysql
Transaction : ZMySqlTransact1/ Didouble click
Active : True
►DataSource1 (Data Acces )
Properties :
DataSet : ZMySqlTable1/ Didouble click

Setelah Semua Sudah Dilakukan ZMySqlTable1 di Double Click
Keluar Kayak Form Kecil Lalu Di Klik Kanan Pilih ADD ALL FILE.
►DBGrid1 (Data Controls)
Properties :
Data Source : DataSource1/ Didouble click

Setelah itu DBGrid1 di Double Click Keluar Kayak Form Kecil Lalu
Di Klik Kanan Pilih ADD ALL FILE.

► DBEdit1 (Data Controls)
Properties :
Data Source : DataSource1/ Didouble click
Data Field : disesuaikan Dengan Field Yang Ada Di DBGrid1
Ctl3D : False

Langkah 2 (pengcodingan) :


► Button1/Tambah
Kode Program :
ZMySqlTable1.Append;
► Button2/Simpan
Kode Program :
ZMySqlTable1.Post;
► Button3/Hapus
Kode Program :
ZMySqlTable1.Delete;
Di Event Form
► On Show
Kode Program :
ZMySqlTable1.Open;

Ini kode saya buat bersama teman saya ,.
dan bagi yang ingin mengembangkannya,silahkan bisa di kembangkan,.,.
Mengunakan komponen skin manajer dan mengunakan data base notepad


procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
ListBox1.AddItem(OpenDialog1.FileName,Sender);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
sl:TStringList;
i:integer;
begin
 sl := TStringList.Create;
  sSkinManager1.GetSkinNames(sl);

  ListBox2.Clear;
  for i := 0 to sl.Count - 1 do begin
    ListBox2.Items.Add(sl[i]);
end;
end;
procedure TForm1.ListBox2DblClick(Sender: TObject);
begin
sSkinManager1.SkinName:=ListBox2.Items[ListBox2.Itemindex];
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Position=MediaPlayer1.Length then
begin
try
MediaPlayer1.FileName:=ListBox1.Items[ListBox1.itemindex+1];
  if MediaPlayer1.FileName='' then
  begin
     MediaPlayer1.FileName:=ListBox1.Items.Strings[0];
     MediaPlayer1.Open;
     MediaPlayer1.Stop;
     MediaPlayer1.Play;
  end
  else
        begin
          MediaPlayer1.Open;
          MediaPlayer1.Stop;
          MediaPlayer1.Play;
          ListBox1.Items.Exchange(ListBox1.ItemIndex,ListBox1.ItemIndex+1);
        end;


except

end;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if ListBox1.Items.Text <> '' then
Timer1.Enabled:=true;
if Timer1.Enabled=true then
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.FileName:=ListBox1.Items[ListBox1.itemindex];
MediaPlayer1.Open;
MediaPlayer1.Stop;
MediaPlayer1.Play;
Button4.Enabled:=true;
end;

procedure TForm1.bthapusClick(Sender: TObject);
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TForm1.Button6Click(Sender: TObject);
var
sl:TStringList;
i:integer;
begin
sPathDialog1.Execute;
sSkinManager1.SkinDirectory:=sPathDialog1.Path;
 sl := TStringList.Create;
  sSkinManager1.GetSkinNames(sl);
   ListBox2.Clear;
  for i := 0 to sl.Count - 1 do begin
    ListBox2.Items.Add(sl[i]); end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
list:TStringList;
begin
list:= TStringList.Create;
list.Clear;
list.Add(ListBox1.Items.Text);
list.SaveToFile(Extractfilepath(Application.exename)+'listlagu.txt');
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile(Extractfilepath(Application.exename)+'listlagu.txt');
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
TopMostWindow1.AlwaysOnTop:=true;
end;

end.