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.
Sunday, January 22, 2012
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;
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}
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.
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.
Tuesday, January 3, 2012
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 :
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.
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
Subscribe to:
Posts (Atom)