Program Perpustakaan Sederhana

LISTING PROGRAM

procedure TForm1.FormCreate(Sender: TObject);

begin

Combobox1.Items.Add(‘001');

Combobox1.Items.Add('002');

Combobox1.Items.Add('003');

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='0';

shortdateformat:='dd-mmmm-yyyy';

edit2.Text:=datetostr(date);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

edit1.Text:=timetostr(time);

end;

procedure TForm1.ComboBox1Click(Sender: TObject);

begin

if combobox1.Text='001'then

edit5.Text:='novel'

else

if combobox1.Text='002'then

edit5.Text:='KOMPUTER'

else

edit5.Text:='UMUM'

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if radiobutton1.checked=true then

radiobutton2.checked:=false;

edit7.Text:='1180000';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if radiobutton2.checked=true then

radiobutton1.Checked:=false;

edit7.Text:='980000';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='0';

edit3.SetFocus;

COMBOBOX1.Text:='';

Radiobutton1.checked:=false;

Radiobutton2.checked:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if(application.MessageBox('Anda Yakin Ingin Keluar???','Informasi',

MB_Yesno+MB_iconwarning)=idyes)then

close

end;

end.