frmmain.frm

This project is developed for school management system in vb and sql server 2000. All source code in

         End
      End
      Begin VB.Menu mnfeesReport 
         Caption         =   "Employee Specifice Fees Report"
      End
      Begin VB.Menu mnSalaryReport 
         Caption         =   "Employees Salary Report"
      End
      Begin VB.Menu mnuepsk 
         Caption         =   "-"
      End
      Begin VB.Menu mnuemployeerep 
         Caption         =   "All Employee's Reports"
      End
      Begin VB.Menu cours 
         Caption         =   "All Courses Reports"
      End
      Begin VB.Menu mnuallsubjects 
         Caption         =   "All &Subject List"
      End
   End
   Begin VB.Menu mnuwindows 
      Caption         =   "&Windows"
      Enabled         =   0   'False
      Begin VB.Menu mnuhory 
         Caption         =   "Title Horzentally"
      End
      Begin VB.Menu mnuvertical 
         Caption         =   "Title Verticallay"
      End
      Begin VB.Menu mnucasecade 
         Caption         =   "Casecade"
      End
   End
   Begin VB.Menu hel 
      Caption         =   "&Help"
      Enabled         =   0   'False
      Begin VB.Menu at 
         Caption         =   "&About"
      End
      Begin VB.Menu ht 
         Caption         =   "&Help Topics"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Cn As New ADODB.Connection

Public Sub MakeConnection()
  frmStatus.Show , frmMain
  frmStatus.Label1.Caption = "Connecting to DataBase..."
    DoEvents
Cn.ConnectionString = DE.Con1.ConnectionString
'Cn.Open
  Cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=InstituteSystem;"
  frmStatus.Label1.Caption = "Connection Succeeded..."
  Unload frmStatus
End Sub

Private Sub La_Click(Index As Integer)
Select Case Index
Case 0:
   frmStudent.SetFocus
Case 1:
   frmResult.SetFocus
End Select

End Sub

Private Sub at_Click()
frmAbout.Show
End Sub

Private Sub cours_Click()
rptallcourses.Show
End Sub

Private Sub ht_Click()
'frmTip.Show
End Sub

Private Sub log_Click()
frmMain.Cn.Close
Me.Hide
PassWrdFrm.Show
End Sub

Private Sub MDIForm_Load()
Dim j As Integer
Dim K As Integer
With Screen
j = .Width \ .TwipsPerPixelX
K = .Height \ .TwipsPerPixelY
 'adf = Shell("c:\windows\control.exe desk.cpl, display,1 ")
End With
 
'MakeConnection
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
'Unload frmStudent
 Dim i As Form
    For Each i In Forms
    If i.Name <> "frmMain" Then
      Unload i
     End If
    Next
End Sub

Private Sub mnuCourseOutline_Click()
rptCousreOutLine.Show
End Sub

Private Sub mnucourses_Click()
frmCourses.Show vbModal
End Sub

Private Sub mnuExams_Click()
frmExams.Show vbModal
End Sub

Private Sub mnClassPosition_Click()
frm_SubjectPosition.Show
End Sub

Private Sub mnfeesDefaulters_Click()
frm_rptFeeDefaulters.Show
End Sub

Private Sub mnleavesEntry_Click()
frmEmpLeaveEntry.Show
End Sub

Private Sub mnmarkssheet_Click()
frmGussetReport.Show
End Sub

Private Sub mnSalaryCalculate_Click()
frmemployeesalary.Show
End Sub

Private Sub mnSalaryReport_Click()
frm_rptEmployeeSalary.Show
End Sub

Private Sub mnStatusUpdate_Click()
frmemployeeStatus.Show
End Sub

Private Sub mnStudentBioData_Click()
frm_SearchStudent.Show
End Sub

Private Sub mnStudentFeesSearch_Click()
frm_SearchStudentFees.Show
End Sub

Private Sub mnuallstudent_Click()
rptallstudent.Show
End Sub

Private Sub mnuallsubjects_Click()
rptallsubjects.Show
End Sub

Private Sub mnuBackupandrecovery_Click()
frmDbf.Show
End Sub

Private Sub mnucasecade_Click()
frmMain.Arrange vbCascade
End Sub

Private Sub mnucoursese_Click()
frmCourses.Show
End Sub

Private Sub mnuemployeecatgories_Click()
frmemployeetype.Show
End Sub

Private Sub mnuemployeerecords_Click()
frmEmployees.Show
End Sub

Private Sub mnuemployeerep_Click()
rptallemployee.Show
End Sub

Private Sub mnuexamform_Click()
frmExams.Show
End Sub

Private Sub mnuExitApp_Click()
End
End Sub

Private Sub mnufees_Click()
frmfees.Show
End Sub

Private Sub mnuhory_Click()
frmMain.Arrange vbhorizontally
End Sub

Private Sub mnuOption_Click()
frmOptions.Show
End Sub

Private Sub mnuResult_Click()
   Unload frmStudent
     frmResult.Show
End Sub

Private Sub mnusstudent_Click()
frmReportStudent.Show
End Sub



Private Sub mnustudentreports_Click()
'frmMain.win
End Sub

Private Sub mnustudent_Click()
frmStudent.Show
End Sub

Private Sub mnuSubjects_Click()
frmSubject.Show
End Sub

Private Sub mnuVisitorsEntry_Click()
 frmVisitors.Show
End Sub

Private Sub mnuvertical_Click()
frmMain.Arrange vbvertically
End Sub

Private Sub mnuvisitor_Click()
frmVisitors.Show
End Sub

Private Sub stu_Click()
frmGussetReport.Show
End Sub


Private Sub studsrc_Click()
MyDialog.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index

Case 1:
        frmStudent.Show
        
Case 2:
        frmCourses.Show

Case 3:
        frmSubject.Show
Case 4:
        frmVisitors.Show
Case 5:
        frmExams.Show
End Select

        
End Sub

Private Sub vist_Click()
rptallvisitors.Show
End Sub