Altaifa Software Developer

Free Ebook/Gratis Pembuatan Produk Aplikasi Database dengan Delphi 2010 (PDF)

Abdellah — Tue, 14 Jun 2011 07:52:01 +0000

Dalam buku ini saya berusaha tetap berkonsentrasi pada penjelasan teknik pembuatan aplikasi database itu sendiri, daripada membahas bagaimana menguasai Delphi 2010 yang cakupannya tentu lebih luas. Teknik pendukung saya bahas ketika dalam kasus tertentu diperlukan. Untuk membaca buku ini, dibutuhkan pengetahuan tentang dasar pemrograman Delphi.

Saya menekankan pada aspek produktivitas daripada pendalaman konsep pemrograman. Sebab dilihat dari sisi produksi, kebutuhan (atau lebih tepatnya keinginan) konsumen lebih diutamakan. Dan konsumen selalu ingin produk aplikasi/software yang dapat dibuat dengan cepat, stabil, sesuai spesifikasi yang diharapkan, dengan biaya murah. Umumnya konsumen tidak terlalu memperdulikan bagaimana aplikasi itu dibuat, apakah dengan teknik canggih dan rumit, atau dengan teknik mudah dan biasa-biasa saja, apakah dengan mengikuti spesifikasi akademis, atau mengedepankan sisi praktis.

Database yang pertama kali diperkenalkan dalam buku ini adalah Access.

Database kedua yang diperkenalkan dalam buku ini adalah MySQL, karena popularitas dan dukungan perintah SQL yang menurut hemat saya lebih lengkap daripada Access, dan sebagai langkah lanjut untuk memahami database lainnya. Karena hampir semua produk database, mempunyai konsep yang sama.

Juga saya bahas dalam buku ini pembuatan report, help, dan update sehingga diharapkan pembaca mempunyai kemampuan yang utuh dan lengkap tentang dasar-dasar pembuatan produk software profesional.

Free Download Link (.pdf)
Source Code Buku (.7z)
Password Extract Source Code
Untuk Source Code, silahkan extract dengan 7Zip

Filed under: Delphi, Tips dan Trik Delphi

Application –vs- Component Developer

Abdellah — Sat, 11 Jun 2011 06:53:42 +0000

Dalam suatu interview, beberapa calon programmer berkata sebagai berikut:

“ Saya adalah developer aplikasi, saya menggunakan komponen, dan tidak membuat komponen.”

Saya langsung berpikir, ‘ehem, saya ketemu dengan salah satu programmer drag and drop yang tidak mengerti OOP’. Karena kami bekerja dengan komponen buatan sendiri, calon programmer yang berkata demikian tidak mungkin dipekerjakan di perusahaan kami.

Perkecualian bagi programmer Delphi (di luar wawancara rekruitmen programmer) yang sangat akrab dengan OOP namun belum pernah membuat komponen. Saya menyadari bayangan sulitnya membuat komponen sering menjadi penghalang. Pada postingan mendatang saya akan bantah hal ini, dan akan saya tunjukkan betapa mudahnya membuat komponen. Pada posting kali ini saya akan tunjukkan kenapa sebagai developer aplikasi pun kita tetap dituntut mampu untuk membuat komponen.

Pada tahun 2007, kami memutuskan untuk mengkonversi aplikasi database yang masih menggunakan BDE ke DBX. Untuk melakukan hal ini, kami membuat suatu aplikasi yang dapat menkonversi seluruh komponen TQuery ke komponen TDbxQuery.

Proses pengkoversian ke model 3 komponen DBX(TSqlQuery + TProvider + TClientDataset) akan sangat rawan terjadi kesalahan. Dan juga akan menghabiskan lebih banyak waktu dari yang dapat kami alokasikan.

Karena itu kami memutuskan untuk menghabiskan beberapa hari untuk membuat suatu komponen yang terlihat dan mempunyai sifat yang mirip seperti TQuery namun secara internal mempunyai implementasi yang berbeda dengan menggunakan model 3 komponen DBX. Komponen tersebut mirip dengan TSimpleDataset namun mempunyai property dan function dengan nama yang sama dengan property dan function dari TQuery yang digunakan dalam aplikasi kami. Yang dengan hal tersebut memungkinkan bagi kami untuk mencari dan mengganti instance TQuery dengan TDbxQuery. Ini membuat kami dapat menyelesaikan proses konversi dalam waktu lebih singkat daripada jika kami langsung me-replace satu persatu komponen dalam tiap form dengan komponen yang sudah built in di Delphi. Selama kami hanya berurusan dengan implementasi kode komponen buatan tersebut, kami dapat menampilkan berbagai fungsi yang dibutuhkan dari model tiga komponen tersebut dengan tanpa secara langsung merubah kode aplikasi.

Ketika proses konversi ini berlangsung, tanpa disadari bahwa kami telah menggunakan ratusan komponen TDBGrid dalam aplikasi. Maka kami memutuskan mengembangkan aplikasi untuk dapat digunakan dalam jangka panjang. Kami mengganti komponen TDBGrid dengan TDwsGrid. Awal mulanya kode komponen TDwsGrid sebagai berikut. Tidak ada perbedaan sama sekali dengan kode TDBGrid.

TDwsGrid = class(TCustomDBGrid)

published

property Align;

property Anchors;

property BiDiMode;

property BorderStyle;

property Color;

property Columns stored False;

property Constraints;

property Ctl3D;

property DataSource;

property DefaultDrawing;

property DragCursor;

property DragKind;

property DragMode;

property Enabled;

property FixedColor;

property Font;

property ImeMode;

property ImeName;

property Options;

property ParentBiDiMode;

property ParentColor;

property ParentCtl3D;

property ParentFont;

property ParentShowHint;

property PopupMenu;

property ReadOnly;

property ShowHint;

property TabOrder;

property TabStop;

property TitleFont;

property Visible;

property OnCellClick;

property OnColEnter;

property OnColExit;

property OnColumnMoved;

property OnDrawColumnCell;

property OnDblClick;

property OnDragDrop;

property OnDragOver;

property OnEditButtonClick;

property OnEndDock;

property OnEndDrag;

property OnEnter;

property OnExit;

property OnKeyDown;

property OnKeyPress;

property OnKeyUp;

property OnMouseActivate;

property OnMouseDown;

property OnMouseEnter;

property OnMouseLeave;

property OnMouseMove;

property OnMouseUp;

property OnMouseWheel;

property OnMouseWheelDown;

property OnMouseWheelUp;

property OnStartDock;

property OnStartDrag;

property OnTitleClick;

end;

Pada suatu hari kemudian, ketika saya mengamati komponen TDwsGrid, kini telah mempunyai tambahan kemampuan untuk:

- Mengurutkan data sesuai dengan kolom Title yang diklik

- Posisi dan ukuran kolom dapat diatur dalam suatu file konfigurasi

- Mempunyai fasilitas ekspor ke file Excel

Memang kemampuan yang ditambahkan dalam komponen tersebut bukan sesuatu yang sangat hebat, namun dengannya memungkinkan bagi kita untuk menambah banyak fungsionalitas TDBGrid tanpa harus menuliskan disetiap form yang menggunakan komponen ini.

Ketika hal ini kami jelaskan pada developer aplikasi, bisa jadi salah satu dari mereka akan bertanya: “Kenapa tidak membeli komponen pihak ketiga saja yang mempunyai fitur seperti itu?” Jawab Saya “Kami sudah melakukannya, ketika kami mendapatkan anggaran, kami telah membeli TMS Subscription dan sekarang kami menggunakan TDBAdvGrid pada banyak tempat.”

Namun peristiwa yang kami alami pada kasus TDBGrid masih juga terjadi pada paket komponen pihak ketiga. Saat ini kami dalam proses pembuatan komponen baru kami sebagai berikut:

TdwsAdvDbGrid = class(TAdvDBGrid)
end;

Sehingga memungkinkan bagi kami untuk menambahkan fungsi tambahan ketika dibutuhkan. Memang betul, saat ini kami belum memerlukan untuk menambahkan fungsi-fungsi baru. Namun peristwa yang kami alami terdahulu menjadi pelajaran berharga buat kami.

Hal tersebut diatas tidak hanya diterapkan untuk fungsi tambahan, namun bisa kita terapkan untuk mensetting nilai property tertentu yang berlaku secara global. Misalkan, setiap menggunakan komponen TEdit Anda harus merubah Font ke nilai tertentu yang telah Anda tetapkan. Maka daripada mengerjakan berulang-ulang merubah font setiap kali Anda meletakkan component TEdit pada form, Anda dapat membuat sendiri suatu komponen, katakanlah TMyEdit, yang dalam kode nya, kita tambahkan kode untuk merubah Font. Sehingga setiap kali TMyEdit diletakkan pada form, otomatis Font nya telah berganti ke Font yang kita inginkan di awal mula.

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TMyEdit = class(TEdit)
  public
    constructor Create(AOwner : TComponent); override;
  end;

procedure Register;

implementation
{ TMyEdit }

constructor TMyEdit.Create(AOwner: TComponent);
begin
  inherited;
  Font.Name := 'My Crazy Font';
end;

Dengan demikian, pada dasarnya sudah menjadi keharusan, bahwa seorang developer haruslah bisa membuat aplikasi dan sekaligus mampu membuat komponen. Menghabiskan sedikit waktu untuk mempelajari pembuatan komponen akan membantu meningkatkan kemampuan Anda untuk membuat aplikasi yang besar.

Diterjemahkan secara bebas dari sumber:
http://www.delphifeeds.com/go/f/80691?utm_source=feedburner&utm_medium=feed&utm_campaign=Feed%3A+delphifeeds+%28DelphiFeeds.com%29

Oleh: mambamaestro: altaifa-dev.co.cc

Filed under: Delphi, Tips dan Trik Delphi

Biogas Kantong Plastik Pengganti LPG

Abdellah — Sat, 02 Oct 2010 01:56:37 +0000

Dusun Bendrong, Desa Argosari, Kecamatan Jabung Malang, telah berhasil mengembangkan biogas dengan menggunakan kantong plastik sebagai tangki gas dengan bahan dasar kotoran sapi. Akibat sentuhan Muhamad Slamet, elpiji subsidi pemerintah menjadi barang tak laku di dusun terpencil itu. Warga menjadi kelebihan bahan bakar gas, karena reaktor gas yang mereka bangun.

Filed under: Uncategorized

Istilah-istilah Pajak

Abdellah — Wed, 22 Sep 2010 07:42:28 +0000

DBKB = Daftar Biaya Komponen Bangunan
DJP = Direktorat Jenderal Pajak
KPP = Kantor Pelayanan Pajak
NIR = Nilai Indikasi Rata-rata
NJOP = Nilai Jual Objek Pajak
NOP = Nilai Objek Pajak
OP = Objek Pajak
PBB = Pajak Bumi dan Bangunan
PST = Pelayanan Satu Tempat
SISMIOP = Sistem Manajemen Informasi Objek Pajak
SP = Subyek Pajak
SPOP = Surat Pemberitahuan Objek Pajak
LSPOP = Lampiran SPOP
SPPT = Surat Pemberitahuan Pajak Terhutang
STTS = Surat Tanda Terima Setoran
ZNT = Zona Nilai Tanah
WP = Wajib Pajak

Filed under: Pajak

MVC Dalam Delphi Programming II – Meniru Konsep CI

Abdellah — Mon, 02 Aug 2010 09:04:15 +0000

CATATAN: Jangan menggunakan variabel bertipe interface untuk menyimpan data bertipe TObject. Bikin Error!

CI atau Code Igniter mempunyai konsep mvc yang menarik. Dibanding Tulisan saya sebelumnya, model mvc yang ditawarkan oleh CIebih elegan. Dibandingkan konsep MVC yang saya gambarkan dulu, yang hanya memanggil/memanfaatkan prosedur konsep MVC CI memanfaatkan kelas. Dalam tutorial awal CI kita lihat contoh contoh kodingnya:

Controller:

View

Beberapa konsep yang perlu diperhatikan disini:

1. Kemunculan View diatur oleh controller

2. Apa (data apa) yang ditampilkan View di-supply oleh controller. Dalam definisi lengkap MVC, controller mendapatkan data dari Model (dapat berupa perintah sql dalam database).

3. Data yang dipertukarkan antara View dengan controller mempunyai tipe data generik, dalam bentuk list.

Konsep ini dapat diterapkan diterjemahkan di dalam delphi sebagai berikut:

- Controller seharusnya berupa Class

- Data harus bertipe generik. Karena Delphi strong type, hal tersebut dapat diakali dengan menggunakan data yang bertipe data objek, dan mempunyai property yang memungkinkan diakses dalam tipe data apapun.

Saya menerjemahkan model MVC code igniter tersebut di atas menjadi sebagai berikut:

unit con_canvaser;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Forms,

Dialogs, Controls, TypInfo, SDKHelper;

type

TErrMsg = string;

IMvcData = interface(IInterface)

['{7293B5D3-FC1F-4DB5-B764-3F94AD2427C8}']

procedure SetValueStr(const Name: string; const Value: string);

procedure SetValueInt(const Name: string; const Value: Integer);

procedure SetValueDouble(const Name: string; const Value: Double);

procedure SetValueCurrency(const Name: string; const Value: Currency);

procedure SetValueVar(const Name: string; const Value: Variant);

procedure SetValueDate(const Name: string; const Value: TDateTime);

procedure SetValueObj(const Name: string; const Value: TObject);

function GetValueStr(const Name: string): string;

function GetValueInt(const Name: string): Integer;

function GetValueDouble(const Name: string): Double;

function GetValueCurrency(const Name: string): Currency;

function GetValueVar(const Name: string): Variant;

function GetValueDate(const Name: string): TDateTime;

function GetValueObj(const Name: string): TObject;

property ValueStr[const Name: string]: string read GetValueStr Write SetValueStr;

property ValueInt[const Name: string]: Integer read GetValueInt Write SetValueInt;

property ValueDouble[const Name: string]: Double read GetValueDouble Write SetValueDouble;

property ValueCurrency[const Name: string]: Currency read GetValueCurrency Write SetValueCurrency;

property ValueVar[const Name: string]: Variant read GetValueVar Write SetValueVar;

property ValueDate[const Name: string]: TDateTime read GetValueDate Write SetValueDate;

property ValueObj[const Name: string]: TObject read GetValueObj Write SetValueObj;

end;

TDateTimeVar = class(TInterfacedObject,IInterface)

private

FData: TDateTime;

public

constructor Create(InitValue: TDateTime);

property Data: TDateTime read FData write FData;

end;

TMvcData = class(TInterfacedObject, IMvcData)

private

FList: TStringList;

public

constructor Create;

destructor Destroy; override;

procedure SetValueStr(const Name: string; const Value: string);

procedure SetValueInt(const Name: string; const Value: Integer);

procedure SetValueDouble(const Name: string; const Value: Double);

procedure SetValueCurrency(const Name: string; const Value: Currency);

procedure SetValueVar(const Name: string; const Value: Variant);

procedure SetValueDate(const Name: string; const Value: TDateTime);

procedure SetValueObj(const Name: string; const Value: TObject);

function GetValueStr(const Name: string): string;

function GetValueInt(const Name: string): Integer;

function GetValueDouble(const Name: string): Double;

function GetValueCurrency(const Name: string): Currency;

function GetValueVar(const Name: string): Variant;

function GetValueDate(const Name: string): TDateTime;

function GetValueObj(const Name: string): TObject;

property ValueStr[const Name: string]: string read GetValueStr Write SetValueStr;

property ValueInt[const Name: string]: Integer read GetValueInt Write SetValueInt;

property ValueDouble[const Name: string]: Double read GetValueDouble Write SetValueDouble;

property ValueCurrency[const Name: string]: Currency read GetValueCurrency Write SetValueCurrency;

property ValueVar[const Name: string]: Variant read GetValueVar Write SetValueVar;

property ValueDate[const Name: string]: TDateTime read GetValueDate Write SetValueDate;

property ValueObj[const Name: string]: TObject read GetValueObj Write SetValueObj;

end;

IView = interface(IInterface)

['{8318E550-2DC0-4A2A-B45C-C8A636D24702}']

procedure GetInitData(MvcData: IMvcData);

function GetOutputData: IMvcData;

end;

IController = interface

['{4F6CCA74-90BD-46EF-8507-26A1C9F1FDAF}']

procedure DoResponse;

function GetData: IMvcData;

procedure SetData(Data: IMvcData);

property Data: IMvcData read GetData write SetData;

end;

TController = class(TInterfacedObject, IController)

private

FMvcData: IMvcData;

public

procedure DoResponse;

function GetData: IMvcData;

procedure SetData(Data: IMvcData);

property Data: IMvcData read GetData write SetData;

constructor Create; virtual;

end;

{ Canvaser Controller

Dengan ini selurut tabel-tabel rujukan combobox diloag

}

TCanvaserController = class(TController)

{daftar yang diload di sini adalah untuk mengisi combo box,

cuma ada dua field sebagai key dan lookup value saja}

Procedure ReloadDummy;

procedure ReloadDaftarKota;

procedure ReloadDaftarPropinsi;

procedure ReloadDaftarSales;

procedure ReloadDaftarStatus;

procedure ReloadDaftarJenisTransaksi;

constructor Create; override; {reload All combo reference}

end;

TPenjualanController = class(TCanvaserController)

constructor Create; override;

end;

TMasterOutletController = class(TCanvaserController)

function IsOutletExist: Boolean;

function IsBlokir: Boolean;

function SetBlokir: TErrMsg; //return ” if success, otherwise false!

function SetUnBlokir: TErrMsg;

function Delete: TErrMsg;

function PostUpdated: TErrMsg;

function PostInserted(var NewCustId: string): TErrMsg;

constructor Create; override;

end;

{

TMasterSalesController = class(TCanvaserController)

function IsOutletExist: Boolean;

function IsBlokir: Boolean;

function SetBlokir: TErrMsg; //return ” if success, otherwise false!

function SetUnBlokir: TErrMsg;

function Delete: TErrMsg;

function PostUpdated: TErrMsg;

function PostInserted: TErrMsg;

constructor Create; override;

end;

}

//IDataset harus punya 2 field, satu bernama Key satu bernama Value , sementara ini berlaku untuk Key Integer dan Value String

procedure InitList(Source: IDataset; DestList: TStringList);

//mendapat index dari keyval list

function GetMvcListIndex(Items: TStrings; KeyVal: string): Integer;

//mem-free object-object List

procedure FreeOwnObjets(List: TStringList);

{General Dialogs}

function MsgDlgConfirm(Msg: string): Boolean;

procedure MsgDlgInformation(Msg: string);

procedure MsgDlgWarning(Msg: string);

procedure MsgDlgError(Msg: string);

{General View Fungtions}

procedure DisableControls(Controls: array of TControl);

procedure EnableControls(Controls: array of TControl);

{mencek apakah input terdapat karakter yang dilarang}

function Validate(Controls: array of TControl; PropName: string): Boolean;

implementation

uses mod_canvaser;

{ TMvcData }

constructor TMvcData.Create;

begin

FList:= TStringList.Create;

end;

destructor TMvcData.Destroy;

begin

FreeOwnObjets(FList);

FreeAndNil(FList);

inherited;

end;

function TMvcData.GetValueInt(const Name: string): Integer;

begin

if FList.Values[Name]<>” then

Result:= StrToInt(FList.Values[Name])

else

Result:= -1;

end;

function TMvcData.GetValueStr(const Name: string): string;

begin

Result:= FList.Values[Name];

end;

function TMvcData.GetValueObj(const Name: string): TObject;

var Index: Integer;

begin

Index:= ValueInt[Name+'INDEX'];

if Index>0 then begin

ShowMessage(‘[GET] Found Obj Name = ‘ + Name);

Result:= FList.Objects[Index];

end else begin

ShowMessage(‘[GET] NOT Found Obj Name = ‘ + Name);

Result:= nil;

end;

function TMvcData.GetValueVar(const Name: string): Variant;

var Index: Integer;

begin

Result:= Null;

if FList.Find(Name,Index) then

Result:= FList.Values[Name];

end;

function TMvcData.GetValueCurrency(const Name: string): Currency;

begin

Result:=0.0;

if Trim(FList.Values[Name])<>” then

Result:= StrToCurr(FList.Values[Name]);

end;

function TMvcData.GetValueDate(const Name: string): TDateTime;

var

Index: Integer;

begin

if FList.Find(Name,Index) then begin

Result:= TDateTimeVar(FList.Objects[Index]).Data;

end;

function TMvcData.GetValueDouble(const Name: string): Double;

var

Index: Integer;

Value: string;

begin

Result:= 0.0;

if FList.Find(Name,Index) then begin

Value:= FList.Values[Name];

if Trim(Value)<>” then

Result:= StrToFloat(Value);

end;

procedure TMvcData.SetValueInt(const Name: string; const Value: Integer);

begin

FList.Values[Name]:= IntToStr(Value);

end;

procedure TMvcData.SetValueStr(const Name, Value: string);

begin

FList.Values[Name]:= Value;

end;

procedure TMvcData.SetValueObj(const Name: string; const Value: TObject);

var

Index: Integer;

begin

Index:= ValueInt[Name+'INDEX'];

if Index>0 then begin

ShowMessage(‘[SET] Found Obj Name = ‘ + Name);

FList.Objects[Index].Free;

FList.Objects[Index]:= Value;

end else begin

ShowMessage(‘[SET] NOT Found Obj Name = ‘ + Name);

ValueInt[Name+'INDEX']:= FList.AddObject(Name, Value);

end;

procedure TMvcData.SetValueVar(const Name: string; const Value: Variant);

begin

FList.Values[Name]:= VarToStr(Value);

end;

procedure TMvcData.SetValueCurrency(const Name: string; const Value: Currency);

begin

FList.Values[Name]:= CurrToStr(Value);

end;

procedure TMvcData.SetValueDate(const Name: string; const Value: TDateTime);

var

Index: Integer;

begin

if FList.Find(Name,Index) then

TDateTimeVar(FList.Objects[Index]).Data:= Value

else

FList.AddObject(Name,TDateTimeVar.Create(Value));

end;

procedure TMvcData.SetValueDouble(const Name: string; const Value: Double);

begin

FList.Values[Name]:= FloatToStr(Value);

end;

{ TController }

constructor TController.Create;

begin

FMvcData:= TMvcData.Create;

//ShowMessage(‘Tcontroller create’);

end;

procedure TController.DoResponse;

begin

end;

function TController.GetData: IMvcData;

begin

Result:= FMvcData;

end;

procedure TController.SetData(Data: IMvcData);

begin

FMvcData:= Data;

end;

{ TCanvaserController }

constructor TCanvaserController.Create;

begin

inherited;

//ShowMessage(‘TCanvaserController Create’);

OpenDatabaseConnection;

ReloadDummy; {

Sepertinya terdapat BUG pada TStringList Object,

yakni, object yang di-assign (melalui AddObject) yang pertama, tidak bisa diakses.

maka butuh dummy sebagai objek awal, agar objek berikutnya dapat diakses.

}

ReloadDaftarKota;

ReloadDaftarPropinsi;

ReloadDaftarSales;

//ReloadDaftarStatus;

//ReloadDaftarJenisTransaksi;

//ShowMessage(‘TCanvaserController Create – END’);

end;

procedure TCanvaserController.ReloadDaftarJenisTransaksi;

var

StrList: TStringList;

begin

StrList:= TStringList.Create;

InitList(QueryM_TRANSAKSI,StrList);

Data.ValueObj['ObjDaftarJenisTransaksi']:= StrList;

StrList:= nil;

end;

procedure TCanvaserController.ReloadDummy;

var

StrList: TStringList;

begin

StrList:= TStringList.Create;

Data.ValueObj['ObjDummy']:= StrList;

StrList:= nil;

end;

procedure TCanvaserController.ReloadDaftarKota;

var

StrList: TStringList;

begin

ShowMessage(‘reload daftar kota, Kode Propinsi = ‘ + Data.ValueStr['KodePropinsi']);

StrList:= TStringList.Create;

InitList(QueryM_KOTA(Data.ValueStr['KodePropinsi']),StrList);

//InitList(QueryM_KOTA,StrList);

Data.ValueObj['ObjDaftarKota']:= StrList;

StrList:= nil;

end;

procedure TCanvaserController.ReloadDaftarPropinsi;

var

StrList: TStringList;

begin

StrList:= TStringList.Create;

InitList(QueryM_PROPINSI,StrList);

Data.ValueObj['ObjDaftarPropinsi']:= StrList;

StrList:= nil;

end;

procedure TCanvaserController.ReloadDaftarSales;

var

StrList: TStringList;

begin

StrList:= TStringList.Create;

InitList(QuerySALES,StrList);

Data.ValueObj['ObjDaftarSales']:= StrList;

StrList:= nil;

end;

procedure TCanvaserController.ReloadDaftarStatus;

var

StrList: TStringList;

begin

StrList:= TStringList.Create;

InitList(QueryM_STATUS,StrList);

Data.ValueObj['ObjDaftarStatus']:= StrList;

StrList:= nil;

end;

{ TPenjualanController }

constructor TPenjualanController.Create;

var

JnsTransList, NoPakList, ProdukList: TStringList;

begin

inherited;

JnsTransList:= TStringList.Create;

NoPakList:= TStringList.Create;

ProdukList:= TStringList.Create;

//list item for ‘ListJnsTrans’

InitList(QueryM_TRANSAKSI,JnsTransList);

Data.ValueObj['ObjListJnsTrans']:= JnsTransList;

InitList(QueryM_TRANSAKSI,NoPakList);

Data.ValueObj['ObjListNoPak']:= NoPakList;

InitList(QueryM_TRANSAKSI,ProdukList);

Data.ValueObj['ObjListProduk']:= ProdukList;

Data.ValueDate['TglPenjualan']:= Now;

ProdukList:= nil;

NoPakList:= nil;

JnsTransList:= nil;

FreeAndNil(JnsTransList);

FreeAndNil(NoPakList);

FreeAndNil(ProdukList);

end;

{ TDateTimeVar }

constructor TDateTimeVar.Create(InitValue: TDateTime);

begin

Data:= InitValue;

end;

procedure InitList(Source: IDataset; DestList: TStringList);

var

ObjList: TMvcData;

begin

DestList.Clear;

with Source do begin

while not eof do begin

ObjList:= TMvcData.Create;

ObjList.ValueStr['KeyVal']:= FieldByName(‘KeyVal’).AsString;

DestList.AddObject(FieldByName(‘LookUpVal’).AsString, ObjList);

Next;

end;

ObjList:= nil;

end;

function GetMvcListIndex(Items: TStrings; KeyVal: string): Integer;

var

List: TStringList;

i: Integer;

begin

Result:= -1;

List:= TStringList(Items);

for i:= 0 to List.Count – 1 do

if TMvcData(List.Objects[i]).ValueStr['KeyVal'] = KeyVal then begin

Result:= i;

Break;

end;

procedure FreeOwnObjets(List: TStringList);

var i: Integer;

begin

if List.Count<1 then exit;

for i:= 0 to List.Count – 1 do

if Assigned(List.Objects[i]) then begin

if List.Objects[i] is TStringList then

FreeOwnObjets(TStringList(List.Objects[i])); {recursive}

List.Objects[i].Free;

end;

{General Dialogs}

function MsgDlgConfirm(Msg: string): Boolean;

begin

Result:= MessageDlg(Msg, mtConfirmation, mbOKCancel,0) = mrOk;

end;

procedure MsgDlgInformation(Msg: string);

begin

MessageDlg(Msg, mtInformation, [mbOK],0);

end;

procedure MsgDlgWarning(Msg: string);

begin

MessageDlg(Msg, mtWarning, [mbOK],0);

end;

procedure MsgDlgError(Msg: string);

begin

MessageDlg(Msg, mtError, [mbOK],0);

end;

{General View Fungtions}

procedure DisableControls(Controls: array of TControl);

var i: Integer;

begin

for i:= Low(Controls) to High(Controls) do

Controls[i].Enabled:= False;

end;

procedure EnableControls(Controls: array of TControl);

var i: Integer;

begin

for i:= Low(Controls) to High(Controls) do

Controls[i].Enabled:= True;

end;

{ TMasterOutletController }

function TMasterOutletController.IsBlokir: Boolean;

begin

Result:= Data.ValueStr['IsBlokir'] = ’1′;

end;

function TMasterOutletController.IsOutletExist: Boolean;

var

sDataset: IDataset;

begin

Result:= False;

sDataset:= QueryCustomer(Data.ValueStr['CustId']);

if not Assigned(sDataset) then exit;

Result:= sDataset.RecordCount>0;

Data.ValueStr['CustNama']:=SDataset.FindField(‘NAMA’).AsString;

Data.ValueStr['CustKontak']:=SDataset.FindField(‘KONTAK’).AsString;

Data.ValueStr['CustAlamat']:=SDataset.FindField(‘ALAMAT’).AsString;

Data.ValueStr['CustTelepon']:=SDataset.FindField(‘NO_TELPON’).AsString;

Data.ValueStr['CustRekening']:=SDataset.FindField(‘NO_REKENING’).AsString;

Data.ValueStr['KodePropinsi']:=SDataset.FindField(‘K_PROPINSI’).AsString;

Data.ValueStr['KodeKota']:=SDataset.FindField(‘K_KOTA’).AsString;

Data.ValueStr['IsBlokir']:=SDataset.FindField(‘IS_BLOKIR’).AsString;

Data.ValueStr['SalesId']:=SDataset.FindField(‘SALES_ID’).AsString;

end;

function TMasterOutletController.PostInserted(var NewCustId: string): TErrMsg;

var

CUST_ID, Err_Code, Err_msg: String;

begin

try

with Data do begin

{ CUST_ID GENERATE OTOMATIS

procedure OutletInsert(CUST_ID, NAMA, KONTAK, ALAMAT, NO_TELPON, K_KOTA, K_PROPINSI,

NO_REKENING, SALES_ID, IS_BLOKIR, USER_ID: string);}

OutletInsert(

ValueStr['CustNama'], ValueStr['CustKontak'], ValueStr['CustAlamat'],

ValueStr['CustTelepon'], ValueStr['KodeKota'], ValueStr['KodePropinsi'],

ValueStr['CustRekening'], ValueStr['SalesId'], ValueStr['IsBlokir'],

ValueStr['UserId'], CUST_ID, Err_Code, Err_msg

);

if Err_Code<>” then

Result:= Format(‘\n[INSERT ERROR]\n%s’ ,[Err_msg])

else

NewCustId:= CUST_ID;

end;

except

on E:Exception do Result:= Format(‘\n[INSERT ERROR]\n%s’ ,[E.Message]);

end;

function TMasterOutletController.PostUpdated: TErrMsg;

begin

try

with Data do begin

{procedure OutletUpdate(CUST_ID, NAMA, KONTAK, ALAMAT, NO_TELPON, K_KOTA, K_PROPINSI,

NO_REKENING, SALES_ID, IS_BLOKIR, USER_ID: string);}

OutletUpdate(

ValueStr['CustId'], ValueStr['CustNama'], ValueStr['CustKontak'], ValueStr['CustAlamat'],

ValueStr['CustTelepon'], ValueStr['KodeKota'], ValueStr['KodePropinsi'],

ValueStr['CustRekening'], ValueStr['SalesId'], ValueStr['IsBlokir'],

ValueStr['UserId']

);

end;

except

on E:Exception do

Result:= Format(‘\n[UPDATE ERROR]\n%s’ ,[E.Message]);

end;

function TMasterOutletController.SetBlokir: TErrMsg;

begin

with Data do begin

ValueStr['IsBlokir']:=’1′; //representasi kondisi saat ini

try

OutletSetBlokir(’1′,ValueStr['CustId'], ValueStr['UserId']);

except

on E:Exception do Result:= E.Message;

end;

function TMasterOutletController.SetUnBlokir: TErrMsg;

begin

with Data do begin

ValueStr['IsBlokir']:=’0′; //representasi kondisi saat ini

try

OutletSetBlokir(’0′,ValueStr['CustId'], ValueStr['UserId']);

except

on E:Exception do Result:= E.Message;

end;

constructor TMasterOutletController.Create;

begin

inherited;

//ShowMessage(‘MasterOutletController create’);

end;

function TMasterOutletController.Delete: TErrMsg;

begin

with Data do begin

try

OutletDelete(ValueStr['CustId'], ValueStr['UserId']);

except

on E:Exception do Result:= Format(‘[DELETE ERROR]\n%s’,[E.Message]);

end;

function Validate(Controls: array of TControl; PropName: string): Boolean;

var

i: Integer;

PropValue: string;

begin

Result:= True;

for i:= Low(Controls) to High(Controls) do begin

PropValue:= GetPropValue(Controls[i],PropName);

if Pos(””,PropValue)>0 then begin

Result:= False;

if Controls[i] is TWinControl then TWinControl(Controls[i]).SetFocus;

Break;

end;

end.

Filed under: Delphi

MVC Dalam Delphi Programming

Abdellah — Tue, 20 Jul 2010 14:14:03 +0000

Author : Muchammad Aly mBA, S.Kom * Download (*.doc)

Dalam pembuatan aplikasi database dengan Delphi, umumnya kita menggunakan komponen-komponen database, baik berupa komponen koneksi (Misal: TAdoConnection, IBDatabase, dst), turunan TDataset (Misal: TAdoTable, TQuery, dst) atau kontrol databound (DBGrid, DBEdit, dst).

Dengan pendekatan pengembangan aplikasi seperti ini, kita biasa menuliskan perintah sql, business logic, validasi input, pengaturan tampilan sekaligus dalam satu form (satu unit).

Pengembangan aplikasi ini mempunyai kelemahan dari satu sisi. Diantaranya:

Sulit dikembangkan dalam suatu tim yang saling bekerja sama. Misalkan tim yang menangani desain tampilan, ketika menyisipkan/ mengedit kode-kode yang merubah tampilan sangat boleh jadi business logic menjadi ikut terpengaruh. Demikian juga ketika tim yang menangani database, ketika dibutuhkan perubahan perintah sql, sangat boleh jadi tingkah laku form akan berubah.
Sulit dimaintenance. Programmer yang meneruskan pengembangan aplikasi mau tidak mau harus memahami source code secara keseluruhan sebelum dapat ikut berpartisipasi. Hal ini disebabkan keterkaitan yang demikian erat logika pemrograman dalam satu form/satu unit. Satu perubahan yang kecil dapat mempengaruhi keseluruhan tingkah laku form.

Untuk menghindari hal tersebut di atas dibutuhkan pemisahan penulisan source code dalam bagian-bagian tertentu. Salah satu metode pemisahan source code ini adalah dengan menggunakan paradigma MVC yang merupakan kependekan dari Model View Controller.

Pengertian MVC

Yaitu suatu istilah metode pengembangan / pembuatan aplikasi dengan memisahkan elemen-elemen penulisan source code menjadi tiga bagian, yaitu:

Model

Model di sini berperan sebagai representasi dari data yang terlibat dalam suatu proses transaksi. Setiap kali method / function dari suatu aplikasi butuh untuk melakukan akses ke dalam suatu data, maka function / method tersebut tidak langsung berinteaksi dengan sumber data tersebut melainkan harus melalui model terlebih dahulu. Secara praktis, dalam pemrograman database Delphi, model ini berwujud unit-unit yang berisi perintah SQL dan koneksi database.

View

View di sini berperan sebagai presentation layer atau pengatur user interface (tampilan) bagi user dari suatu aplikasi. Data yang dibutuhkan oleh user akan diformat sedemikian rupa agar dapat tampil dan dipresentasikan dengan format tampilan yang memang disesuaikan dengan kebutuhkan user, biasanya layer View juga bertugas untuk melakukan validasi data yang diinputkan user. Secara praktis, dalam pemrograman Delphi, view berwujud unit form yang hanya berisi perintah-perintah yang berhubungan dengan efek tampilan dan bagaimana data itu ditampilkan.

Controller

Controller di sini berperan sebagai logic aspect dari suatu aplikasi / mengatur user flow. Controller lah yang akan menentukan bussiness process dari aplikasi yang dibangun. Controller akan merespon setiap inputan dari user dengan melakukan pemanggilan terhadap model dan view yang sesuai sehingga request / permintaan dari user tersebugt dapat terpenuhi dengan baik. Biasanya layer controller juga digunakan untuk mengatur ijin akses dan permission. Secara praktis, dalam pemrograman Delphi, controller dapat berupa unit yang berisi function / procedure yang berisi logika bisnis.

MVC dan MVP

MVP (Model View Presentation) adalah turunan dari MVC. Presentation mempunyai kesamaan fungsi dengan Controller. Perbedaan MVC dan MVP hanya terletak pada arah komunikasi antar elemen. Pada MVC, View bisa langsung berkomunikasi dengan Model tanpa melalui Controller. Pada MVP, komunikasi View dengan Model harus melalui Presentation.

Berikut ini ilustrasi yang menggambarkan perbedaan MVC dan MPV

Contoh PENERAPAN MVC dan MVP DALAM DELPHI PROGRAMMING

Pada contoh di atas, komunikasi antara View dan Model pada MVC terjadi melalui penggunaan variabel SearchResult pada unit first_model.pas.

Pada contoh MVP di atas, komunikasi antara View ke Model terjadi melaui Presentation dengan kembalian nilai dari Presentation.

Karena perbedaan yang tipis antara MVP dan MVC, sebagian orang tetap menyebut MVP sebagai MVP. Untuk selanjutnya, pada tulisan ini, tidak dibedakan istilah antara MVC dan MVP

Penerapan dalam Source Code SMS Manager

Pada bagian ini saya memberikan salah satu penerapan paradigma MVC pada source code Project SMS Manager Power Logic sebagai contoh, dengan menggunakan:

Satu Unit controller berlaku untuk seluruh unit view pada project, dengan nama con_SMSManager.pas
Satu Unit Model berlaku dengan nama mod_SMSManager.pas.

Pada contoh kali ini source code yang akan terapkan paradigm MVC ada pada method :

procedure TfrmKirimSms.btnTampilkanClick(Sender: TObject);

pada unit ufrmKirimSms.pas dengan source code sebagai berikut:

1 procedure TfrmKirimSms.btnTampilkanClick(Sender: TObject);

2 var

3 STampil,

4 qryWhere : String;

5 sWaktuAwal,

6 sWaktuAkhir : string;

7 TotalHalaman,

8 jmlData : integer;

9 begin

10 if cbMarketing.ItemIndex=-1 then begin

11 MessageDlg(‘Isikan User ID dulu ..!’,mtWarning,[mbOK],0);

12 Exit;

13 end;

15 if edCustID1.Text <> ” then

16 qryWhere := ‘ and B.CUST_ID=’+quotedstr(Trim(edCustID1.Text))+”;

18 sWaktuAwal := QuotedStr(FormatDateTime(‘yyyy-mm-dd hh:nn:ss’,dtTanggal1.DateTime));

19 sWaktuAkhir := QuotedStr(FormatDateTime(‘yyyy-mm-dd hh:nn:ss’,dtTanggal2.DateTime));

21 //sudah digantikan model QueryCountLogSmsOut

22 if cbHalaman.Checked then

23 begin

24 SDataset := DBConn.NewDataset(‘select count(*) ‘+

25 ’ from LOG_SMS_OUT A LEFT JOIN AKUN_CUST B on A.hp_tujuan=B.cust_hp where A.WAKTU_REQUEST between ‘+

26 sWaktuAwal+’ and ‘+sWaktuAkhir+’ and A.USER_ID=’+

27 quotedstr(cbMarketing.Items.Names[cbMarketing.ItemIndex])+’ ‘+qryWhere

28 ,True);

29 try

30 JmlData := SDataset.Fields[0].AsInteger;

31 finally

32 end;

33 end;

35 TotalHalaman := Ceil(JmlData/PAGEVIEW);

36 lbJmlData.Caption :=’Jumlah Data : ‘+inttoStr(JmlData)+’ – Tampil halaman ‘+floattostr(edHal.Value)+

37 ‘ dari total ‘+inttostr(TotalHalaman)+’ halaman’;

39 STampil := inttostr((ceil(edHal.Value)-1)*PAGEVIEW);

41 //telah digantikan dengan modul QueryViewLogSmsOut

42 DM.DoDataGrid(DBConn,’select first ‘+inttostr(PAGEVIEW)+’ SKIP ‘+STampil+

43 ‘ A.URUT, A.WAKTU_REQUEST, A.HP_TUJUAN, B.CUST_ID, A.ISI_SMS ‘+

44 ‘ from LOG_SMS_OUT A LEFT JOIN AKUN_CUST B on A.hp_tujuan=B.cust_hp where A.WAKTU_REQUEST between ‘+

45 sWaktuAwal+’ and ‘+sWaktuAkhir+’ and A.USER_ID=’+

46 quotedstr(cbMarketing.Items.Names[cbMarketing.ItemIndex])+’ ‘+qryWhere,

47 sgrdLogSmsOut);

48 end;

Dari potongan source code di atas, bisa kita simpulkan bahwa yang akan kita pisahkan menjadi

Controller dan Model ada pada source code nomor 24 – 27 dan 42 - 47. Sehingga source code untuk view menjadi seperti berikut:

1 procedure TfrmViewKirimSms.btnTampilkanClick(Sender: TObject);

2 var

4 TotalHalaman,

5 jmlData : integer;

6 sDataset : IDataset;

7 begin

8 if cbMarketing.ItemIndex=-1 then begin

9 MessageDlg(‘Isikan User ID dulu ..!’,mtWarning,[mbOK],0);

10 Exit;

11 end;

14 DoCountLogSmsOut(cbMarketing.Items.Names[cbMarketing.ItemIndex], edCustID1.Text,

15 dtTanggal1.DateTime, dtTanggal2.DateTime, jmlData);

17 TotalHalaman := Ceil(JmlData/PAGEVIEW);

18 lbJmlData.Caption :=’Jumlah Data : ‘+inttoStr(JmlData)+’ – Tampil halaman ‘+floattostr(edHal.Value)+

19 ‘ dari total ‘+inttostr(TotalHalaman)+’ halaman’;

23 DoViewLogSmsOut(cbMarketing.Items.Names[cbMarketing.ItemIndex], edCustID1.Text,

24 dtTanggal1.DateTime, dtTanggal2.DateTime,PAGEVIEW,(ceil(edHal.Value)), sDataset);

26 DM.DoDataGrid(sDataset,sgrdLogSmsOut);

28 end;

Procedure dengan awalan Do adalah controller. Pada contoh di atas, source code DoViewLogSmsOut adalah sebagai berikut:

1 procedure DoViewLogSmsOut(UserId, CustID: string; FromWhen, ToWhen: TDateTime;

2 NumDataPerPage, PageIndex: Integer; var Dataset: IDataset);

3 begin

5 Dataset:= QueryViewLogSmsOut(UserId,CustID,FromWhen,ToWhen,

6 NumDataPerPage,(PageIndex-1) * NumDataPerPage );

8 end;

Procedure dengan awalan Query adalah Model. Source Code untuk Model QueryViewLogSmsOut adalah sebagai berikut:

1 function QueryViewLogSmsOut(UserId, CustID: string; FromWhen, ToWhen: TDateTime;

2 NumRecs, AfterRecIdx: Integer): IDataset;

4 var

5 sPeriod1, sPeriod2: string;

6 begin

8 sPeriod1:= QuotedStr(FormatDateTime(‘yyyy-mm-dd hh:nn:ss’, FromWhen));

9 sPeriod2:= QuotedStr(FormatDateTime(‘yyyy-mm-dd hh:nn:ss’, ToWhen));

10 LastExecuteQuery:=

11 ‘SELECT FIRST ‘+IntToStr(NumRecs)+’ SKIP ‘+ IntToStr( AfterRecIdx) +

12 ‘ A.URUT, A.WAKTU_REQUEST, A.HP_TUJUAN, B.CUST_ID, A.ISI_SMS ‘+

13 ‘ from LOG_SMS_OUT A LEFT JOIN AKUN_CUST B on A.hp_tujuan=B.cust_hp ‘ +

14 ‘ where A.WAKTU_REQUEST between ‘+

15 sPeriod1+’ and ‘+sPeriod2+’ and A.USER_ID=’+ QuotedStr(UserId);

16 if CustID<>” then

17 LastExecuteQuery:= LastExecuteQuery + ‘ and B.CUST_ID=’+quotedstr(CustID);

18 Result:= DBConn.NewDataset(LastExecuteQuery,True);

19 end;

Sumber :

http://putroweb.blogspot.com/2009/02/mvc-model-view-controller.html

http://pascal-id.org/-split-mvc-inquiry-by-mambamaestro-t-88.html#pid1923

Untuk MVC:

Buat aplikasi baru, 1 form, 1 edit, 1 label, 1 button. Simpan unit form tsb dgn nama first_view.pas, beri nama form dengan frmView.

1. TForm1 = class(TForm)

2. Edit1: TEdit;

3. Button1: TButton;

4. Label1: TLabel;

5. procedure Button1Click(Sender: TObject);

6. end;

Buat 2 unit dgn nama first_model.pas dan first_controller.pas.
Di frmView, ambil event onClick dari Button1 dgn isi berikut

1. procedure TForm1.Button1Click(Sender: TObject);

2. begin

3. if Edit1.Text = ” then Exit;

5. DoSearch(Edit1.Text);

6. Label1.Caption := SearchResult;

7. if Label1.Caption = ” then Label1.Text = ‘nothing found’;

8. end;

Di unit first_controller.pas, buat procedure DoSearch dgn isi berikut:

1. procedure DoSearh(const Keyword: string);

2. begin

3. if Length(Keyword) < 3 then

4. SearchResult := ‘minimum keyword length is 3 chars’

5. else

6. QuerySearchResult(Keyword);

7. end;

Di unit first_model.pas, buat procedure QuerySearchResult dgn isi berikut:

1. var

2. SearchResult: string;

4. procedure QuerySearchResult(Keyword: string);

5. begin

6. SearchResult := ”;

8. SQL.Query := ‘select name from employee where name like %’+Keyword+‘%’;

9. SQL.Open;

10.

11. if SQL.RecordCount > 0 then

12. begin

13. while not SQL.EOF do

14. begin

15. SearchResult := SearchResult + SQL.Fields['name'].AsString + NewLine;

16. SQL.Next;

17. end;

18. end;

19.

20. SQL.Close;

21.end;

Filed under: Delphi

Apa Itu Zope?

Abdellah — Tue, 20 Jul 2010 01:33:14 +0000

Deskripsi Zope, web application server open source.

“untuk setiap harga pada setiap platform tidak ada solusi yang lebih fleksibel daripada Zope”

– Theodore E. Patrick, CIO Indigo Networks

Apa itu Zope ?

Zope adalah web application server open source yang source code utamanya ditulis dalam bahasa Python. Mempunyai fitur transactional database objek yang dapat menyimpan tidak hanya content dan data custom, namun juga template-template dynamic html, script, search engine, dan koneksi serta kode database relasional.

Lebih lengkapnya lihat di http://www.zope.org/WhatIsZope

Filed under: Web Application Server

Version Control dan Subversion

Abdellah — Mon, 05 Jul 2010 03:18:23 +0000

Apa itu Version Control?

Apa itu Subversion?

Akan dijelaskan kemudian.
Untuk mendaftarkan subversion sebagai service pada Windows (saya menggunakan Windows 7 x64) ketikkan perintah ini pada dos command

sc create svn binpath= “\”C:\Program Files\SlikSvn\bin\svns
erve.exe\” –service –root D:\svnrepository” start= auto displayname= “Subversi
on Server”

jangan sampai salah titik, koma, dan spasinya! harus ngeplek

Filed under: Delphi

Membuat file dengan ektensi sendiri berasosiatif dengan aplikasi kita

Abdellah — Mon, 07 Jun 2010 05:50:40 +0000

Pernah memperhatikan file Microsoft Word kan? yang berekstensi dengan .doc (untuk versi 2003 dan sebelumnya) atau .docx (untuk versi 2007 keatas)?

Jika Anda mengklik dobel pada file tersebut di windows explorer, apa yang terjadi? MS Word akan otomatis dijalankan dan membuka isi dari file tersebut. Bagaimana membuat file asosiasi spt itu?

Kita harus mendaftarkan extensi buatan kita ke Windows, Nah berikut ini berikut ini prosedurnya dalam Delphi.

uses registry, shlobj;

procedure RegisterFileType(ExtName:String; AppName:String);
var
reg:TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey(‘.’ + ExtName, True);
reg.WriteString(”, ExtName + ‘file’);
reg.CloseKey;
reg.CreateKey(ExtName + ‘file’);
reg.OpenKey(ExtName + ‘file\DefaultIcon’, True);
reg.WriteString(”, AppName + ‘,0′);
reg.CloseKey;
reg.OpenKey(ExtName + ‘file\shell\open\command’, True);
reg.WriteString(”,AppName+’ “%1″‘);
reg.CloseKey;
finally
reg.Free;
end

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

//gunainnya RegisterFileType(‘ekstensi’,'aplikasimu lengkap dengan pathnya’);

Sumber: delphi-id.tk

Filed under: Delphi

Menampakkan File Hidden / Tersembunyi

Abdellah — Mon, 26 Oct 2009 00:43:49 +0000

Dear Temen2, Baru saja saya dimintai tolong salah satu dosen untuk mengembalikan file-file word nya yang terserang virus.

Well, setelah saya periksa, ternyata sang virus hanya menghidden file2 nya, dan bisa dinampakkan melalui menu Tools->Folder Options->View pada Windows Explorer kemudian

- Pilih Show Hidden Files And Folder

- Hilangkan cek pada Hide Extension for known files, sehingga kita jenis file apa sebenarnya yang hendak kita akses. Virus biasanya menyembunyikan ektension asli

- Hilangka cek pada Hide protected operating system files, Virus biasa memberikan attribut file sistem operasi pada file korban.

Tampak deh! Kayaknya virusnya sedang nggak aktif.

Tapi karena pak dosen nya awam komputer, musti dihilangkan dulu attribut hidden pada file2 nya. Nah, karena file yang harus dirubah banyak, setelah searching google, saya mendapatkan code berikut dalam vbscript dari http://www.freevbcode.com/ShowCode.asp?ID=8547 :

option explicit
dim fso, strPath, objFolder, objSubFolders, objFile, objSFldr, retVal

Set fso = CreateObject(“Scripting.FileSystemObject”)

‘set the path to the folder we’re working in

strPath = inputBox(“Please enter the physical path to a directory.”, “File Attribute Setter”)

if strPath <> “” and fso.folderExists(strPath) then

retVal = msgbox(“Changing the attributes of all files in ” & vbCrLf & strPath & vbCrLf & “to Read-only = NO and Hidden = No.”, vbYesNo+vbQuestion, “File Attribute Setter”)

if retVal = 6 then
set objFolder = fso.getFolder(strPath)

for each objFile in objFolder.files
objFile.attributes = 32
next

set objSubFolders = objFolder.subFolders

for each objSFldr in objSubFolders
for each objFile in objSFldr.files
objFile.attributes = 32
next
next

set objSubFolders = nothing
set objFolder = nothing
set fso = nothing

msgbox “Job complete!”
else
msgBox “Job cancelled.”, vbOKOnly+vbInformation, “File Attribute Setter”
end if
else
msgBox “You must enter a valid directory path to continue.”, vbOKOnly+vbExclamation, “File Attribute Setter”
end if

saya copy kode tersebut ke dalam file text, ubah extensionnya jadi vbs, jalankan dengan klik dobeol. Jadi deh!

Posted in Tip Sehari-hari