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.

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;

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.

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.

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;

Cara Membuat Main Menu

Buat form baru
Pada palete standar pilih MainMenu(Menus) dan PopUpMenu dan letakan pada form
Double klik MainMenu sehingga akan muncul form baru isi Caption sesuai dengan rancangan anda enter untuk membuat sub klik/geser kanan untuk main
Tampilannya seperti ini

Dengan PopUpMenu juga sama caranya.
Setelah selesai double klik misal pada Input Data - Data Bengkel (double klik pada Data Bengkel) dan tuliskan seperti ini

procedure TMenuutama.DataBengkl1Click(Sender: TObject);
begin
Application.CreateForm(Tbengkel, bengkel);
 bengkel.show;
  TMenuutama1.Visible:=false;
end;

Nb : setelah implementation pada uses harus di isi dengan nama formnya contoh scriptnya

unit Menuutama;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DBXpress, DB, ADODB, SqlExpr, ExtCtrls, StdCtrls;

type
  TMenuutama = class(TForm)
    MainMenu: TMainMenu;
    PopupMenu1: TPopupMenu;
    Master1: TMenuItem;
    DataWorkOrde1: TMenuItem;
    DataBengkl1: TMenuItem;
    DataSupplier1: TMenuItem;
    DataSurveyor1: TMenuItem;
    DataMerekdanTypeKendaraan1: TMenuItem;
    DataSparePart1: TMenuItem;
    InputDataLaporan1: TMenuItem;
    LaporanQuotation1: TMenuItem;
    Laporan1: TMenuItem;
    Quotation1: TMenuItem;
    Keluar1: TMenuItem;
    Master3: TMenuItem;
    InputDataLaporan2: TMenuItem;
    Laporan2: TMenuItem;
    Keluar2: TMenuItem;
    DataWorkOrde2: TMenuItem;
    DataBengkel1: TMenuItem;
    DataSupplier2: TMenuItem;
    DataSurveyor2: TMenuItem;
    DataMerek1: TMenuItem;
    DataPart1: TMenuItem;
    LaporanQuotation2: TMenuItem;
    Quotation2: TMenuItem;
    Label1: TLabel;
    Merek1: TMenuItem;
    Label2: TLabel;
    procedure DataWorkOrde1Click(Sender: TObject);
    procedure DataBengkl1Click(Sender: TObject);
    procedure DataSupplier1Click(Sender: TObject);
    procedure DataSurveyor1Click(Sender: TObject);
    procedure DataMerekdanTypeKendaraan1Click(Sender: TObject);
    procedure DataSparePart1Click(Sender: TObject);
    procedure LaporanQuotation1Click(Sender: TObject);
    procedure Quotation1Click(Sender: TObject);
    procedure Supplier1Click(Sender: TObject);
    procedure Bengkel1Click(Sender: TObject);
    procedure Surveyor1Click(Sender: TObject);
    procedure Part1Click(Sender: TObject);
    procedure Keluar1Click(Sender: TObject);
    procedure Merek1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Master1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 Var TMenuutama1: TMenuutama;

implementation

uses Inputwo, Inputsupplier, Inputlaporanqu, Inputpart, Inputmerek, Inputsurveyor, Inputbengkel,
laporanqu, laporansupplier, laporanbengkel, laporanpart,laporanmerek, laporansurveyor, Login, Unit2;

{$R *.dfm}

Cara Membuat Form Login

Klik new form
Pada Palete standar pilih Button dan letakan pada form sebanyak 4.
Button 1 pada Properties Caption ubah menjadi user id, Button 2,3,4 juga pada captionnya di ubah menjadi password, login, keluar.
Double klik pada Button Login, kemudian isi seperti berikut :

procedure TULogin.Button1Click(Sender: TObject);
begin
if  (Edit1.Text <>'Adm') or (Edit2.Text<>'Adm') then
begin
 ShowMessage('ID atau password salah!');
    Edit1.Text:='';
    Edit2.Text:='';
    Edit1.SetFocus;
    Exit;
end
else
 TMenuutama1.Show;
 ULogin.Visible:=false;
 End;

Double klik Button Keluar, kemudian isi seperti berikut :

procedure TULogin.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

Kemudian simpan form.

Cara Koneksi Database Menggunakan Sql Server 2000

1. Buat form baru.

2. Pada Pallete ADO pilih ADOConection.

3. Pilih ADOQuery.

4. Pilih ADOCommand.

5. Klik ADOConection pada bagian Properties klik ConectionString (...) stelah  muncul tampilan klik Build yang kemudian diikuti tampilan Data Link Properti pilih Microsoft OLE DB Provider for SQL

Server klik Next dan akan muncul tampilan seperti ini :

•  pada no. 1 bisa ada isi dengan nama servernya atau kosongkan bila pada no 2 anda memilih use Windows NT Integrated Security
• pada no. 2 pilih use Windows NT Integrated Security bila server ada tidak menggunakan password
• bila menggunakan password dan user name pilih use specific user name and password, ini harus anda isi sesuai dengan user name dan password pada server anda.
• pada no 3. pilih select the database on the server, pilih nama database yang telah anda buat sebelumnya
• Klik Test Conection untuk mengecek apakah database bisa di koneksikan. Bila muncul error coba cek urutan pada no. 5 dan pastikan nama server benar.
• Bila koneksi sukses maka klik tombol ok 
• Pada bagian Properties Connected pilih True.
• Pada bagian Properties Login Prompt pilih False.

6. Klik ADOQuery

  Pada bagian Properties pilih Connection pilih ADOConnectio1 atau sesuai nama ADOConnection   yang anda ubah. Pada Bagian Active pilih false.
7. Klik ADOCommand
Pada bagian Properties pilih Connection pilih ADOConnection1 atau sesuai nama ADOCOnnection yang anda ubah
8. Simpan form dengan nama Modul