Posted by: wihemdra on: Monday,October 26, 2009
public static class GlobalFunction
{
public static string servername = “.”;
public static string databasename = “Database_General”;
public static string username = “”;
public static string password = “”;
public static int setKoneksi()
{
string sourceFile = “data.ini”;
if (!File.Exists(sourceFile))
{
return 0;
}
FileStream file = new FileStream(sourceFile, FileMode.OpenOrCreate, FileAccess.Read);
TextReader tr = new StreamReader(file);
int NumberOfLines = 1000;
string[] ListLines = new string[NumberOfLines];
//Read the number of lines and put them in the array
for (int i = 1; i < NumberOfLines; i++)
{
ListLines[i] = tr.ReadLine();
if (ListLines[i] == null)
{
break;
}
}
servername = GlobalFunction.Mid(ListLines[1], ListLines[1].IndexOf(‘=’) + 1).Trim();
databasename = GlobalFunction.Mid(ListLines[2], ListLines[2].IndexOf(‘=’) + 1).Trim();
username = GlobalFunction.Mid(ListLines[3], ListLines[3].IndexOf(‘=’) + 1).Trim();
password = GlobalFunction.Mid(ListLines[4], ListLines[4].IndexOf(‘=’) + 1).Trim();
// Close StreamReader
tr.Close();
//sr.Close();
// Close file
file.Close();
return 1;
}
/*————————————————————————————————*/
public NilaiAccess()
{
GlobalFunction.Koneksi();
}
public PerubahanNilai GetDataNilai(string thnajaran, string kdsem, string nim, string kelas, string kdmtk, string kdjenisnilai)
{
PerubahanNilai nilai = new PerubahanNilai();
SqlCommand cmd = new SqlCommand();
cmd.Connection = GlobalFunction.con;
cmd.CommandType = CommandType.StoredProcedure;
cmd.CommandText = “spr_prak_get_nilaiawal”;
cmd.Parameters.Add(“@thnajaran”, SqlDbType.VarChar).Value = thnajaran;
cmd.Parameters.Add(“@kdsem”, SqlDbType.VarChar).Value = kdsem;
cmd.Parameters.Add(“@nim”, SqlDbType.VarChar).Value = nim;
cmd.Parameters.Add(“@kelas”, SqlDbType.VarChar).Value = kelas;
cmd.Parameters.Add(“@kdmtk”, SqlDbType.VarChar).Value = GlobalFunction.StringIndexOfChar(kdmtk, ‘-’).Trim();
cmd.Parameters.Add(“@kdjenisnilai”, SqlDbType.VarChar).Value = Convert.ToInt32(kdjenisnilai);
using (SqlDataReader sdr = cmd.ExecuteReader())
{
while (sdr.Read())
{
nilai.Nilaiawal = sdr["nilai"].ToString();
}
}
return nilai;
}
public bool SimpanPerubahanNilai(PerubahanNilai ubahnilai)
{
SqlCommand cmd = new SqlCommand();
cmd.Connection = GlobalFunction.con;
cmd.CommandType = CommandType.StoredProcedure;
cmd.CommandText = “spr_save_tr_perubahan_nilai”;
cmd.Parameters.Add(“@username”, SqlDbType.VarChar).Value = ActiveUser.User;
cmd.Parameters.Add(“@kdlab”, SqlDbType.VarChar).Value = ActiveUser.Kdlab;
cmd.Parameters.Add(“@thnajaran”, SqlDbType.VarChar).Value = ubahnilai.Thnajaran;
cmd.Parameters.Add(“@kdsem”, SqlDbType.VarChar).Value = ubahnilai.Kdsem;
cmd.Parameters.Add(“@nim”, SqlDbType.VarChar).Value = ubahnilai.Nim;
cmd.Parameters.Add(“@kelas”, SqlDbType.VarChar).Value = ubahnilai.Kelas;
cmd.Parameters.Add(“@kdmtk”, SqlDbType.VarChar).Value = GlobalFunction.StringIndexOfChar(ubahnilai.Kdmtk, ‘-’).Trim();
cmd.Parameters.Add(“@kdjenisnilai”, SqlDbType.Int).Value = Convert.ToInt32(ubahnilai.Kdjenisnilai);
cmd.Parameters.Add(“@nilaiawal”, SqlDbType.VarChar).Value = Convert.ToInt32(ubahnilai.Nilaiawal);
cmd.Parameters.Add(“@nilaiubah”, SqlDbType.VarChar).Value = Convert.ToInt32(ubahnilai.Nilaiubah);
cmd.Parameters.Add(new SqlParameter(“@return”, SqlDbType.Int, 32));
cmd.Parameters["@return"].Direction = ParameterDirection.Output;
cmd.ExecuteNonQuery();
int affectedRow = Convert.ToInt32(cmd.Parameters["@return"].Value);
if (affectedRow == 0)
{
return false;
}
else return true;
}
Posted by: wihemdra on: Friday,August 7, 2009
So you sailed away
Into a grey sky morning
Now I’m here to stay
Love can be so boring
Nothing’s quite the same now
I just say your name now
[Chorus]
But it’s not so bad
You’re only the best I ever had
You don’t want me back
You’re just the best I ever had
So you stole my world
Now I’m just a phony
Remembering the girl
Leaves me down and lonely
Send it in a letter
Make yourself feel better
[Chorus]
But it’s not so bad
You’re only the best I ever had
You don’t need me back
You’re just the best I ever had
And it may take some time to
Patch me up inside
But I can’t take it so I
Run away and hide
And I may find in time that
You were always right
You’re always right
So you sailed away
Into a grey sky morning
Now I’m here to stay
Love can be so boring
What was it you wanted
Could it be I’m haunted
[Chorus]
But it’s not so bad
You’re only the best I ever had
I don’t want you back
You’re just the best I ever had
The best I ever had
The best I ever
Posted by: wihemdra on: Saturday,August 1, 2009
ketika kau lewat di tempat ku berdiri
kedua mata ini tak berkedip menatapi
pesona indah wajahmu mampu mengalihkan duniaku
tak henti membayangkanmu terganggu oleh cantikmu
tujuh hari dalam seminggu
hidup penuh warna ku coba mendekatimu
memberi tanda cinta
engkau wanita tercantikku yang pernah ku temukan
wajahmu mengalihkan duniaku
hey hey heee pesonamu
dan wajahmu mengalihkanku
pesona indah wajahmu mampu mengalihkan duniaku
tak henti membayangkanmu terganggu oleh cantikmu
tujuh hari dalam seminggu
hidup penuh warna ku coba mendekatimu
memberi tanda cinta
engkau wanita tercantikku yang pernah ku temukan
wajahmu mengalihkan duniaku
hidupku penuh warna
ku selalu mendekatimu memberi tanda cinta hooo ooo..
engkau wanita tercantikku yang pernah ku temukan
wajahmu mengalihkan duniaku
mengalihkan duniaku
mengalihkan duniaku
mengalihkan duniaku
Posted by: wihemdra on: Tuesday,July 28, 2009
lyric : D’Masiv – Jangan Menyerah
Tak ada manusia yang terlahir sempurna
Jangan kau sesali segala yang telah terjadi
Kita pasti pernah dapatkan cobaan yang berat
Seakan hidup ini tak ada artinya lagi
Syukuri apa yang ada, hidup adalah anugerah
Tetap jalani hidup ini melakukan yang terbaik
Tuhan pasti kan menunjukkan Kebesaran dan Kuasanya
Bagi hambanya yang sabar dan tak kenal putus asa
Jangan menyerah…! jangan menyerah…!
Posted by: wihemdra on: Friday,July 3, 2009
Aku terperangkap di antara dua hati
yang mencintaiku mencintaiku
ku bingung tak menentu
siapa yang benar-benar
mencintaiku mencintaiku
mereka berlomba
saling mencuri mendapatkan hatiku
siapa yang pantas yang bisa ku andalkan
bukan rayuan bukan pujian
yang aku butuhkan cinta apa adanya
aku pilih dia
tuhan tolong aku
siapa yang benar-benar
aku cintai hidup dan mati
beri petunjuk-Mu
biar aku tak kan salah
pilih yang tepat tepat akurat
aku pilih..
aku pilih..
aku pilih dia
Recent Comments