Free Essay

Hostel Management System

In:

Submitted By sanaparveen
Words 3691
Pages 15
CUSTOMER RECORD:- Option Explicit Dim f Private Sub Command1_Click() On Error Resume Next f = InputBox("Input Service ID or Family name", "Find") If f <> "" Then Data1.RecordSource = ("select * from tblebill where ServiceIDNo = '" & f + "' or FamilyName= '" & f + "'") Data1.Refresh End If End Sub Private Sub Command2_Click() On Error Resume Next Data1.RecordSource = ("select * from tblebill order by ServiceIDNo asc") Data1.Refresh End Sub Private Sub Command3_Click() On Error Resume Next Dim a As String a = Data1.Recordset.RecordCount MsgBox ("Total record " + a), vbInformation, "Message" End Sub Private Sub Command4_Click() On Error Resume Next Data1.RecordSource = ("Select * from tblebill where ServiceIDNo <> ' '") Data1.Refresh End Sub

Private Sub Command5_Click() On Error Resume Next Data1.RecordSource = ("select * from tblebill order by ServiceIDNo desc") Data1.Refresh End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\dbbilling.mdb" End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next If MsgBox("Exit?", vbYesNo + vbQuestion, "Message") = vbNo Then Cancel = True End If End Sub

SERVICE APPLICATION:- K Private Sub cmddisabled_Click() On Error Resume Next txtdate.Enabled = False Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False Text13.Enabled = False Text14.Enabled = False Text15.Enabled = False Text16.Enabled = False Text17.Enabled = False Text18.Enabled = False Text19.Enabled = False Text20.Enabled = False Text21.Enabled = False Text22.Enabled = False Text23.Enabled = False Text24.Enabled = False Text25.Enabled = False Text26.Enabled = False Text27.Enabled = False Text28.Enabled = False Text29.Enabled = False Text30.Enabled = False Check1.Enabled = False Check2.Enabled = False Check3.Enabled = False Check4.Enabled = False Check5.Enabled = False Check6.Enabled = False Check7.Enabled = False Combo1.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Combo4.Enabled = False Combo5.Enabled = False End Sub Private Sub cmdenabled_Click() On Error Resume Next txtdate.Enabled = True Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Text10.Enabled = True Text11.Enabled = True Text12.Enabled = True Text13.Enabled = True Text14.Enabled = True Text15.Enabled = True Text16.Enabled = True Text17.Enabled = True Text18.Enabled = True Text19.Enabled = True Text20.Enabled = True Text21.Enabled = True Text22.Enabled = True Text23.Enabled = True Text24.Enabled = True Text25.Enabled = True Text26.Enabled = True Text27.Enabled = True Text28.Enabled = True Text29.Enabled = True Text30.Enabled = True Check1.Enabled = True Check2.Enabled = True Check3.Enabled = True Check4.Enabled = True Check5.Enabled = True Check6.Enabled = True Check7.Enabled = True Combo1.Enabled = True Combo2.Enabled = True Combo3.Enabled = True Combo4.Enabled = True Combo5.Enabled = True End Sub

Private Sub Combo1_Click() On Error Resume Next Text11.SetFocus End Sub Private Sub Combo2_Click() On Error Resume Next Text12.SetFocus End Sub

Private Sub Combo3_Click() On Error Resume Next txtdate.SetFocus End Sub

Private Sub Combo4_Click() On Error Resume Next Text23.SetFocus End Sub Private Sub Combo5_Click() On Error Resume Next Text28.SetFocus End Sub Private Sub Form_Load() txtdate.Enabled = False Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False Text13.Enabled = False Text14.Enabled = False Text15.Enabled = False Text16.Enabled = False Text17.Enabled = False Text18.Enabled = False Text19.Enabled = False Text20.Enabled = False Text21.Enabled = False Text22.Enabled = False Text23.Enabled = False Text24.Enabled = False Text25.Enabled = False Text26.Enabled = False Text27.Enabled = False Text28.Enabled = False Text29.Enabled = False Text30.Enabled = False Check1.Enabled = False Check2.Enabled = False Check3.Enabled = False Check4.Enabled = False Check5.Enabled = False Check6.Enabled = False Check7.Enabled = False Combo1.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Combo4.Enabled = False Combo5.Enabled = False Toolbar1.Buttons(2).Enabled = False Data1.DatabaseName = App.Path + "\dbservice.mdb" Combo1.AddItem "Residential" Combo1.AddItem "Streetlight" Combo1.AddItem "Business" Combo2.AddItem "New Sevice" Combo2.AddItem "Add'l Load" Combo2.AddItem "Streetlight" Combo2.AddItem "Daep/Rep" Combo2.AddItem "Sepn of Serv" Combo2.AddItem "Subdivision" Combo2.AddItem "Temporary" Combo2.AddItem "Relocation/Removal" Combo2.AddItem "Others" Combo3.AddItem "Package 1" Combo3.AddItem "Package 2" Combo3.AddItem "Package 3" Combo4.AddItem "Serv Addr." Combo4.AddItem "Diff Addr." Combo5.AddItem "Serv Addr." Combo5.AddItem "Diff Addr." End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Cancel = True Else If MsgBox("Close service application?", vbYesNo + vbQuestion, "Message") = vbNo Then Cancel = True Else Cancel = False End If End If End Sub Private Sub mnudelete_Click() On Error Resume Next If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" ElseIf Text25.Text = "" Then MsgBox "No account name to delete", vbInformation, "Message" Else If MsgBox("Delete this record?", vbYesNo + vbQuestion, "Message") = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext End If End If End Sub Private Sub mnuedit_Click() On Error Resume Next Data1.Recordset.Edit mnunew.Enabled = False mnuedit.Enabled = False mnusave.Enabled = True Toolbar1.Buttons(4).Enabled = False Toolbar1.Buttons(5).Enabled = False Toolbar1.Buttons(2).Enabled = True cmdenabled_Click End Sub

Private Sub mnufind_Click() On Error Resume Next f = InputBox("Input account name", "Find") If f <> "" Then Data1.RecordSource = ("select * from tbleservice where name = '" & f + "'") Data1.Refresh ElseIf f = "" Then 'do nothing End If If Text25.Text = "" Then MsgBox "Account name do not exist", vbInformation, "Message" Data1.RecordSource = "select * from tbleservice where name <> '""'" Data1.Refresh End If End Sub Private Sub mnunew_Click() On Error Resume Next Data1.Recordset.AddNew mnunew.Enabled = False mnuedit.Enabled = False mnusave.Enabled = True Toolbar1.Buttons(4).Enabled = False Toolbar1.Buttons(5).Enabled = False Toolbar1.Buttons(2).Enabled = True cmdenabled_Click Text1.SetFocus End Sub

Private Sub mnusave_Click() On Error Resume Next If Text25.Text = "" Then MsgBox "Please input account name", vbInformation, "Message" Text25.SetFocus ElseIf txtdate.Text = "" Then MsgBox "Please input target date", vbInformation, "Message" txtdate.SetFocus Else lblapplied = Text31.Text Data1.Recordset.Update mnunew.Enabled = True mnuedit.Enabled = True mnusave.Enabled = False Toolbar1.Buttons(5).Enabled = True Toolbar1.Buttons(4).Enabled = True Toolbar1.Buttons(2).Enabled = False cmddisabled_Click End If End Sub Private Sub mnustandard_Click() 'On Error Resume Next 'If Text1.Enabled = True Then 'MsgBox "Save record first", vbInformation, "Message" 'Load frmstandardload 'frmstandardload.Show 1 'End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text2.SetFocus End If End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text11.SetFocus End If End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text12.SetFocus End If End Sub Private Sub Text12_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text13.SetFocus End If End Sub

Private Sub Text13_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text14.SetFocus End If End Sub

Private Sub Text14_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text15.SetFocus End If End Sub

Private Sub Text15_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text16.SetFocus End If End Sub

Private Sub Text16_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text17.SetFocus End If End Sub

Private Sub Text17_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text18.SetFocus End If End Sub

Private Sub Text18_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then txtdate.SetFocus End If End Sub

Private Sub Text19_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text20.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text3.SetFocus End If End Sub

Private Sub Text20_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text21.SetFocus End If End Sub

Private Sub Text21_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text22.SetFocus End If End Sub

Private Sub Text22_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text23.SetFocus End If End Sub

Private Sub Text23_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text24.SetFocus End If End Sub Private Sub Text24_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text25.SetFocus End If End Sub

Private Sub Text25_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text26.SetFocus End If End Sub

Private Sub Text26_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text27.SetFocus End If End Sub

Private Sub Text27_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text28.SetFocus End If End Sub

Private Sub Text28_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text29.SetFocus End If End Sub

Private Sub Text29_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text30.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text4.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text6.SetFocus End If End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text7.SetFocus End If End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text8.SetFocus End If End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text9.SetFocus End If End Sub Private Sub Text9_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text10.SetFocus End If End Sub Private Sub Timer1_Timer() On Error Resume Next Text31.Text = Date End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) On Error Resume Next Select Case Button.Key Case "tnew" mnunew_Click Case "tdelete" mnudelete_Click Case "tsave" mnusave_Click Case "tedit" mnuedit_Click Case "tfirst" If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else Data1.Recordset.MoveFirst MsgBox "First record", vbInformation, "Message" End If

Case "tprevious" If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else Data1.Recordset.MovePrevious If Data1.Recordset.BOF = True Then MsgBox "First record already", vbInformation, "Message" End If End If Case "tnext" If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then MsgBox "Last record already", vbInformation, "Message" End If End If Case "tlast" If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else Data1.Recordset.MoveLast MsgBox "Last record", vbInformation, "Message" End If Case "tstandard" mnustandard_Click Case "tfind" mnufind_Click End Select End Sub

Private Sub txtdate_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text19.SetFocus End If End Sub

ELECTRIC BILLING SYSTEM:-

Option Explicit Dim f Private Sub cmddisabled_Click() On Error Resume Next Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text14.Enabled = False End Sub Private Sub cmdenabled_Click() On Error Resume Next Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text9.Enabled = True Text10.Enabled = True Text14.Enabled = True End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\dbbilling.mdb" Data2.DatabaseName = App.Path + "\Counter.mdb" Toolbar1.Buttons(2).Enabled = False Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False Text13.Enabled = False Text14.Enabled = False txtbill.Enabled = False End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next If Text2.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Cancel = True Else If MsgBox("Close Billing?", vbYesNo + vbQuestion, "Message") = vbNo Then Cancel = True Else Load frmchoose frmchoose.Show Cancel = False End If End If End Sub Private Sub mnuclac_Click() On Error Resume Next Dim ray ray = Shell("C:\WINDOWS\CALC.EXE", 1) End Sub Private Sub mnuclose_Click() End Sub Private Sub mnudelete_Click() On Error Resume Next If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" ElseIf Text1.Text = "" Then MsgBox "There are no record to delete", vbInformation, "Message" Else If Text1.Text = "01" Or Text1.Text = "02" Or Text1.Text = "03" Or Text1.Text = "04" Or Text1.Text = "05" Or Text1.Text = "06" Or Text1.Text = "07" Or Text1.Text = "08" Or Text1.Text = "09" Or Text1.Text = "10" Then MsgBox "Bill ID number is being used by this system view map for information", vbCritical, "Message" Else If MsgBox("Delete this record?", vbYesNo + vbQuestion, "Message") = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext Load frmdelete 'frmdelete.Show 1 End If End If End If End Sub Private Sub mnuedit_Click() On Error Resume Next If txtstatus.Text = "Disconnected" Then MsgBox "Cannot edit Bill ID number status disconnected", vbCritical, "Message" Else Data1.Recordset.Edit mnunew.Enabled = False mnuedit.Enabled = False mnusave.Enabled = True Toolbar1.Buttons(5).Enabled = False Toolbar1.Buttons(4).Enabled = False Toolbar1.Buttons(2).Enabled = True cmdenabled_Click Text2.SetFocus End If End Sub Private Sub mnufind_Click() On Error Resume Next If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else Dim f f = InputBox("Input Bill ID No. or Family name", "Find") If f <> "" Then Data1.RecordSource = ("select * from tblebill where ServiceIDNo = '" & f + "' or FamilyName= '" & f + "'") Data1.Refresh End If If Text1.Text = "" Then MsgBox "Record does not exist", vbInformation, "Message" Data1.RecordSource = "select * from tblebill where ServiceIDNo <> '""'" Data1.Refresh End If End If End Sub Private Sub mnunew_Click() On Error Resume Next Dim n n = InputBox("Please supply password or type 'cancel' to undo", "Message") n = LCase(n) If n = "sana" Then Data1.Recordset.AddNew mnunew.Enabled = False mnuedit.Enabled = False mnusave.Enabled = True Toolbar1.Buttons(5).Enabled = False Toolbar1.Buttons(4).Enabled = False Toolbar1.Buttons(2).Enabled = True txtstudnoctr.Text = Val(txtstudnoctr.Text) + 1 Text1.Text = Format$(txtstudnoctr.Text, "00") cmdenabled_Click txtstatus.Text = "Connected" Text2.SetFocus ElseIf n = "cancel" Then MsgBox "Adding new service ID number cancel", vbInformation, "Message" ElseIf n = "" Then 'do nothing Else MsgBox "Invalid password", vbCritical, "Message" mnunew_Click End If End Sub Private Sub mnupreview_Click() On Error Resume Next If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else DataEnvironment1.Commands(1).CommandText = "Select * from tblebill where ServiceIDNo = '" & Text1.Text & "' " DataEnvironment1.Commands(1).Execute Load DataReport1 DataReport1.Show 1 DataEnvironment1.rsCommand1.Close End If End Sub Private Sub mnuprint_Click() On Error Resume Next If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else DataEnvironment1.Commands(1).CommandText = "Select * from tblebill where ServiceIDNo = '" & Text1.Text & "' " DataEnvironment1.Commands(1).Execute DataReport1.PrintReport CommonDialog1.Copies DataEnvironment1.rsCommand1.Close End If End Sub Private Sub mnusave_Click() On Error Resume Next Data1.Recordset.Update Text11.Text = Val(Text6.Text) * 3.4 Text12.Text = Val(Text11.Text) * 0.0629 Text13.Text = Val(Text6.Text) * 2.463 txtbill.Text = Val(Text11.Text) + Val(Text12.Text) + Val(Text13.Text) txtbill.Text = Format(txtbill.Text, ".00") mnunew.Enabled = True mnuedit.Enabled = True mnusave.Enabled = False Toolbar1.Buttons(5).Enabled = True Toolbar1.Buttons(4).Enabled = True Toolbar1.Buttons(2).Enabled = False cmddisabled_Click End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text10_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text14.SetFocus End If End Sub

Private Sub Text14_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text6.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text4.SetFocus End If End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text5.SetFocus End If End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text10.SetFocus End If End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text7.SetFocus End If End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text9.SetFocus Text8.Text = Text14.Text End If End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text9.SetFocus End If End Sub Private Sub Text9_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then Text11.Text = Val(Text6.Text) * 3.4 Text12.Text = Val(Text11.Text) * 0.0629 Text13.Text = Val(Text6.Text) * 2.463 txtbill.Text = Val(Text11.Text) + Val(Text12.Text) + Val(Text13.Text) txtbill.Text = Format(txtbill.Text, ".00") End If End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) On Error Resume Next Select Case Button.Key Case "tnew" mnunew_Click Case "tedit" mnuedit_Click Case "tsave" mnusave_Click Case "tdelete" mnudelete_Click Case "tfirst" If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else Data1.Recordset.MoveFirst MsgBox "First record", vbInformation, "Message" End If Case "tprevious" If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else Data1.Recordset.MovePrevious If Data1.Recordset.BOF = True Then MsgBox "First record already", vbInformation, "Message" End If End If Case "tnext" If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then MsgBox "Last record already", vbInformation, "Message" End If End If Case "tlast" If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Else Data1.Recordset.MoveLast MsgBox "Last record", vbInformation, "Message" End If Case "tfind" mnufind_Click Case "tpreview" mnupreview_Click Case "tprint" mnuprint_Click End Select End Sub

MAIN FORM:-

Private Sub Command1_Click() On Error Resume Next Unload frmchoose Load frmbilling frmbilling.Show End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Command1.BackColor = &HC0FFFF End Sub Private Sub Command2_Click() On Error Resume Next Load frmapplserv frmapplserv.Show 1 End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Command2.BackColor = &HC0FFFF End Sub

Private Sub Command3_Click() 'On Error Resume Next 'OLE1.DoVerb 1 End Sub Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Command3.ForeColor = &HC0FFFF End Sub Private Sub Command4_Click() 'On Error Resume Next 'Load frmmaps 'frmmaps.Show End Sub Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Command4.BackColor = &HC0FFFF End Sub Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Command5.BackColor = &HC0FFFF End Sub Private Sub Command6_Click() On Error Resume Next Unload frmchoose Load frmdisconnect frmdisconnect.Show End Sub Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Command6.BackColor = &HC0FFFF End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.BackColor = &H8000000F Command2.BackColor = &H8000000F Command5.BackColor = &H8000000F Command6.BackColor = &H8000000F End Sub

Private Sub Label10_Click() On Error Resume Next OLE1.DoVerb 1 End Sub Private Sub Image4_Click(Index As Integer) 'On Error Resume Next 'Command3_Click End Sub

Private Sub Timer1_Timer() On Error Resume Next Label6.Caption = Time End Sub Private Sub Command5_Click() On Error Resume Next Load frmall frmall.Show 1 End Sub

DIS/CONNECTION FORM:-

Private Sub Command1_Click() On Error Resume Next If MsgBox("Disconnect " + Text1.Text + " Bill ID no.", vbYesNo + vbQuestion, "Message") = vbYes Then Data1.Recordset.Edit lblstatus.Caption = "Disconnected" Data1.Recordset.Update MsgBox "Service ID " + Text1.Text + " disconnected", vbInformation, "Message" End If End Sub Private Sub Command2_Click() On Error Resume Next If MsgBox("Connect " + Text1.Text + " Bill ID no.", vbYesNo + vbQuestion, "Message") = vbYes Then Data1.Recordset.Edit lblstatus.Caption = "Connected" Data1.Recordset.Update MsgBox "Service ID " + Text1.Text + " connected", vbInformation, "Message" End If End Sub Private Sub Command3_Click() On Error Resume Next f = InputBox("Input Bill ID No. or Family name", "Find") If f <> "" Then Data1.RecordSource = ("select * from tblebill where ServiceIDNo = '" & f + "' or FamilyName= '" & f + "'") Data1.Refresh End If If Text1.Text = "" Then MsgBox "Record does not exist", vbInformation, "Message" Data1.RecordSource = "select * from tblebill where ServiceIDNo <> '""'" Data1.Refresh End If End Sub Private Sub Command4_Click() On Error Resume Next If lblstatus.Caption = "Connected" Then MsgBox "Cannot print Bill ID number status connected", vbCritical, "Message" Else DataEnvironment1.Commands(1).CommandText = "Select * from tblebill where ServiceIDNo = '" & Text1.Text & "' " DataEnvironment1.Commands(1).Execute Load DataReport2 DataReport2.Show 1 DataEnvironment1.rsCommand1.Close End If End Sub Private Sub Command5_Click() On Error Resume Next Data1.RecordSource = "select * from tblebill where ServiceIDNo <> '""'" Data1.Refresh End Sub

Private Sub Command6_Click() On Error Resume Next f = InputBox("Input Date", "Find") If f <> "" Then Data1.RecordSource = ("select * from tblebill where DueDate = '" & f + "'") Data1.Refresh End If If Text1.Text = "" Then MsgBox "Due date do not exist", vbInformation, "Message" Data1.RecordSource = "select * from tblebill where ServiceIDNo <> '""'" Data1.Refresh End If End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\dbbilling.mdb" End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next If Text1.Enabled = True Then MsgBox "Save record first", vbInformation, "Message" Cancel = True Else If MsgBox("Exit?", vbYesNo + vbQuestion, "Message") = vbNo Then Cancel = True Else Load frmchoose frmchoose.Show Cancel = False End If End If End Sub

Private Sub Timer1_Timer() On Error Resume Next If Timer1.Interval = 1000 Then lblstatus.FontItalic = True Timer1.Enabled = False Timer2.Enabled = True End If End Sub Private Sub Timer2_Timer() On Error Resume Next If Timer1.Interval = 1000 Then lblstatus.FontItalic = False Timer2.Enabled = False Timer1.Enabled = True End If End Sub

Private Sub mnuEms_Click() frmchoose.Show End Sub Private Sub mnuexit_Click() End End Subg

Similar Documents

Premium Essay

Hostel Management System

...Hostel Management System Project Report : CS315 - Introduction to Database Systems Akshay Kumar & Abhijit Sharang Advisor : Dr. Harish Karnick Department of Computer Science and Engineering {kakshay,abhisg}@iitk.ac.in April 9, 2013 We present to you Hostel Management System - a fully automated portal to cater to various affairs of a hostel. This is capable of handling Book Club, Complains, Washerman Transaction, Canteen and Mess Transactions. The Relational Database System used is mysql whereas the frontend is powered by php, ajax and other internet technologies. INTRODUCTION Our project involved developing a fully automated hostel management system which can cater to the needs of students & administrators. Presently, there’s no such system in place and most of the work done is not computerized. With the help of this portal, the time spent in such redundant chores can be heavily cut down and will also ensure transparency. For now, the day to day tasks of mess, canteen, library, complaints, washerman, etc. have been incorporated into the framework but it can be extended to suit the exact needs of a hostel. Since the amount of work is large, we have decided to split the work between two people. FUNCTIONAL SPECIFICATIONS AND FEATURES • Database : We created the database for this project right from scratch. All the information has been manually entered. To implement it actually, it can easily be imported from a csv file. • Login : The interface provides login only to select authorities...

Words: 526 - Pages: 3

Premium Essay

Hostel Management System

...: ONLINE HOSTEL MANAGEMENT SYSTEM Supervisor Name: MR ERIC TWUMASI Aims & Objectives of the Project: The aim of this project is to: 1. To design an online hostel management system where each user’s activity is in a computerized way rather than the usual manual process which appears to be time consuming. 2. To upgrade the hostel booking system from manual hand book registration to an online registration. The objective of the entire activity is to automate the process of day to day activities of the hostel. For example: 1. Admission of a new customer, 2. Assign a room according to customer’s demand, 3. Checkout of a costumer and releasing the room 4. Packages available. 5. Feedbacks and to create a standard compliance website that will demonstrate the following qualities; 1. Proper organization. 2. Very informative. 3. User friendly. 4. Data Integrity 5. Students can store his or her information Literature Survey and overview of the project: Manual hostel management system is a very tedious process, this is because it involves work load and time comsumption. This new system is to create an easy way to manage the hostel details, room details, student records, mess expenditure, easy way of room allocation and hostel attendance. Thus a lot of repetition can be easily evaded which has reduced the data redundancy. (M Deepika, A. Chitra 2010) The proposed system for Online Hostel Management System is a computerized system that runs...

Words: 1311 - Pages: 6

Premium Essay

Hostel Management System

...Hostel Management System is designed in favor of the hostel management which helps them to save the records of the students about their rooms and other things. It helps them from the manual work from which it is very difficult to find the record of the students and the mess bills of the students, and the information of about those ones who had left the hostel three years before. This system automatically calculates all the bills and issued the notifications for those students who are against some rules. Many important details like, number of vacancies and number of students residing in the hostel depending on their department or year will be available online for the users. Project Scope The hostel management needs to create the hostel management system (HMS) to organize the rooms, mess, student’s record and the other information about the students. How many students can live in a room, and the students of the hostel can be recognized from their Hostel ID number. Different tasks done by the management team will be automated and integrated, for example, placing orders to vendors or placing any kind of query or complain to the higher authority can be done online, keeping record of all transactions done by the hostel will be more efficient and accurate. The timings of students moving in or out of the hostel will be recorded by scanning their hostel RFID cards. All the students who are bunking the college can be listed out separately and notified to the respective responsible...

Words: 1201 - Pages: 5

Premium Essay

Hostel Management System

...A project report On HOSTEL MANAGEMENT SYSTEM Thesis/dissertation submitted in partial fulfillment of the requirement for the award of the degree of MASTER OF COMPUTER APPLICATIONS By Rajasekhar Under the Esteemed Guidance of Mrs.Aruna Department Of Master of Computer Applications Gokaraju Rangaraju Institute of Engineering and Technology Affiliated to Jawaharlal Nehru Technological University Bachupally, Hyderabad-500090 2011-2014 CERTIFICATE This is to certify that thesis/dissertation entitled “HOSTEL MANAGEMENT SYSTEM” that is being submitted by Mr. Palli Rajasekhar reddy bearing H.T.No. 11241F0068 in partial fulfillment for the award of the Master of Computer Applications in Gokaraju Rangaraju Institute of Engineering and Technology affiliated to the Jawaharlal Nehru Technological University is a record of bonafide work carried out by him under my supervision. The results embodied in this thesis have not been submitted to any other University or Institute for the award of any degree or diploma. Internal Guide Head of the Department Mrs.Saraswathy Rajaram Dr. Sk.Althaf Hussain Basha Asst.Professor Professor & HOD Dept. of MCA Dept. of MCA GRIET, Hyderabad-90 GRIET, Hyderabad-90 ACKNOWLEDGEMENT The real spirit of achieving a goal is through the way of excellence and austere...

Words: 4190 - Pages: 17

Premium Essay

Hostel Management System

...1.5. Document overview 2 2.0. Overall description 4 2.1. System environment 4 2.2. Functional requirements definitions 4 2.3. Use cases 5 2.3.1. Use Case: Access Alumni Home Page 6 2.3.2. Use Case: Alum Chooses Survey 7 2.3.3. Use Case: Create New Entry 8 2.3.4. Use Case: Update an Entry. 9 2.3.5. Use Case: Search for an Alumni/E-mail and Alumni 10 2.4. Non-functional requirements 11 3.0. Requirement specifications 12 3.1. External interface specifications 12 3.2. Functional Requirements 12 3.2.1. Access Alumni Home Page 12 3.2.2. Survey 12 3.2.3. Create a new entry 13 3.2.4 Update an Entry 14 3.2.5. Search for an Alumni/E-mail an Alumni 15 3.3. Detailed non-functional requirements 17 3.4. System Evolution 18 4.0. Index 19 Table of Figures Figure 1 System Design 4 Figure 2 Access Alumni Home Page 6 Figure 3 Alum Selects Survey 7 Figure 4 Alum Selects Create a New Entry 8 Figure 5 Alum Selects Update an Entry 9 Figure 6 Alum Selects Search/E-mail an Alum 10 1.0. Purpose 1.1. Introduction This Software Requirements Specification provides a complete description of all the functions and specifications of the Jacksonville State University Computing and Information Sciences (CIS) Web Accessible Alumni Database. The expected audience of this document is the faculty of CIS, including the faculty who will use this system, Dr. Dennis Martin and studio committee members, and the developer...

Words: 3612 - Pages: 15

Premium Essay

Hostel Management System

...Vitamin From Wikipedia, the free encyclopedia A bottle of high potency B-complex vitamin supplement pills. A vitamin (US /ˈvaɪtəmɪn/ and UK /ˈvɪtəmɪn/) is an organic compound and a vital nutrient that an organism requires in limited amounts.[1] An organic chemical compound (or related set of compounds) is called a vitamin when the organism cannot synthesize the compound in sufficient quantities, and must be obtained through the diet; thus, the term "vitamin" is conditional upon the circumstances and the particular organism. For example, ascorbic acid (vitamin C) is a vitamin for humans, but not for most other animal organisms. Supplementation is important for the treatment of certain health problems, but there is little evidence of nutritional benefit when used by otherwise healthy people.[2] By convention, the term vitamin includes neither other essential nutrients, such as dietary minerals, essential fatty acids, or essential amino acids (which are needed in amounts greater than are vitamins) nor the great number of other nutrients that promote health, and are required less often to maintain the health of the organism.[3] Thirteen vitamins are universally recognized at present. Vitamins are classified by their biological and chemical activity, not their structure. Thus, each "vitamin" refers to a number of vitamer compounds that all show the biological activity associated with a particular vitamin. Such a set of chemicals is grouped under an alphabetized vitamin "generic descriptor"...

Words: 4230 - Pages: 17

Free Essay

Hostel Management System

...BLUECREST COLLEGE NAME: SAMUEL OWUSU DANSO COURSE: SMALL BUSINESS MANAGEMENT & ENTREPRENEURSHIP LEVEL: 300 SEMESTER 2 PROGRAM: BACHELOR OF SCIENCE IN INFORMATION  TECHNOLOGY(BSc.IT) ASSIGNMENT I AN ENTREPRENEUR  INTERVIEW  BIOGRAPHY OF THE ENTREPRENEUR Mr. Gabriel Takyi is a young man of thirty six (36) years old  born at Abura Dunkwa a district in the  Central Region of south Ghana. He is married for the past six(6) years with his magnificent wife Christabel with three kids. Gabriel  pass through the junior high school and continued his senior high school at Amenfiman senior high  school in Western Region of Ghana and did general arts as a course of choice. Mr Gabriel Takyi is now an entrepreneur who owns  a supermarket and petroleum station with  branches at Abura Dunkwa, Sefwi Wiawso and Dunkwa  – Offin. ABOUT THE SUPERMARKET The  name of the supermarket is NASCO supermarket. It has being in operation since 2000 at Sefwi  Wiawso in the Western Region. He is mainly into sales of meat, fresh produce, dairy, baked goods and  household products. At this current stage, the supermarket and all the goods in it worth about GHC 250,000. HOW THE ENTREPRENEUR STARTED After the SHS education, he didn't get any financial support to further his  studies. So he traveled to  Tarkoradi as a sailor. Some years back he went to Accra as a sales boy and later on learnt mechanic. So he worked with a friend as a junior mechanic, while working he saves some money. During his experience as a sales boy...

Words: 631 - Pages: 3

Free Essay

Hostel Management System

...THE FEDERAL POLYTECHNIC, IDAH ADMISSIONS OFFICE ACADEMIC AFFAIRS (REGISTRY DEPARTMENT) REGISTRATION GUIDELINE FOR STUDENTS OF THE 2014/2015 ACADEMIC SESSION 1. The Admitted candidates are expected to visit the school portal www.fepoda.edu.ng enter their JAMB registration Number (for ND) and Admission Form Number (for HND) into the spaced provided to enable them print their Admission Letter and the Acceptance Letter. Candidate should go to any of the following banks to pay the sum N5,000.00 (non-refundable) as the acceptance fee. Bank UBA Zenith ECOBank Mainstreet Unyogba Account Number 1000499115 1012030663 5832002553 6000095228 1014400035 Account Name Federal Polytechnic Idah Federal Polytechnic Idah Federal Polytechnic Idah Federal Polytechnic Idah Federal Polytechnic Idah 2. Candidates should visit the Admissions Office for the Clearance Certificate and collection of undertaking form with the copies of the admission letter, the acceptance letter and the receipt fot the payment of the acceptance fee. 3. Candidates should go to their departments with their original documents for departmental screening. 4. Admitted candidates who are successful in the Departmental Screening can the go to any of the banks specified above for the payment of school fee.Then they are also expected to go to the Head of Students Accounts Office (Bursary) after payment with the bank teller and the receipt of the acceptance fee for documentation. 5. They should take the completed undertaking form to...

Words: 425 - Pages: 2

Premium Essay

Hostel Management System

...Software Requirements Specification Version 1.0 April 15, 2004 Web Publishing System Joan Teamleader Paul Adams Bobbie Baker Charles Charlie Submitted in partial fulfillment Of the requirements of CS 310 Software Engineering Table of Contents Table of Contents i List of Figures ii 1.0. Introduction 1 1.1. Purpose 1 1.2. Scope of Project 1 1.3. Glossary 2 1.4. References 2 1.5. Overview of Document 2 2.0. Overall Description 4 2.1 System Environment 4 2.2 Functional Requirements Specification 5 2.2.1 Reader Use Case 5 Use case: Search Article 5 2.2.2 Author Use Case 6 Use case: Submit Article 6 2.2.3 Reviewer Use Case 7 Use case: Submit Review 7 2.2.4 Editor Use Cases 8 Use case: Update Author 8 Use case: Update Reviewer 9 Use case: Update Article 9 Use case: Receive Article 10 Use case: Assign Reviewer 11 Use case: Receive Review 11 Use case: Check Status 12 Use case: Send Response 12 Use case: Send Copyright 13 Use case: Remove Article 14 Use case: Publish Article 14 2.3 User Characteristics 15 2.4 Non-Functional Requirements 15 3.0. Requirements Specification 17 3.1 External Interface Requirements 17 3.2 Functional Requirements 17 3.2.1 Search Article 17 3.2.2 Communicate 18 3.2.3 Add Author 18 3.2.4 Add Reviewer 19 3.2.5 Update Person 19 3.2.6 Update Article Status 20 ...

Words: 6057 - Pages: 25

Premium Essay

Hostel Management System

...of data mining. While early adopters of this technology have tended to be in information-intensive industries such as financial services and direct mail marketing, the technology is applicable to any company looking to leverage a large data warehouse to better manage their customer relationships. Two critical factors for success with data mining are: a large, well-integrated data warehouse and a well-defined understanding of the business process within which data mining is to be applied (such as customer prospecting, retention, campaign management, and so on). Some successful application areas include: • A pharmaceutical company can analyze its recent sales force activity and their results to improve targeting of high-value physicians and determine which marketing activities will have the greatest impact in the next few months. The data needs to include competitor market activity as well as information about the local health care systems. The results can be distributed to the sales force via a wide-area network that enables the representatives to review the recommendations from the perspective of the key attributes in the decision process. The ongoing, dynamic analysis of the data warehouse allows best practices from throughout the organization to be applied in specific sales situations. • A credit card company can leverage its vast warehouse of customer transaction data to identify customers most likely to be interested in a new credit product. Using a small test...

Words: 5855 - Pages: 24

Premium Essay

Hostel Management System

...LATEST DEVICES IN NETWORKIG The basic network devices includes NIC adapters, routers, hubs, switches, modems, communication cables, LAN/WAN routers, gateway and other devices. Due to rapidly changing technology these devices keep changing or being modified. While at the same time others emerge, the following are some of the latest devices used in networking (these latest devices are mostly used by reputable companies due to their high cost); 1. Nuage Networks' Virtualized Services Platform Alcatel-Lucent's SDN arm, Nuage, made a splash in the burgeoning SDN space when it unveiled its Virtualized Services Platform, a software overlay for data center networks. The value of VSP is that it helps automate and accelerate the connection of virtual machines to data center networks after those machines are instantiated. VSP works by essentially creating “tunnels” between virtual machines—whether they are on the same server rack, a different rack or even in a different data center—so the network can be available instantly, regardless of where an application is running. 2. Ixia Anue GTP Session Controller In an effort to help 4G LTE mobile carriers keep closer tabs on their networks, Ixia launched its Anue GTP Session Controller, which helps carriers piece together data coming from multiple cell towers and drill down to gain visibility into an individual subscriber"s activity on each mobile device that user owns. The built-in monitoring tools have the ability to distribute...

Words: 943 - Pages: 4

Premium Essay

Hostel Management System

...INTRODUCTION Purpose of this document The purpose of this document is to specify each requirement of the system in detail, while helping the client obtain a better understanding of the project. The intended audience for this document is Chuka University Hostel Administrative Staff whose this project is intended for. Overall Diagram: USE CASE DIAGRAM: Use case diagram is a diagram that shows the interaction between user and system to capture the user’s goals. Astudent display the hostel bill report to the student payment of hostel fee bill check and verify hostel fee report collect& store the student details store the availability of hostel& room details generate & update the attendance details calculate& generate report for Payment of hostel fees... ... request for hostel fee report Hostel fee calculation administrator db manager update the payment details CLASS DIAGRAM: Class diagram is a collection of static elements such as classes and their relationships connected as a graph to each other. Student Student name roll no address branch year room no give details() calculate Total hostel bill() enter the students details() enter room ) enter attendance details() calculate hostel fees() report generate hotel bill report() data base manager update the student details() update hostel balance() update the attendance details() Sequence Diagram: Sequence diagram shows an interaction...

Words: 997 - Pages: 4

Free Essay

Hostel Management System

...Define user documentation Written or other visual information about an application system, how it works, and how to use it. (17) . User documentation refers to the documentation for a product or service provided to the end users. The user documentation is designed to assist end users to use the product or service. This is often referred to as user assistance. The user documentation is a part of the overall product delivered to the customer. The sections of a user manual often include: * A cover page * A title page and copyright page * A preface, containing details of related documents and information on how to navigate the user guide * A contents page * A guide on how to use at least the main functions of the system * A troubleshooting section detailing possible errors or problems that may occur, along with how to fix them * A FAQ (Frequently Asked Questions) * Where to find further help, and contact details * A glossary and, for larger documents, an index realized the importance of documentation many years ago when I joined an organization to head its IT function. The previous IT head had left the organization a couple of months ago. The managing director called me over and voiced his expectation. He told me that all ground work had been done for ordering new set of servers and application packages and that I should act upon it soon. I promised to take a look at the situation and revert with plans. However, when I sat in my department...

Words: 2026 - Pages: 9

Premium Essay

Literature Review on Hostel Management System

...Introduction: This Hostel Management System is developed in favor of the hostel management team which helps them to save the records of the students about their rooms and other things. It helps them from the manual work from which it is very difficult to find the record of the students and the information about those ones who had left the hostel years before. This solution is developed on the plight of the hostel management team, through this they cannot require so efficient person to handle and manage the affairs of the students in the hostel, all you need to do is to login as administrator and you can see the information of all the students who have obtained and registered their hostel form, click verify to ascertain their eligibility and allocate them to the available hostel. Identification of the problems of the existing hostel management leads to the development of computerized solution that will be compatible to the existing hostel management with the solution which is more users friendly and more GUI oriented. We can improve the efficiency of the hostel management, thus overcome the drawbacks of the existing management Visual Basic6.0 is used as the front end tool and Oracle is used as a backend tool. Visual Basic is one of the driven programming languages. The application wizards, menu editor and data reports etc is very much useful for creating very good professional software. 1.2 AIMS AND OBJECTIVES AIMS o The aim of the system is to provide a...

Words: 597 - Pages: 3

Free Essay

Literature Review on Hostel Management System

...Thank you for your interest in Imperial Advance. Attached you will find your Application for funding. Please complete the application in its entirety and return it along with:  6 months Bank statements (All Pages)  Profit and loss statement with balance sheet ($75k+)   Fill out application (attached) In order to ultimately fund you, I will also need the following, so if you have it handy, please send it along now:  Copy of your lease or deed ( page with terms and signature)  Drivers License  Voided check  Business Certificate Once we receive your completed, signed application along with the aforementioned documentation, we will promptly contact you with specific information including, how much money you qualify for and when we can ACH these funds into your account. Sincerely, Michael Buchanan Office: 347-708-7412 Fax: 866-323-9373 Email: mbuchanan@imperialadvance.com Working Capital Application 132 W 36th St 3rd Floor, New York, NY 10018 www.ImperialAdvance.com Legal/Corporate Name: Physical Address: Telephone #: Date Business Started: Type of Entity (circle one): Sole Proprietorship Partnership Fax #: Length of Ownership: Representative: Michael Buchanan Phone #: 347-708-7412 Fax #: 866-323-9373 Email: mbuchanan@imperialadvance.com BUSINESS INFORMATION DBA: City: State: Federal Tax ID: Website: Email Address: Product/Service Sold: Gross Annual Sales: Zip: Corporation LLC Other Other Type of Business (circle all that apply): Retail MO/TO Wholesale...

Words: 750 - Pages: 3