unit edLgnPhone;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, Mask, DBCtrls, JvExControls, JvComponent,
  JvStaticText, ExtCtrls, JvExStdCtrls, JvDBCombobox, JvCombobox, JvButton,
  JvCtrls, JvFooter, JvExExtCtrls, JvExtComponent, o32editf, o32flxed,
  o32dbfe, ovcbase, ovcef, ovcpb, ovcpf, o32vldtr, o32pvldr, ovcdbpf,
  DynamicSkinForm;

type
  TedLgnPhoneForm = class(TForm)
    GroupBox1: TGroupBox;
    JvStaticText2: TJvStaticText;
    dsPhone: TDataSource;
    JvDBComboBox2: TJvDBComboBox;
    JvFooter1: TJvFooter;
    CancelBtn: TJvFooterBtn;
    OkBtn: TJvFooterBtn;
    OvcDbPictureField1: TOvcDbPictureField;
    spDynamicSkinForm1: TspDynamicSkinForm;
    procedure OkBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
  public
  end;

var
  edLgnPhoneForm: TedLgnPhoneForm;

implementation

{$R *.dfm}

uses DataMod1;

procedure TedLgnPhoneForm.OkBtnClick(Sender: TObject);
begin
  if (DM1.qLgnPhoneTLP.Value='') and (DM1.qLgnPhoneJENIS.Value='') then
  ShowMessage('Data Tidak Lengkap ...!');
  DM1.qLgnPhone.Post;
end;

procedure TedLgnPhoneForm.CancelBtnClick(Sender: TObject);
begin
  DM1.qLgnPhone.Cancel;
end;

end.