Passport Automation
(a). Main Menu Form
Private Sub Command1_click()
Unload Me
OPRSFORM.Show
End Sub
Private Sub Command2_Click()
Unload Me
Statusform.Show
End Sub
Private Sub Command3_Click()
Unload Me
Renewalform.Show
End Sub
Private Sub Command4_Click()
Unload Me
Faqform.Show
End Sub
Private Sub Command5_Click()
Unload Me
ContactUs.Show
End Sub
Private Sub Command6_Click()
Unload Me
Authentication.Show
End Sub
(B).
Online Registration Menu
©.
Registration Form
Private Sub Command1_click()
Unload Me
OPRSFORM.Show
End Sub
Private Sub Command2_Click()
Registration.PrintForm
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.AddNew
MsgBox "reg succ"
End Sub
Private Sub Form_Load()
Adodc1.Recordset.AddNew
txt_id = Adodc1.Recordset.RecordCount
txt_status = "Processing"
Registration.Refresh
End Sub
(D).
Admin Panel Authentication Form
(E).
Admin View for Details Verficiation:
Private Sub Command1_click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\PAS\Database1.mdb;Persist Security Info=False"
rs.Open "update pas set Field13='Dispatched' where field12='" + Text1.Text + "'", cn, adOpenKeyset, adLockOptimistic
MsgBox ("Updated .. Log out and come in ..")
End Sub
Private Sub Command2_Click()
Unload Me
Mainpage.Show
End Sub
Private Sub Form_Load()
Dim oconn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM pas"
strStatus = "Select status from registrations wher id = " + Text1.Text + ""
Set oconn = New ADODB.Connection
oconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\PAS\Database1.mdb;Persist Security Info=False"
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open strSQL, oconn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
(F).
User to Know Status of Passport Form
Private Sub Command1_click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files(x86)\Microsoft Visual Studio\VB98\PAS\Database1.mdb;Persist Security Info=False"
rs.Open "select * from pas where Field12 = '" + Text1.Text + "'", cn, adOpenKeyset, adLockOptimistic
lbl_name.Caption = rs(3).Value
lbl_status.Caption = rs(13).Value
End Sub
Private Sub Command2_Click()
Unload Me
Mainpage.Show
End Sub
Private Sub Form_Load()
Adodc1.Recordset.AddNew
End Sub
Subscribe by Email
Follow Updates Articles from This Blog via Email
No Comments