edlgnctc.pas

this is sample for traders

unit edLgnCtc;

interface

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

type
  TedLgnCtcForm = class(TForm)
    GroupBox1: TGroupBox;
    JvStaticText2: TJvStaticText;
    JvStaticText4: TJvStaticText;
    DBEdit1: TDBEdit;
    dsCtc: TDataSource;
    spDynamicSkinForm1: TspDynamicSkinForm;
    OvcDbPictureField1: TOvcDbPictureField;
    JvFooter1: TJvFooter;
    CancelBtn: TJvFooterBtn;
    OkBtn: TJvFooterBtn;
    procedure OkBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
  public
  end;

var
  edLgnCtcForm: TedLgnCtcForm;

implementation

{$R *.dfm}

uses DataMod1;

procedure TedLgnCtcForm.OkBtnClick(Sender: TObject);
begin
  DM1.qLgnCtc.Post;
end;

procedure TedLgnCtcForm.CancelBtnClick(Sender: TObject);
begin
  DM1.qLgnCtc.Delete;
end;

end.