frmserach2.frm

一个vb的mis系统

    stuterm.ListIndex = 0
    '初始化性别框
    stusex.ListIndex = 0
    '初始化科目框
    stuobj0.ListIndex = 0
    stuobj1.ListIndex = 0
    stuobj2.ListIndex = 0
    stuobj3.ListIndex = 0
    stuobj0.Visible = True
    stuobj1.Visible = False
    stuobj2.Visible = False
    stuobj3.Visible = False
    '初始化表格
    Call formatstuinfo
    
    '初始化布尔值
    frmmain.serachwindowsishas = True    '还原布尔值
End Sub
'>>>>>>>>>>>>>>>>>>>>>>>>初始化窗口<<<<<<<<<<<<<<<<<<<<<<<<<<<



'>>>>>>>>>>切换按钮<<<<<<<<<
Private Sub toserach1_Click()
    frmserach.Top = Me.Top
    frmserach.Left = Me.Left
    Unload Me
End Sub
'>>>>>>>>>>切换按钮<<<<<<<<<



'>>>>>>>>>>>>>>>>>>>>>>>>初始化表格<<<<<<<<<<<<<<<<<<<<<<<<<<<
'学员信息格式化
Private Sub formatstuinfo()
    MSHFlexGrid1.ColWidth(0) = 0        '第一列隐藏
    MSHFlexGrid1.ColWidth(1) = 700      'ID列
    MSHFlexGrid1.ColWidth(2) = 700      '姓名列
    MSHFlexGrid1.ColWidth(3) = 500      '性别列
    MSHFlexGrid1.ColWidth(4) = 900      '学期列
    MSHFlexGrid1.ColWidth(5) = 500      '年龄列
    MSHFlexGrid1.ColWidth(6) = 1300     '电话列
    MSHFlexGrid1.ColWidth(7) = 2500     '地址列
    
    MSHFlexGrid1.Row = 0
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Text = "学员ID"
    MSHFlexGrid1.Col = 2
    MSHFlexGrid1.Text = "姓名"
    MSHFlexGrid1.Col = 3
    MSHFlexGrid1.Text = "性别"
    MSHFlexGrid1.Col = 4
    MSHFlexGrid1.Text = "学期"
    MSHFlexGrid1.Col = 5
    MSHFlexGrid1.Text = "年龄"
    MSHFlexGrid1.Col = 6
    MSHFlexGrid1.Text = "电话"
    MSHFlexGrid1.Col = 7
    MSHFlexGrid1.Text = "地址"
End Sub
'第一学期成绩格式化
Private Sub formatstumak1()
    MSHFlexGrid1.ColWidth(0) = 0        '第一列隐藏
    MSHFlexGrid1.ColWidth(1) = 700      'ID列
    MSHFlexGrid1.ColWidth(2) = 700      '姓名列
    MSHFlexGrid1.ColWidth(3) = 1146     '计算机基础列
    MSHFlexGrid1.ColWidth(4) = 1146     'C语言列
    MSHFlexGrid1.ColWidth(5) = 1146     'SQL数据库列
    MSHFlexGrid1.ColWidth(6) = 1146     'VB可视化编程列
    MSHFlexGrid1.ColWidth(7) = 1146     'HTML网页编程列
    
    MSHFlexGrid1.Row = 0
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Text = "学员ID"
    MSHFlexGrid1.Col = 2
    MSHFlexGrid1.Text = "姓名"
    MSHFlexGrid1.Col = 3
    MSHFlexGrid1.Text = "计算机基础"
    MSHFlexGrid1.Col = 4
    MSHFlexGrid1.Text = "C语言"
    MSHFlexGrid1.Col = 5
    MSHFlexGrid1.Text = "SQL数据库"
    MSHFlexGrid1.Col = 6
    MSHFlexGrid1.Text = "VB可视化编程"
    MSHFlexGrid1.Col = 7
    MSHFlexGrid1.Text = "HTML网页编程"
End Sub
'第二学期成绩格式化
Private Sub formatstumak2()
    MSHFlexGrid1.ColWidth(0) = 0        '第一列隐藏
    MSHFlexGrid1.ColWidth(1) = 700      'ID列
    MSHFlexGrid1.ColWidth(2) = 700      '姓名列
    MSHFlexGrid1.ColWidth(3) = 1146     'C++编程列
    MSHFlexGrid1.ColWidth(4) = 1146     '中级SQL列
    MSHFlexGrid1.ColWidth(5) = 1146     'JAVA编程列
    MSHFlexGrid1.ColWidth(6) = 1146     'ASP网络编程列
    MSHFlexGrid1.ColWidth(7) = 1146     '软件测试与保证列
 
    MSHFlexGrid1.Row = 0
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Text = "学员ID"
    MSHFlexGrid1.Col = 2
    MSHFlexGrid1.Text = "姓名"
    MSHFlexGrid1.Col = 3
    MSHFlexGrid1.Text = "C++编程"
    MSHFlexGrid1.Col = 4
    MSHFlexGrid1.Text = "中级SQL"
    MSHFlexGrid1.Col = 5
    MSHFlexGrid1.Text = "JAVA编程"
    MSHFlexGrid1.Col = 6
    MSHFlexGrid1.Text = "ASP网络编程"
    MSHFlexGrid1.Col = 7
    MSHFlexGrid1.Text = "软件测试与保证"
End Sub
'第三学期成绩格式化
Private Sub formatstumak3()
    MSHFlexGrid1.ColWidth(0) = 0        '第一列隐藏
    MSHFlexGrid1.ColWidth(1) = 700      'ID列
    MSHFlexGrid1.ColWidth(2) = 700      '姓名列
    MSHFlexGrid1.ColWidth(3) = 1146     'OOAD分析设计列
    MSHFlexGrid1.ColWidth(4) = 1146     'Oracle数据库列
    MSHFlexGrid1.ColWidth(5) = 1146     'J2EE开发列
    MSHFlexGrid1.ColWidth(6) = 1146     '.NET & C#列
    MSHFlexGrid1.ColWidth(7) = 1146     'WinForm开发列
 
    MSHFlexGrid1.Row = 0
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Text = "学员ID"
    MSHFlexGrid1.Col = 2
    MSHFlexGrid1.Text = "姓名"
    MSHFlexGrid1.Col = 3
    MSHFlexGrid1.Text = "OOAD分析设计"
    MSHFlexGrid1.Col = 4
    MSHFlexGrid1.Text = "Oracle数据库"
    MSHFlexGrid1.Col = 5
    MSHFlexGrid1.Text = "J2EE开发"
    MSHFlexGrid1.Col = 6
    MSHFlexGrid1.Text = ".NET & C#"
    MSHFlexGrid1.Col = 7
    MSHFlexGrid1.Text = "WinForm开发"
End Sub
'>>>>>>>>>>>>>>>>>>>>>>>>初始化表格<<<<<<<<<<<<<<<<<<<<<<<<<<<





'>>>>>>>>>>>>>>>>>>>>>>>>以下为复选框功能<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'控制复选框－学期控制
Private Sub Check1_Click()
    If Check1.Value = 1 Then
        stuterm.Top = 2040
        stuterm.Left = 1080
        stuterm.Visible = True
        '下移
        Check2.Top = Check2.Top + 300
        If Check2.Value = 1 Then
            stusex.Top = stusex.Top + 300
        End If
        pictxt2.Top = pictxt2.Top + 300
        Check3.Top = Check3.Top + 300
        If Check3.Value = 1 Then
            pictxt6.Top = pictxt6.Top + 300
            stuname.Top = stuname.Top + 300
        End If
        pictxt3.Top = pictxt3.Top + 300
        Check4.Top = Check4.Top + 300
        If Check4.Value = 1 Then
            fstuage.Top = fstuage.Top + 300
        End If
        pictxt4.Top = pictxt4.Top + 300
        Check5.Top = Check5.Top + 300
        If Check5.Value = 1 Then
            fstumak.Top = fstumak.Top + 300
        End If
        pictxt5.Top = pictxt5.Top + 300
        
        '初始化科目的所有选项
            Select Case stuterm.ListIndex
                Case 0
                    stuobj0.Visible = False
                    stuobj1.Visible = True
                    stuobj2.Visible = False
                    stuobj3.Visible = False
                Case 1
                    stuobj0.Visible = False
                    stuobj1.Visible = False
                    stuobj2.Visible = True
                    stuobj3.Visible = False
                Case 2
                    stuobj0.Visible = False
                    stuobj1.Visible = False
                    stuobj2.Visible = False
                    stuobj3.Visible = True
            End Select
    Else
        stuterm.Visible = False
        Check2.Top = Check2.Top - 300
        If Check2.Value = 1 Then
            stusex.Top = stusex.Top - 300
        End If
        pictxt2.Top = pictxt2.Top - 300
        Check3.Top = Check3.Top - 300
        If Check3.Value = 1 Then
            pictxt6.Top = pictxt6.Top - 300
            stuname.Top = stuname.Top - 300
        End If
        pictxt3.Top = pictxt3.Top - 300
        Check4.Top = Check4.Top - 300
        If Check4.Value = 1 Then
            fstuage.Top = fstuage.Top - 300
        End If
        pictxt4.Top = pictxt4.Top - 300
        Check5.Top = Check5.Top - 300
        If Check5.Value = 1 Then
            fstumak.Top = fstumak.Top - 300
        End If
        pictxt5.Top = pictxt5.Top - 300
        
        '恢复科目的所有选项
        stuobj0.Visible = True
        stuobj1.Visible = False
        stuobj2.Visible = False
        stuobj3.Visible = False
    End If
End Sub
'控制复选框－性别控制
Private Sub Check2_Click()
    If Check2.Value = 1 Then
        '初始化性别选择框并显示
        stusex.Top = pictxt2.Top + 353
        stusex.Left = 1080
        stusex.Visible = True
        '下面所有控件下移，下移量为该控件的高度300
        Check3.Top = Check3.Top + 300
        If Check3.Value = 1 Then
            pictxt6.Top = pictxt6.Top + 300
            stuname.Top = stuname.Top + 300
        End If
        pictxt3.Top = pictxt3.Top + 300
        Check4.Top = Check4.Top + 300
        If Check4.Value = 1 Then
            fstuage.Top = fstuage.Top + 300
        End If
        pictxt4.Top = pictxt4.Top + 300
        Check5.Top = Check5.Top + 300
        If Check5.Value = 1 Then
            fstumak.Top = fstumak.Top + 300
        End If
        pictxt5.Top = pictxt5.Top + 300
    Else
        stusex.Visible = False
        stusex.Top = pictxt2.Top - 353
        Check3.Top = Check3.Top - 300
        If Check3.Value = 1 Then
            pictxt6.Top = pictxt6.Top - 300
            stuname.Top = stuname.Top - 300
        End If
        pictxt3.Top = pictxt3.Top - 300
        Check4.Top = Check4.Top - 300
        If Check4.Value = 1 Then
            fstuage.Top = fstuage.Top - 300
        End If
        pictxt4.Top = pictxt4.Top - 300
        Check5.Top = Check5.Top - 300
        If Check5.Value = 1 Then
            fstumak.Top = fstumak.Top - 300
        End If
        pictxt5.Top = pictxt5.Top - 300
    End If
End Sub
'控制复选框－姓名控制
Private Sub Check3_Click()
    If Check3.Value = 1 Then
        pictxt6.Left = 1080
        stuname.Left = 1080
        pictxt6.Top = pictxt3.Top + 300
        stuname.Top = pictxt3.Top + 600
        stuname.Visible = True
        pictxt6.Visible = True
        '下面所有控件下移，下移量为该控件的高度600
        Check4.Top = Check4.Top + 600
        If Check4.Value = 1 Then
            fstuage.Top = fstuage.Top + 600
        End If
        pictxt4.Top = pictxt4.Top + 600
        Check5.Top = Check5.Top + 600
        If Check5.Value = 1 Then
            fstumak.Top = fstumak.Top + 600
        End If
        pictxt5.Top = pictxt5.Top + 600
    Else
        pictxt6.Top = pictxt3.Top - 300
        stuname.Top = pictxt3.Top - 600
        stuname.Visible = False
        pictxt6.Visible = False
        Check4.Top = Check4.Top - 600
        If Check4.Value = 1 Then
            fstuage.Top = fstuage.Top - 600
        End If
        pictxt4.Top = pictxt4.Top - 600
        Check5.Top = Check5.Top - 600
        If Check5.Value = 1 Then
            fstumak.Top = fstumak.Top - 600
        End If
        pictxt5.Top = pictxt5.Top - 600
    End If
End Sub
'控制复选框－年龄控制
Private Sub Check4_Click()
    If Check4.Value = 1 Then
        fstuage.Top = pictxt4.Top + 340
        fstuage.Left = 1095
        fstuage.Visible = True
        Check5.Top = Check5.Top + 570
        If Check5.Value = 1 Then
            fstumak.Top = fstumak.Top + 570
        End If
        pictxt5.Top = pictxt5.Top + 570
    Else
        fstuage.Visible = False
        Check5.Top = Check5.Top - 570
        If Check5.Value = 1 Then
            fstumak.Top = fstumak.Top - 570
        End If
        pictxt5.Top = pictxt5.Top - 570
    End If
End Sub
'控制复选框－成绩控制
Private Sub Check5_Click()
    If Check5.Value = 1 Then
        fstumak.Top = pictxt5.Top + 300
        fstumak.Left = 1095
        If Check1.Value = 1 Then
            Select Case stuterm.ListIndex
                Case 0
                    stuobj0.Visible = False
                    stuobj1.Visible = True
                    stuobj2.Visible = False
                    stuobj3.Visible = False
                Case 1
                    stuobj0.Visible = False
                    stuobj1.Visible = False
                    stuobj2.Visible = True
                    stuobj3.Visible = False
                Case 2
                    stuobj0.Visible = False
                    stuobj1.Visible = False
                    stuobj2.Visible = False
                    stuobj3.Visible = True
            End Select
        End If
    Else
            stuobj0.Visible = True
            stuobj1.Visible = False
            stuobj2.Visible = False
            stuobj3.Visible = False
    End If
    If Check5.Value = 1 Then
        fstumak.Visible = True
    Else
        fstumak.Visible = False
    End If
End Sub
'>>>>>>>>>>>>>>>>>>>>>>>>以上为复选框功能<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<




'>>>>>>>>>>>>>>>>>>>>>>>>以下为退出功能<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Private Sub pic_close_Click()
    frmmain.serachwindowsishas = False   '还原布尔值
    Unload Me
End Sub

Private Sub pic_exit_Click()
    frmmain.serachwindowsishas = False   '还原布尔值
    Unload Me
End Sub
'>>>>>>>>>>>>>>>>>>>>>>>>以上为退出功能<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<





'>>>>>>>>>打印功能<<<<<<<<<
Private Sub pic_print_Click()
    '检查数据
    If chk = False Then
        Exit Sub
    End If
    
    '刷新预览屏
    Call comserach_Click
    
    '两种情况：打印学员信息表；打印学员成绩表
    '打印学员信息表：
    If Check5.Value = 0 Then
        DataEnvironment1.rsCommand1.Open showtsql.Text
        DataReport1.PrintReport True
        DataEnvironment1.rsCommand1.Close
        Exit Sub
    Else
    '打印学员成绩表（分为三个学期）
        '取得成绩科目的值
        Dim strobj As String
        If stuobj0.Visible = True Then
            strobj = stuobj0.Text
        End If
        If stuobj1.Visible = True Then
            strobj = stuobj1.Text
        End If
        If stuobj2.Visible = True Then