unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    ejam: TEdit;

    etgl: TEdit;

    enama: TEdit;

    ekelas: TEdit;

    cnim: TComboBox;

    GroupBox1: TGroupBox;

    rlaki: TRadioButton;

    rperem: TRadioButton;

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure cnimClick(Sender: TObject);

    procedure rlakiClick(Sender: TObject);

    procedure rperemClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ejam.Text :=timetostr(time);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

cnim.Items.Add('12094386');

cnim.Items.Add('12094473');

cnim.Items.Add('12094445');

//dataseparator:='-';u pemisah antara tgl.bln &tahun

ShortDateFormat :='dd-mmmm-yyyy';

etgl.Text :=datetostr(date);

end;

procedure TForm1.cnimClick(Sender: TObject);

begin

if cnim.Text ='12094386'then

begin

enama.Text :='SAMSUL BAHRI';

ekelas.Text :='12.4H'

end

else

if cnim.Text ='12094473'then

begin

enama.Text :='YOVI';

ekelas.Text :='12.4H'

end

else

begin

enama.Text :='SANTI';

ekelas.Text :='12.4h'

end

end;

procedure TForm1.rlakiClick(Sender: TObject);

begin

rlaki.Enabled :=True;

rperem.Enabled :=false

end;

procedure TForm1.rperemClick(Sender: TObject);

begin

rperem.Enabled :=true;

rlaki.Enabled :=false

end;

end.