edlgnphone.pas

this is sample for traders

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
  DM1.qLgnPhone.Post;
end;

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

end.