Code Untuk Menambahkan Button Edit pada Delphi7 - Hallo sahabat Computer Programmer Medical Coding, Pada Artikel yang anda baca kali ini dengan judul Code Untuk Menambahkan Button Edit pada Delphi7, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Delphi, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Code Untuk Menambahkan Button Edit pada Delphi7
link : Code Untuk Menambahkan Button Edit pada Delphi7

Code Untuk Menambahkan Button Edit pada Delphi7

Berikut ini adalah kode program pada pemrograman delphi7 untuk menambahkan data baru.

Codenya Adalah :

procedure Tformmodifikasi.TEditClick(Sender: TObject);

begin

formtambah:=TformTambah.create(self);

with formtambah do

begin

edit1.Text :=Table1.Fields[0].asString;

edit2.Text :=Table1.Fields[1].asString;

edit3.Text :=Table1.Fields[2].asString;

edit4.Text :=Table1.Fields[3].asString;

edit5.Text :=Table1.Fields[4].asString;

ActiveControl:=edit1;

end;

formtambah.ShowModal ;

with Table1, formtambah do

begin

edit;

FieldbyName('NAME').AsString :=edit1.text;

FieldbyName('CAPITAL').AsString :=edit2.text;

FieldbyName('CONTINENT').AsString :=edit3.text;

FieldbyName('AREA').AsString :=edit4.text;

FieldbyName('POPULATION').AsString :=edit5.text;

post;

formtambah.Free ;

end;

end;

Demikianlah Artikel : Code Untuk Menambahkan Button Edit pada Delphi7

Semoga artikel Code Untuk Menambahkan Button Edit pada Delphi7 ini, bisa memberi manfaat untuk anda semua dan jangan bosan untuk datang kembali mengunjungi blog ini. Baiklah, sampai jumpa di postingan artikel lainnya.

Artikel yang anda baca saat ini Code Untuk Menambahkan Button Edit pada Delphi7 dengan alamat link https://idkingcode.blogspot.com/2016/07/code-untuk-menambahkan-button-edit-pada.html

Artikel Terkait

Code Untuk Menambahkan Button Edit pada Delphi7

4/ 5

Oleh Unknown

Unknown 10.55 Komentar