Creating an Ordering System Using EVB - Module 2 Pocket PC Application Desktop Utility

(Page 3 of 7 )

Module 2 Pocket PC Application Desktop Utility that is used to import or export data from a PDA to a desktop.

Application Development using EVB

All Code

Screen 1  (Login Screen)

Code:

''''' # EVB Code Started # ''''''''''''

''''' # Valiable Declaration # '''''''''''''
Option Explicit
Dim cn As Connection
Dim rs As Recordset
Dim tsql As String

''''' # Create Database
''''' # Ask Password at time of database creation
Private Sub btnCreateDatabase_Click()
    Dim ans As String
    ans = InputBox("Please enter password", "Admin login")
    If ans = "grep4u" Then
        Call CreateDatabase
        Exit Sub
    End If
End Sub

Private Sub btnExit_Click()
    App.End
End Sub

Private Sub btnLogin_Click()
    On Error GoTo 0
    Dim validUser As Boolean

    tsql = "select * from TUsers"
    Set rs = CreateObject("ADOCE.Recordset.3.0")
    rs.Open tsql
    validUser = False

    Do While Not rs.EOF
        If Trim(rs.Fields("UserName").Value) = Trim(txtUserName.Text) Then
            validUser = True
            rs.Close
            Set rs = Nothing
            Exit Do
        End If
        rs.MoveNext
    Loop
   
    If validUser = False Then
        MsgBox "Unable to login." & vbNewLine & "Please verify username and password.", vbCritical, "Login Error"
    Else
        frmAction.lblUsername.Caption = txtUserName.Text
        frmAction.Show
    End If
txtUserName.Text = ""
txtPassword.Text = ""

End Sub

Private Sub Form_Load()

End Sub

Private Sub Form_OKClick()
    App.End
End Sub

Private Sub CreateDatabase()

    On Error GoTo 0
    ''''' # Create Database
    Set rs = CreateObject("ADOCE.Recordset.3.0")
    rs.Open "CREATE DATABASE 'Medisoft.cdb'"

''''' # create table
    Set rs = CreateObject("ADOCE.Recordset.3.0")
    tsql = "create table TUsers ( UserName varchar(20),Password varchar(20) )"
    rs.Open tsql

    tsql = "create table Patient_Master ( PName varchar(20),PhoneNo varchar(20),Address varchar(100) )"
    rs.Open tsql
   
    tsql = "create table Patient_Tran ( T_id integer,T_Date DateTime,PName varchar(20),T_Delivery Bit,T_Collection Bit, Qty Integer, TankType varchar(20),UserName varchar(20) )"
    rs.Open tsql
''''' # insert Users data
'**************************
'Don't remove otherwise you will not be able access entire software
'**************************
    tsql = "insert into TUsers(UserName,Password) values('Admin','admin')"
    rs.Open tsql
'insert patient data
    tsql = "insert into Patient_Master(PName,PhoneNo,Address) values ('Pankaj Joshi','9820747561','c-5-7 3,3 sector 1-a cbd belapur')"
    rs.Open tsql
'insert transaction data
    tsql = "insert into Patient_Tran(T_id,T_Date,PName,T_Delivery ,T_Collection , Qty,TankType,UserName) values (1,#1-1-2004#,'Pankaj Joshi',1,0,2,'3M6','Admin')"
    rs.Open tsql
'rs.Close
    Set rs = Nothing
End Sub

Next: Screen 2, the Main Screen >>
 

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!