database.vb
-------------------------------
Imports System.Data.OleDb
Module database
Public Sub connectDatabase()
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=IMPULSE_ANALYZER_DETAILS.mdb;")
'provider to be used when working with access database
If cn.State = ConnectionState.Closed Then
cn.Open()
Else
MessageBox.Show("Opened Already")
End If
If cn.State = ConnectionState.Open Then
'MessageBox.Show("open")
cmd = New OleDbCommand("select * from IA_TABLE", cn)
dr = cmd.ExecuteReader
readDatabase(cmd, cn, dr)
dr.Close()
cn.Close()
Else
MessageBox.Show("Not open")
End If
Catch
End Try
End Sub
Public Sub readDatabase(ByVal cmd As OleDbCommand, ByVal cn As OleDbConnection, ByVal dr As OleDbDataReader)
Main.ListBox_Customer_List.Items.Clear()
Cust_Array_List.Clear()
main.CB_CS_S_NO.Items.Clear()
main.CB_SITE_NAME.Items.Clear()
main.CB_DIV_CARD_NO.Items.Clear()
main.CD_DATE.Items.Clear()
If dr.HasRows Then
While dr.Read()
Dim New_Obj_Customser As IA
New_Obj_Customser.CS_S_NO = dr(1)
main.CB_CS_S_NO.Items.Add(dr(1))
New_Obj_Customser.SITE_NAME = dr(2)
main.CB_SITE_NAME.Items.Add(dr(2))
New_Obj_Customser.DIV_CARD_NO = dr(3)
main.CB_DIV_CARD_NO.Items.Add(dr(3))
New_Obj_Customser.D_DATE = dr(4)
main.CD_DATE.Items.Add(dr(4))
Cust_Array_List.Add(New_Obj_Customser)
Main.ListBox_Customer_List.Items.Add(New_Obj_Customser)
End While
Else
main.CB_CS_S_NO.Items.Clear()
main.CB_DIV_CARD_NO.Items.Clear()
main.CB_SITE_NAME.Items.Clear()
main.CD_DATE.Items.Clear()
If MessageBox.Show("NO ROW FOUND!!!!" & Environment.NewLine & "WANT TO ADD NOW?", "NO ROW FOUND", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
ADD_NEW_FORM.Show()
ADD_NEW_FORM.BTN_NEW.PerformClick()
End If
End If
End Sub
Public Sub writeDatabase(ByVal name, ByVal add, ByVal mob, ByVal email, ByVal DES)
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=IMPULSE_ANALYZER_DETAILS.mdb;")
'provider to be used when working with access database
If cn.State = ConnectionState.Closed Then
cn.Open()
' MessageBox.Show("open")
Else
MessageBox.Show("open already")
End If
If cn.State = ConnectionState.Open Then
'MessageBox.Show(objCh1_FULL.isON & " " & objCh1_FULL.isScale)
'QUERY TO UPDATE ALL SETTINGS
cmd = New OleDbCommand("insert into IA_TABLE(CS_SERIAL_NO, SITE_NAME, DIV_CARD_NO, D_DATE, DESCRIPTION) Values('" & name & "' , '" & add & "' , '" & mob & "', '" & email & "', '" & DES & "')", cn)
' cmd = New OleDbCommand("select * from IA_TABLE", cn)
dr = cmd.ExecuteReader
dr.Close()
cn.Close()
End If
Catch es As Exception
MessageBox.Show(es.ToString)
End Try
End Sub
Public Sub delDatabase(ByVal S_NO_DEL)
Dim query_str As String = "Delete from IA_TABLE where CS_SERIAL_NO ='" & S_NO_DEL & "'"
MessageBox.Show(query_str)
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=IMPULSE_ANALYZER_DETAILS.mdb;")
'provider to be used when working with access database
If cn.State = ConnectionState.Closed Then
cn.Open()
' MessageBox.Show("open")
Else
MessageBox.Show("open already")
End If
If cn.State = ConnectionState.Open Then
'MessageBox.Show(objCh1_FULL.isON & " " & objCh1_FULL.isScale)
'QUERY TO UPDATE ALL SETTINGS
cmd = New OleDbCommand(query_str, cn)
' cmd = New OleDbCommand("select * from IA_TABLE", cn)
dr = cmd.ExecuteReader
dr.Close()
cn.Close()
End If
Catch es As Exception
MessageBox.Show(es.ToString)
End Try
End Sub
'Public Sub selDatabase(ByVal name)
' 'MessageBox.Show(name & " " & add & " " & mob & " " & email)
' Dim cn As OleDbConnection
' Dim cmd As OleDbCommand
' Dim dr As OleDbDataReader
' Try
' cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=IMPULSE_ANALYZER_DETAILS.mdb;")
' 'provider to be used when working with access database
' If cn.State = ConnectionState.Closed Then
' cn.Open()
' ' MessageBox.Show("open")
' Else
' MessageBox.Show("open already")
' End If
' If cn.State = ConnectionState.Open Then
' 'MessageBox.Show(objCh1_FULL.isON & " " & objCh1_FULL.isScale)
' 'QUERY TO UPDATE ALL SETTINGS
' cmd = New OleDbCommand("select * from IA_TABLE where NAME ='" & name & "'", cn)
' ' cmd = New OleDbCommand("select * from IA_TABLE", cn)
' dr = cmd.ExecuteReader
' If dr.HasRows Then
' While dr.Read()
' Main.Tb_CS_S_NOM.Text = dr(1)
' Main.Tb_Cust_AddM.Text = dr(2)
' Main.Tb_SITE_NAMEM.Text = dr(3)
' Main.Tb_D_DATEM.Text = dr(4)
' End While
' End If
' dr.Close()
' cn.Close()
' End If
' Catch es As Exception
' MessageBox.Show(es.ToString)
' End Try
'End Sub
Public Sub modifyDatabase()
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=IMPULSE_ANALYZER_DETAILS.mdb;")
'provider to be used when working with access database
If cn.State = ConnectionState.Closed Then
cn.Open()
' MessageBox.Show("open")
Else
MessageBox.Show("open already")
End If
If cn.State = ConnectionState.Open Then
'MessageBox.Show(objCh1_FULL.isON & " " & objCh1_FULL.isScale)
'QUERY TO UPDATE ALL SETTINGS
cmd = New OleDbCommand("update IA_TABLE set CS_SERIAL_NO ='" & ADD_NEW_FORM.TB_CS_SERIAL_NO.Text & _
"' , SITE_NAME='" & ADD_NEW_FORM.TB_SITE_NAME.Text & "' , DIV_CARD_NO='" & _
ADD_NEW_FORM.TB_DIV_CARD_NO.Text & "' , D_DATE='" & ADD_NEW_FORM.TB_DEL_DATE.Text & _
"' , DESCRIPTION='" & ADD_NEW_FORM.TB_DES.Text & _
"' where CS_SERIAL_NO = '" & ADD_NEW_FORM.TB_CS_SERIAL_NO.Text & "' ", cn)
' cmd = New OleDbCommand("select * from IA_TABLE", cn)
dr = cmd.ExecuteReader
dr.Close()
cn.Close()
End If
Catch es As Exception
MessageBox.Show(es.ToString)
End Try
End Sub
Public Function isDuplicateRow(ByVal name, ByVal add, ByVal mob, ByVal email) As Boolean
'MessageBox.Show(name & " " & add & " " & mob & " " & email)
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=IMPULSE_ANALYZER_DETAILS.mdb;")
'provider to be used when working with access database
If cn.State = ConnectionState.Closed Then
cn.Open()
' MessageBox.Show("open")
Else
MessageBox.Show("open already")
End If
If cn.State = ConnectionState.Open Then
'QUERY TO UPDATE ALL SETTINGS
cmd = New OleDbCommand("select * from IA_TABLE where NAME ='" & name & "' and ADDRESS='" & add & "' and MOB='" & mob & "' and EMAIL='" & email & "' ", cn)
' cmd = New OleDbCommand("select * from IA_TABLE", cn)
dr = cmd.ExecuteReader
If dr.HasRows Then
' While dr.Read()
'If dr(0) = name Then
Return False
' If
' End While
End If
dr.Close()
cn.Close()
End If
Return True
Catch es As Exception
MessageBox.Show(es.ToString)
End Try
End Function
Public Sub searchDatabase(ByVal str)
Dim query_str As String = "select * from IA_TABLE where CS_SERIAL_NO ='" & str & "'"
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=IMPULSE_ANALYZER_DETAILS.mdb;")
'provider to be used when working with access database
If cn.State = ConnectionState.Closed Then
cn.Open()
Else
MessageBox.Show("Opened Already")
End If
If cn.State = ConnectionState.Open Then
'MessageBox.Show("open")
cmd = New OleDbCommand(query_str, cn)
dr = cmd.ExecuteReader
' MessageBox.Show(dr.GetDataTypeName)
If dr.HasRows Then
While dr.Read()
'MessageBox.Show(dr(1) & " | " & dr(2) & " | " & dr(3) & " | " & dr(4) & " | " & dr(5))
ADD_NEW_FORM.LBL_UPDATE.Text = "Cleverscope with Serial No. " & dr(1)
ADD_NEW_FORM.TB_CS_SERIAL_NO.Text = dr(1)
ADD_NEW_FORM.TB_SITE_NAME.Text = dr(2)
ADD_NEW_FORM.TB_DIV_CARD_NO.Text = dr(3)
ADD_NEW_FORM.TB_DEL_DATE.Text = dr(4)
ADD_NEW_FORM.TB_DES.Text = dr(5)
End While
Else
MessageBox.Show("No rows")
' REload database
connectDatabase()
End If
dr.Close()
cn.Close()
Else
MessageBox.Show("UNABLE TO OPEN.")
End If
Catch
End Try
End Sub
Public Sub editDatabase(ByVal S_NO_DEL)
Dim D As String = CType(S_NO_DEL + 1, String)
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim query_str As String = "select * from IA_TABLE where S_NO ='" & D & "'"
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=IMPULSE_ANALYZER_DETAILS.mdb;")
'provider to be used when working with access database
If cn.State = ConnectionState.Closed Then
cn.Open()
Else
MessageBox.Show("Opened Already")
End If
If cn.State = ConnectionState.Open Then
'MessageBox.Show("open")
cmd = New OleDbCommand(query_str, cn)
dr = cmd.ExecuteReader
' MessageBox.Show(dr.GetDataTypeName)
If dr.HasRows Then
While dr.Read()
'MessageBox.Show(dr(1) & " | " & dr(2) & " | " & dr(3) & " | " & dr(4) & " | " & dr(5))
ADD_NEW_FORM.BTN_SAVE.Visible = False
ADD_NEW_FORM.BTN_NEW.Visible = True
ADD_NEW_FORM.LBL_UPDATE.Text = "Edit: Cleverscope with Serial No. " & dr(1)
ADD_NEW_FORM.TB_CS_SERIAL_NO.Text = dr(1)
ADD_NEW_FORM.TB_SITE_NAME.Text = dr(2)
ADD_NEW_FORM.TB_DIV_CARD_NO.Text = dr(3)
ADD_NEW_FORM.TB_DEL_DATE.Text = dr(4)
ADD_NEW_FORM.TB_DES.Text = dr(5)
ADD_NEW_FORM.Show()
MessageBox.Show("No rowdsf.")
'ADD_NEW_FORM.TB_CS_SERIAL_NO.Enabled = False
'ADD_NEW_FORM.TB_SITE_NAME.Enabled = False
'ADD_NEW_FORM.TB_DIV_CARD_NO.Enabled = False
'ADD_NEW_FORM.TB_DEL_DATE.Enabled = False
'ADD_NEW_FORM.TB_DES.Enabled = False
End While
Else
MessageBox.Show("No rows found.")
' REload database
connectDatabase()
End If
dr.Close()
cn.Close()
Else
MessageBox.Show("UNABLE TO OPEN.")
End If
Catch
End Try
End Sub
End Module
---------------------------------------
2. Functions.vb
Imports System.Xml
Module functios
Public SITE_NAME, CS_SERIAL_NO, DIV_CARD_NO As String
Public DELIVERY_DATE As Date
Public Cust_Array_List As New ArrayList()
Public SORTBY As String
Public NM = 0, MB = 0, AD = 0, EM = 0
'Structure contains the IA detail
Public Structure IA
Implements IComparable
Public CS_S_NO As String
Public SITE_NAME As String
Public DIV_CARD_NO As String
Public D_DATE As String
'When Ever a IA structure added to the list, the LISTBOX calls the ToString method and we override it here
Public Overrides Function ToString() As String
Return "CS S.NO:- " & CS_S_NO & " | " & "SITE:- " & SITE_NAME & " | " & "DIV CARD NO.:- " & DIV_CARD_NO & " | " & "DATE:- " & D_DATE
End Function
'Since the ArrayList does not have the capability to sort objects as it would strings,
'so to do tht Implement an IComparable.CompareTo function to facilitate the sort.
'Obviously, you can expand or modify the CompareTo function to sort on multiple properties of different types.
Public Function CompareTo(ByVal obj As Object) As Integer _
Implements System.IComparable.CompareTo
If Not TypeOf obj Is IA Then
Throw New Exception("Object is not MyObject")
End If
Dim Compare As IA = CType(obj, IA)
Dim result As Integer
Select Case SORTBY
Case "Name"
result = Me.CS_S_NO.CompareTo(Compare.CS_S_NO)
Case "Mob"
result = Me.SITE_NAME.CompareTo(Compare.SITE_NAME)
Case "Address"
result = Me.DIV_CARD_NO.CompareTo(Compare.DIV_CARD_NO)
Case "EMail"
result = Me.D_DATE.CompareTo(Compare.D_DATE)
Case Else
result = Me.CS_S_NO.CompareTo(Compare.CS_S_NO)
End Select
' Dim result As Integer = Me.CS_S_NO.CompareTo(Compare.CS_S_NO)
If result = 0 Then
result = Me.CS_S_NO.CompareTo(obj.CS_S_NO)
End If
Return result
End Function
End Structure
Public Function SimpleCrypt(ByVal Text As String) As String
' Encrypts/decrypts the passed string using
' a simple ASCII value-swapping algorithm
Dim strTempChar As String, i As Integer
strTempChar = ""
For i = 1 To Len(Text)
If Asc(Mid$(Text, i, 1)) < 133 Then
strTempChar = CType(Asc(Mid$(Text, i, 1)) + 133, String)
ElseIf Asc(Mid$(Text, i, 1)) > 133 Then
strTempChar = _
CType(Asc(Mid$(Text, i, 1)) - 133, String)
End If
Mid$(Text, i, 1) = Chr(CType(strTempChar, Integer))
Next i
Return Text
End Function
Public Sub GENERATE_CS_SERIAL_NO_FILE(ByVal F_N As String)
Dim writer As New XmlTextWriter(F_N, System.Text.Encoding.UTF8)
Try
writer.WriteStartDocument(True)
writer.Formatting = Formatting.Indented
writer.Indentation = 2
writer.WriteStartElement("HARDWARE")
writer.WriteStartElement("WARNING")
writer.WriteString("HARDWARE FILE, ANY CHANGE MAY LEAD TO IRRELEVANT RESULTS.")
writer.WriteEndElement()
writer.WriteStartElement("HARDWARE_NUMBER")
writer.WriteStartElement("HARDWARE_NUMBER_A")
'GET CLEVER SCOPE SERIAL NUMBER FROM THE TEXT BOX
writer.WriteString(SimpleCrypt(main.TB_CS_NO.Text))
writer.WriteEndElement()
writer.WriteStartElement("HARDWARE_NUMBER_B")
'FOR FUTURE USE
writer.WriteString(SimpleCrypt(main.TB_CS_NO.Text))
writer.WriteEndElement()
writer.WriteEndDocument()
writer.Close()
MessageBox.Show("FILE SAVED AS " & F_N, "FILE SAVED", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("FILE NOT SAVED!!!!!!!!!!", "FILE NOT SAVED", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
writer.Close()
Finally
End Try
End Sub
'Public Sub read_calibration_file()
' Dim f As New FileInfo("c:\KVM_CALIBRATION.xml")
' If f.Exists Then
' Try
' Dim xmldoc As New XmlDataDocument()
' Dim xmlnode As XmlNodeList
' Dim fs As New System.IO.FileStream("c:\KVM_CALIBRATION.xml", FileMode.Open, FileAccess.Read)
' xmldoc.Load(fs)
' ''''''''''''''''''''''''''''''''''''''''''''''''''
' 'CHANNEL 0
' xmlnode = xmldoc.GetElementsByTagName("CH0")
' AC_OFFSET_CH0 = (xmlnode(0).ChildNodes.Item(0).InnerText.Trim())
' AC_GAIN_CH0 = (xmlnode(0).ChildNodes.Item(1).InnerText.Trim())
' DC_OFFSET_CH0 = (xmlnode(0).ChildNodes.Item(2).InnerText.Trim())
' DC_GAIN_CH0 = (xmlnode(0).ChildNodes.Item(3).InnerText.Trim())
' AVG_AC_CH0 = (xmlnode(0).ChildNodes.Item(4).InnerText.Trim())
' AVG_DC_CH0 = (xmlnode(0).ChildNodes.Item(5).InnerText.Trim())
' RMS_CH0 = (xmlnode(0).ChildNodes.Item(6).InnerText.Trim())
' PEAK_POS_CH0 = (xmlnode(0).ChildNodes.Item(7).InnerText.Trim())
' PEAK_NEG_CH0 = (xmlnode(0).ChildNodes.Item(8).InnerText.Trim())
' PEAK_POS_ROOT2_CH0 = (xmlnode(0).ChildNodes.Item(9).InnerText.Trim())
' PEAK_NEG_ROOT2_CH0 = (xmlnode(0).ChildNodes.Item(10).InnerText.Trim())
' AVG_PEAK_CH0 = (xmlnode(0).ChildNodes.Item(11).InnerText.Trim())
' PEAK_FACTOR_CH0 = (xmlnode(0).ChildNodes.Item(12).InnerText.Trim())
' RIPPLE_CH0 = (xmlnode(0).ChildNodes.Item(13).InnerText.Trim())
' ''''''''''''''''''''''''''''''''''''''''''''''''''
' 'CHANNEL 1
' xmlnode = xmldoc.GetElementsByTagName("CH1")
' AC_OFFSET_CH1 = (xmlnode(0).ChildNodes.Item(0).InnerText.Trim())
' AC_GAIN_CH1 = (xmlnode(0).ChildNodes.Item(1).InnerText.Trim())
' DC_OFFSET_CH1 = (xmlnode(0).ChildNodes.Item(2).InnerText.Trim())
' DC_GAIN_CH1 = (xmlnode(0).ChildNodes.Item(3).InnerText.Trim())
' AVG_AC_CH1 = (xmlnode(0).ChildNodes.Item(4).InnerText.Trim())
' AVG_DC_CH1 = (xmlnode(0).ChildNodes.Item(5).InnerText.Trim())
' RMS_CH1 = (xmlnode(0).ChildNodes.Item(6).InnerText.Trim())
' PEAK_POS_CH1 = (xmlnode(0).ChildNodes.Item(7).InnerText.Trim())
' PEAK_NEG_CH1 = (xmlnode(0).ChildNodes.Item(8).InnerText.Trim())
' PEAK_POS_ROOT2_CH1 = (xmlnode(0).ChildNodes.Item(9).InnerText.Trim())
' PEAK_NEG_ROOT2_CH1 = (xmlnode(0).ChildNodes.Item(10).InnerText.Trim())
' AVG_PEAK_CH1 = (xmlnode(0).ChildNodes.Item(11).InnerText.Trim())
' PEAK_FACTOR_CH1 = (xmlnode(0).ChildNodes.Item(12).InnerText.Trim())
' RIPPLE_CH1 = (xmlnode(0).ChildNodes.Item(13).InnerText.Trim())
' ''''''''''''''''''''''''''''''''''''''''''''''''''
' 'SYSTEM FACTORS
' xmlnode = xmldoc.GetElementsByTagName("SYSTEM_FACTORS")
' KVM_RATING = (xmlnode(0).ChildNodes.Item(0).InnerText.Trim())
' PEAK_IN_SIG = (xmlnode(0).ChildNodes.Item(1).InnerText.Trim())
' NOISE_CAL_THLD = (xmlnode(0).ChildNodes.Item(2).InnerText.Trim())
' FREQ_THLD = (xmlnode(0).ChildNodes.Item(3).InnerText.Trim())
' fs.Close()
' Catch ex As Exception
' AC_OFFSET_CH0 = 0
' AC_GAIN_CH0 = 1
' DC_OFFSET_CH1 = 0
' DC_GAIN_CH1 = 1
' AC_OFFSET_CH0 = 0
' AC_GAIN_CH0 = 1
' DC_OFFSET_CH1 = 0
' DC_GAIN_CH1 = 1
' MessageBox.Show("HARDWARE FILE ALTERED." & Environment.NewLine & "MAY LEAD TO IRRELEVANT RESULTS.")
' Finally
' SYSTEM_RATING = KVM_RATING / PEAK_IN_SIG
' 'THRESHOLD CHOOSING CH1 OR CH0
' THLD = PEAK_IN_SIG * 0.08
' UPPER_LIMIT = PEAK_IN_SIG * 1
' End Try
' Else
' MessageBox.Show("HARDWARE FILE NOT FOUND!!!!!!!!!!!" & Environment.NewLine & "KVM WILL DEFAULT VALUES")
' End If
'End Sub
End Module
----------------------------------------------------------------------------
ADD_NEW_FORM.vb
Public Class ADD_NEW_FORM
Private Sub BTN_SAVE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_SAVE.Click
writeDatabase(Me.TB_CS_SERIAL_NO.Text, Me.TB_SITE_NAME.Text, Me.TB_DIV_CARD_NO.Text, Me.TB_DEL_DATE.Text, Me.TB_DES.Text)
MessageBox.Show("NEW ENTRY SAVED.", "SAVE", MessageBoxButtons.OK, MessageBoxIcon.Information)
connectDatabase()
Me.TB_CS_SERIAL_NO.Enabled = False
Me.TB_SITE_NAME.Enabled = False
Me.TB_DIV_CARD_NO.Enabled = False
Me.TB_DEL_DATE.Enabled = False
Me.TB_DES.Enabled = False
Me.BTN_SAVE.Enabled = False
Me.btn_edit.Enabled = True
Me.BTN_DEL.Enabled = True
End Sub
Private Sub BTN_new_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_NEW.Click
Me.TB_CS_SERIAL_NO.Enabled = True
Me.TB_SITE_NAME.Enabled = True
Me.TB_DIV_CARD_NO.Enabled = True
Me.TB_DEL_DATE.Enabled = True
Me.TB_DES.Enabled = True
Me.LBL_UPDATE.Text = "Impulse Analyser: Add New"
Me.TB_CS_SERIAL_NO.Text = "CS_SERIAL_NO"
Me.TB_SITE_NAME.Text = "SITE NAME"
Me.TB_DIV_CARD_NO.Text = "DIV CARD NO"
Me.TB_DEL_DATE.Text = "DATE"
Me.TB_DES.Text = "DESCRIPTION"
Me.BTN_SAVE.Enabled = True
btn_edit.Text = "EDIT"
Me.btn_edit.Enabled = False
Me.BTN_DEL.Enabled = False
End Sub
Private Sub btn_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_edit.Click
If btn_edit.Text = "EDIT" Then
btn_edit.Text = "UPDATE"
Me.TB_CS_SERIAL_NO.Enabled = True
Me.TB_SITE_NAME.Enabled = True
Me.TB_DIV_CARD_NO.Enabled = True
Me.TB_DEL_DATE.Enabled = True
Me.TB_DES.Enabled = True
Else
modifyDatabase()
Me.TB_CS_SERIAL_NO.Enabled = False
Me.TB_SITE_NAME.Enabled = False
Me.TB_DIV_CARD_NO.Enabled = False
Me.TB_DEL_DATE.Enabled = False
Me.TB_DES.Enabled = False
btn_edit.Text = "EDIT"
MessageBox.Show("ENTRY UPDATED.", "UPDATED", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub BTN_DEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_DEL.Click
If MessageBox.Show("SURE TO DELETE THIS ENTRY?", "DELETE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
delDatabase(TB_CS_SERIAL_NO.Text)
MessageBox.Show("ENTRY DELETED.", "DELETE", MessageBoxButtons.OK, MessageBoxIcon.Information)
connectDatabase()
Me.TB_CS_SERIAL_NO.Enabled = True
Me.TB_SITE_NAME.Enabled = True
Me.TB_DIV_CARD_NO.Enabled = True
Me.TB_DEL_DATE.Enabled = True
Me.TB_DES.Enabled = True
Me.LBL_UPDATE.Text = "Impulse Analyser: Add New"
Me.TB_CS_SERIAL_NO.Text = "CS_SERIAL_NO"
Me.TB_SITE_NAME.Text = "SITE NAME"
Me.TB_DIV_CARD_NO.Text = "DIV CARD NO"
Me.TB_DEL_DATE.Text = "DATE"
Me.TB_DES.Text = "DESCRIPTION"
Me.BTN_SAVE.Enabled = True
btn_edit.Text = "EDIT"
Me.Close()
End If
End Sub
Private Sub BTN_EXIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_EXIT.Click
Me.Close()
End Sub
End Class
---------------------------------
main.vb
Public Class main
Private Sub BTN_CS_S_NO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_CS_S_NO.Click
If TB_CS_NO.Text = "" Then
MessageBox.Show("ENTER VALUE!!!!!!!!", "INVALID PARAMETER", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
With saveChannelSettings
.FileName = "REGISTRATION_FILE"
.Filter = "REGISTRATION FILE (*.IM)|*.IM"
End With
If saveChannelSettings.ShowDialog <> 1 Then
Exit Sub
End If
Dim STR As String = saveChannelSettings.FileName
If STR = "" Then
MessageBox.Show("INVALID FILE NAME!!!!!!!!!!", "FILE NAME", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
'Try
' 'CREATE CLEVER SCOPE SERIAL NUMBER FILE
' FileOpen(1, "C:\MyDLL\CS_ID", OpenMode.Output)
' WriteLine(1, "CS ID:", SimpleCrypt(TB_CS_NO.Text))
' MessageBox.Show("FILE SAVED AS C:\MyDLL\CS_ID", "FILE SAVED", MessageBoxButtons.OK, MessageBoxIcon.Information)
' FileClose(1)
'Catch es As Exception
' MessageBox.Show("FILE NOT SAVED!!!!!!!!!!", "FILE NOT SAVED", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' FileClose(1)
'End Try
GENERATE_CS_SERIAL_NO_FILE(STR)
End Sub
Private Sub BTN_DIV_CARD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_DIV_CARD.Click
If TB_A.Text = "" Or TB_B.Text = "" Then
MessageBox.Show("ENTER VALUE!!!!!!!!", "INVALID PARAMETER", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
With saveChannelSettings
.FileName = "Hardware_parameters"
.Filter = "HARDWARE FILE (*.IM)|*.IM"
End With
If saveChannelSettings.ShowDialog <> 1 Then
Exit Sub
End If
Dim STR As String = saveChannelSettings.FileName
If STR = "" Then
MessageBox.Show("INVALID FILE NAME!!!!!!!!!!", "FILE NAME", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
Try
'CREATE CALIBRATION PARAMETERS
FileOpen(1, STR, OpenMode.Output)
WriteLine(1, "OFFSET:", SimpleCrypt("0"), SimpleCrypt("0"))
WriteLine(1, "INT DIV:", SimpleCrypt(TB_A.Text), SimpleCrypt(TB_B.Text))
MessageBox.Show("FILE SAVED AS " & STR, "FILE SAVED", MessageBoxButtons.OK, MessageBoxIcon.Information)
FileClose(1)
Catch es As Exception
MessageBox.Show("FILE NOT SAVED!!!!!!!!!!", "FILE NOT SAVED", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
FileClose(1)
End Try
End Sub
Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
connectDatabase()
End Sub
Private Sub BTN_EXIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_EXIT.Click
If MessageBox.Show("SURE TO CLOSE THE APPLICATION?", "EXIT", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) = Windows.Forms.DialogResult.OK Then
Me.Close()
End If
End Sub
Private Sub BTN_ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' ADD_NEW_FORM.BTN_SAVE.Visible = True
' ADD_NEW_FORM.BTN_NEW.Visible = False
ADD_NEW_FORM.LBL_UPDATE.Text = "Impulse Analyser Details"
ADD_NEW_FORM.TB_CS_SERIAL_NO.Text = "CS_SERIAL_NO"
ADD_NEW_FORM.TB_SITE_NAME.Text = "SITE NAME"
ADD_NEW_FORM.TB_DIV_CARD_NO.Text = "DIV CARD NO"
ADD_NEW_FORM.TB_DEL_DATE.Text = "DATE"
ADD_NEW_FORM.TB_DES.Text = "DESCRIPTION"
ADD_NEW_FORM.Show()
ADD_NEW_FORM.TB_CS_SERIAL_NO.Enabled = True
ADD_NEW_FORM.TB_SITE_NAME.Enabled = True
ADD_NEW_FORM.TB_DIV_CARD_NO.Enabled = True
ADD_NEW_FORM.TB_DEL_DATE.Enabled = True
ADD_NEW_FORM.TB_DES.Enabled = True
End Sub
Private Sub BTN_DEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Me.ListBox_Customer_List.SelectedIndex = -1 Then
MessageBox.Show("SELECT ENTRY TO DELETE", "SELECT ITEM", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
If MessageBox.Show("SURE TO DELETE THIS ENTRY?", "DELETE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
delDatabase(Me.ListBox_Customer_List.SelectedIndex)
MessageBox.Show("ENTRY DELETED.", "DELETE", MessageBoxButtons.OK, MessageBoxIcon.Information)
connectDatabase()
End If
End Sub
Private Sub CB_CS_S_NO_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_CS_S_NO.SelectedIndexChanged
'MessageBox.Show(CB_CS_S_NO.SelectedItem.ToString)
searchDatabase(CB_CS_S_NO.SelectedItem.ToString)
ADD_NEW_FORM.Show()
ADD_NEW_FORM.TB_CS_SERIAL_NO.Enabled = False
ADD_NEW_FORM.TB_SITE_NAME.Enabled = False
ADD_NEW_FORM.TB_DIV_CARD_NO.Enabled = False
ADD_NEW_FORM.TB_DEL_DATE.Enabled = False
ADD_NEW_FORM.TB_DES.Enabled = False
ADD_NEW_FORM.BTN_SAVE.Enabled = False
End Sub
Private Sub BTN_EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Me.ListBox_Customer_List.SelectedIndex = -1 Then
MessageBox.Show("SELECT ENTRY TO DELETE", "SELECT ITEM", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
MessageBox.Show(Me.ListBox_Customer_List.SelectedIndex)
'If MessageBox.Show("SURE TO DELETE THIS ENTRY?", "DELETE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
editDatabase(Me.ListBox_Customer_List.SelectedIndex)
' End If
End Sub
End Class
------------------------------------------------------------------------------------------
DATABASE has 5 fields.
No comments:
Post a Comment