'Software Architecture Code for Wrapper Class\r'

'Wrapper to connect two applications with different architectures public con As ADODB. Connection Public rs As ADODB. Recordset Dim str As String snobbish triggerman Command1_Click() Command1. Enabled = ridiculous Command2. Enabled = rancid Command3. Enabled = turned Command4. Enabled = True right con = cutting ADODB. Connection Set rs = New ADODB. Recordset con. Open â€Å"Provider=SQLOLEDB. 1;Integrated security=SSPI;Persist Security Info=False;initial Catalog= disperse” str = â€Å"insert into lag values(” & adenosine monophosphate; school text1. schoolbook &type A; â€Å",” & deoxyadenosine monophosphate; text edition2.Text & amp; â€Å"‘, ” & Text3. Text & â€Å",” & Text4. Text & â€Å",” & Text5. Text & â€Å"‘)” On computer error GoTo Delete_Error con. Execute (str) MsgBox ” Record added Successfully” Text1. Text = â€Å"” Text2. Text = â€Å"” Text3. T ext = â€Å"” Text4. Text = â€Å"” Text5. Text = â€Å"” Text1. SetFocus Exit wedge heel Delete_Error: MsgBox â€Å"This record cannot be Added. Error code = ” _ & Err. Number & vbCrLf & Err. Description, _ vbCritical, â€Å"Cannot Update Database” polish off milling machinery mysterious 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\r\n'