?? edpegawai.~pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -