Software Architecture Code for Wrapper Class

Wrapper to connect two applications with different architectures
Public con As ADODB.Connection
Public rs As ADODB.RecordsetDim str As String
Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = True
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Open “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=AIR” str = “insert into Staff values(” & Text1.Text & “,’” & Text2.Text & “‘, ” & Text3.Text & “,” & Text4.Text & “,’” & Text5.Text & “‘)” On Error GoTo Delete_Error
con.Execute (str)
MsgBox ” Record added Successfully”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text1.SetFocus
Exit Sub
Delete_Error:
MsgBox “This record cannot be Added. Error code = ” _
& Err.Number & vbCrLf & Err.Description, _
vbCritical, “Cannot Update Database”
End Sub
Private Sub Command2_Click()
Command1.Enabled = False
Command4.Enabled = False
Command6.Enabled = False
If (Adodc1.Recordset.BOF) Then
Adodc1.Recordset.MoveLast
Else
Adodc1.Recordset.MovePrevious
End If
End Sub
Private Sub Command3_Click()
Command1.Enabled = False
Command4.Enabled = False
Command6.Enabled = False
If (Adodc1.Recordset.EOF) Then
Adodc1.Recordset.MoveFirst
Else
Adodc1.Recordset.MoveNext
End If
End Sub
Private Sub Command4_Click()
Command4.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command7.Enabled = False
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text1.SetFocus
End Sub
Private Sub Command5_Click()
Unload Me
Form2.Show
End Sub
Private Sub Command6_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text1.SetFocus
End Sub
SQL COMMANDS:
create database AIR create table Staff(Staff_id int
PRIMARY KEY NOT NULL,
Staff_name varchar(20),
Staff_age int, Salary int,
Staff_address varchar(30))
::Database AIR created successfully
::Table Staff creates successfully
Approximate price: $22
We value our customers and so we ensure that what we do is 100% original..

With us you are guaranteed of quality work done by our qualified experts.Your information and everything that you do with us is kept completely confidential.You have to be 100% sure of the quality of your product to give a money-back guarantee. This describes us perfectly. Make sure that this guarantee is totally transparent.The Product ordered is guaranteed to be original. Orders are checked by the most advanced anti-plagiarism software in the market to assure that the Product is 100% original. The Company has a zero tolerance policy for plagiarism.The Free Revision policy is a courtesy service that the Company provides to help ensure Customer’s total satisfaction with the completed Order. To receive free revision the Company requires that the Customer provide the request within fourteen (14) days from the first completion date and within a period of thirty (30) days for dissertations.The Company is committed to protect the privacy of the Customer and it will never resell or share any of Customer’s personal information, including credit card data, with any third party. All the online transactions are processed through the secure and reliable online payment systems.By placing an order with us, you agree to the service we provide. We will endear to do all that it takes to deliver a comprehensive paper as per your requirements. We also count on your cooperation to ensure that we deliver on this mandate.