![]() Private Sub memployee123_Click() Form7.Show End Sub Private Sub memployee1_Click() Form7.Show StatusBar1.Panels(1).Text = "Allows to change or update details about employee." End Sub Private Sub mflow12_Click() Form32.Show End Sub Private Sub mflow1234_Click() Form33.Show End Sub Private Sub min_Click() StatusBar1.Panels(1).Text = "Enter your user-name & password." mnuout.Enabled = True frmin.Show End Sub Private Sub mnew_Click() StatusBar1.Panels(1).Text = "Create New User." Form3.Show End Sub Private Sub mnucalc_Click() Dim a As Double a = Shell("calc.exe", vbNormalFocus)Įnd Sub Private Sub mnuinflow_Click() StatusBar1.Panels(1).Text = "Insert details about cash inflow." Form5.Show End Sub Private Sub mnunote_Click() Dim a As Double a = Shell("notepad.exe", vbNormalFocus) End Sub Private Sub mnuout_Click() Dim d As Integer If MDIForm1.Caption = "Management Information System" Then MsgBox "No User Found.", vbExclamation Else conf = MsgBox("Are you sure you want to log off?", vbYesNo, "Log Off") 'Form24.Show End If If conf = vbYes Then = False = False = False = False = False = True End If End Sub System" StatusBar1.Panels(2).Text = Date mnew1.Enabled = True medit.Enabled = False mview.Enabled = False mnew1.Enabled = False End Sub Private Sub memp_Click() StatusBar1.Panels(1).Text = "Allows to remove data about existing employees." Form17.Show End Sub Private Sub memp1_Click() Form7.Show End Sub Private Sub memployee_Click() Form1.Show StatusBar1.Panels(1).Text = "Insert details for new employee." End Sub MDI FORM Private Sub mchange_Click() StatusBar1.Panels(1).Text = "Allows user to change their password." Form11.Show End Sub Private Sub MDIForm_Load() StatusBar1.Panels(1).Text = "Hello! Welcome to Management Info. Dim j, k As Integer Private Sub Timer1_Timer() i = i + 1 k = i Mod 2 If k = 0 Then lblwait.Visible = True Else lblwait.Visible = False End If If pb1.Value >= 100 Then pb1.Value = 100 Unload Me MDIForm1.Show Else pb1.Value = pb1.Value + 10 End If End Sub Private Sub Form_Initialize() j = 1 k = 1 End Sub Private Sub TM1_Timer() k = j Mod 2 If k = 0 Then Label3.Caption = " " Else Label3.Caption = "MANAGEMENT INFORMATION SYSTEM." End If j = j + 1 End Sub ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |