SCRIPT BUTTON KASIR DELPHI 7

#SCRIPT Awalan SebelumVar

Tulis dibawah begin procedure :

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type

  TForm1 = class(TForm)

    EKode: TEdit;

    ENamaBarang: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    EHarga: TEdit;

    EJumlah: TEdit;

    Label6: TLabel;

    Edit6: TEdit;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    CSatuan: TComboBox;

    TUlang: TButton;

#SCRIPT BUTTON T-HITUNG

Tulis dibawah begin :

    THitung: TButton;

    Label7: TLabel;

    procedure THitungClick(Sender: TObject);

    procedure TUlangClick(Sender: TObject);

  private

  Procedure Clear;

    { Private declarations }

  public

    { Public declarations }

  end;

#SCRIPT VAR

Tulis dibawah Var :

Form1: TForm1;

implementation

Procedure TForm1.Clear;

Begin

 EKode.Clear;

 Edit2.Clear;

 ESatuan.Item Index:=0;

 EHarga.Clear;

 Ejumlah.Clear;

end;

{$R *.dfm}

Procedure TForm1.FormCreate(Sender:TObject);

begin

  clear;

  ETotal.Caption:='0';

  while not ADoTable1.EoF do

  begin

    if(ADOTable1.Fieldo(1).AsString <> '') then

      ADOTable1.Delete

    else

      ADOTable1.Next;

  end;

end;

procedure TForm1.THitungClick(Sender: TObject);

Var

  harga, Jumlah, total, total_belanja : Integer;

begin

  ADOTable1.Append;

  ADOTable1.Fieldo(0).AsString:=EKode.Text;

  ADOTable1.Fieldo(1).AsString:=ENama.Text;

  ADOTable1.Fieldo(2).AsString:=CSatuan.Text;

  ADOTable1.Fieldo(3).AsString:=EHarga.Text;

  ADOTable1.Fieldo(4).AsString:=EJumlah.Text;

  harga:=StrTotal(EHarga.Text);

  jumlah:=StrTotal(Ejumlah.Text);

  Total:=harga*jumlah;

  ADOTable1.Fieldo(5).AsString:=InsToStr(Total);

  ADOTable1.Post;

  ADOTable1.Clear;

  ADOTable1.Open;

  Clear;

  total_belanja:=total*StrToInt(ETotal.Caption);

  ETotal.Caption:=InsToStr(total_belanja);

end;

#SCRIPT BUTTON T-ULANG

Tulis dibawah begin :

procedure TForm1.TUlangClick(Sender: TObject);

begin

  clear;

  ETotal.Caption:='0';

  while not ADoTable1.EoF do

  begin

    if(ADOTable1.Fieldo(1).AsString <> '') then

      ADOTable1.Delete

    else

      ADOTable1.Next;

end;

end.

Subscribe to receive free email updates: