edpegawai.pas

this is sample for traders

unit edPegawai;

interface

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

type
  TedPegawaiForm = class(TForm)
    GroupBox1: TGroupBox;
    Panel3: TPanel;
    btnChange: TButton;
    DBEDCODE: TDBEdit;
    JvStaticText3: TJvStaticText;
    dbedName: TDBEdit;
    JvStaticText1: TJvStaticText;
    JvStaticText2: TJvStaticText;
    JvStaticText4: TJvStaticText;
    JvDBLookupCombo1: TJvDBLookupCombo;
    JvDBLookupCombo2: TJvDBLookupCombo;
    JvDBDateEdit2: TJvDBDateEdit;
    JvStaticText5: TJvStaticText;
    JvStaticText6: TJvStaticText;
    JvStaticText7: TJvStaticText;
    JvStaticText8: TJvStaticText;
    JvStaticText9: TJvStaticText;
    JvStaticText10: TJvStaticText;
    JvStaticText11: TJvStaticText;
    JvStaticText12: TJvStaticText;
    JvStaticText13: TJvStaticText;
    JvStaticText14: TJvStaticText;
    JvStaticText15: TJvStaticText;
    JvStaticText16: TJvStaticText;
    JvStaticText17: TJvStaticText;
    JvStaticText18: TJvStaticText;
    JvDBComboBox1: TJvDBComboBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    JvDBRichEdit1: TJvDBRichEdit;
    Foto: TJvDBImage;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    JvDBDateEdit1: TJvDBDateEdit;
    JvDBComboBox2: TJvDBComboBox;
    JvDBComboBox3: TJvDBComboBox;
    DBEdit9: TDBEdit;
    dsActive: TDataSource;
    dsDepartment: TDataSource;
    dsJabatan: TDataSource;
    JvFooter1: TJvFooter;
    btnCancel: TJvFooterBtn;
    btnSave: TJvFooterBtn;
    ImageList1: TImageList;
    spDynamicSkinForm1: TspDynamicSkinForm;
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
    procedure Edit;
    procedure Enter(NIP: String);
  end;

var
  edPegawaiForm: TedPegawaiForm;

implementation

{$R *.dfm}

uses DataMod1, main;

{ TedPegawaiForm }

procedure TedPegawaiForm.Edit;
begin
  //edPegawaiForm:=TedPegawaiForm.Create(nil);
  //edPegawaiForm.ShowModal;
  mainform.CreateMDIChild(TEdPegawaiForm);
end;

procedure TedPegawaiForm.Enter(NIP: String);
begin
  DM1.qPegawaiEdit.Append;
  DM1.qPegawaiEdit.FieldByName('PEGNIP').Value := NIP;
  //edPegawaiForm:=TedPegawaiForm.Create(nil);
  //edPegawaiForm.ShowModal;
  mainform.CreateMDIChild(TEdPegawaiForm);
end;

procedure TedPegawaiForm.btnSaveClick(Sender: TObject);
begin
  DM1.qPegawaiEdit.ApplyUpdates;
  DM1.qPegawaiEdit.CommitUpdates;
  DM1.qPegawai.Refresh;
  Close;
end;

procedure TedPegawaiForm.btnCancelClick(Sender: TObject);
begin
  DM1.qPegawaiEdit.CancelUpdates;
  Close;
end;

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

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

end.