dan pada akhirnya aku harus merasakan kesepianku sendiri, dulu kamu yang selalu larang aku kesana kemari bahkan saat aku pergi untuk bekerjapn kamu lansung menunjukan rasa tak senang, sekarang kamu pergi dengan temen2 kamu, kamu g tau betapa aku selalu kesepian dan taku kamu kenapa2 diluar sana.
saat aku ingin kamu didekatku, kamu kira aku ngatur2 kamu, kamu kira aku g suka kalo kamu pake2 motor ku, tapi aku berani bersumpah demi apapun sama sekali g ada terfikir dibenakku kalo aku g suka kamu pake2 barangku.
yang aku mau kamu ada denganku menghilangkan rasa sepiku.
like this yooo
Jumat, 28 Agustus 2015
Jumat, 21 Agustus 2015
hidupku
hidup yang malang, ntah aku yang tak bisa menjalani hidupku dg baik ato memang beginilah nasibku. masalah silih berganti menghampiriku, benarkah ini ujuian, ujian hidup apakah aku layak naik ke jenjang berikutnya ato memang ini hukuman untukku??
sakit
setelah semua yang terjadi, ini l akhirnya...
kejadian ini tak bisa disesali, tapi harus dihadapi sendiri, ini salahku dan harus aku hadapi sendiri.
selamanya akan terus begini, karna memang ini l takdirku, menghadapi dunia yang kelam ini sendiri.
ingin berbagipn tak bisa karna tak sapu orang pn yang akan mengerti akan diriku, yang orang tau aku tegar, mereka g tau seberapa rapuhnya aku.
tuhan maaf atas kesalahan yang telah aku lakukan, jangan limpahkan kesalahan ini pada orang tua, kelaurga, terutama mamak, karna ini tidak ada sangkut pautnya dengan mereka, karna ini murni kesalahanku. biarlah aku harus menderita atas kesalahanku ini.
awalnya aku g ragu lagi dengan omongan orang dengan bertemunya aku dg dy, tapi justru inilah duri yang terus menusuk samapai aku benar2 tak bernafas lagi
kejadian ini tak bisa disesali, tapi harus dihadapi sendiri, ini salahku dan harus aku hadapi sendiri.
selamanya akan terus begini, karna memang ini l takdirku, menghadapi dunia yang kelam ini sendiri.
ingin berbagipn tak bisa karna tak sapu orang pn yang akan mengerti akan diriku, yang orang tau aku tegar, mereka g tau seberapa rapuhnya aku.
tuhan maaf atas kesalahan yang telah aku lakukan, jangan limpahkan kesalahan ini pada orang tua, kelaurga, terutama mamak, karna ini tidak ada sangkut pautnya dengan mereka, karna ini murni kesalahanku. biarlah aku harus menderita atas kesalahanku ini.
awalnya aku g ragu lagi dengan omongan orang dengan bertemunya aku dg dy, tapi justru inilah duri yang terus menusuk samapai aku benar2 tak bernafas lagi
Senin, 20 Oktober 2014
rasa hati
ketika mencoba untuk percaya pada seseorang, dan rasa percaya datang kembali, dan malah dinodai dg ketidak setiaan :(
Senin, 12 Desember 2011
SQL tgl 12/12/2011
===trigger===
create trigger tr_status
on nilai
for insert, update
as
declare @nim char (5)
declare @nilai float
select @nim=nim, @nilai=nilai from nilai
if @nilai >= 60
update keterengan set ket ='lulus' where nim=@nim
else update keterangan set ket='tidak lulus' where nim=@nim
===macam-macam perintah select===
select * from toko_buku
select kode_buku, harga from toko_buku
select kode_buku,harga * 0.3 from toko_buku
select max(harga) from toko_buku
select min(harga) from toko_buku
select count(harga) from toko_buku
select kode_buku, nama_buku from toko_buku order by penerbit
select * from toko_buku where kode_buku='B001' and harga<=45000;
select distinct nama_buku from toko_buku
select count(*) from toko_buku where kode_buku='B001' and harga<=45000;
create trigger tr_status
on nilai
for insert, update
as
declare @nim char (5)
declare @nilai float
select @nim=nim, @nilai=nilai from nilai
if @nilai >= 60
update keterengan set ket ='lulus' where nim=@nim
else update keterangan set ket='tidak lulus' where nim=@nim
===macam-macam perintah select===
select * from toko_buku
select kode_buku, harga from toko_buku
select kode_buku,harga * 0.3 from toko_buku
select max(harga) from toko_buku
select min(harga) from toko_buku
select count(harga) from toko_buku
select kode_buku, nama_buku from toko_buku order by penerbit
select * from toko_buku where kode_buku='B001' and harga<=45000;
select distinct nama_buku from toko_buku
select count(*) from toko_buku where kode_buku='B001' and harga<=45000;
Minggu, 04 Desember 2011
SQL server 05 des 2011
==menambah field===
ALTER TABLE Dosen add jk char(1)
===membuat tabel===
create table Dosen (
nip char(5),
nama varchar (35)
primary key(nip))
===mengganti isi field berakhiran a===
update Dosen set alamat='panam' where nama like '%a'
===menggunakan database baru===
use nama_db
===digunakan untuk mengelompok kan data===
select distinct jabatan from Dosen
ALTER TABLE Dosen add jk char(1)
===membuat tabel===
create table Dosen (
nip char(5),
nama varchar (35)
primary key(nip))
===mengganti isi field berakhiran a===
update Dosen set alamat='panam' where nama like '%a'
===menggunakan database baru===
use nama_db
===digunakan untuk mengelompok kan data===
select distinct jabatan from Dosen
SQL server 05 des 2011
===Cara pertama===
ALTER DATABASE IK1S MODIFY NAME = IK1S_BARU
===Cara kedua===
exec sp_renamedb @dbname = 'IK1S_BARU', @newname = 'IK1S_2'
ALTER DATABASE IK1S MODIFY NAME = IK1S_BARU
===Cara kedua===
exec sp_renamedb @dbname = 'IK1S_BARU', @newname = 'IK1S_2'
Kamis, 01 Desember 2011
Lanjutan yg kemaren & cara mudah na
<html>
<head>
<title>menampilkan data tertentu</title>
</head>
<body>
<%
dim cn,rs,rsj
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek
rs.Open "dbo_jurusan",cn
%>
<p>seleksi data aplikan berdasarkan jurusan</p>
<form method="post" action="lapor5.asp">
<table border="0"cellpadding="0"cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="60%">
<tr>
<td width="29%">jurusan</td>
<td width="71%"><select size="1" name="kode">
<%
do while not rs.eof
%>
<option value="<%=rs("kode")%>"><%=rs("jurusan")%></option>
<%
rs.movenext
loop
rs.close
cn.close
set rs=nothing
set cn=nothing
%>
</select></td>
</tr>
</table>
<p><input type="submit" value="submit" name="B1">
<input type="reset" value="reset" name="B2"></p>
</table>
</body>
</html>
<head>
<title>menampilkan data tertentu</title>
</head>
<body>
<%
dim cn,rs,rsj
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek
rs.Open "dbo_jurusan",cn
%>
<p>seleksi data aplikan berdasarkan jurusan</p>
<form method="post" action="lapor5.asp">
<table border="0"cellpadding="0"cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="60%">
<tr>
<td width="29%">jurusan</td>
<td width="71%"><select size="1" name="kode">
<%
do while not rs.eof
%>
<option value="<%=rs("kode")%>"><%=rs("jurusan")%></option>
<%
rs.movenext
loop
rs.close
cn.close
set rs=nothing
set cn=nothing
%>
</select></td>
</tr>
</table>
<p><input type="submit" value="submit" name="B1">
<input type="reset" value="reset" name="B2"></p>
</table>
</body>
</html>
Selasa, 29 November 2011
ASP
==Gabungan ASP dan SQL Server==
<html>
<head>
<title>seleksi aplikan berdasarkan jurusan</title>
</head>
<body>
<p>seleksi data aplikan berdasarkan jurusan</p>
<form method="post" action="lapor5.asp">
<table border="0"cellpadding="0"cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="60%">
<tr>
<td width="29%">jurusan</td>
<td width="71%"><select size="1" name="kode">
<option value="p001">business administration</option>
<option value="p002">sekretaris</option>
<option value="p003">komputer akutansi</option>
<option value="p004">informatika komputer</option>
<option value="p005">tour travel bussiness</option>
<option value="p006">office management</option>
</select></td>
</tr>
</table>
<p><input type="submit" value="submit" name="B1">
<input type="reset" value="reset" name="B2"></p>
</form>
<p> </p>
</body>
</html>
===Folder k2===
<html>
<head>
<title>menampilkan data tertentu</title>
</head>
<body>
<%
dim cn,rs,rsj
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rsj=Server.CreateObject("ADODB.Recordset")
konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek
Mysql="select * from dbo_aplikan Where kode='"
Mysql=Mysql & request.form("kode")&"'"
Mysql1="select * from dbo_jurusan Where kode='"
Mysql1=Mysql1 & request.form("kode")&"'"
rs.Open mysql,cn
rsj.Open mysql1,cn
if rs.eof or bof then
response.write "tidak ada data untuk jurusan" & rsj("jurusan")
response.end
end if
%>
<p><font size="4">daftar aplikan<br>
jurusan <%=rsj("jurusan")%></font></p>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="61%">
<tr>
<td width="8%"><font size="2"> No.</font></td>
<td width="41%">
<p align=center"><font size="2"> Nama aplikan</font></td>
<td width="26%"><font size="2"> tempat lahir</font></td>
<td width="25%"><font size="2"> tanggal lahir</font></td>
</tr>
<%
n=0
do while not rs.eof
n=n+1
%>
<tr>
<td width="8%"> <%=n%></td>
<td width="41%"> <%=rs("Namaaplikan")%></td>
<td width="26%"> <%=rs("tempatlahir")%></td>
<td width="25%"> <%=rs("tanggallahir")%></td>
</tr>
<%
rs.movenext
loop
rs.close
rsj.close
cn.close
set rs=nothing
set rsj=nothing
set cn=nothing
%>
</table>
</body>
</html>
<html>
<head>
<title>seleksi aplikan berdasarkan jurusan</title>
</head>
<body>
<p>seleksi data aplikan berdasarkan jurusan</p>
<form method="post" action="lapor5.asp">
<table border="0"cellpadding="0"cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="60%">
<tr>
<td width="29%">jurusan</td>
<td width="71%"><select size="1" name="kode">
<option value="p001">business administration</option>
<option value="p002">sekretaris</option>
<option value="p003">komputer akutansi</option>
<option value="p004">informatika komputer</option>
<option value="p005">tour travel bussiness</option>
<option value="p006">office management</option>
</select></td>
</tr>
</table>
<p><input type="submit" value="submit" name="B1">
<input type="reset" value="reset" name="B2"></p>
</form>
<p> </p>
</body>
</html>
===Folder k2===
<html>
<head>
<title>menampilkan data tertentu</title>
</head>
<body>
<%
dim cn,rs,rsj
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rsj=Server.CreateObject("ADODB.Recordset")
konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek
Mysql="select * from dbo_aplikan Where kode='"
Mysql=Mysql & request.form("kode")&"'"
Mysql1="select * from dbo_jurusan Where kode='"
Mysql1=Mysql1 & request.form("kode")&"'"
rs.Open mysql,cn
rsj.Open mysql1,cn
if rs.eof or bof then
response.write "tidak ada data untuk jurusan" & rsj("jurusan")
response.end
end if
%>
<p><font size="4">daftar aplikan<br>
jurusan <%=rsj("jurusan")%></font></p>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="61%">
<tr>
<td width="8%"><font size="2"> No.</font></td>
<td width="41%">
<p align=center"><font size="2"> Nama aplikan</font></td>
<td width="26%"><font size="2"> tempat lahir</font></td>
<td width="25%"><font size="2"> tanggal lahir</font></td>
</tr>
<%
n=0
do while not rs.eof
n=n+1
%>
<tr>
<td width="8%"> <%=n%></td>
<td width="41%"> <%=rs("Namaaplikan")%></td>
<td width="26%"> <%=rs("tempatlahir")%></td>
<td width="25%"> <%=rs("tanggallahir")%></td>
</tr>
<%
rs.movenext
loop
rs.close
rsj.close
cn.close
set rs=nothing
set rsj=nothing
set cn=nothing
%>
</table>
</body>
</html>
Minggu, 27 November 2011
SQL sqrver
""" mengisi tabel"""
insert into barang values ('B001','nama','alamat')
"""melihat isi tabel"""
select * from barang
insert into barang values ('B001','nama','alamat')
"""melihat isi tabel"""
select * from barang
SQL server
"""membuat tabel"""
create database mhs1
on primary
(name = mhs1_dat,
filename = 'E:\ik1s\mhs1_dat.mdf',
size = 2MB,
filegrowth = 1MB,
maxsize = 20MB)
log on
(name = mhs1_log,
filename = 'E:\ik1s\mhs1_log.ldf',
size = 4MB,
filegrowth = 1MB,
maxsize = 10MB)
create database mhs1
on primary
(name = mhs1_dat,
filename = 'E:\ik1s\mhs1_dat.mdf',
size = 2MB,
filegrowth = 1MB,
maxsize = 20MB)
log on
(name = mhs1_log,
filename = 'E:\ik1s\mhs1_log.ldf',
size = 4MB,
filegrowth = 1MB,
maxsize = 10MB)
Kamis, 10 November 2011
membaca sebuah record buku
<html>
<head>
<title>membaca sebuah record buku</title>
</head>
<body>
<%
dim rsbuku
set rsbuku=server.createobject("ADODB.recordset")
rsbuku.open "buku", "DSN=profesi; uid=; pwd="
response.write rsbuku("JUDUL") & "<br>"
rsbuku.close
set rsbuku=nothing
%>
</body>
</html>
<head>
<title>membaca sebuah record buku</title>
</head>
<body>
<%
dim rsbuku
set rsbuku=server.createobject("ADODB.recordset")
rsbuku.open "buku", "DSN=profesi; uid=; pwd="
response.write rsbuku("JUDUL") & "<br>"
rsbuku.close
set rsbuku=nothing
%>
</body>
</html>
Selasa, 18 Oktober 2011
gabungan function dg if
<html>
<head>
<title>Function</title>
</head>
<body>
<%
function nilai
nilai=75
If nilai > 65 then
Grade="lulus"
Else
Grade="tidak lulus"
End If
Response.Write "Grade deliana : "&Grade&"<br>"
Hasil="Tidak Lulus"
If nilai >65 then
Hasil ="""anda lulus...!"""
End If
End Function
Response.Write"Dengan Nilai : "&nilai&"<br>"
Response.Write strhasil
%>
</body>
</html>
<head>
<title>Function</title>
</head>
<body>
<%
function nilai
nilai=75
If nilai > 65 then
Grade="lulus"
Else
Grade="tidak lulus"
End If
Response.Write "Grade deliana : "&Grade&"<br>"
Hasil="Tidak Lulus"
If nilai >65 then
Hasil ="""anda lulus...!"""
End If
End Function
Response.Write"Dengan Nilai : "&nilai&"<br>"
Response.Write strhasil
%>
</body>
</html>
belajar asp
<html>
<head>
<title>penggunaan if</title>
<body>
<form>
Masukkan nilai ujian(0-100):<input type=text name=nilai> <br>
<nilai type=submit value="proses"> <br>
</form>
<%
dim strnilai, strhasil , grade
dim nilai
strnilai =request.querystring("nilai")
if strnilai=""then
strnilai="0"
end if
nilai=cint(strnilai)
response.write "Nilai Ujian Anda :"&nilai&"<br>"
if nilai<50 then
grade="E"
elseif nilai<60 then
grade="D"
elseif nilai<80 then
grade="C"
elseif nilai<90 then
grade="B"
else
grade="A"
end if
response.write "dengan grade:"&grade& "<br>"
strhasil="Anda Gagal"
if nilai>=60 then
strhasil="""Anda Lulus...!!!"""
end if
response.write strhasil
%>
</body>
</html>
<head>
<title>penggunaan if</title>
<body>
<form>
Masukkan nilai ujian(0-100):<input type=text name=nilai> <br>
<nilai type=submit value="proses"> <br>
</form>
<%
dim strnilai, strhasil , grade
dim nilai
strnilai =request.querystring("nilai")
if strnilai=""then
strnilai="0"
end if
nilai=cint(strnilai)
response.write "Nilai Ujian Anda :"&nilai&"<br>"
if nilai<50 then
grade="E"
elseif nilai<60 then
grade="D"
elseif nilai<80 then
grade="C"
elseif nilai<90 then
grade="B"
else
grade="A"
end if
response.write "dengan grade:"&grade& "<br>"
strhasil="Anda Gagal"
if nilai>=60 then
strhasil="""Anda Lulus...!!!"""
end if
response.write strhasil
%>
</body>
</html>
Jumat, 03 Juni 2011
Langganan:
Postingan (Atom)