?? frmmenu.frm

?? 學生檔案管理系統
?? FRM
字號:
VERSION 5.00
Begin VB.Form popmenu 
   Caption         =   "菜單"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Visible         =   0   'False
   Begin VB.Menu popmenu 
      Caption         =   "popmenu"
      Visible         =   0   'False
      Begin VB.Menu add 
         Caption         =   "添加學生基本信息"
      End
      Begin VB.Menu Change 
         Caption         =   "修改學生基本信息"
      End
      Begin VB.Menu Check 
         Caption         =   "查詢學生基本信息"
      End
      Begin VB.Menu Del 
         Caption         =   "刪除學生基本信息"
      End
   End
   Begin VB.Menu popmenu1 
      Caption         =   "popmenu1"
      Visible         =   0   'False
      Begin VB.Menu addInOut 
         Caption         =   "添加上下學信息"
      End
      Begin VB.Menu checkKQ1 
         Caption         =   "查詢考勤信息"
      End
      Begin VB.Menu delKQ1 
         Caption         =   "刪除上下學信息"
      End
   End
   Begin VB.Menu popmenu2 
      Caption         =   "popmenu2"
      Visible         =   0   'False
      Begin VB.Menu addOtherKQ 
         Caption         =   "添加其他考勤信息"
      End
      Begin VB.Menu checkKQ2 
         Caption         =   "查詢考勤信息"
      End
      Begin VB.Menu delKQ2 
         Caption         =   "刪除其他考勤信息"
      End
   End
   Begin VB.Menu popmenu3 
      Caption         =   "popmenu3"
      Visible         =   0   'False
      Begin VB.Menu addAlteration 
         Caption         =   "添加調動信息"
      End
      Begin VB.Menu ChangeAlter 
         Caption         =   "修改調動信息"
      End
      Begin VB.Menu Checkalter 
         Caption         =   "查詢調動信息"
      End
      Begin VB.Menu DelAlter 
         Caption         =   "刪除調動信息"
      End
   End
End
Attribute VB_Name = "popmenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public str1 As String

Private Sub add_Click()                             '添加學生信息
    flag = 1
    frmStuff_info.Show vbModal
    frmStuff_info.ZOrder 0
    frmResult.ZOrder 1
End Sub

Private Sub addAlteration_Click()                   '添加調動信息
    flag = 1
    frmAlteration.Show
    frmAlteration.ZOrder 0
End Sub

Private Sub addInOut_Click()                        '添加上下學信息
    flag = 1
    FrmAttendance.Show
    FrmAttendance.ZOrder 0
End Sub

Private Sub AddOtherKQ_Click()                       '添加其他考勤信息
    flag = 1
    frmOtherKQ.Show
    frmOtherKQ.ZOrder 0
End Sub

Private Sub change_Click()  '修改學生信息
    flag = 2
    If frmResult.rsGrid.Rows > 1 Then
    
        gSQL = "select * from StuffInfo where SID='" & Trim(frmResult.rsGrid.TextMatrix( _
                frmResult.rsGrid.Row, 0)) & "'"
        frmStuff_info.Show
        frmStuff_info.ZOrder 0
    Else
     MsgBox "目前沒有學生信息,請先添加學生信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
     frmStuff_info.Show
    End If
End Sub

Private Sub aa_Click()                           '修改其他考勤信息
    flag = 2
    If frmOKQResult.LRecordList.Rows > 1 Then
        kqsql2 = "select * from StuffInfo where SID='" & Trim(frmOKQResult.LRecordList.TextMatrix( _
                frmOKQResult.LRecordList.Row, 0)) & "'"
        frmOtherKQ.Show
        frmOtherKQ.ZOrder 0
    Else
     MsgBox "目前沒有學生信息,請先添加學生信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
     frmOtherKQ.Show
    End If
End Sub


Private Sub tt_Click()                           '修改上下學信息
    flag = 2
    'FrmAttendance.Caption = "修改學生上下學信息"
    If frmAResult.recordlist.Rows > 1 Then
        kqsql = "select * from AttendanceInfo where ID='" & Trim(frmAResult.recordlist.TextMatrix( _
                frmAResult.recordlist.Row, 0)) & "'"
        FrmAttendance.Show
        FrmAttendance.ZOrder 0
    Else
     MsgBox "目前沒有上下學信息,請先添加信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
     FrmAttendance.Show
    End If
End Sub
Private Sub ChangeAlter_Click()                      '修改調動信息
    Dim rs As New ADODB.Recordset
    flag = 2
    frmAlteration.Caption = "修改學生調動信息"
    If frmAlterationResult.DataGrid1.Row < 0 Then
        MsgBox "目前沒有記錄！", vbOKOnly + vbExclamation, "提示！"
        flag = 1
        frmAlteration.Show
        frmAlteration.ZOrder 0
    Else
       str1 = "select * from AlterationInfo where ID=" & Trim( _
            frmAlterationResult.DataGrid1.Columns(0))
        frmAlteration.ID = Trim(frmAlterationResult.DataGrid1.Columns(0))
        Set rs = TransactSQL(str1)
        If rs.EOF = False Then
        With rs
            frmAlteration.AID = rs(1)
            frmAlteration.AName = rs(2)
            frmAlteration.AOldDept = rs(3)
            frmAlteration.ANewDept = rs(4)
            frmAlteration.AOldPosition = rs(5)
            frmAlteration.ANewPosition = rs(6)
            frmAlteration.AOutTime = rs(7)
            frmAlteration.AInTime = rs(8)
            frmAlteration.ARemark = rs(9)
        End With
            rs.Close
        End If
        frmAlteration.Show
        frmAlteration.ZOrder 0
    End If
End Sub

Private Sub check_Click()                            '查詢學生信息
    frmCheckStuff.Show
End Sub

Private Sub checkKQ1_Click()                         '查詢考勤信息
    frmCheckKQ.Show
    frmCheckKQ.ZOrder 0
End Sub

Private Sub checkKQ2_Click()                         '查詢考勤信息
    frmCheckKQ.Show
    frmCheckKQ.ZOrder 0
End Sub

Private Sub del_Click()                              '刪除學生信息
    Dim SQL As String
    If frmResult.rsGrid.Rows = 1 Then
        MsgBox "目前沒有學生信息,請先添加學生信息！", vbOKOnly + vbExclamation, "警告!"
        flag = 1
        frmStuff_info.Show
        frmStuff_info.ZOrder 0
    Else
        SQL = "delete from StuffInfo where SID='" & Trim(frmResult.rsGrid.TextMatrix( _
                frmResult.rsGrid.Row, 0)) & "'"
        If MsgBox("真的要刪除這條記錄么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
        Then
        TransactSQL (SQL)
        MsgBox "學生信息記錄已經刪除！", vbOKOnly + vbExclamation, "警告!"
        Unload Me
        SQL = "select * from StuffInfo"
       
        frmResult.createList (SQL)
        Unload frmResult
        frmResult.Show
        End If
    End If
End Sub

Private Sub delKQ1_Click()                           '刪除上下學信息
     Dim SQL As String
    If frmAResult.recordlist.Rows = 1 Then
        MsgBox "目前沒有上下學信息！", vbOKOnly + vbExclamation, "警告！"
        flag = 1
        FrmAttendance.Show
        FrmAttendance.ZOrder 0
    Else
            SQL = "delete from AttendanceInfo where ID=" & Trim(frmAResult.recordlist.TextMatrix( _
                frmAResult.recordlist.Row, 0))
        If MsgBox("真的要刪除這條記錄么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
        Then
        TransactSQL (SQL)
        MsgBox "記錄已經刪除！", vbOKOnly + vbExclamation, "警告!"
        Unload Me
        SQL = "select * from AttendanceInfo"
        'frmAResult.ListTopic
        frmAResult.ShowData (SQL)
        
        Unload frmAResult
        frmAResult.Show
         Else
         Unload frmAResult
         End If
    End If
    
End Sub

Private Sub DelAlter_Click()                         '刪除調動信息
    Dim SQL As String
    If frmAlterationResult.DataGrid1.Row < 0 Then
        MsgBox "目前沒有記錄！", vbOKOnly + vbExclamation, "提示！"
        flag = 1
        frmAlteration.Show
        frmAlteration.ZOrder 0
    Else
        SQL = "delete from AlterationInfo where ID=" & Trim( _
            frmAlterationResult.DataGrid1.Columns(0).CellText( _
            frmAlterationResult.DataGrid1.Bookmark))
        If MsgBox("真的要刪除這條記錄么？", vbOKCancel) = vbOK Then
            TransactSQL (SQL)
            MsgBox "記錄已經刪除！", vbOKOnly + vbExclamation, "提示！"
            SQL = "select * from AlterationInfo order by ID"
            frmAlterationResult.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Person.mdb"
            frmAlterationResult.Adodc1.RecordSource = SQL
            If SQL <> "" Then
                frmAlterationResult.Adodc1.Refresh
            End If
            Set frmAlterationResult.DataGrid1.DataSource = frmAlterationResult.Adodc1.Recordset
            frmAlterationResult.DataGrid1.Refresh
            frmAlterationResult.Show
            frmAlterationResult.ZOrder 0
        End If
    End If
End Sub

Private Sub delKQ2_Click()                            '刪除其他考勤信息
    Dim SQL As String
    Select Case frmOKQResult.SSTab.Caption
    Case "學生請假信息列表"
        If frmOKQResult.LRecordList.Rows = 1 Then
            MsgBox "目前沒有請假信息！", vbOKOnly + vbExclamation, "警告！"
            flag = 1
            frmOtherKQ.Show
            frmOtherKQ.ZOrder 0
        Else
            SQL = "delete from LeaveInfo where LID="
            SQL = SQL & Trim(frmOKQResult.LRecordList.TextMatrix( _
                                    frmOKQResult.LRecordList.Row, 0))
            If MsgBox("真的要刪除這條記錄么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
            Then
                TransactSQL (SQL)
                MsgBox "記錄已經刪除！", vbOKOnly + vbExclamation, "警告!"
                Unload Me
                SQL = "select * from LeaveInfo"
                Call frmOKQResult.LeaveTopic
                Call frmOKQResult.ShowLRecord(SQL)
                Unload frmOKQResult
                frmOKQResult.Show
                 frmOKQResult.SSTab.Caption = "學生請假信息列表"
            End If
          End If
    Case "學生補課信息列表"
        If frmOKQResult.ORecordList.Rows = 1 Then
            MsgBox "目前沒有補課信息！", vbOKOnly + vbExclamation, "警告！"
            flag = 1
            frmOtherKQ.Show
            frmOtherKQ.ZOrder 0
        Else
            SQL = "delete from OvertimeInfo where OID="
            SQL = SQL & Trim(frmOKQResult.ORecordList.TextMatrix( _
                                    frmOKQResult.ORecordList.Row, 0))
            If MsgBox("真的要刪除這條記錄么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
            Then
                TransactSQL (SQL)
                MsgBox "記錄已經刪除！", vbOKOnly + vbExclamation, "警告!"
                Unload Me
                SQL = "select * from OvertimeInfo"
                Call frmOKQResult.OverTimeTopic
                Call frmOKQResult.ShowORecord(SQL)
                 Unload frmOKQResult
                frmOKQResult.Show
                 frmOKQResult.SSTab.Caption = "學生補課信息列表"
            End If
        End If
    Case "學生曠課信息列表"
        If frmOKQResult.ERecordList.Rows = 1 Then
            MsgBox "目前沒有曠課信息！", vbOKOnly + vbExclamation, "警告！"
            flag = 1
            frmOtherKQ.Show
            frmOtherKQ.ZOrder 0
        Else
            SQL = "delete from ErrandInfo where EID="
            SQL = SQL & Trim(frmOKQResult.ERecordList.TextMatrix( _
                                    frmOKQResult.ERecordList.Row, 0))
            If MsgBox("真的要刪除這條記錄么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
            Then
                TransactSQL (SQL)
                MsgBox "記錄已經刪除！", vbOKOnly + vbExclamation, "警告!"
                Unload Me
                SQL = "select * from ErrandInfo"
                Call frmOKQResult.ErrandTopic
                Call frmOKQResult.ShowERecord(SQL)
                 Unload frmOKQResult
                'frmOKQResult.Show
                 frmOKQResult.SSTab.Caption = "學生曠課信息列"
            End If
        End If
    End Select
End Sub
?? 文件大小 74 K
?? 上傳用戶 yiranshamaoer
?? 所屬分類教育系統應用
??? 相關標簽

#管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmmenu.frm

?? 快捷鍵說明
