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.