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.