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}