Anda dapat dengan mudah membuat kasir sederhana untuk usaha anda sebagai seorang pemula.
Tentu dengan cara yang mudah dan efisien. Tanpa perlu menghabiskan waktu dan biaya yang mahal. bagaimana caranya???
1. Langkah pertama yang harus anda lakukan adalah desain program deng menggunakan tools-tools yag digunakan antara lain :
o Text
o Combobox
o Edit
o Bitbtn
o Stringgrid
2. Berikan script pada tombol masuk
procedure TForm1.BitBtn1Click(Sender: TObject);
var k : integer;
begin
with StringGrid1 do begin {menyingkat stringgrid}
k := strtoint(edit5.Text); {k untuk memasukkan nilai awalnya}
cells[0,k]:= ComboBox1.Text;
cells[1,k]:= edit1.Text;
cells[2,k]:= edit2.Text;
cells[3,k]:= edit3.Text;
cells[4,k]:= IntToStr(StrToInt(edit2.Text)* StrToInt(edit3.Text));;
edit5.Text:=inttostr(strtoint(edit5.Text)+1);
rowcount:=rowcount+1; {untuk menambahkan jumlah dari rownya}
end;
end;
3. Berikan script pada tombol hitung
procedure TForm1.BitBtn3Click(Sender: TObject);
var k, totbayar : integer;
begin
{StringGrid1.clear; }
for k := 1 to StringGrid1.RowCount-1 do
totbayar := totbayar + StrToInt(StringGrid1.Cells[4,k]);
edit4.Text := IntToStr(totbayar);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var k : integer;
begin
for k := 1 to StringGrid1.RowCount-1 do
begin
stringGrid1.Cells[0,k] :=' ';
StringGrid1.Cells[1,k] :=' ';
StringGrid1.Cells[2,k] :=' ';
StringGrid1.Cells[3,k] :=' ';
StringGrid1.Cells[4,k] :=' ';
end;
edit1.Clear;
edit2.Clear;
edit3.clear;
ComboBox1.SetFocus;
{edit5.Text:=inttostr(strtoint(edit5.Text)+1);
rowcount:=rowcount+1; }
end;
4. Isikan Script pada tombol bersih
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.clear;
ComboBox1.SetFocus;
end;
Berikan script paa tombol batal
procedure TForm1.BitBtn2Click(Sender: TObject);
var k : integer;
begin
for k := 1 to StringGrid1.RowCount-1 do
begin
stringGrid1.Cells[0,k] :=' ';
StringGrid1.Cells[1,k] :=' ';
StringGrid1.Cells[2,k] :=' ';
StringGrid1.Cells[3,k] :=' ';
StringGrid1.Cells[4,k] :=' ';
end;
edit1.Clear;
edit2.Clear;
edit3.clear;
ComboBox1.SetFocus;
{edit5.Text:=inttostr(strtoint(edit5.Text)+1);
rowcount:=rowcount+1; }
end;
5. Dan langkah terakhir yaitu memberikan script pada tombol close
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
close;
end;
[Joko-Sugiono]
0 Komentar