Creating an Ordering System Using EVB - Screen 4, the User Information

(Page 6 of 7 )

Screen 4 (User Information)

Code:

Option Explicit
Dim ssql  As String
Dim srs As Recordset
Public UserName As String

Private Sub btnClose_Click()
    frmAction.Show
End Sub

Private Sub btnSave_Click()
On Error GoTo 0
Dim Lid As Integer
If Trim(UserName) = "" Then
    MsgBox "Unable to save." & "You are logged in correctly", vbCritical, "Medisoft"
    Exit Sub
End If
    btnSave.Enabled = False
    lblTid.Caption = "Saving........."
    Set srs = CreateObject("ADOCE.RECORDSET.3.0")
    ssql = "select T_id from Patient_Tran order by T_id desc"
    srs.Open ssql
    If Not srs.EOF Then
        Lid = srs.Fields("T_id").Value + 1
    Else
        Lid = 1
    End If
   
    Set srs = CreateObject("ADOCE.RECORDSET.3.0")
    ssql = "insert into Patient_Tran(T_id,T_Date,PName,T_Delivery,T_Collection,Qty,TankType,UserName) values (" _
             & CStr(Lid) & ",#" & txtDate.Text & "#,'" & Trim(cmbPatient.Text) & "'," & chkDelivery.Value & "," _
             & chkCollection.Value & "," & txtQty.Text & ",'" & txtTankType.Text & "','" & UserName & "'" _
             & ")"
            
    srs.Open ssql
    lblTid.Caption = Lid
    btnSave.Enabled = True
    Set srs = Nothing
   
End Sub

Private Sub Form_Activate()
    Screen.MousePointer = vbNormal
    btnSave.Enabled = True

End Sub

Private Sub Form_GotFocus()
    Screen.MousePointer = vbNormal
    btnSave.Enabled = True

End Sub

Private Sub Form_Load()
On Error GoTo 0
    Call LoadData
    Screen.MousePointer = vbNormal
    btnSave.Enabled = True
End Sub

Private Sub LoadData()
   
    Set srs = CreateObject("ADOCE.RECORDSET.3.0")
    ssql = "select PName from Patient_Master"
    srs.Open ssql
   
   
    Do While Not srs.EOF
        cmbPatient.AddItem Trim(srs.Fields("PName").Value)
        srs.MoveNext
    Loop
    srs.Close
    Set srs = Nothing
End Sub

Private Sub frTran_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

Next: Application Testing and Deployment >>
 

More Code Examples Articles
More By Vishal Rajpara

Comments On: Creating an Ordering System Using EVB

· u all suck    · I was looking for a tutorial about creating applications for pocket pc. you really...    · madarchod ...ask ur mom...and yes ur a failure that happened in a taxi cab..god rest...   >>> Post your comment now!