Tuesday, September 4, 2012

Script Form Penjualan dengan Stok

Berikut adalah contoh script form penjualan yang akan langsung memotong stok yang ada.

<!--04047d954f298406c70f609d6a8301d5-->
procedure TPenjualan.Edit2KeyPress(Sender: TObject; var Key: Char);
var
edi1:real;
edi2,edi3,edi4 :string;
begin
datamodule2.ADOQuery1.Active:=true;
if key = #13 then
begin
if (datamodule2.ADOQuerypart['stok']<0) or (datamodule2.ADOQuerypart['stok']<(strtoint(edit2.Text))) then
begin
showmessage('Stok Tidak Cukup');
exit;
end
else
datamodule2.ADOQuerypart.Edit;
datamodule2.ADOQuerypart.FieldValues['stok']:=datamodule2.ADOQuerypart.FieldValues['stok']-(strtoint(edit2.Text));
datamodule2.ADOQuerypart.Post;

datamodule2.ADOQuery1.Active:=true;

datamodule2.ADOQuery1.Append;
datamodule2.ADOQuery1['kd_brng']:=edit5.Text;

datamodule2.ADOQuery1['nm_brng']:=dbedit11.Text;

datamodule2.ADOQuery1['hrg_jual']:=edit1.text;

datamodule2.ADOQuery1['qty']:=edit2.text;

datamodule2.ADOQuery1['hrg_beli']:=dbedit3.Text;

edi2:=floattostr((strtofloat(Edit1.Text))*(strtofloat(edit2.Text)));
datamodule2.ADOQuery1['total']:=Edi2;

edi3:=floattostr((strtofloat(Edit2.Text))*(strtofloat(dbedit3.Text)));
datamodule2.ADOQuery1['total2']:=Edi3;



datamodule2.ADOQuery1.Post;
datamodule2.ADOQuery1['total']:=edi1;
edit6.Text:=floattostr(edi1+(strtofloat(edit6.Text)));


  edit5.Text:='';
  dbedit11.Text:='';
    edit1.Text:='';
      edit2.Text:='';
        dbedit3.Text:='';
        edit10.Text:='';
  Penjualan1.ActiveControl:=Edit5;


end;
end;

Demikian scriptnya semoga bermanfaat.

Saturday, March 3, 2012

Script Form Laporan Menggunakan Crystal Report

Berikut contoh scriptnya rubah sesuaikan dengan database dan bentuk laporan anda .

procedure TForm14.Button1Click(Sender: TObject);
begin
U_Menuku.FormStyle:=fsNormal;
begin
//datamodule2.ADOConnectionSISAbsen.ConnectionString:='''Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=1234;Initial Catalog=sysdatabase;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=server;Use Encryption for Data=False;Tag with column collation when possible=False''';
With CrystalReport1 do
begin
//ReportFileName := 'Laporan_Kerusakan.rpt';
CrystalReport1.Connect:='(Provider=SQLOLEDB.1;Persist Security Info=False;User ID=USER-PC;Initial Catalog=sysdatabase;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=server;Use Encryption for Data=False)';
SelectionFormula:='{TabelKerusakan.tanggal} >= ''' + DateToStr(DateTimePicker1.Date) + ''' and {TabelKerusakan.tanggal} <= ''' + DateToStr(DateTimePicker2.Date) + ''' ';
Destination:= crptToWindow;
WindowState:=crptMaximized;
RetrieveDataFiles;
Action:=1;
 Close;
end;

end;
     end;

Wednesday, February 8, 2012

Form Menampilkan Laporan

Berikut script membuat atau menampilkan laporan secara sederhana dengan delphi :

procedure Tlaporanbengkel.BtntampilkanClick(Sender: TObject);
begin
datamodule2.ADOQuerybengkel.Active:=true;
 datamodule2.ADOQuerybengkel.Filter:='id_bngkl >='+QuotedStr(kd1.Text)+
'and id_bngkl<='+Quotedstr(kd2.Text);;
datamodule2.ADOQuerybengkel.FilterED:=TRUE;
    qrlapbngkl.preview;

end;

Selamat mencoba.




Sunday, January 22, 2012

Script Membuat Enkripsi Password

berikut contoh scriptnya :
 procedure TForm4.SpeedButton1Click(Sender: TObject);
 var text1 : string;
 pos : integer;
 begin text1:= Edit2.Text;
 for pos := 1 to length(text1) do text1[pos] := chr(((ord(text1[pos])* 2)div 1)+ 2); 

Terus ditambahkan sesuai perintah simpan.


Wednesday, January 4, 2012

Cara Membuat Auto Number/Nomor Otomatis

Double klik pada tombol tambah/baru atau tombol yang mengindikasikan untuk menambahkan data.
Kemudian tulis script dibawah ini, ubah sesuaikan dengan form yang anda buat.

procedure Tbengkel.BitBtn1Click(Sender: TObject);
var id, idjadi, nol:string;
begin
  Edit1.Text:='';
       Edit1.Enabled:=false;
       Edit2.Text:='';
       Edit3.Text:='';
       Edit4.Text:='';
       Edit5.Text:='';
       Edit6.Text:='';
       Edit7.Text:='';
       Edit8.Text:='';
nol:='00';

with datamodule2.ADOQuerybengkel do
begin
 datamodule2.ADOQuerybengkel.SQL.Clear;
datamodule2.ADOQuerybengkel.SQL.Add('select * from bengkel order by id_bngkl');
datamodule2.ADOQuerybengkel.Open;

    if Recordcount > 0 then
    begin
    last;
    id:=FieldByname('id_bngkl').AsString;
    idjadi:=RightStr(id,2);
    id:=Inttostr(Strtoint(idjadi)+1);
    idjadi:='BKL'+LeftStr(nol,2-length(id))+id;
    Edit1.Text:=idjadi;
    end else
    begin
    Edit1.Text:='BKL01';
    end;
end;

end;