Codingan F Konsumen

unit u_konsumen;

interface

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

type
  Tf_konsumen = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ed_id: TEdit;
    ed_nama: TEdit;
    ed_alamat: TEdit;
    ed_telfon: TEdit;
    ed_kota: TEdit;
    bt_tambah: TBitBtn;
    bt_edit: TBitBtn;
    bt_simpan: TBitBtn;
    bt_hapus: TBitBtn;
    bt_batal: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    menu: TMainMenu;
    close1: TMenuItem;
    Panel1: TPanel;
    procedure bt_tambahClick(Sender: TObject);
    procedure bt_editClick(Sender: TObject);
    procedure bt_simpanClick(Sender: TObject);
    procedure bt_hapusClick(Sender: TObject);
    procedure bt_batalClick(Sender: TObject);
    procedure close1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_konsumen: Tf_konsumen;

implementation

uses u_dm;

{$R *.dfm}

procedure Tf_konsumen.bt_tambahClick(Sender: TObject);
begin
dm.tb_konsumen.Append;
bt_simpan.Enabled := True;
end;

procedure Tf_konsumen.close1Click(Sender: TObject);
begin
Close;
end;

procedure Tf_konsumen.bt_editClick(Sender: TObject);
begin
ed_id.Text := dm.tb_konsumen['id_konsumen'];
ed_nama.Text := dm.tb_konsumen['nama_konsumen'];
ed_alamat.Text := dm.tb_konsumen['alamat'];
ed_kota.Text := dm.tb_konsumen['kota'];
ed_telfon.Text := dm.tb_konsumen['telfon'];

dm.tb_konsumen.Edit;
end;

procedure Tf_konsumen.bt_simpanClick(Sender: TObject);
begin

  if Length (ed_id.Text)=0 then
  ShowMessage('silahkan masukkan id_konsumen anda')
  else if Length (ed_nama.Text)=0 then
  ShowMessage('silahkan masukkan nama anda')
  else if Length (ed_alamat.Text)=0 then
  ShowMessage('silahkan masukkan alamat anda')
  else if Length (ed_kota.Text)=0 then
  ShowMessage('silahkan masukkan kota anda')
  else if Length (ed_telfon.Text)=0 then
  ShowMessage('silahkan masukkan telfon anda')
 else

begin
dm.tb_konsumen['id_konsumen']:=ed_id.Text;
dm.tb_konsumen['nama_konsumen']:=ed_nama.Text;
dm.tb_konsumen['alamat']:=ed_alamat.Text;
dm.tb_konsumen['kota']:=ed_kota.Text;
dm.tb_konsumen['telfon']:=ed_telfon.Text;

dm.tb_konsumen.Post;
bt_edit.Enabled := True;
bt_hapus.Enabled := True;
end;
end;

procedure Tf_konsumen.bt_hapusClick(Sender: TObject);
begin
dm.tb_konsumen.Delete;
end;

procedure Tf_konsumen.bt_batalClick(Sender: TObject);
begin
ed_id.Clear;
ed_nama.Clear;
ed_alamat.Clear;
ed_kota.Clear;
ed_telfon.Clear;
end;

end.