Class TUtamaReak (unit Reakmain)

Inherits from

TForm

Constructors



Functions

procedure btnExitClick(Sender: TObject);


procedure btnShowFAMClick(Sender: TObject);


procedure btnShowMembershipClick(Sender: TObject);


procedure Description1Click(Sender: TObject);


procedure FAM1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure Fungsisamar1Click(Sender: TObject);


procedure Fungsisamarbaru1Click(Sender: TObject);


procedure Keluar1Click(Sender: TObject);

if MessageDlg('File '+ExtractFilename(EditFAM.

procedure Keluar2Click(Sender: TObject);


procedure Manual1Click(Sender: TObject);


procedure Programmer1Click(Sender: TObject);


procedure Run1Click(Sender: TObject);


procedure SimpanFAM1Click(Sender: TObject);


procedure ThisProgram1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Properties

Events

Variables

btnDescription : TSpeedButton;


btnExit : TSpeedButton;


btnProgrammer : TSpeedButton;


btnRun : TSpeedButton;


btnShowFAM : TSpeedButton;


btnShowMembership : TSpeedButton;


BukaFAM1 : TMenuItem;


BukaFungsiSamar1 : TMenuItem;


Description1 : TMenuItem;


Edit1 : TMenuItem;


FAM1 : TMenuItem;


FAMbaru1 : TMenuItem;


File1 : TMenuItem;


Fungsisamar1 : TMenuItem;


Fungsisamarbaru1 : TMenuItem;


Image1 : TImage;


Keluar1 : TMenuItem;


Keluar2 : TMenuItem;


Keterangan1 : TMenuItem;


Label1 : TLabel;


Label2 : TLabel;


MainMenu1 : TMainMenu;


Manual1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


Panel1 : TPanel;


Panel10 : TPanel;


Panel2 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel8 : TPanel;


Panel9 : TPanel;


Programmer1 : TMenuItem;


Run1 : TMenuItem;


SimpanFAM1 : TMenuItem;


SimpanFungsiSamar1 : TMenuItem;


SpeedButton6 : TSpeedButton;


SpeedButton8 : TSpeedButton;


ThisProgram1 : TMenuItem;


Timer1 : TTimer;


FAMAda : Boolean;

Private declarations

FSAda : Boolean;



Constructors


Functions


procedure btnExitClick(Sender: TObject);


procedure btnShowFAMClick(Sender: TObject);


procedure btnShowMembershipClick(Sender: TObject);


procedure Description1Click(Sender: TObject);


procedure FAM1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure Fungsisamar1Click(Sender: TObject);


procedure Fungsisamarbaru1Click(Sender: TObject);


procedure Keluar1Click(Sender: TObject);

if MessageDlg('File '+ExtractFilename(EditFAM.BukaFAM1.Filename)+ ' mau disimpan', mtConfirmation,[mbYes, mbNo, mbCancel],0) = mrYes then begin EditFAM.SimpanFAM.Filename := EditFAM.BukaFAM1.Filename; EditFAM.SimpanFAM.Execute; end; if MessageDlg('File '+ExtractFilename(EditFAM.BukaFAM1.Filename)+ ' mau disimpan', mtConfirmation,[mbYes, mbNo, mbCancel],0) = mrCancel then exit; if MessageDlg('File '+ExtractFilename(EditFAM.BukaFAM1.Filename) + ' mau disimpan', mtConfirmation, mbYesNoCancel,0) = mrNo then close ;


procedure Keluar2Click(Sender: TObject);


procedure Manual1Click(Sender: TObject);


procedure Programmer1Click(Sender: TObject);


procedure Run1Click(Sender: TObject);


procedure SimpanFAM1Click(Sender: TObject);


procedure ThisProgram1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Properties


Events


Variables


btnDescription : TSpeedButton;


btnExit : TSpeedButton;


btnProgrammer : TSpeedButton;


btnRun : TSpeedButton;


btnShowFAM : TSpeedButton;


btnShowMembership : TSpeedButton;


BukaFAM1 : TMenuItem;


BukaFungsiSamar1 : TMenuItem;


Description1 : TMenuItem;


Edit1 : TMenuItem;


FAM1 : TMenuItem;


FAMbaru1 : TMenuItem;


File1 : TMenuItem;


Fungsisamar1 : TMenuItem;


Fungsisamarbaru1 : TMenuItem;


Image1 : TImage;


Keluar1 : TMenuItem;


Keluar2 : TMenuItem;


Keterangan1 : TMenuItem;


Label1 : TLabel;


Label2 : TLabel;


MainMenu1 : TMainMenu;


Manual1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


Panel1 : TPanel;


Panel10 : TPanel;


Panel2 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel8 : TPanel;


Panel9 : TPanel;


Programmer1 : TMenuItem;


Run1 : TMenuItem;


SimpanFAM1 : TMenuItem;


SimpanFungsiSamar1 : TMenuItem;


SpeedButton6 : TSpeedButton;


SpeedButton8 : TSpeedButton;


ThisProgram1 : TMenuItem;


Timer1 : TTimer;


FAMAda : Boolean;

Private declarations


FSAda : Boolean;