mainmenu.frm

this is source code for billing system in c language

         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      COLTYPE         =   1
      BCOL            =   14215660
      FCOL            =   0
      FCOLO           =   0
      EMBOSSM         =   12632256
      EMBOSSS         =   16777215
      MPTR            =   0
      MICON           =   "Mainmenu.frx":F53B
      ALIGN           =   1
      IMGLST          =   "ImageList1"
      IMGICON         =   "4"
      ICONAlign       =   0
      ORIENT          =   0
      STYLE           =   0
      IconSize        =   4
      SHOWF           =   -1  'True
      BSTYLE          =   0
   End
   Begin LVbuttons.LaVolpeButton CMDPAY 
      Height          =   975
      Left            =   6000
      TabIndex        =   11
      Top             =   240
      Width           =   1935
      _ExtentX        =   3413
      _ExtentY        =   1720
      BTYPE           =   3
      TX              =   "CREATE PAY PERIOD MAINTENANCE"
      ENAB            =   -1  'True
      BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      COLTYPE         =   1
      BCOL            =   14215660
      FCOL            =   0
      FCOLO           =   0
      EMBOSSM         =   12632256
      EMBOSSS         =   16777215
      MPTR            =   0
      MICON           =   "Mainmenu.frx":F557
      ALIGN           =   1
      IMGLST          =   "ImageList1"
      IMGICON         =   "5"
      ICONAlign       =   0
      ORIENT          =   0
      STYLE           =   0
      IconSize        =   4
      SHOWF           =   -1  'True
      BSTYLE          =   0
   End
   Begin LVbuttons.LaVolpeButton CMDV 
      Height          =   975
      Left            =   7920
      TabIndex        =   12
      Top             =   240
      Width           =   1815
      _ExtentX        =   3201
      _ExtentY        =   1720
      BTYPE           =   3
      TX              =   "VIEW PAY PERIOD RECORD"
      ENAB            =   -1  'True
      BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      COLTYPE         =   1
      BCOL            =   14215660
      FCOL            =   0
      FCOLO           =   0
      EMBOSSM         =   12632256
      EMBOSSS         =   16777215
      MPTR            =   0
      MICON           =   "Mainmenu.frx":F573
      ALIGN           =   1
      IMGLST          =   "ImageList1"
      IMGICON         =   "6"
      ICONAlign       =   0
      ORIENT          =   0
      STYLE           =   0
      IconSize        =   4
      SHOWF           =   -1  'True
      BSTYLE          =   0
   End
   Begin LVbuttons.LaVolpeButton CMDADMIN 
      Height          =   975
      Left            =   9720
      TabIndex        =   13
      Top             =   240
      Width           =   1815
      _ExtentX        =   3201
      _ExtentY        =   1720
      BTYPE           =   3
      TX              =   "ADMIN"
      ENAB            =   -1  'True
      BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      COLTYPE         =   1
      BCOL            =   14215660
      FCOL            =   0
      FCOLO           =   0
      EMBOSSM         =   12632256
      EMBOSSS         =   16777215
      MPTR            =   0
      MICON           =   "Mainmenu.frx":F58F
      ALIGN           =   1
      IMGLST          =   "ImageList1"
      IMGICON         =   "2"
      ICONAlign       =   0
      ORIENT          =   0
      STYLE           =   0
      IconSize        =   4
      SHOWF           =   -1  'True
      BSTYLE          =   0
   End
   Begin VB.Shape Shape1 
      Height          =   735
      Left            =   120
      Top             =   10200
      Width           =   14895
   End
   Begin VB.Label Label3 
      Caption         =   "LEVEL"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5040
      TabIndex        =   7
      Top             =   10560
      Width           =   615
   End
   Begin VB.Label Label2 
      Caption         =   "USER"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   10560
      Width           =   615
   End
   Begin VB.Label Label1 
      Caption         =   "DATE"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   8760
      TabIndex        =   5
      Top             =   10560
      Width           =   615
   End
End
Attribute VB_Name = "Mainmenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CMDADMIN_Click()
frmlogin.Show
End Sub

Private Sub CMDPAY_Click()
PAYPERIOD.Show

End Sub

Private Sub CMDV_Click()
VIEWREC.Show
End Sub

Private Sub elan_Click()
appinfo.Show
'Me.Hide
End Sub

Private Sub Form_Activate()
'cnn
End Sub

Private Sub Form_Load()


On Error GoTo b
Dim found As Boolean

Set rs = db.Execute("SELECT * FROM tblUSERS")

With rs
        .MoveFirst
            Do Until .EOF
            
               If login.Text1.Text = !UserName Then
                    found = True
                    
                Exit Do
            End If
        .MoveNext
Loop
If found = True Then
Text1.Text = !UserName
Text2.Text = !USERGROUP
    
End If
End With
b:
End Sub

Private Sub LaVolpeButton1_Click()
UPDATEINFO.Show
End Sub

Private Sub LaVolpeButton4_Click()

'login.Show
Unload Me
End
End Sub

Private Sub LaVolpeButton5_Click()
UPDATESOURCE.Show
End Sub

Private Sub Timer1_Timer()
TIMES = Date
End Sub