interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Menus, Buttons, Grids, DBGrids, StdCtrls, DBCtrls;
type
TForm15 = class(TForm)
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
PopupMenu1: TPopupMenu;
PBF1: TMenuItem;
DATAOBAT1: TMenuItem;
STOKAWALOBAT1: TMenuItem;
SATUANOBAT1: TMenuItem;
HARGAOBAT1: TMenuItem;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
PopupMenu3: TPopupMenu;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
PopupMenu4: TPopupMenu;
MenuItem11: TMenuItem;
MenuItem12: TMenuItem;
PopupMenu5: TPopupMenu;
MenuItem16: TMenuItem;
PEMBELIAN1: TMenuItem;
PERSEDIAANOBAT1: TMenuItem;
DBGrid2: TDBGrid;
Button1: TButton;
GroupBox2: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label10: TLabel;
Label6: TLabel;
edtJumlah: TEdit;
cmbObat: TDBLookupComboBox;
Edit1: TEdit;
Edit2: TEdit;
GroupBox4: TGroupBox;
Label5: TLabel;
Label1: TLabel;
Label4: TLabel;
edtKembalian: TEdit;
edtJumlahUang: TEdit;
edtTotalHarga: TEdit;
btnSimpan: TBitBtn;
btnTutup: TBitBtn;
BitBtnTambah: TBitBtn;
DBGrid1: TDBGrid;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
procedure ToolButton6Click(Sender: TObject);
procedure PBF1Click(Sender: TObject);
procedure DATAOBAT1Click(Sender: TObject);
procedure STOKAWALOBAT1Click(Sender: TObject);
procedure SATUANOBAT1Click(Sender: TObject);
procedure HARGAOBAT1Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure cmbObatClick(Sender: TObject);
procedure btnTutupClick(Sender: TObject);
procedure BitBtnTambahClick(Sender: TObject);
procedure btnSimpanClick(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure edtJumlahChange(Sender: TObject);
procedure edtJumlahUangChange(Sender: TObject);
procedure UbahAngka(Sender: TObject);
procedure edtTotalHargaChange(Sender: TObject);
procedure edtKembalianChange(Sender: TObject);
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form15: TForm15;
var a,b,c,d,e:real;
h:string;
implementation
uses Unit1, Unit3, Unit5, Unit6, Unit8, Unit10, Unit12, Unit13, Unit16;
{$R *.dfm}
function DecToStr(Dec: string): string;
var
i: Integer;
begin
result := '';
for i := 1 to Length(Dec) do
begin
if Dec[i] <> ThousandSeparator then
result := result + Dec[i];
end;
end;
function DecToFloat(Dec: string): Real;
begin
Dec := DecToStr(Dec);
result := StrToFloatDef(Dec, 0);
end;
procedure TForm15.BitBtnTambahClick(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
label11.Caption:='';
cmbObat.DataField :='';
edtJumlah.Text:='';
edtTotalHarga.Text:='';
edtJumlahUang.Text:='';
edtKembalian.Text:='';
datamodule16.ADOQuery6.SQL.Clear;
datamodule16.ADOQuery6.SQL.Add('select* from dbjual');
datamodule16.ADOQuery6.Open;
end;
procedure TForm15.btnSimpanClick(Sender: TObject);
begin
if(Edit1.Text = '') or (cmbObat.Text = '') or (Edit2.Text = '')or (edtJumlah.Text='')or(edtTotalHarga.Text='') or(edtJumlahUang.Text='') or (edtKembalian.Text='')then
MessageDlg('data tidak boleh ada kosong. . .! ! !', mtwarning, [mbok], 0)
else
begin
a:=DecToFloat(label9.Caption );
b:=DecToFloat(edtJumlah.Text);
c:=a-b;
label11.Caption :=DecToStr(FLOATTOSTR(c));
datamodule16.ADOQuery6.SQL.Clear;
datamodule16.ADOQuery6.SQL.Add('insert into dbjual(no_faktur, nama_obat, harga_satuan, jmlh_obat,totol_harga,jml_uang,jml_kembali)');
datamodule16.ADOQuery6.SQL.Add('values("'+edit1.Text+'","'+cmbObat.Text+'","'+edit2.Text+'","'+edtJumlah.Text+'","'+edtTotalHarga.Text+'","'+edtJumlahUang.Text+'","'+edtKembalian.Text+'")');
datamodule16.ADOQuery6.ExecSQL;
edit1.Text:='';
edit2.Text:='';
cmbObat.DataField :='';
edtJumlah.Text:='';
edtTotalHarga.Text:='';
edtJumlahUang.Text:='';
edtKembalian.Text:='';
//refresh data dengan adoquery1
datamodule16.ADOQuery6.SQL.Clear;
datamodule16.ADOQuery6.SQL.Add('select* from dbjual');
datamodule16.ADOQuery6.Open;
end;
datamodule16. ADOQuery2.SQL.Clear;
datamodule16. ADOQuery2.SQL.Add('update tblobat set stock="'+label11.Caption +'"');
datamodule16. ADOQuery2.SQL.Add('where nama="'+cmbObat.Text+'"');
datamodule16. ADOQuery2.ExecSQL;
datamodule16.ADOQuery2.SQL.Clear;
datamodule16.ADOQuery2.SQL.Add('select* from tblobat');
datamodule16.ADOQuery2.Open;
end;
procedure TForm15.btnTutupClick(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm15.Button1Click(Sender: TObject);
begin
datamodule16.ADOQuery2.SQL.Clear;
datamodule16.ADOQuery2.SQL.Add('select* from tblobat');
datamodule16.ADOQuery2.Open;
end;
procedure TForm15.cmbObatClick(Sender: TObject);
begin
//mencari data pada database
datamodule16.ADOQuery2.SQL.Clear;
datamodule16.ADOQuery2.SQL.Add('select* from tblobat where nama="'+cmbObat.Text+'"');
datamodule16.ADOQuery2.Open;
//jika No urut Ketemu
if not datamodule16.ADOQuery2.Eof then
begin
Edit2.Text:=datamodule16.ADOQuery2.FieldValues ['harga_default'];
Label9.Caption:=datamodule16.ADOQuery2.FieldValues ['stock'];
end;
if datamodule16.ADOQuery2.Eof then
begin
//merifresh data
datamodule16.ADOQuery2.SQL.Clear;
datamodule16.ADOQuery2.SQL.Add('select* from tblobat');
datamodule16.ADOQuery2.Open;
end;
end;
procedure TForm15.DATAOBAT1Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm15.Edit1Change(Sender: TObject);
begin
//mencari data pada database
datamodule16.ADOQuery6.SQL.Clear;
datamodule16.ADOQuery6.SQL.Add('select* from dbjual where no_faktur="'+edit1.Text+'"');
datamodule16.ADOQuery6.Open;
//jika No urut Ketemu
if not datamodule16.ADOQuery6.Eof then
begin
cmbObat.DataField:=datamodule16.ADOQuery6.FieldValues ['nama_obat'];
Edit2.Text:=datamodule16.ADOQuery6.FieldValues ['harga_satuan'];
edtJumlah.Text:=datamodule16.ADOQuery6.FieldValues ['jmlh_obat'];
edtTotalHarga.Text:=datamodule16.ADOQuery6.FieldValues ['totol_harga'];
edtJumlahUang.Text:=datamodule16.ADOQuery6.FieldValues ['jml_uang'];
edtKembalian.Text:=datamodule16.ADOQuery6.FieldValues ['jml_kembali'];
//edtJumlahUang.Text:=datamodule16.ADOQuery2.FieldValues ['harga_default'];
end;
if datamodule16.ADOQuery6.Eof then
begin
//edit1.Text:='';
edit2.Text:='';
cmbObat.DataField :='';
edtJumlah.Text:='';
edtTotalHarga.Text:='';
edtJumlahUang.Text:='';
edtKembalian.Text:='';
//merifresh data
datamodule16.ADOQuery6.SQL.Clear;
datamodule16.ADOQuery6.SQL.Add('select* from dbjual');
datamodule16.ADOQuery6.Open;
end;
end;
procedure TForm15.Edit2Change(Sender: TObject);
begin
//UbahAngka (Sender);
end;
procedure TForm15.edtJumlahChange(Sender: TObject);
var
a,b,c:real;
begin
a:=DecToFloat(edit2.Text);
b:=DecToFloat(edtJumlah.Text);
c:=a*b;
edtTotalHarga.TEXT:=DecToStr(FLOATTOSTR(c));
end;
procedure TForm15.edtJumlahUangChange(Sender: TObject);
var
a,b,c:real;
begin
//UbahAngka (Sender);
begin
a:=DecToFloat(edtTotalHarga.Text);
b:=DecToFloat(edtJumlahUang.Text);
c:=b-a;
edtKembalian.TEXT:=DecToStr(FLOATTOSTR(c));
end;
end;
procedure TForm15.edtKembalianChange(Sender: TObject);
begin
//UbahAngka (Sender);
end;
procedure TForm15.edtTotalHargaChange(Sender: TObject);
begin
//UbahAngka (Sender);
end;
procedure TForm15.HARGAOBAT1Click(Sender: TObject);
begin
form8.show;
end;
procedure TForm15.MenuItem1Click(Sender: TObject);
begin
form10.show;
end;
procedure TForm15.MenuItem2Click(Sender: TObject);
begin
form12.show;
end;
procedure TForm15.MenuItem3Click(Sender: TObject);
begin
form13.show;
end;
procedure TForm15.PBF1Click(Sender: TObject);
begin
FORM1.SHOW;
end;
procedure TForm15.SATUANOBAT1Click(Sender: TObject);
begin
form6.show;
end;
procedure TForm15.STOKAWALOBAT1Click(Sender: TObject);
begin
form5.show;
end;
procedure TForm15.ToolButton6Click(Sender: TObject);
begin
CLOSE;
end;
procedure TForm15.UbahAngka(Sender: TObject);
var
sRupiah: string;
iRupiah: Currency;
begin
sRupiah := TEdit(Sender).Text;
sRupiah := StringReplace(sRupiah,',','',[rfReplaceAll,rfIgnoreCase]); // hilangkan char koma , pemisah //ribuan selain IDR
sRupiah := StringReplace(sRupiah,'.','',[rfReplaceAll,rfIgnoreCase]); //remove char titik . pemisah //ribuan IDR
iRupiah := StrToCurrDef(sRupiah,0); // convert srupiah ke currency
//currency --> format ribuan
TEdit(Sender).Text := FormatCurr('#,###',iRupiah);
TEdit(Sender).SelStart := length(TEdit(Sender).text);
end;
end.
0 Comments