Passport Automation in VB
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
அடிப்படை ஜோதிடம் - 3
உச்ச நீச்ச மூலத்திரிகோணம் பாகை அளவு
|
கிரகம் |
உச்சப்பாகை |
நீச்ச பாகை |
மூலத்திரிகோணம் |
|
சூரியன் |
மேஷம் 10 |
துலாம்10 |
சிம்மம் 0-20 |
|
சந்திரன் |
ரிஷபம் 3 |
விருச்சகம் 3 |
கடகம் 4-20 |
|
செவ்வாய் |
மகரம் 28 |
கடகம் 28 |
மேஷம் 1-20 |
|
புதன் |
கன்னி 15 |
மீனம் 15 |
கன்னி 16-20 |
|
குரு |
கடகம் 5 |
மகரம் 5 |
தனுசு 1-10 |
|
சுக்கிரன் |
மீனம் 27 |
கன்னி 27 |
துலா 0-15 |
|
சனி |
துலா 20 |
மேஷம் 20 |
கும்ப 0-20 |
நட்சத்திரங்களும் (27) அவற்றின் பாதங்களும் (108)
மீனம் | மேஷம் | ரிஷபம் | மிதுனம் | ||||
பூரட்டாதி | [4] | அஸ்வினி | [1,2,3,4] | கார்த்திகை | [2,3,4] | மிருகசீரிடம் | [3,4] |
உத்திரட்டாதி | [1,2,3,4] | பரணி | [1,2,3,4] | ரோகிணி | [1,2,3,4] | திருவாதிரை | [1,2,3,4] |
ரேவதி | [1,2,3,4] | கார்த்திகை | [1] | மிருகசீரிடம் | [1,2] | புனர்பூசம் | [1,2,3] |
கும்பம் |
| கடகம் | |||||
அவிட்டம் | [3,4] | புனர்பூசம் | [1,2] | ||||
சதயம் | [1,2,3,4] | பூசம் | [1,2,3,4] | ||||
பூரட்டாதி | [1,2,3] | ஆயில்யம் | [1,2,3,4] | ||||
மகரம் | சிங்கம் | ||||||
உத்திராடம் | [1,2] | மகம் | [1,2,3,4] | ||||
திருவோணம் | [1,2,3,4] | பூரம் | [1,2,3,4] | ||||
அவிட்டம் | [1,2,3] | உத்திரம் | [1] | ||||
தனுசு | விருச்சிகம் | துலாம் | கன்னி | ||||
மூலம் | [1,2,3,4] | விசாகம் | [4] | சித்திரை | [3,4] | உத்திரம் | [1,2,3] |
பூராடம் | [1,2,3,4] | அனுஷம் | [1,2,3,4] | சுவாதி | [1,2,3,4] | ஹஸ்தம் | [1,2,3,4] |
உத்திராடம் | [1] | கேட்டை | [1,2,3,4] | விசாகம் | [1,2,3] | சித்திரை | [1,2] |
நட்சத்திர பகை அளவு
|
மீனம் பூரட்டாதி : 3.20 உத்திரட்டாதி :
13.20 ரேவதி : 13.20 |
மேஷம் அஸ்வினி : 13.20 பரணி : 13.20 கார்த்திகை : 3.20 |
ரிஷபம் கார்த்திகை : 10.00 ரோகிணி : 13.20 மிருகசீரிடம்:
6.40 |
மிதுனம் மிருகசீரிடம் : 6.40 திருவாதிரை :
13.20 புனர்பூசம் : 10.00 |
|
|
கும்பம் அவிட்டம் : 6.40 சதயம் : 13.20 பூரட்டாதி : 10.00 |
கடகம் புனர்பூசம் :
3.20 பூசம் : 13.20 ஆயில்யம் : 13.20 |
|||
|
சிங்கம் மகம் : 13.20 பூரம் : 13.20 உத்திரம் : 3.20 |
||||
|
மகரம் உத்திராடம் : 10.00 திருவோணம் : 13.20 அவிட்டம் : 6.40 |
||||
|
தனுசு மூலம் : 13.20 பூராடம் : 13.20 உத்திராடம் : 3.20 |
விருச்சிகம் விசாகம் : 3.20 அனுஷம் : 13.20 கேட்டை :13.20 |
துலாம் சித்திரை : 6.40 சுவாதி : 13.20 விசாகம் : 10.00 |
கன்னி உத்திரம் : 10.00 ஹஸ்தம் : 13.20 சித்திரை : 6.40 |
|
Subscribe to:
Posts (Atom)