Selasa, 19 April 2011


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.

 

Tidak ada komentar:

Posting Komentar