Medical Store Management System - Free download as Word Doc (.doc), PDF File. Download as DOC, PDF, TXT or read online from Scribd. Were various errors,some of the those errors are reported in this report like: 1.
This is Medical Store Inventory System in C++. This software is used in medical shops. This is a simple software where the billing takes place. User have to just need to enter the medicine , remaining calculation is done by the software. In this software there are 2 types of users is allowed one is admin and other one is user. Admin has all the rights like adding, deleting, updating. user can only add the records. Admin can view all the transaction of the software
This software is error free. Anyone can use this software . you can download this software by clicking on download below. So use this software and get more benefit from from this. If have any doubts then post your doubts below.
Enter your email address to subscribe to this website and receive notifications to your email id.
Sample Codes
Private Sub GetEmployee()
Dim lstrUserName() As String
Dim mstrEmployeeID As String
lstrUserName = Split(gstrUserName, “,”)
Dim lstrTemp As String
lstrTemp = ITRZ_DAM_DBConnects.GetMyDBCnnString(“DBL”, 1000)
OpenConnection(lstrTemp)
mstrEmployeeID = GetValueToString(” SELECT LUSR_EmpID_9EMPD ” & _
” FROM dbo.MDB_PRLG_LUSR_LoginUsers ” & _
” WHERE LUSR_LoginID_9HVC='” & gstrUserID & “‘” & _
” and LUSR_UserName_0BVC='” & lstrUserName(0).ToString & “‘”)
mstrEmpID = mstrEmployeeID
If mstrEmpID <> “” Then
Dim ldtbDesg As New DataTable
ldtbDesg = DAM_EmployeeMasterList.GetEmpDesg(mstrEmpID)
If ldtbDesg.Rows.Count > 0 Then
mstrDesg = ldtbDesg.Rows(0).Item(“DesgId”).ToString
mstrDesignation = ldtbDesg.Rows(0).Item(“Designation”).ToString
Else
MsgBox(“Please Contact System Admin!” & vbCrLf & _
” Current Job Status Has not been Assigned!”)
mstrReturn = 0
‘ Me.Close()
End If
End If
CloseConnection()
End Sub
Private Sub UIF_PayrollEntry_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
Select Case tbcPayroll.SelectedIndex
Case 0 ‘Cash Advance
lintPropertyFor = Properties.SelectedGridItem.Label
Dim leftString = lintPropertyFor.Substring(0, lintPropertyFor.IndexOf(“.”))
‘MsgBox(leftString)
lintPropertyFor = leftString – 1
‘Exit Sub
Select Case e.KeyCode
Case Keys.Tab, Keys.Enter
If Properties.Item(Properties.Item.Count – 1).Name = Properties.SelectedGridItem.Label Then
Properties.ToolStrip.Focus()
pnlsave.Select()
Exit Sub
End If
‘Dim lintPropertyFor As Integer = 0
Dim lblnBool As Boolean = False
Dim GridItem As GridItem = Properties.SelectedGridItem
Dim pGridItem As GridItem = GridItem.Parent
For Each egi As GridItem In pGridItem.GridItems
If Properties.SelectedGridItem.Label = Properties.Item(lintPropertyFor).Name Then
lblnBool = True
lintPropertyFor += 1
End If
If egi.Label = Properties.Item(lintPropertyFor).Name Then
Properties.Focus()
egi.Select()
Exit For
End If
If lblnBool = False Then lintPropertyFor += 1
Next
End Select
Case 1 ‘Benefit Advance
lintPropertyFor = BenefitProperties.SelectedGridItem.Label
Dim leftString = lintPropertyFor.Substring(0, lintPropertyFor.IndexOf(“.”))
‘MsgBox(leftString)
lintPropertyFor = leftString – 1
‘Exit Sub
Select Case e.KeyCode
Case Keys.Tab, Keys.Enter
If BenefitProperties.Item(BenefitProperties.Item.Count – 1).Name = BenefitProperties.SelectedGridItem.Label Then
BenefitProperties.ToolStrip.Focus()
pnlBSave.Select()
Exit Sub
End If
‘Dim lintPropertyFor As Integer = 0
Dim lblnBool As Boolean = False
Dim GridItem As GridItem = BenefitProperties.SelectedGridItem
Dim pGridItem As GridItem = GridItem.Parent
For Each egi As GridItem In pGridItem.GridItems
If BenefitProperties.SelectedGridItem.Label = BenefitProperties.Item(lintPropertyFor).Name Then
lblnBool = True
lintPropertyFor += 1
End If
If egi.Label = BenefitProperties.Item(lintPropertyFor).Name Then
BenefitProperties.Focus()
egi.Select()
Exit For
End If
If lblnBool = False Then lintPropertyFor += 1
Next
End Select
Case 2 ‘Benefit Prepayment
lintPropertyFor = PreProperties.SelectedGridItem.Label
Dim leftString = lintPropertyFor.Substring(0, lintPropertyFor.IndexOf(“.”))
‘MsgBox(leftString)
lintPropertyFor = leftString – 1
‘Exit Sub
Select Case e.KeyCode
Case Keys.Tab, Keys.Enter
If PreProperties.Item(PreProperties.Item.Count – 1).Name = PreProperties.SelectedGridItem.Label Then
PreProperties.ToolStrip.Focus()
pnlPSave.Select()
Exit Sub
End If
‘Dim lintPropertyFor As Integer = 0
Dim lblnBool As Boolean = False
Dim GridItem As GridItem = PreProperties.SelectedGridItem
Dim pGridItem As GridItem = GridItem.Parent
For Each egi As GridItem In pGridItem.GridItems
If PreProperties.SelectedGridItem.Label = PreProperties.Item(lintPropertyFor).Name Then
lblnBool = True
lintPropertyFor += 1
End If
If egi.Label = PreProperties.Item(lintPropertyFor).Name Then
PreProperties.Focus()
egi.Select()
Exit For
End If
If lblnBool = False Then lintPropertyFor += 1
Next
End Select
End Select
End Sub
Private Sub UIF_PayrollEntry_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WaitPlease(1)
Call FormLayout()
Call SetFormUserRights()
If Trim(mstrDesignation) <> “Human Resource Officer” Then
tbcOvertime.TabPages.Remove(tbpOvertimeRequest)
tbcOvertime.TabPages.Remove(tbpOvrConfrmtn)
End If
SetControlStatus(“A”)
Call SetToolTips()
‘ Call FormInits()
WaitPlease(0)
End Sub
Language used: C++ Programming
Download this project code:
1 | LIVE STUDENT PROJECTS | |
2 | ONLINE CHATTING PROJECT | 2017-08-22T05:22:07Z |
3 | ONLINE NEWS FEED | 2017-08-22T05:20:04Z |
4 | BANKING PROJECT IN JAVA | 2017-08-22T05:17:31Z |
5 | HOTEL AND LODGE MANAGEMENT PROJECT | 2017-08-22T05:07:45Z |
6 | ONLINE ART EXHIBITION | 2017-08-22T05:02:21Z |
7 | PAYROLL MANAGEMENT SYSTEM | 2017-08-22T05:00:11Z |
8 | WHOLE SALE MARKETING PROJECT | 2017-08-22T04:57:35Z |
9 | LODGING PROJECT | 2017-08-22T04:51:12Z |
10 | GALLERY MANAGEMENT PROJECT | 2017-08-22T04:47:01Z |
11 | RESTUARANT PROJECT | 2017-08-22T04:36:03Z |
12 | SCHOOL DATABASE PROJECT | 2017-08-22T04:26:40Z |
13 | OFFICE PAYROLL PROJECTS | 2017-08-22T05:05:35Z |
14 | IT DATABASE PROJECTS | 2017-08-22T04:21:32Z |
15 | RESTAURENT DATABASE PROJECTS | 2017-08-22T04:11:13Z |
16 | RAILWAY SYSTEM DATABASE | 2017-08-22T04:07:24Z |
17 | INVENTORY TRACKER ANDROID | 2017-08-22T04:04:25Z |
18 | ONLINE RETAIL SALES PROJECTS | 2017-08-22T03:59:02Z |
19 | STUDENT RECORD STORE PROJECT | 2017-08-22T03:56:36Z |
20 | ONLINE STICKY NOTES | 2017-08-22T03:50:55Z |
21 | SENTENCE FRAMER APP | 2017-08-21T10:33:00Z |
22 | RAILWAY CROSSING GATES VIA ANDROID | 2017-08-21T10:25:19Z |
23 | ROBOT SPY CAM PROJECTS | 2017-08-21T10:23:33Z |
24 | MOTOR SPEED CONTROLLER PROJECTS | 2017-08-21T10:21:45Z |
25 | CERTIFICATE MANAGEMENT PROJECT | 2017-08-21T10:19:16Z |
26 | REPLACE ROBOTIC ARM | 2017-08-21T10:15:06Z |
27 | POSITIONING OF ANTENNA VIA ANDROID | 2017-08-21T10:12:25Z |
28 | AUTOMOBILE CONTROLLABLE VIA ANDROID | 2017-08-21T10:05:25Z |
29 | APPLICATION TO SHARE DOCUMENT | 2017-08-21T10:03:26Z |
30 | HOME AUTOMATION VIA ANDROID | 2017-08-21T09:59:58Z |
31 | EMPLOYEE APPRAISAL PROJECT | 2017-08-21T09:57:09Z |
32 | VOTING POLL VIA ANDROID | 2017-08-21T09:53:00Z |
33 | CIRCUIT BREAKER VIA ANDROID | 2017-08-21T09:50:33Z |
34 | VEHICLE TRACKING APP VIA ANDROID | 2017-08-21T09:47:48Z |
35 | LIBRARY BOOK LOCATOR VIA WIFI | 2017-08-21T09:45:35Z |
36 | LAW SYSTEM VIA ANDROID | 2017-08-21T09:43:27Z |
37 | AUTO PET FEEDER PROJECT | 2017-08-21T09:40:14Z |
38 | REMOTE DOOR VIA PASSWORD | 2017-08-21T09:04:24Z |
39 | SYSTEM CONTROL VIA ANDROID PHONE | 2017-08-21T08:47:55Z |
40 | PROJECTS TERMS AND CONDITION | 2017-08-23T09:56:00Z |
41 | POLICE INFORMATION SYSTEM | 2017-08-21T08:41:18Z |
42 | CUSTOMER RELATION MANAGEMENT PROJECT | 2017-08-21T08:34:57Z |
43 | COURIER MANAGEMENT PROJECT | 2017-08-21T08:18:25Z |
44 | EYE TEST PROJECT ONLINE | 2017-08-21T08:06:37Z |
45 | CAR RENT SYSTEM | 2017-08-21T09:31:13Z |
46 | AUTO MODE CAR – MECHANICAL PROJECT | 2017-08-22T08:24:01Z |
47 | ONLINE SHOPPING PROJECT | 2017-08-23T05:31:06Z |
48 | SCORE BOARD PROJECT | 2017-08-23T06:17:36Z |
49 | DOCUMENT TRACKING SYSTEM | 2017-08-24T08:53:39Z |
50 | HUMAN TEST | 2017-08-29T07:32:23Z |
51 | MOBILE STORE MANAGEMENT SYSTEM | 2017-08-30T07:24:07Z |
52 | BOUTIQUE MANAGEMENT PROJECT | 2017-08-31T04:33:56Z |
53 | CALCULATOR IN VB.NET | 2017-09-07T04:31:59Z |
54 | FINANCIAL MANAGEMENT SYSTEM | 2017-09-09T07:36:06Z |
55 | E-BILLING AND INVOICE SYSTEM | 2017-09-13T09:44:44Z |
56 | ONLINE COURSE REGISTRATION SYSTEM- JAVA | 2017-09-14T08:16:50Z |
57 | ONLINE AUCTION | 2017-09-14T08:52:04Z |
Medical Store Management System - Free download as Word Doc (.doc), PDF File. Download as DOC, PDF, TXT or read online from Scribd. Were various errors,some of the those errors are reported in this report like: 1.
This is Medical Store Inventory System in C++. This software is used in medical shops. This is a simple software where the billing takes place. User have to just need to enter the medicine , remaining calculation is done by the software. In this software there are 2 types of users is allowed one is admin and other one is user. Admin has all the rights like adding, deleting, updating. user can only add the records. Admin can view all the transaction of the software
This software is error free. Anyone can use this software . you can download this software by clicking on download below. So use this software and get more benefit from from this. If have any doubts then post your doubts below.
Enter your email address to subscribe to this website and receive notifications to your email id.
Sample Codes
Private Sub GetEmployee()
Dim lstrUserName() As String
Dim mstrEmployeeID As String
lstrUserName = Split(gstrUserName, “,”)
Dim lstrTemp As String
lstrTemp = ITRZ_DAM_DBConnects.GetMyDBCnnString(“DBL”, 1000)
OpenConnection(lstrTemp)
mstrEmployeeID = GetValueToString(” SELECT LUSR_EmpID_9EMPD ” & _
” FROM dbo.MDB_PRLG_LUSR_LoginUsers ” & _
” WHERE LUSR_LoginID_9HVC='” & gstrUserID & “‘” & _
” and LUSR_UserName_0BVC='” & lstrUserName(0).ToString & “‘”)
mstrEmpID = mstrEmployeeID
If mstrEmpID <> “” Then
Dim ldtbDesg As New DataTable
ldtbDesg = DAM_EmployeeMasterList.GetEmpDesg(mstrEmpID)
If ldtbDesg.Rows.Count > 0 Then
mstrDesg = ldtbDesg.Rows(0).Item(“DesgId”).ToString
mstrDesignation = ldtbDesg.Rows(0).Item(“Designation”).ToString
Else
MsgBox(“Please Contact System Admin!” & vbCrLf & _
” Current Job Status Has not been Assigned!”)
mstrReturn = 0
‘ Me.Close()
End If
End If
CloseConnection()
End Sub
Private Sub UIF_PayrollEntry_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
Select Case tbcPayroll.SelectedIndex
Case 0 ‘Cash Advance
lintPropertyFor = Properties.SelectedGridItem.Label
Dim leftString = lintPropertyFor.Substring(0, lintPropertyFor.IndexOf(“.”))
‘MsgBox(leftString)
lintPropertyFor = leftString – 1
‘Exit Sub
Select Case e.KeyCode
Case Keys.Tab, Keys.Enter
If Properties.Item(Properties.Item.Count – 1).Name = Properties.SelectedGridItem.Label Then
Properties.ToolStrip.Focus()
pnlsave.Select()
Exit Sub
End If
‘Dim lintPropertyFor As Integer = 0
Dim lblnBool As Boolean = False
Dim GridItem As GridItem = Properties.SelectedGridItem
Dim pGridItem As GridItem = GridItem.Parent
For Each egi As GridItem In pGridItem.GridItems
If Properties.SelectedGridItem.Label = Properties.Item(lintPropertyFor).Name Then
lblnBool = True
lintPropertyFor += 1
End If
If egi.Label = Properties.Item(lintPropertyFor).Name Then
Properties.Focus()
egi.Select()
Exit For
End If
If lblnBool = False Then lintPropertyFor += 1
Next
End Select
Case 1 ‘Benefit Advance
lintPropertyFor = BenefitProperties.SelectedGridItem.Label
Dim leftString = lintPropertyFor.Substring(0, lintPropertyFor.IndexOf(“.”))
‘MsgBox(leftString)
lintPropertyFor = leftString – 1
‘Exit Sub
Select Case e.KeyCode
Case Keys.Tab, Keys.Enter
If BenefitProperties.Item(BenefitProperties.Item.Count – 1).Name = BenefitProperties.SelectedGridItem.Label Then
BenefitProperties.ToolStrip.Focus()
pnlBSave.Select()
Exit Sub
End If
‘Dim lintPropertyFor As Integer = 0
Dim lblnBool As Boolean = False
Dim GridItem As GridItem = BenefitProperties.SelectedGridItem
Dim pGridItem As GridItem = GridItem.Parent
For Each egi As GridItem In pGridItem.GridItems
If BenefitProperties.SelectedGridItem.Label = BenefitProperties.Item(lintPropertyFor).Name Then
lblnBool = True
lintPropertyFor += 1
End If
If egi.Label = BenefitProperties.Item(lintPropertyFor).Name Then
BenefitProperties.Focus()
egi.Select()
Exit For
End If
If lblnBool = False Then lintPropertyFor += 1
Next
End Select
Case 2 ‘Benefit Prepayment
lintPropertyFor = PreProperties.SelectedGridItem.Label
Dim leftString = lintPropertyFor.Substring(0, lintPropertyFor.IndexOf(“.”))
‘MsgBox(leftString)
lintPropertyFor = leftString – 1
‘Exit Sub
Select Case e.KeyCode
Case Keys.Tab, Keys.Enter
If PreProperties.Item(PreProperties.Item.Count – 1).Name = PreProperties.SelectedGridItem.Label Then
PreProperties.ToolStrip.Focus()
pnlPSave.Select()
Exit Sub
End If
‘Dim lintPropertyFor As Integer = 0
Dim lblnBool As Boolean = False
Dim GridItem As GridItem = PreProperties.SelectedGridItem
Dim pGridItem As GridItem = GridItem.Parent
For Each egi As GridItem In pGridItem.GridItems
If PreProperties.SelectedGridItem.Label = PreProperties.Item(lintPropertyFor).Name Then
lblnBool = True
lintPropertyFor += 1
End If
If egi.Label = PreProperties.Item(lintPropertyFor).Name Then
PreProperties.Focus()
egi.Select()
Exit For
End If
If lblnBool = False Then lintPropertyFor += 1
Next
End Select
End Select
End Sub
Private Sub UIF_PayrollEntry_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WaitPlease(1)
Call FormLayout()
Call SetFormUserRights()
If Trim(mstrDesignation) <> “Human Resource Officer” Then
tbcOvertime.TabPages.Remove(tbpOvertimeRequest)
tbcOvertime.TabPages.Remove(tbpOvrConfrmtn)
End If
SetControlStatus(“A”)
Call SetToolTips()
‘ Call FormInits()
WaitPlease(0)
End Sub
Language used: C++ Programming
Download this project code:
1 | LIVE STUDENT PROJECTS | |
2 | ONLINE CHATTING PROJECT | 2017-08-22T05:22:07Z |
3 | ONLINE NEWS FEED | 2017-08-22T05:20:04Z |
4 | BANKING PROJECT IN JAVA | 2017-08-22T05:17:31Z |
5 | HOTEL AND LODGE MANAGEMENT PROJECT | 2017-08-22T05:07:45Z |
6 | ONLINE ART EXHIBITION | 2017-08-22T05:02:21Z |
7 | PAYROLL MANAGEMENT SYSTEM | 2017-08-22T05:00:11Z |
8 | WHOLE SALE MARKETING PROJECT | 2017-08-22T04:57:35Z |
9 | LODGING PROJECT | 2017-08-22T04:51:12Z |
10 | GALLERY MANAGEMENT PROJECT | 2017-08-22T04:47:01Z |
11 | RESTUARANT PROJECT | 2017-08-22T04:36:03Z |
12 | SCHOOL DATABASE PROJECT | 2017-08-22T04:26:40Z |
13 | OFFICE PAYROLL PROJECTS | 2017-08-22T05:05:35Z |
14 | IT DATABASE PROJECTS | 2017-08-22T04:21:32Z |
15 | RESTAURENT DATABASE PROJECTS | 2017-08-22T04:11:13Z |
16 | RAILWAY SYSTEM DATABASE | 2017-08-22T04:07:24Z |
17 | INVENTORY TRACKER ANDROID | 2017-08-22T04:04:25Z |
18 | ONLINE RETAIL SALES PROJECTS | 2017-08-22T03:59:02Z |
19 | STUDENT RECORD STORE PROJECT | 2017-08-22T03:56:36Z |
20 | ONLINE STICKY NOTES | 2017-08-22T03:50:55Z |
21 | SENTENCE FRAMER APP | 2017-08-21T10:33:00Z |
22 | RAILWAY CROSSING GATES VIA ANDROID | 2017-08-21T10:25:19Z |
23 | ROBOT SPY CAM PROJECTS | 2017-08-21T10:23:33Z |
24 | MOTOR SPEED CONTROLLER PROJECTS | 2017-08-21T10:21:45Z |
25 | CERTIFICATE MANAGEMENT PROJECT | 2017-08-21T10:19:16Z |
26 | REPLACE ROBOTIC ARM | 2017-08-21T10:15:06Z |
27 | POSITIONING OF ANTENNA VIA ANDROID | 2017-08-21T10:12:25Z |
28 | AUTOMOBILE CONTROLLABLE VIA ANDROID | 2017-08-21T10:05:25Z |
29 | APPLICATION TO SHARE DOCUMENT | 2017-08-21T10:03:26Z |
30 | HOME AUTOMATION VIA ANDROID | 2017-08-21T09:59:58Z |
31 | EMPLOYEE APPRAISAL PROJECT | 2017-08-21T09:57:09Z |
32 | VOTING POLL VIA ANDROID | 2017-08-21T09:53:00Z |
33 | CIRCUIT BREAKER VIA ANDROID | 2017-08-21T09:50:33Z |
34 | VEHICLE TRACKING APP VIA ANDROID | 2017-08-21T09:47:48Z |
35 | LIBRARY BOOK LOCATOR VIA WIFI | 2017-08-21T09:45:35Z |
36 | LAW SYSTEM VIA ANDROID | 2017-08-21T09:43:27Z |
37 | AUTO PET FEEDER PROJECT | 2017-08-21T09:40:14Z |
38 | REMOTE DOOR VIA PASSWORD | 2017-08-21T09:04:24Z |
39 | SYSTEM CONTROL VIA ANDROID PHONE | 2017-08-21T08:47:55Z |
40 | PROJECTS TERMS AND CONDITION | 2017-08-23T09:56:00Z |
41 | POLICE INFORMATION SYSTEM | 2017-08-21T08:41:18Z |
42 | CUSTOMER RELATION MANAGEMENT PROJECT | 2017-08-21T08:34:57Z |
43 | COURIER MANAGEMENT PROJECT | 2017-08-21T08:18:25Z |
44 | EYE TEST PROJECT ONLINE | 2017-08-21T08:06:37Z |
45 | CAR RENT SYSTEM | 2017-08-21T09:31:13Z |
46 | AUTO MODE CAR – MECHANICAL PROJECT | 2017-08-22T08:24:01Z |
47 | ONLINE SHOPPING PROJECT | 2017-08-23T05:31:06Z |
48 | SCORE BOARD PROJECT | 2017-08-23T06:17:36Z |
49 | DOCUMENT TRACKING SYSTEM | 2017-08-24T08:53:39Z |
50 | HUMAN TEST | 2017-08-29T07:32:23Z |
51 | MOBILE STORE MANAGEMENT SYSTEM | 2017-08-30T07:24:07Z |
52 | BOUTIQUE MANAGEMENT PROJECT | 2017-08-31T04:33:56Z |
53 | CALCULATOR IN VB.NET | 2017-09-07T04:31:59Z |
54 | FINANCIAL MANAGEMENT SYSTEM | 2017-09-09T07:36:06Z |
55 | E-BILLING AND INVOICE SYSTEM | 2017-09-13T09:44:44Z |
56 | ONLINE COURSE REGISTRATION SYSTEM- JAVA | 2017-09-14T08:16:50Z |
57 | ONLINE AUCTION | 2017-09-14T08:52:04Z |
Medical Store Management System - Free download as Word Doc (.doc), PDF File. Download as DOC, PDF, TXT or read online from Scribd. Were various errors,some of the those errors are reported in this report like: 1.
This is Medical Store Inventory System in C++. This software is used in medical shops. This is a simple software where the billing takes place. User have to just need to enter the medicine , remaining calculation is done by the software. In this software there are 2 types of users is allowed one is admin and other one is user. Admin has all the rights like adding, deleting, updating. user can only add the records. Admin can view all the transaction of the software
This software is error free. Anyone can use this software . you can download this software by clicking on download below. So use this software and get more benefit from from this. If have any doubts then post your doubts below.
Enter your email address to subscribe to this website and receive notifications to your email id.
Sample Codes
Private Sub GetEmployee()
Dim lstrUserName() As String
Dim mstrEmployeeID As String
lstrUserName = Split(gstrUserName, “,”)
Dim lstrTemp As String
lstrTemp = ITRZ_DAM_DBConnects.GetMyDBCnnString(“DBL”, 1000)
OpenConnection(lstrTemp)
mstrEmployeeID = GetValueToString(” SELECT LUSR_EmpID_9EMPD ” & _
” FROM dbo.MDB_PRLG_LUSR_LoginUsers ” & _
” WHERE LUSR_LoginID_9HVC='” & gstrUserID & “‘” & _
” and LUSR_UserName_0BVC='” & lstrUserName(0).ToString & “‘”)
mstrEmpID = mstrEmployeeID
If mstrEmpID <> “” Then
Dim ldtbDesg As New DataTable
ldtbDesg = DAM_EmployeeMasterList.GetEmpDesg(mstrEmpID)
If ldtbDesg.Rows.Count > 0 Then
mstrDesg = ldtbDesg.Rows(0).Item(“DesgId”).ToString
mstrDesignation = ldtbDesg.Rows(0).Item(“Designation”).ToString
Else
MsgBox(“Please Contact System Admin!” & vbCrLf & _
” Current Job Status Has not been Assigned!”)
mstrReturn = 0
‘ Me.Close()
End If
End If
CloseConnection()
End Sub
Private Sub UIF_PayrollEntry_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
Select Case tbcPayroll.SelectedIndex
Case 0 ‘Cash Advance
lintPropertyFor = Properties.SelectedGridItem.Label
Dim leftString = lintPropertyFor.Substring(0, lintPropertyFor.IndexOf(“.”))
‘MsgBox(leftString)
lintPropertyFor = leftString – 1
‘Exit Sub
Select Case e.KeyCode
Case Keys.Tab, Keys.Enter
If Properties.Item(Properties.Item.Count – 1).Name = Properties.SelectedGridItem.Label Then
Properties.ToolStrip.Focus()
pnlsave.Select()
Exit Sub
End If
‘Dim lintPropertyFor As Integer = 0
Dim lblnBool As Boolean = False
Dim GridItem As GridItem = Properties.SelectedGridItem
Dim pGridItem As GridItem = GridItem.Parent
For Each egi As GridItem In pGridItem.GridItems
If Properties.SelectedGridItem.Label = Properties.Item(lintPropertyFor).Name Then
lblnBool = True
lintPropertyFor += 1
End If
If egi.Label = Properties.Item(lintPropertyFor).Name Then
Properties.Focus()
egi.Select()
Exit For
End If
If lblnBool = False Then lintPropertyFor += 1
Next
End Select
Case 1 ‘Benefit Advance
lintPropertyFor = BenefitProperties.SelectedGridItem.Label
Dim leftString = lintPropertyFor.Substring(0, lintPropertyFor.IndexOf(“.”))
‘MsgBox(leftString)
lintPropertyFor = leftString – 1
‘Exit Sub
Select Case e.KeyCode
Case Keys.Tab, Keys.Enter
If BenefitProperties.Item(BenefitProperties.Item.Count – 1).Name = BenefitProperties.SelectedGridItem.Label Then
BenefitProperties.ToolStrip.Focus()
pnlBSave.Select()
Exit Sub
End If
‘Dim lintPropertyFor As Integer = 0
Dim lblnBool As Boolean = False
Dim GridItem As GridItem = BenefitProperties.SelectedGridItem
Dim pGridItem As GridItem = GridItem.Parent
For Each egi As GridItem In pGridItem.GridItems
If BenefitProperties.SelectedGridItem.Label = BenefitProperties.Item(lintPropertyFor).Name Then
lblnBool = True
lintPropertyFor += 1
End If
If egi.Label = BenefitProperties.Item(lintPropertyFor).Name Then
BenefitProperties.Focus()
egi.Select()
Exit For
End If
If lblnBool = False Then lintPropertyFor += 1
Next
End Select
Case 2 ‘Benefit Prepayment
lintPropertyFor = PreProperties.SelectedGridItem.Label
Dim leftString = lintPropertyFor.Substring(0, lintPropertyFor.IndexOf(“.”))
‘MsgBox(leftString)
lintPropertyFor = leftString – 1
‘Exit Sub
Select Case e.KeyCode
Case Keys.Tab, Keys.Enter
If PreProperties.Item(PreProperties.Item.Count – 1).Name = PreProperties.SelectedGridItem.Label Then
PreProperties.ToolStrip.Focus()
pnlPSave.Select()
Exit Sub
End If
‘Dim lintPropertyFor As Integer = 0
Dim lblnBool As Boolean = False
Dim GridItem As GridItem = PreProperties.SelectedGridItem
Dim pGridItem As GridItem = GridItem.Parent
For Each egi As GridItem In pGridItem.GridItems
If PreProperties.SelectedGridItem.Label = PreProperties.Item(lintPropertyFor).Name Then
lblnBool = True
lintPropertyFor += 1
End If
If egi.Label = PreProperties.Item(lintPropertyFor).Name Then
PreProperties.Focus()
egi.Select()
Exit For
End If
If lblnBool = False Then lintPropertyFor += 1
Next
End Select
End Select
End Sub
Private Sub UIF_PayrollEntry_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WaitPlease(1)
Call FormLayout()
Call SetFormUserRights()
If Trim(mstrDesignation) <> “Human Resource Officer” Then
tbcOvertime.TabPages.Remove(tbpOvertimeRequest)
tbcOvertime.TabPages.Remove(tbpOvrConfrmtn)
End If
SetControlStatus(“A”)
Call SetToolTips()
‘ Call FormInits()
WaitPlease(0)
End Sub
Language used: C++ Programming
Download this project code:
1 | LIVE STUDENT PROJECTS | |
2 | ONLINE CHATTING PROJECT | 2017-08-22T05:22:07Z |
3 | ONLINE NEWS FEED | 2017-08-22T05:20:04Z |
4 | BANKING PROJECT IN JAVA | 2017-08-22T05:17:31Z |
5 | HOTEL AND LODGE MANAGEMENT PROJECT | 2017-08-22T05:07:45Z |
6 | ONLINE ART EXHIBITION | 2017-08-22T05:02:21Z |
7 | PAYROLL MANAGEMENT SYSTEM | 2017-08-22T05:00:11Z |
8 | WHOLE SALE MARKETING PROJECT | 2017-08-22T04:57:35Z |
9 | LODGING PROJECT | 2017-08-22T04:51:12Z |
10 | GALLERY MANAGEMENT PROJECT | 2017-08-22T04:47:01Z |
11 | RESTUARANT PROJECT | 2017-08-22T04:36:03Z |
12 | SCHOOL DATABASE PROJECT | 2017-08-22T04:26:40Z |
13 | OFFICE PAYROLL PROJECTS | 2017-08-22T05:05:35Z |
14 | IT DATABASE PROJECTS | 2017-08-22T04:21:32Z |
15 | RESTAURENT DATABASE PROJECTS | 2017-08-22T04:11:13Z |
16 | RAILWAY SYSTEM DATABASE | 2017-08-22T04:07:24Z |
17 | INVENTORY TRACKER ANDROID | 2017-08-22T04:04:25Z |
18 | ONLINE RETAIL SALES PROJECTS | 2017-08-22T03:59:02Z |
19 | STUDENT RECORD STORE PROJECT | 2017-08-22T03:56:36Z |
20 | ONLINE STICKY NOTES | 2017-08-22T03:50:55Z |
21 | SENTENCE FRAMER APP | 2017-08-21T10:33:00Z |
22 | RAILWAY CROSSING GATES VIA ANDROID | 2017-08-21T10:25:19Z |
23 | ROBOT SPY CAM PROJECTS | 2017-08-21T10:23:33Z |
24 | MOTOR SPEED CONTROLLER PROJECTS | 2017-08-21T10:21:45Z |
25 | CERTIFICATE MANAGEMENT PROJECT | 2017-08-21T10:19:16Z |
26 | REPLACE ROBOTIC ARM | 2017-08-21T10:15:06Z |
27 | POSITIONING OF ANTENNA VIA ANDROID | 2017-08-21T10:12:25Z |
28 | AUTOMOBILE CONTROLLABLE VIA ANDROID | 2017-08-21T10:05:25Z |
29 | APPLICATION TO SHARE DOCUMENT | 2017-08-21T10:03:26Z |
30 | HOME AUTOMATION VIA ANDROID | 2017-08-21T09:59:58Z |
31 | EMPLOYEE APPRAISAL PROJECT | 2017-08-21T09:57:09Z |
32 | VOTING POLL VIA ANDROID | 2017-08-21T09:53:00Z |
33 | CIRCUIT BREAKER VIA ANDROID | 2017-08-21T09:50:33Z |
34 | VEHICLE TRACKING APP VIA ANDROID | 2017-08-21T09:47:48Z |
35 | LIBRARY BOOK LOCATOR VIA WIFI | 2017-08-21T09:45:35Z |
36 | LAW SYSTEM VIA ANDROID | 2017-08-21T09:43:27Z |
37 | AUTO PET FEEDER PROJECT | 2017-08-21T09:40:14Z |
38 | REMOTE DOOR VIA PASSWORD | 2017-08-21T09:04:24Z |
39 | SYSTEM CONTROL VIA ANDROID PHONE | 2017-08-21T08:47:55Z |
40 | PROJECTS TERMS AND CONDITION | 2017-08-23T09:56:00Z |
41 | POLICE INFORMATION SYSTEM | 2017-08-21T08:41:18Z |
42 | CUSTOMER RELATION MANAGEMENT PROJECT | 2017-08-21T08:34:57Z |
43 | COURIER MANAGEMENT PROJECT | 2017-08-21T08:18:25Z |
44 | EYE TEST PROJECT ONLINE | 2017-08-21T08:06:37Z |
45 | CAR RENT SYSTEM | 2017-08-21T09:31:13Z |
46 | AUTO MODE CAR – MECHANICAL PROJECT | 2017-08-22T08:24:01Z |
47 | ONLINE SHOPPING PROJECT | 2017-08-23T05:31:06Z |
48 | SCORE BOARD PROJECT | 2017-08-23T06:17:36Z |
49 | DOCUMENT TRACKING SYSTEM | 2017-08-24T08:53:39Z |
50 | HUMAN TEST | 2017-08-29T07:32:23Z |
51 | MOBILE STORE MANAGEMENT SYSTEM | 2017-08-30T07:24:07Z |
52 | BOUTIQUE MANAGEMENT PROJECT | 2017-08-31T04:33:56Z |
53 | CALCULATOR IN VB.NET | 2017-09-07T04:31:59Z |
54 | FINANCIAL MANAGEMENT SYSTEM | 2017-09-09T07:36:06Z |
55 | E-BILLING AND INVOICE SYSTEM | 2017-09-13T09:44:44Z |
56 | ONLINE COURSE REGISTRATION SYSTEM- JAVA | 2017-09-14T08:16:50Z |
57 | ONLINE AUCTION | 2017-09-14T08:52:04Z |