Disini dah saya tulis List programnya jadi tinggal Copas ja……………
Moga bermanfaat
procedure TForm1.Button1Click(Sender: TObject);
var a,b :string;
begin
a:=(ComboBox1.text);
b:=(ComboBox2.text);
if a=’S1′then
if b=’SIANG’ then
begin
edit1.text:=’1750000′;
edit2.text:=’1850000′;
edit3.text:=’400000′;
edit4.text:=currtostr(strtocurr(edit1.Text)+ strtocurr(edit2.Text)+ strtocurr(edit3.Text));
end;
if a=’S1′then
if b=’MALAM’ then
begin
edit1.text:=’2200000′;
edit2.text:=’2100000′;
edit3.text:=’400000′;
edit4.text:=currtostr(strtocurr(edit1.Text)+ strtocurr(edit2.Text)+ strtocurr(edit3.Text));
end;
if a=’D3′ then
if b=’SIANG’ then
begin
edit1.text:=’1650000′;
edit2.text:=’1750000′;
edit3.text:=’400000′;
edit4.text:=currtostr(strtocurr(edit1.Text)+ strtocurr(edit2.Text)+ strtocurr(edit3.Text));
end;
if a=’D3′then
if b=’MALAM’ then
begin
edit1.text:=’2000000′;
edit2.text:=’2000000′;
edit3.text:=’400000′;
edit4.text:=currtostr(strtocurr(edit1.Text)+ strtocurr(edit2.Text)+ strtocurr(edit3.Text));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
CLOSE
end;
END.
