salespay.pas

this is sample for traders

unit SalesPay;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, JvExMask, JvToolEdit, JvExControls, JvDBLookup,
  JvStaticText, DBCtrls, DynamicSkinForm, ImgList, JvExStdCtrls, JvButton,
  JvCtrls, JvFooter, ExtCtrls, JvExExtCtrls, JvExtComponent, DB,
  JvDBControls;

type
  TSalesPayForm = class(TForm)
    JvStaticText2: TJvStaticText;
    LKSalesman: TJvDBLookupCombo;
    JvStaticText5: TJvStaticText;
    JvStaticText1: TJvStaticText;
    DBEdit1: TDBEdit;
    JvFooter1: TJvFooter;
    btnCancel: TJvFooterBtn;
    btnOk: TJvFooterBtn;
    ImageList1: TImageList;
    spDynamicSkinForm1: TspDynamicSkinForm;
    dsPayEdit: TDataSource;
    dsPegawai: TDataSource;
    SJDateEdit: TJvDBDateEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnOkClick(Sender: TObject);
  private
  public
  end;

var
  SalesPayForm: TSalesPayForm;

implementation

{$R *.dfm}

uses DataMod1;

procedure TSalesPayForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TSalesPayForm.btnOkClick(Sender: TObject);
begin
  DM1.qPayEdit.FieldByName('PAYED').Value:=1;
  DM1.qPayEdit.Post;
  DM1.qPayEdit.ApplyUpdates;
  DM1.qPayEdit.CommitUpdates;
end;

end.