Class TUtamaReak (unit Reakmain) |
Inherits from
TForm
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);
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;
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);
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;