Life Is A Mystery

Global Koneksi

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;

}

VERTICAL HORIZON – Best I Ever Had (Grey Sky Morning)

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

Afgan – Wajahmu Mengalihkan Duniaku

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

D’Masiv – Jangan Menyerah

Posted by: wihemdra on: Tuesday,July 28, 2009

lyric : D’MasivJangan 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…!

Siapa Yang Pantas – Domino Band

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

Top Downloads

Top Links

Translate My Web

 

November 2009
M T W T F S S
« Oct    
 1
2345678
9101112131415
16171819202122
23242526272829
30  

Categories

Blog Stats

  • 19,532 hits

Note

Focus To The Solution
Is The Best Way
To Solve And Forget The Problems