edgudang.~pas

this is sample for traders

unit edGudang;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, JvGradientCaption, DB, JvExStdCtrls, JvButton, JvCtrls,
  JvFooter, JvExExtCtrls, JvExtComponent, JvExControls, JvStaticText,
  StdCtrls, Mask, DBCtrls, ExtCtrls, SkinCtrls, ZSqlProcessor;

type
  TedGudangForm = class(TForm)
    JvFooter1: TJvFooter;
    btnCancel: TJvFooterBtn;
    btnSave: TJvFooterBtn;
    dsActive: TDataSource;
    ImageList1: TImageList;
    spSkinGroupBox1: TspSkinGroupBox;
    DBMemo1: TDBMemo;
    dbedName: TDBEdit;
    JvStaticText3: TJvStaticText;
    JvStaticText4: TJvStaticText;
    spSkinPanel1: TspSkinPanel;
    dbedCode: TDBEdit;
    btnChange: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
  public
    procedure Enter(CODE: String);
    procedure Edit;
  end;

var
  edGudangForm: TedGudangForm;
  bSaving: Boolean;
  NewRec: Boolean;

implementation

{$R *.dfm}

uses DataMod1, Funclib;

procedure TedGudangForm.Edit;
begin
  NewRec:=False;
  with TedGudangForm.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TedGudangForm.Enter(CODE: String);
begin
  NewRec:=True;
  DM1.qGudangEdit.Append;
  DM1.qGudangEdit.FieldByName('GDGCODE').Value := CODE;
  with TedGudangForm.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TedGudangForm.FormCreate(Sender: TObject);
begin
  DateSeparator := '-';ShortDateFormat := 'dd/mm/yyyy';
end;

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

procedure TedGudangForm.btnSaveClick(Sender: TObject);
begin
  bSaving:=True;
  try
  DM1.dtaCon.StartTransaction;
  DM1.qGudangEdit.ApplyUpdates;
  DM1.dtaCon.Commit;
  except
  DM1.dtaCon.Rollback;
  end;
end;

procedure TedGudangForm.btnCancelClick(Sender: TObject);
begin
  bSaving:=True;
  DM1.qGudangEdit.CancelUpdates;
end;

procedure TedGudangForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=bSaving;
end;

procedure TedGudangForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
      key := #0;
      Perform(WM_NEXTDLGCTL, 0, 0);
end;

end.