Class TEditFAM (unit Isifam)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure BukaFAMClick(Sender: TObject);


procedure ComboBox1Change(Sender: TObject);


procedure FAMSelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);


procedure FormActivate(Sender: TObject);


procedure OKClick(Sender: TObject);


procedure SimpanFAM1Click(Sender: TObject);


procedure Popupitemclick;

Private declarations

Properties

Events

Variables

BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BukaFAM : TBitBtn;


BukaFAM1 : TOpenDialog;


ComboBox1 : TComboBox;


FAM : TStringGrid;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


NamaFile : TPanel;


NB1 : TMenuItem;


NM1 : TMenuItem;


NS1 : TMenuItem;


OK : TBitBtn;


PB1 : TMenuItem;


PM1 : TMenuItem;


PopupMenu1 : TPopupMenu;


PS1 : TMenuItem;


SimpanFAM : TSaveDialog;


SimpanFAM1 : TBitBtn;


ZE1 : TMenuItem;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure BukaFAMClick(Sender: TObject);


procedure ComboBox1Change(Sender: TObject);


procedure FAMSelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);


procedure FormActivate(Sender: TObject);


procedure OKClick(Sender: TObject);


procedure SimpanFAM1Click(Sender: TObject);


procedure Popupitemclick;

Private declarations


Properties


Events


Variables


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BukaFAM : TBitBtn;


BukaFAM1 : TOpenDialog;


ComboBox1 : TComboBox;


FAM : TStringGrid;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


NamaFile : TPanel;


NB1 : TMenuItem;


NM1 : TMenuItem;


NS1 : TMenuItem;


OK : TBitBtn;


PB1 : TMenuItem;


PM1 : TMenuItem;


PopupMenu1 : TPopupMenu;


PS1 : TMenuItem;


SimpanFAM : TSaveDialog;


SimpanFAM1 : TBitBtn;


ZE1 : TMenuItem;