Soal
- 1. Buat 1 form master yang digunkan untuk mengolah data pelanggan. Berikut nama tabel dan field-fieldnya.
Nama Tabel =
Pelanggan
Primary Key =
kd_pelanggan
- Buka localhost di browser
- Buat tabel pelanggan
- Buat DNS untuk menghubungkan delphi dengan database MYSQL.
- Buka Control Panel , Administrative Tools, Data Sources (ODBC) , user dns ,
KOMPONEN-KOMPONEN
|
Komponen
|
Propertis
|
Nilai
|
|
FROM
|
CAPTION
|
MUHAMMAD IQBAL
|
|
LABEL
|
NAMA
|
LBL1
|
|
CAPTION
|
PEELANGGAN
|
|
|
NAMA
|
LBL2
|
|
|
CAPTION
|
KODE PELANGGAN
|
|
|
NAMA
|
LBL3
|
|
|
CAPTION
|
XXXX
|
|
|
NAMA
|
LBL4
|
|
|
CAPTION
|
NAMA
|
|
|
NAMA
|
LBL5
|
|
|
CAPTION
|
ALAMAT
|
|
|
NAMA
|
LBL6
|
|
|
CAPTION
|
NO HP
|
|
|
NAMA
|
LBL7
|
|
|
CAPTION
|
CARI DATA BERDASARKAN
|
|
|
|
|
|
|
BUTTON
|
NAMA
|
BTN1
|
|
CAPTION
|
SIMPAN
|
|
|
NAMA
|
BTN2
|
|
|
CAPTION
|
UBAH
|
|
|
NAMA
|
BTN3
|
|
|
CAPTION
|
HAPUS
|
|
|
NAMA
|
BTN4
|
|
|
CAPTION
|
KELUAR
|
|
|
NAMA
|
BTN5
|
|
|
CAPTION
|
CARI
|
|
|
NAMA
|
BTN6
|
|
|
CAPTION
|
BATAL
|
|
|
EDIT
|
NAMA
|
EDT1 (UNTUK NAMA)
|
|
NAMA
|
EDT2 (UNTUK NO HP)
|
|
|
NAMA
|
EDT3 (UNTUK CARI)
|
|
|
*BGRID
|
NAMA
|
DBGRD1
|
|
COMBOBOX
|
NAMA
ITEMS
|
CBB1
NAMA
KODE PELANGGAN
|
|
MEMO
|
NAMA
|
MMO1
|
Buat data modul
|
Komponen
|
Propertis
|
Nilai
|
|
DATA MODUL
|
CAPTION
NAMA
|
DM
DM
|
|
ADO KONEKSION
|
NAMA
|
CON1
|
|
ADO QUERY
|
NAMA
|
QRY1
|
|
ADO QUERY
|
NAMA
|
QRY2
|
|
DATA SOURCE
|
NAMA
|
DS1
|
CodinG program
unit Unit3;
interface
uses
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
Grids, DBGrids, StdCtrls;
type
TForm3 =
class(TForm)
lbl1:
TLabel;
lbl2:
TLabel;
lbl3:
TLabel;
lbl4:
TLabel;
lbl5:
TLabel;
lbl6:
TLabel;
edt1:
TEdit;
mmo1:
TMemo;
edt2:
TEdit;
dbgrd1:
TDBGrid;
btn1:
TButton;
btn2:
TButton;
btn3:
TButton;
btn4:
TButton;
lbl7:
TLabel;
cbb1:
TComboBox;
edt3:
TEdit;
btn5:
TButton;
btn6:
TButton;
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure mmo1KeyPress(Sender: TObject; var Key: Char);
procedure btn4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure dbgrd1CellClick(Column: TColumn);
procedure btn6Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure cbb1Change(Sender: TObject);
procedure edt3Change(Sender: TObject);
procedure cbb1KeyPress(Sender: TObject; var Key: Char);
1. DEKLARASIKAN PROCEDURE
1. DEKLARASIKAN PENGGUNAAN DATA MODUL
1. CODING UNTUK PROCEDURE
1. CODING PADA FROM1
1. CODING PADA MEMO
1. CODING BUTTON SAVE
1. CODING MENGIRIM NILAI YANG DKLIK PADA
DBGRID KE IMPUTAN
1. CODING BUTTON BATAL
1. CODING BUTTON UBAH
1. CODING BUTTON DELETE
1. CODING BUTTON CARI
1. CODING PADA COMBOBOK DAN
Tidak ada komentar:
Posting Komentar