75

A.LISTING PROGRAM 1.form data kriteria using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using MySql.Data.MySqlClient; namespace FuzzyPM { public partial class frmDataKriteria : Form { public MySqlConnection conn = null; public Boolean bolTambah = true; public Boolean bolCari = true; public frmDataKriteria() { InitializeComponent(); } private void cmdKeluar_Click(object sender, EventArgs e) { Dispose(); } private void frmDataKriteria_Load(object sender, EventArgs e) { string host = "localhost"; string user = "root"; string password = ""; string database = "dbFuzzyPM"; string connStr = "server=" + host + ";user=" + user + ";database=" + database + ";password=" + password + ";"; conn = new MySqlConnection(connStr); conn.Open(); txtID.Enabled = false; txtKDKriteria.Enabled = false; txtNama.Enabled = false; txtTargetGAP.Enabled = false; txtFactor.Enabled = false; cmdEdit.Enabled = false; } private void lv_SelectedIndexChanged(object sender, EventArgs e) { } } }

2.Form data nilai

Universitas Sumatera Utara

76 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using MySql.Data.MySqlClient; namespace FuzzyPM { public partial class frmDataNilai : Form { public MySqlConnection conn = null; public string connStr = "Server=localhost;database=dbFuzzyPM;Uid=root;pwd="; // public MySqlConnection conn = null; public Boolean bolTambah = false ; public Boolean bolCari = false ; public Boolean bolAda = false; string KDKriteria=""; string KDPemain = ""; public int IDKriteria; public int IDTes; public string XX =""; public frmDataNilai() { InitializeComponent(); } private void cmdKeluar_Click(object sender, EventArgs e) { Dispose(); } private void frmDataNilai_Load(object sender, EventArgs e) { string host = "localhost"; string user = "root"; string password = ""; string database = "dbFuzzyPM"; connStr = "server=" + host + ";user=" + user + ";database=" + database + ";password=" + password + ";"; // conn = new MySqlConnection(connStr); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); txtNilai.Enabled = false; cmdDataBaru.Enabled = true; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdSimpan.Enabled = false; cboKriteria.Enabled = false; cmdDataBaru.Focus(); try { MySqlConnection con = new MySqlConnection(connStr); con.Open(); lvPemain.Items.Clear(); MySqlCommand cmd = new MySqlCommand("SELECT * FROM Pemain");

Universitas Sumatera Utara

77 cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lvPemain.View = View.Details; // view lvPemain.Columns.Add("Kode", 80); lvPemain.Columns.Add("Nama ", 250); while (mdr.Read()) { lvi = lvPemain.Items.Add(mdr["KDPemain"].ToString()); // kolom pertama lvi.SubItems.Add(mdr["NmPemain"].ToString()); // kolom kedua } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } this.ViewData(); } void ViewKriteria() { lvKriteria.Items.Clear(); try { MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand("select * from DataKriteria where KDKriteria='" + KDKriteria + "' order by IDKriteria asc"); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lvKriteria.View = View.Details; lvKriteria.Columns.Add("ID", 80); lvKriteria.Columns.Add("Nama Kriteria", 200); while (mdr.Read()) { lvi = lvKriteria.Items.Add(mdr["IDKriteria"].ToString()); lvi.SubItems.Add(mdr["Nama"].ToString()); } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } } void ViewData() { lvDataTes.Items.Clear(); try {

Universitas Sumatera Utara

78 MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand("select * from Datates order by IDTes asc"); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lvDataTes.View = View.Details; lvDataTes.Columns.Add("ID Tes", 80); lvDataTes.Columns.Add("ID Kriteria", 100); lvDataTes.Columns.Add("Kd Pemain", 100); lvDataTes.Columns.Add("Nilai", 100); while (mdr.Read()) { lvi = lvDataTes.Items.Add(mdr["IDTes"].ToString()); lvi.SubItems.Add(mdr["IDKriteria"].ToString()); lvi.SubItems.Add(mdr["KDPemain"].ToString()); lvi.SubItems.Add(mdr["Nilai"].ToString()); } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } } private void cboKriteria_SelectedIndexChanged(object sender, EventArgs e) { string NmTes; NmTes = cboKriteria.Text; if (NmTes == "Tes Teknik") { KDKriteria = "TT"; } else if (NmTes == "Tes Personal") { KDKriteria = "TP"; } else if (NmTes == "Tes Fisik") { KDKriteria = "TF"; } lvPemain.Enabled = true; lvPemain.Focus(); } private void lvPemain_Click(object sender, EventArgs e) { if (bolTambah) { KDPemain = lvPemain.SelectedItems[0].Text; MySqlConnection conn = new MySqlConnection(connStr);

Universitas Sumatera Utara

79 conn.Open(); MySqlCommand cmd = new MySqlCommand("select * from Pemain where KDPemain='" + KDPemain + "'"); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); if (mdr.Read()) { lblNmPemain.Text = mdr["NmPemain"].ToString(); bolAda=true; } else { lblNmPemain.Text = ""; bolAda = false; } mdr.Close(); if (bolAda) { this.ViewKriteria(); } } } private void cmdDataBaru_Click(object sender, EventArgs e) { cmdDataBaru.Enabled = false; bolTambah = true; cboKriteria.Enabled = true; cboKriteria.Focus(); } private void cmdBatal_Click(object sender, EventArgs e) { txtNilai.Enabled = false; txtNilai.Text = ""; lvKriteria.Items.Clear(); lvDataTes.Items.Clear(); lblNmKriteria.Text = ""; lblNmPemain.Text = ""; cmdDataBaru.Enabled = true; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdSimpan.Enabled = false; cboKriteria.Enabled = false; cmdDataBaru.Focus(); } private void lvKriteria_Click(object sender, EventArgs e) { if (bolTambah) { Boolean bolAda =false; IDKriteria = Convert.ToInt32 (lvKriteria.SelectedItems[0].Text); MySqlConnection conn = new MySqlConnection(connStr); conn.Open();

Universitas Sumatera Utara

80 MySqlCommand cmd = new MySqlCommand("select * from Datates where KDPemain='" + KDPemain + "' and IDKriteria=" + IDKriteria + ""); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); if (mdr.Read()) { bolAda = true; } mdr.Close(); conn.Close(); if (bolAda) { conn.Open(); cmd = new MySqlCommand("select * from DataKriteria where IDKriteria=" + IDKriteria + ""); cmd.Connection = conn; mdr = cmd.ExecuteReader(); if (mdr.Read()) { lblNmKriteria.Text = mdr["nama"].ToString(); txtNilai.Enabled = true; txtNilai.Focus(); } } else { MessageBox.Show ("Kriteria sudah ada"); } mdr.Close(); conn.Close(); } } private void txtNilai_KeyPress(object sender, KeyPressEventArgs e) { if (e.KeyChar == 13) { if (bolTambah) { cmdSimpan.Enabled = true; cmdSimpan.Focus(); } } } private void cmdSimpan_Click(object sender, EventArgs e) { cmdSimpan.Enabled = false; if (IDKriteria > 0) { this.CariID(); string sql = string.Format("insert into Datates (IDtes, IDKriteria, KDPemain,Nilai) VALUES ('{0}','{1}','{2}','{3}')", IDTes, IDKriteria,KDPemain,txtNilai.Text); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close();

Universitas Sumatera Utara

81 this.ViewData(); MessageBox.Show("Data sudah disimpan"); DialogResult dr = MessageBox.Show("Apakah Ada data lagi?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Warning); if (dr == DialogResult.Yes) { txtNilai.Text = ""; lblNmKriteria.Text = ""; IDKriteria = 0; } else { this.Bersih(); this.Mati(); cmdSimpan.Enabled = false; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdDataBaru.Enabled = true; cmdDataBaru.Focus(); } } } void Bersih() { txtNilai.Text = ""; lvKriteria.Items.Clear(); lvDataTes.Items.Clear(); lblNmKriteria.Text = ""; lblNmPemain.Text = ""; } void Mati() { txtNilai.Enabled = false; cboKriteria.Enabled = false; lvDataTes.Enabled = false; lvKriteria.Enabled = false; lvPemain.Enabled = false; } void CariID() { MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd = new MySqlCommand("Select * from Datates order by IDTes desc"); cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader(); if (mdr.Read()) { IDTes = Convert.ToInt32(mdr["IDTes"]) + 1; } else { IDTes = 1; } con.Close(); mdr.Close(); }

Universitas Sumatera Utara

82

private void cmdCari_Click(object sender, EventArgs e) { bolCari = true; lvDataTes.Enabled = true; } private void lvDataTes_Click(object sender, EventArgs e) { Boolean bolAda =false; if (bolCari) { IDTes = Convert.ToInt32(lvDataTes.SelectedItems[0].Text); IDKriteria = Convert.ToInt32(lvDataTes.SelectedItems[0].SubItems[1].Text); KDPemain = Convert.ToString(lvDataTes.SelectedItems[0].SubItems[2].Text); MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd = new MySqlCommand("select * from Datates where IDTes=" + IDTes + ""); cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader(); if (mdr.Read()) { txtNilai.Text = Convert.ToString (mdr["Nilai"]); bolAda = true; txtNilai.Enabled = true; cmdEdit.Enabled = true; cmdHapus.Enabled = true; } else { bolAda = false; txtNilai.Text = ""; } con.Close(); mdr.Close(); if (bolAda) { con = new MySqlConnection(connStr); con.Open(); cmd = new MySqlCommand("select * from DataKriteria where IDKriteria=" + IDKriteria + ""); cmd.Connection = con; mdr = cmd.ExecuteReader(); if (mdr.Read()) { lblNmKriteria.Text = Convert.ToString (mdr["nama"]); KDKriteria = Convert.ToString (mdr["KDKriteria"]); } else { bolAda = false; txtNilai.Text = "";

Universitas Sumatera Utara

83 } con.Close(); mdr.Close(); con = new MySqlConnection(connStr); con.Open(); cmd = new MySqlCommand("select * from Kriteria where KDKriteria='" + KDKriteria + "'"); cmd.Connection = con; mdr = cmd.ExecuteReader(); if (mdr.Read()) { cboKriteria.Text = Convert.ToString(mdr["NmKriteria"]); } con.Close(); mdr.Close(); con = new MySqlConnection(connStr); con.Open(); cmd = new MySqlCommand("select * from Pemain where KDPemain='" + KDPemain + "'"); cmd.Connection = con; mdr = cmd.ExecuteReader(); if (mdr.Read()) { lblNmPemain.Text = Convert.ToString(mdr["NmPemain"]); } else { lblNmPemain.Text = ""; } con.Close(); mdr.Close();

} } } private void cmdEdit_Click(object sender, EventArgs e) { cmdEdit.Enabled = false; cmdHapus.Enabled = false; string sql = string.Format("Update Datates SET Nilai=" + txtNilai.Text + " where IDTes=" + IDTes + ""); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); MessageBox.Show("Data sudah diedit"); this.Bersih(); this.Mati();

Universitas Sumatera Utara

84 this.ViewData(); cmdSimpan.Enabled = false; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdDataBaru.Enabled = true; cmdDataBaru.Focus(); } private void cmdHapus_Click(object sender, EventArgs e) { cmdEdit.Enabled = false; cmdHapus.Enabled = false; string sql = string.Format("Delete from Datates where IDTes=" + IDTes + ""); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); MessageBox.Show("Data sudah dihapus"); this.Bersih(); this.Mati(); this.ViewData(); cmdSimpan.Enabled = false; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdDataBaru.Enabled = true; cmdDataBaru.Focus(); } } }

3. form Fuzzy using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using MySql.Data.MySqlClient; namespace FuzzyPM { public partial class frmDataNilai : Form { public MySqlConnection conn = null; public string connStr = "Server=localhost;database=dbFuzzyPM;Uid=root;pwd="; // public MySqlConnection conn = null; public Boolean bolTambah = false ; public Boolean bolCari = false ; public Boolean bolAda = false; string KDKriteria=""; string KDPemain = "";

Universitas Sumatera Utara

85 public public public public

int IDKriteria; int IDTes; string XX =""; frmDataNilai()

{ InitializeComponent(); } private void cmdKeluar_Click(object sender, EventArgs e) { Dispose(); } private void frmDataNilai_Load(object sender, EventArgs e) { string host = "localhost"; string user = "root"; string password = ""; string database = "dbFuzzyPM"; connStr = "server=" + host + ";user=" + user + ";database=" + database + ";password=" + password + ";"; // conn = new MySqlConnection(connStr); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); txtNilai.Enabled = false; cmdDataBaru.Enabled = true; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdSimpan.Enabled = false; cboKriteria.Enabled = false; cmdDataBaru.Focus(); try { MySqlConnection con = new MySqlConnection(connStr); con.Open(); lvPemain.Items.Clear(); MySqlCommand cmd = new MySqlCommand("SELECT * FROM Pemain"); cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lvPemain.View = View.Details; // view lvPemain.Columns.Add("Kode", 80); lvPemain.Columns.Add("Nama ", 250); while (mdr.Read()) { lvi = lvPemain.Items.Add(mdr["KDPemain"].ToString()); // kolom pertama lvi.SubItems.Add(mdr["NmPemain"].ToString()); // kolom kedua } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } this.ViewData();

Universitas Sumatera Utara

86 } void ViewKriteria() { lvKriteria.Items.Clear(); try { MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand("select * from DataKriteria where KDKriteria='" + KDKriteria + "' order by IDKriteria asc"); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lvKriteria.View = View.Details; lvKriteria.Columns.Add("ID", 80); lvKriteria.Columns.Add("Nama Kriteria", 200); while (mdr.Read()) { lvi = lvKriteria.Items.Add(mdr["IDKriteria"].ToString()); lvi.SubItems.Add(mdr["Nama"].ToString()); } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } } void ViewData() { lvDataTes.Items.Clear(); try { MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand("select * from Datates order by IDTes asc"); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lvDataTes.View = View.Details; lvDataTes.Columns.Add("ID Tes", 80); lvDataTes.Columns.Add("ID Kriteria", 100); lvDataTes.Columns.Add("Kd Pemain", 100); lvDataTes.Columns.Add("Nilai", 100); while (mdr.Read()) { lvi = lvDataTes.Items.Add(mdr["IDTes"].ToString()); lvi.SubItems.Add(mdr["IDKriteria"].ToString()); lvi.SubItems.Add(mdr["KDPemain"].ToString()); lvi.SubItems.Add(mdr["Nilai"].ToString()); } mdr.Close();

Universitas Sumatera Utara

87 } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } } private void cboKriteria_SelectedIndexChanged(object sender, EventArgs e) { string NmTes; NmTes = cboKriteria.Text; if (NmTes == "Tes Teknik") { KDKriteria = "TT"; } else if (NmTes == "Tes Personal") { KDKriteria = "TP"; } else if (NmTes == "Tes Fisik") { KDKriteria = "TF"; } lvPemain.Enabled = true; lvPemain.Focus(); } private void lvPemain_Click(object sender, EventArgs e) { if (bolTambah) { KDPemain = lvPemain.SelectedItems[0].Text; MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand("select * from Pemain where KDPemain='" + KDPemain + "'"); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); if (mdr.Read()) { lblNmPemain.Text = mdr["NmPemain"].ToString(); bolAda=true; } else { lblNmPemain.Text = ""; bolAda = false; } mdr.Close(); if (bolAda) { this.ViewKriteria(); }

Universitas Sumatera Utara

88

} } private void cmdDataBaru_Click(object sender, EventArgs e) { cmdDataBaru.Enabled = false; bolTambah = true; cboKriteria.Enabled = true; cboKriteria.Focus(); } private void cmdBatal_Click(object sender, EventArgs e) { txtNilai.Enabled = false; txtNilai.Text = ""; lvKriteria.Items.Clear(); lvDataTes.Items.Clear(); lblNmKriteria.Text = ""; lblNmPemain.Text = ""; cmdDataBaru.Enabled = true; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdSimpan.Enabled = false; cboKriteria.Enabled = false; cmdDataBaru.Focus(); } private void lvKriteria_Click(object sender, EventArgs e) { if (bolTambah) { Boolean bolAda =false; IDKriteria = Convert.ToInt32 (lvKriteria.SelectedItems[0].Text); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand("select * from Datates where KDPemain='" + KDPemain + "' and IDKriteria=" + IDKriteria + ""); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); if (mdr.Read()) { bolAda = true; } mdr.Close(); conn.Close(); if (bolAda) { conn.Open(); cmd = new MySqlCommand("select * from DataKriteria where IDKriteria=" + IDKriteria + ""); cmd.Connection = conn; mdr = cmd.ExecuteReader(); if (mdr.Read()) { lblNmKriteria.Text = mdr["nama"].ToString(); txtNilai.Enabled = true; txtNilai.Focus();

Universitas Sumatera Utara

89 } } else { MessageBox.Show

("Kriteria sudah ada");

} mdr.Close(); conn.Close(); } } private void txtNilai_KeyPress(object sender, KeyPressEventArgs e) { if (e.KeyChar == 13) { if (bolTambah) { cmdSimpan.Enabled = true; cmdSimpan.Focus(); } } } private void cmdSimpan_Click(object sender, EventArgs e) { cmdSimpan.Enabled = false; if (IDKriteria > 0) { this.CariID(); string sql = string.Format("insert into Datates (IDtes, IDKriteria, KDPemain,Nilai) VALUES ('{0}','{1}','{2}','{3}')", IDTes, IDKriteria,KDPemain,txtNilai.Text); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); this.ViewData(); MessageBox.Show("Data sudah disimpan"); DialogResult dr = MessageBox.Show("Apakah Ada data lagi?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Warning); if (dr == DialogResult.Yes) { txtNilai.Text = ""; lblNmKriteria.Text = ""; IDKriteria = 0; } else { this.Bersih(); this.Mati(); cmdSimpan.Enabled = false; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdDataBaru.Enabled = true; cmdDataBaru.Focus(); } } }

Universitas Sumatera Utara

90 void Bersih() { txtNilai.Text = ""; lvKriteria.Items.Clear(); lvDataTes.Items.Clear(); lblNmKriteria.Text = ""; lblNmPemain.Text = ""; } void Mati() { txtNilai.Enabled = false; cboKriteria.Enabled = false; lvDataTes.Enabled = false; lvKriteria.Enabled = false; lvPemain.Enabled = false; } void CariID() { MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd = new MySqlCommand("Select * from Datates order by IDTes desc"); cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader(); if (mdr.Read()) { IDTes = Convert.ToInt32(mdr["IDTes"]) + 1; } else { IDTes = 1; } con.Close(); mdr.Close(); } private void cmdCari_Click(object sender, EventArgs e) { bolCari = true; lvDataTes.Enabled = true; } private void lvDataTes_Click(object sender, EventArgs e) { Boolean bolAda =false; if (bolCari) { IDTes = Convert.ToInt32(lvDataTes.SelectedItems[0].Text); IDKriteria = Convert.ToInt32(lvDataTes.SelectedItems[0].SubItems[1].Text); KDPemain = Convert.ToString(lvDataTes.SelectedItems[0].SubItems[2].Text); MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd = new MySqlCommand("select * from Datates where IDTes=" + IDTes + "");

Universitas Sumatera Utara

91 cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader(); if (mdr.Read()) { txtNilai.Text = Convert.ToString (mdr["Nilai"]); bolAda = true; txtNilai.Enabled = true; cmdEdit.Enabled = true; cmdHapus.Enabled = true; } else { bolAda = false; txtNilai.Text = ""; } con.Close(); mdr.Close(); if (bolAda) { con = new MySqlConnection(connStr); con.Open(); cmd = new MySqlCommand("select * from DataKriteria where IDKriteria=" + IDKriteria + ""); cmd.Connection = con; mdr = cmd.ExecuteReader(); if (mdr.Read()) { lblNmKriteria.Text = Convert.ToString (mdr["nama"]); KDKriteria = Convert.ToString (mdr["KDKriteria"]); } else { bolAda = false; txtNilai.Text = ""; } con.Close(); mdr.Close(); con = new MySqlConnection(connStr); con.Open(); cmd = new MySqlCommand("select * from Kriteria where KDKriteria='" + KDKriteria + "'"); cmd.Connection = con; mdr = cmd.ExecuteReader(); if (mdr.Read()) { cboKriteria.Text = Convert.ToString(mdr["NmKriteria"]); } con.Close(); mdr.Close(); con = new MySqlConnection(connStr); con.Open(); cmd = new MySqlCommand("select * from Pemain where KDPemain='" + KDPemain + "'");

Universitas Sumatera Utara

92 cmd.Connection = con; mdr = cmd.ExecuteReader(); if (mdr.Read()) { lblNmPemain.Text = Convert.ToString(mdr["NmPemain"]); } else { lblNmPemain.Text = ""; } con.Close(); mdr.Close();

} } } private void cmdEdit_Click(object sender, EventArgs e) { cmdEdit.Enabled = false; cmdHapus.Enabled = false; string sql = string.Format("Update Datates SET Nilai=" + txtNilai.Text + " where IDTes=" + IDTes + ""); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); MessageBox.Show("Data sudah diedit"); this.Bersih(); this.Mati(); this.ViewData(); cmdSimpan.Enabled = false; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdDataBaru.Enabled = true; cmdDataBaru.Focus(); } private void cmdHapus_Click(object sender, EventArgs e) { cmdEdit.Enabled = false; cmdHapus.Enabled = false; string sql = string.Format("Delete from Datates where IDTes=" + IDTes + ""); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close();

Universitas Sumatera Utara

93 MessageBox.Show("Data sudah dihapus"); this.Bersih(); this.Mati(); this.ViewData(); cmdSimpan.Enabled = false; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdDataBaru.Enabled = true; cmdDataBaru.Focus(); } } }

4.form help using using using using using using using using

System; System.Collections.Generic; System.ComponentModel; System.Data; System.Drawing; System.Linq; System.Text; System.Windows.Forms;

namespace FuzzyPM { public partial class frmHelp : Form { public frmHelp() { InitializeComponent(); } } }

5.form menu using using using using using using using using

System; System.Collections.Generic; System.ComponentModel; System.Data; System.Drawing; System.Linq; System.Text; System.Windows.Forms;

namespace FuzzyPM { public partial class frmMenu : Form { public frmMenu() { InitializeComponent(); } private void exitToolStripMenuItem_Click(object sender, EventArgs e) {

Universitas Sumatera Utara

94 Dispose(); } private void profileMatchingToolStripMenuItem_Click(object sender, EventArgs e) { frmProfileM ff = new frmProfileM(); ff.ShowDialog(); } private void fuzzyToolStripMenuItem_Click(object sender, EventArgs e) { frmFuzzy ee = new frmFuzzy(); ee.ShowDialog(); } private void helpToolStripMenuItem_Click(object sender, EventArgs e) { frmHelp ee = new frmHelp(); ee.ShowDialog(); } private void aboutToolStripMenuItem_Click(object sender, EventArgs e) { frmAbt ee = new frmAbt(); ee.ShowDialog(); } private void dataPemainToolStripMenuItem_Click(object sender, EventArgs e) { frmUser ee = new frmUser(); ee.ShowDialog(); } private void dataTesToolStripMenuItem_Click(object sender, EventArgs e) { frmDataNilai ee = new frmDataNilai(); ee.ShowDialog(); } private void dataKriteriaToolStripMenuItem_Click(object sender, EventArgs e) { frmDataKriteria ee = new frmDataKriteria(); ee.ShowDialog(); } } }

6. form pemain using System; using System.Collections.Generic;

Universitas Sumatera Utara

95 using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using MySql.Data.MySqlClient; namespace FuzzyPM { public partial class frmPemain : Form { public string connStr = "Server=localhost;database=dbFuzzyPM;Uid=root;pwd="; public MySqlConnection conn = null; public Boolean bolTambah = true; public Boolean bolCari = true; public frmPemain() { InitializeComponent(); } private void frmPemain_Load(object sender, EventArgs e) { string host = "localhost"; string user = "root"; string password = ""; string database = "dbFuzzyPM"; string connStr = "server=" + host + ";user=" + user + ";database=" + database + ";password=" + password + ";"; conn = new MySqlConnection(connStr); conn.Open(); txtKode.Enabled = false; txtNama.Enabled = false; cmdDataBaru.Enabled = true; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdSimpan.Enabled = false; try { MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd = new MySqlCommand("SELECT * FROM Pemain"); cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lv.View = View.Details; // view lv.Columns.Add("Kode", 80); lv.Columns.Add("Nama ", 250); while (mdr.Read()) { lvi = lv.Items.Add(mdr["KDPemain"].ToString()); // kolom pertama lvi.SubItems.Add(mdr["NmPemain"].ToString()); // kolom kedua } mdr.Close(); }

Universitas Sumatera Utara

96

catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } } private void cmdKeluar_Click(object sender, EventArgs e) { Dispose(); } private void cmdDataBaru_Click(object sender, EventArgs e) { cmdDataBaru.Enabled = false; bolTambah = true; txtKode.Enabled = true; txtKode.Select(); } private void lv_SelectedIndexChanged(object sender, EventArgs e) { } private void txtKode_TextChanged(object sender, EventArgs e) { } private void txtKode_KeyPress(object sender, KeyPressEventArgs e) { if (e.KeyChar == 13) { if (bolTambah) { txtNama.Enabled = true; txtNama.Focus(); } else { cmdEdit.Enabled = true; cmdHapus.Enabled = true; } } } private void txtNama_TextChanged(object sender, EventArgs e) { } private void txtNama_KeyPress(object sender, KeyPressEventArgs e) { if (e.KeyChar == 13) { if (bolTambah) { cmdSimpan.Enabled = true; cmdSimpan.Focus(); }

Universitas Sumatera Utara

97 else { cmdEdit.Enabled = true; cmdHapus.Enabled = true; } } } private void cmdSimpan_Click(object sender, EventArgs e) { cmdSimpan.Enabled = false; string sql = string.Format("insert into Pemain (KDPemain,NmPemain) VALUES ('{0}','{1}')", txtKode.Text, txtNama.Text); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); } } }

7. form profile matching using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using MySql.Data.MySqlClient; using System.Globalization; namespace FuzzyPM { public partial class frmProfileM : Form { public MySqlConnection conn = null; public string connStr = "Server=localhost;database=dbFuzzyPM;Uid=root;pwd="; int IDTes; int IDKriteria; string Kriteria; string KDPemain; string NmPemain; string[,] str; string X; bool bolSelesai; public Decimal Bobot; float TBobot; public Decimal BobotGAP; public Decimal TotBobotGAP; float RataBobotGAP; int JumTes; int IDBobot; // float uST; // float uT; //float uC; //float uR;

Universitas Sumatera Utara

98 //float uSR; float AlphaTesTeknik; float AlphaTesPersonal; float AlphaFisik; public int milseconds; public int seconds; public int minutes; public int hours; string edit; string Codefactor; public int GapTarget; public Decimal ProfileTarget; public frmProfileM() { InitializeComponent(); } private void frmProfileM_Load(object sender, EventArgs e) { string host = "localhost"; string user = "root"; string password = ""; string database = "dbFuzzyPM"; string connStr = "server=" + host + ";user=" + user + ";database=" + database + ";password=" + password + ";"; connStr = ("Server=localhost;database=dbFuzzyPM;Uid=root;pwd="); string sql = string.Format("Delete from Bobotpm"); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); sql = string.Format("Delete from hasil"); //MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); this.DataPemain(); this.ViewKriteria(); this.ViewData(); } void DataPemain() { lvPemain.Items.Clear(); try { MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd = new MySqlCommand("SELECT * FROM Pemain"); cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader();

Universitas Sumatera Utara

99 ListViewItem lvi; lvPemain.View = View.Details; // view lvPemain.Columns.Add("Kode", 80); lvPemain.Columns.Add("Nama ", 250); while (mdr.Read()) { lvi = lvPemain.Items.Add(mdr["KDPemain"].ToString()); // kolom pertama lvi.SubItems.Add(mdr["NmPemain"].ToString()); // kolom kedua } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } } void ViewData() { lv.Items.Clear(); try { MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand("select * from Datates order by IDTes asc"); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lv.View = View.Details; lv.Columns.Add("ID Tes", 80); lv.Columns.Add("ID Kriteria", 80); lv.Columns.Add("KD Pemain", 80); lv.Columns.Add("Nilai", 80); while (mdr.Read()) { lvi = lv.Items.Add(mdr["IDTes"].ToString()); lvi.SubItems.Add(mdr["IDKriteria"].ToString()); lvi.SubItems.Add(mdr["KDPemain"].ToString()); lvi.SubItems.Add(mdr["Nilai"].ToString()); } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } } void ViewKriteria() { lvKriteria.Items.Clear(); try { MySqlConnection conn = new MySqlConnection(connStr);

Universitas Sumatera Utara

100 conn.Open(); MySqlCommand cmd = new MySqlCommand("select * from DataKriteria order by IDKriteria asc"); cmd.Connection = conn; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lvKriteria.View = View.Details; lvKriteria.Columns.Add("ID", 80); lvKriteria.Columns.Add("KDKriteria", 80); lvKriteria.Columns.Add("Nama Kriteria", 80); lvKriteria.Columns.Add("Profile Target", 80); lvKriteria.Columns.Add("Factor", 80); while (mdr.Read()) { lvi = lvKriteria.Items.Add(mdr["IDKriteria"].ToString()); lvi.SubItems.Add(mdr["KDKriteria"].ToString()); lvi.SubItems.Add(mdr["Nama"].ToString()); lvi.SubItems.Add(mdr["ProfileTarget"].ToString()); lvi.SubItems.Add(mdr["Factor"].ToString()); } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } } void CariIDBobot() { MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd = new MySqlCommand("Select * from Bobotpm order by IDBobot desc"); cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader(); if (mdr.Read()) { IDBobot = Convert.ToInt32(mdr["IDBobot"]) + 1; } else { IDBobot = 1; } con.Close(); } private void cmdQuit_Click(object sender, EventArgs e) { Dispose(); } private void cmdProses_Click(object sender, EventArgs e) { cmdProses.Enabled=false; int intNilai=0; Timer1.Interval = 1000; Timer1.Start();

Universitas Sumatera Utara

101 pb.Value = 20; this.ViewData(); for (int a = 0; a < lvPemain.Items.Count; a++) { KDPemain = lvPemain.Items[a].SubItems[0].Text; NmPemain = lvPemain.Items[a].SubItems[1].Text; for (int b = 0; b < lvKriteria.Items.Count; b++) { IDKriteria = Convert.ToInt32(lvKriteria.Items[b].SubItems[0].Text); MySqlDataReader myReader = null; MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmdDatabase = new MySqlCommand("Select * from Datates where KDPemain='" + KDPemain + "' and IDKriteria=" + IDKriteria + "", con); myReader = cmdDatabase.ExecuteReader(); while (myReader.Read()) { Application.DoEvents(); intNilai = Convert.ToInt32(myReader["Nilai"]); if (((intNilai >= 85) && (intNilai = 70) && (intNilai = 45) && (intNilai = 20) && (intNilai = 60)) { seconds = 0; minutes = (minutes + 1); }

Universitas Sumatera Utara

110

if ((minutes >= 60)) { if ((seconds >= 60)) { seconds = 0; minutes = 0; hours = hours + 1; } } lblLama.Text = (hours) + (":" + (minutes) + (":" + (seconds))); } } }

8. form user using using using using using

System; System.Collections.Generic; System.Windows.Forms; MySql.Data.MySqlClient; System.Text;

namespace FuzzyPM { public partial class frmUser : Form { public MySqlConnection conn = null; public Boolean bolTambah = true; public Boolean bolCari = true; public string connStr = "Server=localhost;database=dbFuzzyPM;Uid=root;pwd="; public frmUser() { InitializeComponent(); } private MySql.Data.MySqlClient.MySqlCommand query = null; private void frmUser_Load(object sender, EventArgs e) { string host = "localhost"; string user = "root"; string password = ""; string database = "dbFuzzyPM"; string connStr = "server=" + host + ";user=" + user + ";database=" + database + ";password=" + password + ";"; conn = new MySqlConnection(connStr); conn.Open(); txtKode.Enabled = false; txtNama.Enabled = false; cmdDataBaru.Enabled = true; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdSimpan.Enabled = false;

Universitas Sumatera Utara

111 try { MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd = new MySqlCommand("SELECT * FROM Pemain"); cmd.Connection = con; MySqlDataReader mdr = cmd.ExecuteReader(); ListViewItem lvi; lv.View = View.Details; // view lv.Columns.Add("Kode",80); lv.Columns.Add("Nama ",250); while (mdr.Read()) { lvi=lv.Items.Add(mdr["KDPemain"].ToString()); // kolom pertama lvi.SubItems.Add(mdr["NmPemain"].ToString()); // kolom kedua } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } } private void cmdKeluar_Click(object sender, EventArgs e) { Dispose(); } private void cmdDataBaru_Click(object sender, EventArgs e) { cmdDataBaru.Enabled = false; bolTambah = true; txtKode.Enabled = true; txtKode.Select(); } private void txtKode_KeyPress(object sender, KeyPressEventArgs e) { MySqlDataReader myReader = null; if (e.KeyChar == 13) { MySqlCommand cmdDatabase = new MySqlCommand("SELECT * FROM Pemain where KDPemain='" + txtKode.Text + "'", conn); myReader = cmdDatabase.ExecuteReader(); if (myReader.Read()) { MessageBox.Show("Data sudah ada...."); conn.Close(); txtKode.Text = ""; txtKode.Focus(); } else { myReader = null; txtNama.Text = ""; txtNama.Enabled = true;

Universitas Sumatera Utara

112 txtNama.Focus(); } myReader = null; conn.Close(); } } private void txtNama_KeyPress(object sender, KeyPressEventArgs e) { if (e.KeyChar == 13) { if (bolTambah) { cmdSimpan.Enabled = true; cmdSimpan.Focus(); } else { cmdEdit.Enabled = true; cmdHapus.Enabled = true; } } } private void cmdSimpan_Click(object sender, EventArgs e) { cmdSimpan.Enabled = false; string sql = string.Format("insert into Pemain (KDPemain,NmPemain) VALUES ('{0}','{1}')", txtKode.Text, txtNama.Text); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); try { MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd1 = new MySqlCommand("SELECT * FROM Pemain"); cmd1.Connection = con; MySqlDataReader mdr = cmd1.ExecuteReader(); ListViewItem lvi; lv.Items.Clear(); lv.View = View.Details; // view lv.Columns.Add("Kode", 80); lv.Columns.Add("Nama ", 250); while (mdr.Read()) { lvi = lv.Items.Add(mdr["KDPemain"].ToString()); // kolom pertama lvi.SubItems.Add(mdr["NmPemain"].ToString()); // kolom kedua } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message);

Universitas Sumatera Utara

113 } MessageBox.Show("Saved...."); } private void cmdEdit_Click(object sender, EventArgs e) { cmdEdit.Enabled = false; cmdHapus.Enabled = false; string sql = string.Format("Update Pemain SET NmPemain= '" + txtNama.Text + "' where KDPemain='" + txtKode.Text + "'"); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); try { MySqlConnection con = new MySqlConnection(connStr); con.Open(); MySqlCommand cmd1 = new MySqlCommand("SELECT * FROM Pemain"); cmd1.Connection = con; MySqlDataReader mdr = cmd1.ExecuteReader(); ListViewItem lvi; lv.Items.Clear(); lv.View = View.Details; // view lv.Columns.Add("Kode", 80); lv.Columns.Add("Nama ", 250); while (mdr.Read()) { lvi = lv.Items.Add(mdr["KDPemain"].ToString()); // kolom pertama lvi.SubItems.Add(mdr["NmPemain"].ToString()); // kolom kedua } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } MessageBox.Show("Edit Ok...."); } private void lv_DoubleClick(object sender, EventArgs e) { bolTambah = false; bolCari = true; txtKode.Text = ""; string Kode = lv.SelectedItems[0].Text; txtKode.Text = Kode; string connStr = ("Server=localhost;database=dbFuzzyPM;Uid=root;pwd="); MySqlConnection conn = new MySqlConnection(connStr);

Universitas Sumatera Utara

114 conn.Open(); MySqlDataReader myReader = null; MySqlCommand cmdDatabase = new MySqlCommand("SELECT * FROM Pemain where KDPemain='" + Kode + "'", conn); myReader = cmdDatabase.ExecuteReader(); if (myReader.Read()) { txtNama.Text = myReader["NmPemain"].ToString(); cmdHapus.Enabled = true; cmdEdit.Enabled = true; } else { MessageBox.Show("Data tidak ada...."); txtKode.Text = ""; txtKode.Focus(); } conn.Close(); } private void cmdBatal_Click(object sender, EventArgs e) { txtKode.Text = ""; txtNama.Text = ""; txtKode.Enabled = false; txtNama.Enabled = false; cmdDataBaru.Enabled = true; cmdHapus.Enabled = false; cmdEdit.Enabled = false; cmdSimpan.Enabled = false; } private void cmdCari_Click(object sender, EventArgs e) { txtNama.Enabled = true; cmdEdit.Enabled = true; cmdHapus.Enabled=true; txtNama.Focus(); } private void cmdHapus_Click(object sender, EventArgs e) { cmdEdit.Enabled = false; cmdHapus.Enabled = false; string connStr = ("Server=localhost;database=dbFuzzyPM;Uid=root;pwd="); string sql = string.Format("Delete from Pemain where KDPemain='" + txtKode.Text + "'"); MySqlConnection conn = new MySqlConnection(connStr); conn.Open(); MySqlCommand cmd = new MySqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); try { MySqlConnection con = new MySqlConnection(connStr); con.Open();

Universitas Sumatera Utara

115 MySqlCommand cmd1 = new MySqlCommand("SELECT * FROM Pemain"); cmd1.Connection = con; MySqlDataReader mdr = cmd1.ExecuteReader(); ListViewItem lvi; lv.Items.Clear(); lv.View = View.Details; // view lv.Columns.Add("Kode", 80); lv.Columns.Add("Nama ", 250); while (mdr.Read()) { lvi = lv.Items.Add(mdr["KDPemain"].ToString()); // kolom pertama lvi.SubItems.Add(mdr["NmPemain"].ToString()); // kolom kedua } mdr.Close(); } catch (MySqlException ex) { MessageBox.Show("error " + ex.Message); } MessageBox.Show("Delete Ok...."); } private void lv_SelectedIndexChanged(object sender, EventArgs e) { } private void lv_Click(object sender, EventArgs e) { bolTambah = false; bolCari = true; txtKode.Text = ""; string Kode = lv.SelectedItems[0].Text; txtKode.Text = Kode; txtNama.Text = lv.SelectedItems[0].SubItems[1].Text; } } }

9. form koneksi db using using using using

System; System.Collections.Generic; System.Windows.Forms; MySql.Data.MySqlClient;

namespace FuzzyPM { class KoneksiDb { public MySqlConnection conn = null;

Universitas Sumatera Utara

116 public KoneksiDb() { string host = "localhost"; string user = "root"; string password = ""; string database = "dbFuzzyPM"; string connStr = "server=" + host + ";user=" + user + ";database=" + database + ";password=" + password + ";"; conn = new MySqlConnection(connStr); conn.Open(); } } }

10. form program //using //using //using //using using using using using

System; System.Collections.Generic; System.Linq; System.Windows.Forms;

System; System.Collections.Generic; System.Windows.Forms; MySql.Data.MySqlClient;

namespace FuzzyPM { static class Program { /// /// The main entry point for the application. /// [STAThread] static void Main() { Application.EnableVisualStyles(); Application.SetCompatibleTextRenderingDefault(false); Application.Run(new frmMenu()); // Application.Run(new frmPemain()); } } } namespace Koneksi { }

Universitas Sumatera Utara

117

B. CURRICULUM VITAE

CURRICULUM VITAE

DATA PRIBADI

NamaLengkap

: M Iqbal Lubis

JenisKelamin

: Laki-Laki

Tempat, TanggalLahir

: Medan, 29 januari1993

Alamat

: Jl. STM gang Rahmat No 17A, Medan, Sumatera Utara

Alamat Orangtua

: Jl. STM gang Rahmat No 17A,Medan, Sumatera Utara

Agama

: Islam

E-mail

:[email protected]

Pendidikan Terakhir

: Universitas Sumatera Utara,Fakultas Ilmu Komputer dan Teknologi Informasi, Jurusan S1 Ilmu Komputer

PENDIDIKAN FORMAL 2011 – 2016

: S1 IlmuKomputerUniversitas Sumatera Utara, Medan

2008 – 2011

: SMA Negeri 2 Medan

2005 – 2008

: SMP Negeri 2 Medan

1999 – 2005

: SDN 100 Medan

PENGALAMAN ORGANISASI DAN KEGIATAN ILMIAH AnggotaDepartemenSenidan Olahraga Ikatan Mahasiswa S1 IlmuKomputer (IMILKOM), 2013-

2014 AnggotaUKMI AL-KHUWARIZMIIlmuKomputerUSU 2011-2012

Universitas Sumatera Utara