ca
bolsas femininas

SLIDE-1-TITLE-HERE

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.This theme is Bloggerized by Lasantha - Premiumbloggertemplates.com[...]

SLIDE-2-TITLE-HERE

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.This theme is Bloggerized by Lasantha - Premiumbloggertemplates.com[...]

SLIDE-3-TITLE-HERE

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.This theme is Bloggerized by Lasantha - Premiumbloggertemplates.com[...]

If you are going [...]

SLIDE-4-TITLE-HERE

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.This theme is Bloggerized by Lasantha - Premiumbloggertemplates.com[...]

SLIDE-5-TITLE-HERE

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.This theme is Bloggerized by Lasantha - Premiumbloggertemplates.com[...]

Sabtu, 15 Desember 2012


MEMBUAT TEKSBERJALAN DENGAN DELPHI


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, jpeg;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Data1: TMenuItem;
    About1: TMenuItem;
    Absensi2: TMenuItem;
    DataMahasantri1: TMenuItem;
    DataMusrif1: TMenuItem;
    Button1: TButton;
    Label1: TLabel;
    Image1: TImage;
    Timer1: TTimer;
    procedure DataMahasantri1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Absensi2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  txt : string;
implementation

uses Unit3, Unit1, Unit4, Unit5;

{$R *.dfm}


procedure TForm2.Timer1Timer(Sender: TObject);
begin
txt := label1.Caption;
label1.Caption:=
      Copy(txt, Length(txt)-1,1) + Copy(txt, 1, Length(txt)-1) ;
end;

end.

By Wahyu with No comments

Menghubungkan Database Access dengan Delphi 7

1. Install Delphi 7 kemudian Open
2. Buat Form seperti gambar di bawah ini
3. Komponen yang di Gunakan :
ADO Connection Ada Di Pallete ADO
ADOTable Ada di Pallete ADO
DataSource Ada di Pallete Data Acces
DBNavigator Ada di Pallete Data Control
DBGrid Ada di Pallete Data Control
Button Ada di Pallete standar
Label Ada di Pallete standar
4. Atur Object Inspector seperti ini
5. Untuk komponen Button : name = butun1 & caption = keluar
label : name = label1 & caption = Nama- nama Fans Club Sepak bola
6. Pada AdoConnection Properties pilih connection string kemudian klik akan muncul tampilan seperti ini
7. Apabila semua langkah - langkah sudah anda cek kebenarannya, hasilnya seperti ini
8 Kemudian klik Run (F9) untuk menjalankannya liat hasilnya

By Wahyu with No comments

Membuat Database menggunakan Microsoft Office Access 2007

1. Pastikan ms office sudah anda install 
2.  Pilih Ms access 2007
3. Setelah anda open Ms access tadi, pilih blink database



4. kemudia akan tampil tampilan

5. Kemudian buka file name tadi seperti gambar di atas, akan muncul form lagi
buat folder kemudian pilih format file(mdb). karena nantinya kita akan menghubungkan access dengan Delphi(Postingan selanjutnya). setalah sudah di pilih tinggal klik ok
6. Pilih Create
7. Pilih table1, klik kanan pilih design view isi nama table: misalnya (club)
8.  kemudian isi table dengan berapa field yang anda inginkan, misalnya seperti ini
9. Di sini saya menggunakan 7 field (no, arsenal, Real Madrid, Chelsea, Barcalona, MU, Valencia). ganti field sizenya pada field Properties sesuai Keingginan anda
10.  Klik table (club) pilih open Isi Field dengan bebera Record
11. kemudian Save. liat hasilnya di mana anda menyimpan file tersebut.

By Wahyu with No comments