jump to navigation

Penggunaan class pada Delphi Oktober 2, 2007

Posted by samsonasik in Tutorial Delphi.
2 comments

Penggunaan class dalam delphi, hampir mirip dengan java, php, ataupun yang lainnya, hanya saja, constructor,procedure, maupun function semuanya dideklarasikan dulu, baru diisi, Kita coba ya … :)
Kita buka aplikasi borland delphinya :
Kita buat satu unit baru, sebagai kelas, klik file, new – > Unit -> simpan dengan nama umanusia.pas , sekarang, kita tuliskan kode programmnya :

Code:
unit umanusia;interface
type manusia = class
private
makan,minum,nama,alamat:String;
public
constructor manusia(ma:String;mi:String);
procedure setnama(n:String);
procedure setalamat(n:String);
function getnama:String;
function getalamat:String;
function getnyam:String;
end;
implementation
constructor manusia.manusia(ma:String;mi:String);
begin
makan:=ma;
minum:=mi;
end;
procedure manusia.setnama(n:String);
begin
nama:=n;
end;
procedure manusia.setalamat(n:String);
begin
alamat:=n;
end;
function manusia.getnama:String;
begin
result:=nama;
end;
function manusia.getalamat:String;
begin
result:=alamat;
end;
function manusia.getnyam:String;
begin
result:=makan+’ dan minum ‘+minum;
end;
end.

class.JPG
Kita sekarang bisa panggil di aplikasinya , misalkan ada form tampilkanmanusia, kita simpan dengan nama unit1, berikut kode programmnya

Code:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,umanusia,
StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
o:manusia;
implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
//konstruktor
o:=manusia.manusia(‘bakso’,'es teh’);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
o.setnama(edit1.Text);
label1.caption:=o.getnama+’ sedang makan ‘+o.getnyam;
end;

end.

——————–

tampilkanclass.jpg

Asp konek ke SQL Server Oktober 2, 2007

Posted by samsonasik in Tutorial ASP.
add a comment

Saya menggunakan Baby webserver sebagai webservernya :
Misalkan kita punya database bernama ikhsan, userid ke sql server = sa, dan password ” (kosong), terus kita punya table buku (kode_buku, nama_buku)
berikut source code file configurasinya :

Code:
<%
‘conf.asp
set conn=Server.CreateObject(“ADODB.Connection”)
cstring=”driver={SQL Server};server=”&localhost&”;uid=sa;pwd=;database=”&ikhsan
conn.Open cstringset rs=Server.CreateObject(“ADODB.recordset”)
%>

——————
Tampil.asp
——————
<!–#include file=”conf.asp”–>
<%
sql=”SELECT * from ikhsan.dbo.buku”
rs.Open sql, conn
%>
<table border=1>
<tr>
<td>No.</td>
<td>Kode Buku</td>
<td>Nama Buku</td>
</tr>
<%
Dim no
no=0
while NOT rs.EOF
no = no + 1
%>
<tr>
<td><%=no%></td>
<td><% Response.Write(rs(“kode_buku”)) %></td>
<td><% Response.Write(rs(“nama_buku”)) %></td>
</tr>
<%
rs.MoveNext
Wend
%>