home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / airline_re204714292007.psc / frmMainForm.frm < prev    next >
Text File  |  2003-04-12  |  2KB  |  81 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm frmMainForm 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "Payroll System"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   165
  7.    ClientTop       =   735
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "MDIForm1"
  10.    StartUpPosition =   3  'Windows Default
  11.    WindowState     =   2  'Maximized
  12.    Begin VB.Menu mnuMenu 
  13.       Caption         =   "Menu"
  14.       Begin VB.Menu mnuEmployee 
  15.          Caption         =   "Employee"
  16.       End
  17.       Begin VB.Menu mnuSetting 
  18.          Caption         =   "Setting"
  19.       End
  20.    End
  21.    Begin VB.Menu mnuPaySlip 
  22.       Caption         =   "Payslip"
  23.       Begin VB.Menu mnuPaySlipGenerate 
  24.          Caption         =   "Generate Payslip"
  25.       End
  26.       Begin VB.Menu mnuRPrintPayslip 
  27.          Caption         =   "Re-Print Payslip"
  28.       End
  29.    End
  30.    Begin VB.Menu mnuReports 
  31.       Caption         =   "Reports"
  32.       Begin VB.Menu mnuName 
  33.          Caption         =   "All Payslips of one Employee"
  34.       End
  35.       Begin VB.Menu mnuALl 
  36.          Caption         =   "All Payslip Data"
  37.       End
  38.    End
  39. End
  40. Attribute VB_Name = "frmMainForm"
  41. Attribute VB_GlobalNameSpace = False
  42. Attribute VB_Creatable = False
  43. Attribute VB_PredeclaredId = True
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46.  
  47. Private Sub mnuALl_Click()
  48. typeID = "c"
  49. Load frmReprintPayslip
  50. frmReprintPayslip.Show
  51. End Sub
  52.  
  53. Private Sub mnuEmployee_Click()
  54. Load frmEmpDetails
  55. frmEmpDetails.Show
  56.  
  57. End Sub
  58.  
  59. Private Sub mnuName_Click()
  60. typeID = "b"
  61. Load frmReprintPayslip
  62. frmReprintPayslip.Show
  63.  
  64. End Sub
  65.  
  66. Private Sub mnuPaySlipGenerate_Click()
  67. Load frmPaySlipGeneration
  68. frmPaySlipGeneration.Show
  69. End Sub
  70.  
  71. Private Sub mnuRPrintPayslip_Click()
  72. typeID = "a"
  73. Load frmReprintPayslip
  74. frmReprintPayslip.Show
  75. End Sub
  76.  
  77. Private Sub mnuSetting_Click()
  78. Load frmSetting
  79. frmSetting.Show
  80. End Sub
  81.