frmserach.frm

一个vb的mis系统

    frmserach.Left = frmserach.Left - (oldx - newx)
    If frmserach.Top - (oldy - newy) < 1050 Then
        frmserach.Top = 1050
    Else
        frmserach.Top = frmserach.Top - (oldy - newy)
    End If
End Sub
'>>>>>>>>>>>>>>>>>>>>>>>>以上程序段解决全图形窗口的移动问题<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<



'窗口初始化
Private Sub Form_Load()
    '初始化窗口大小
    Me.Height = 6465
    Me.Width = 10935
    Me.Top = 1050
    Me.Left = 480
    
    '初始化学期选项
    stuterm.ListIndex = 0
    stusex.ListIndex = 0
    
    '初始化有关控件属性
    Option0.Value = True
    stuterm.BackColor = &HEBE9ED
    stuterm.Enabled = False
    stuname.BackColor = &HEBE9ED
    stuname.Enabled = False
    stusex.BackColor = &HEBE9ED
    stusex.Enabled = False
    stuage1.BackColor = &HEBE9ED
    stuage2.BackColor = &HEBE9ED
    stuage1.Enabled = False
    stuage2.Enabled = False
    
    '初始化所有的分TSQL字段
    tsql1 = ""
    tsql2 = ""
    tsql3 = ""
    tsql4 = ""
    Call format_Click
    
    '初始化年龄按钮
    serachage.Visible = False
    
    '初始化检测变量
    frmmain.serachwindowsishas = True
End Sub




'>>>>>>>>>>>>>>>>>>>>>>以下初始化表格<<<<<<<<<<<<<<<<<<<<<<<<
Private Sub format_Click()
    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 Option0_Click()
        stuterm.BackColor = &HEBE9ED
        stuterm.Enabled = False
        stuname.BackColor = &HEBE9ED
        stuname.Enabled = False
        stusex.BackColor = &HEBE9ED
        stusex.Enabled = False
        stuage1.BackColor = &HEBE9ED
        stuage2.BackColor = &HEBE9ED
        stuage1.Enabled = False
        stuage2.Enabled = False
        tsql1 = "": tsql2 = "": tsql3 = "": tsql4 = ""
        serachage.Visible = False

        Call sent_Click
End Sub
Private Sub Option1_Click()
        stuname.BackColor = &HEBE9ED
        stuname.Enabled = False
        stusex.BackColor = &HEBE9ED
        stusex.Enabled = False
        stuage1.BackColor = &HEBE9ED
        stuage2.BackColor = &HEBE9ED
        stuage1.Enabled = False
        stuage2.Enabled = False
        serachage.Visible = False
        tsql2 = "": tsql3 = "": tsql4 = ""
        
        stuterm.BackColor = &H80000005
        stuterm.Enabled = True
        tsql1 = "and stu_term='" & Trim(stuterm.Text) & "' "
        
        Call sent_Click
End Sub
Private Sub option2_Click()
        stuterm.BackColor = &HEBE9ED
        stuterm.Enabled = False
        stusex.BackColor = &HEBE9ED
        stusex.Enabled = False
        stuage1.BackColor = &HEBE9ED
        stuage2.BackColor = &HEBE9ED
        stuage1.Enabled = False
        stuage2.Enabled = False
        serachage.Visible = False
        tsql1 = "": tsql3 = "": tsql4 = ""
        
        stuname.BackColor = &H80000005
        stuname.Enabled = True
        tsql2 = "and stu_name='" & Trim(stuname.Text) & "' "
        
        Call sent_Click
End Sub
Private Sub option3_Click()
        stuterm.BackColor = &HEBE9ED
        stuterm.Enabled = False
        stuname.BackColor = &HEBE9ED
        stuname.Enabled = False
        stuage1.BackColor = &HEBE9ED
        stuage2.BackColor = &HEBE9ED
        stuage1.Enabled = False
        stuage2.Enabled = False
        serachage.Visible = False
        tsql1 = "": tsql2 = "": tsql4 = ""
        
        stusex.BackColor = &H80000005
        stusex.Enabled = True
        tsql3 = "and stu_sex='" & Trim(stusex.Text) & "' "
        Call sent_Click
End Sub
Private Sub option4_Click()
        stuterm.BackColor = &HEBE9ED
        stuterm.Enabled = False
        stuname.BackColor = &HEBE9ED
        stuname.Enabled = False
        stusex.BackColor = &HEBE9ED
        stusex.Enabled = False
        serachage.Visible = True
        tsql1 = "": tsql2 = "": tsql3 = ""
        
        stuage1.BackColor = &H80000005
        stuage2.BackColor = &H80000005
        stuage1.Enabled = True
        stuage2.Enabled = True
        tsql3 = "and stu_age between " & Trim(stuage1.Text) & " and " & Trim(stuage2.Text) & " "
        Call sent_Click
End Sub
'>>>>>>>>>>>>>>>>>>>>>>控制复选框的有效性<<<<<<<<<<<<<<<<<<<<<<<<





'提交TSQL语句
Private Sub Command1_Click()
    Adodc1.RecordSource = "select * from stuinfo where 1=1 " & tsql1 & tsql2 & tsql3 & tsql4
    Adodc1.Refresh
    Call format_Click
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 Option0.Value = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo"
        DataReport1.PrintReport True
        DataEnvironment1.rsCommand1.Close
        Exit Sub
    End If
    If stuterm.Enabled = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo where stu_term='" & Trim(stuterm.Text) & "'"
        DataReport1.PrintReport True
        DataEnvironment1.rsCommand1.Close
        Exit Sub
    End If
    If stuname.Enabled = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo where stu_name='" & stuname.Text & "'"
        DataReport1.PrintReport True
        DataEnvironment1.rsCommand1.Close
        Exit Sub
    End If
    If stusex.Enabled = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo where stu_sex='" & stusex.Text & "'"
        DataReport1.PrintReport True
        DataEnvironment1.rsCommand1.Close
        Exit Sub
    End If
    If stuage1.Enabled = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo where stu_age between " & stuage1.Text & " and " & stuage2.Text
        DataReport1.PrintReport True
        DataEnvironment1.rsCommand1.Close
        Exit Sub
    End If
End Sub
'>>>>>>>>>>>>>>>>>>>>>>以上打印表格<<<<<<<<<<<<<<<<<<<<<<<<




'>>>>>>>>>>>>>>>>>>>>>>以下保存表格到文本文件<<<<<<<<<<<<<<<<<<<<<<<<
Private Sub pic_save_Click()
    If Option0.Value = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo"
        DataReport1.ExportReport rptKeyText, "C:\ACCP学员管理系统快速查询资料.txt", True, False
    End If
    If stuterm.Enabled = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo where stu_term='" & Trim(stuterm.Text) & "'"
        DataReport1.ExportReport rptKeyText, "C:\ACCP学员管理系统快速查询资料.txt", True, False
    End If
    If stuname.Enabled = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo where stu_name='" & stuname.Text & "'"
        DataReport1.ExportReport rptKeyText, "C:\ACCP学员管理系统快速查询资料.txt", True, False
    End If
    If stusex.Enabled = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo where stu_sex='" & stusex.Text & "'"
        DataReport1.ExportReport rptKeyText, "C:\ACCP学员管理系统快速查询资料.txt", True, False
    End If
    If stuage1.Enabled = True Then
        DataEnvironment1.rsCommand1.Open "select * from stuinfo where stu_age between " & stuage1.Text & " and " & stuage2.Text
        DataReport1.ExportReport rptKeyText, "C:\ACCP学员管理系统快速查询资料.txt", True, False
    End If
    If frmmain.check_have.Value = 0 Then
    Set publicmbox.Picture = publicmbox.picsave.Picture: publicmbox.Show vbModal
    End If
    DataEnvironment1.rsCommand1.Close
End Sub
'>>>>>>>>>>>>>>>>>>>>>>以上保存表格到文本文件<<<<<<<<<<<<<<<<<<<<<<<<





'提交TSQL并刷新adodctemp
Private Sub sent_Click()
        Adodc1.RecordSource = "select * from stuinfo where 1=1 " & tsql1 & tsql2 & tsql3
        Adodc1.Refresh
        Call format_Click
End Sub






Private Sub serachage_Click()
    If Trim(stuage1.Text) = "" Or Trim(stuage2.Text) = "" Then
        If frmmain.check_have.Value = 0 Then
        Set publicmbox.Picture = publicmbox.pic28.Picture: publicmbox.Show vbModal
        End If
        Exit Sub
    End If
    If Trim(stuage1.Text) > Trim(stuage2.Text) Then
        If frmmain.check_have.Value = 0 Then
        Set publicmbox.Picture = publicmbox.pic21.Picture: publicmbox.Show vbModal
        End If
        Exit Sub
    End If
    If Trim(stuage1.Text) < 18 Or Trim(stuage2.Text) > 59 Or Trim(stuage2.Text) < 19 Or Trim(stuage2.Text) > 60 Then
        If frmmain.check_have.Value = 0 Then
        Set publicmbox.Picture = publicmbox.pic30.Picture: publicmbox.Show vbModal
        End If
        Exit Sub
    End If
    
        tsql3 = "and stu_age between " & Trim(stuage1.Text) & " and " & Trim(stuage2.Text) & " "
        Call sent_Click
 
End Sub




Private Sub stuterm_click()
    tsql1 = "and stu_term='" & Trim(stuterm.Text) & "' "
    Call sent_Click
End Sub
Private Sub stuname_Click(Area As Integer)
    tsql2 = "and stu_name='" & Trim(stuname.Text) & "' "
    Call sent_Click
End Sub
Private Sub stusex_click()
    tsql3 = "and stu_sex='" & Trim(stusex.Text) & "' "
    Call sent_Click
End Sub
'>>>>>>>>>>>切换按钮<<<<<<<<<<<
Private Sub toserach2_Click()
    frmserach2.Top = Me.Top
    frmserach2.Left = Me.Left
    Unload Me
End Sub
'>>>>>>>>>>>切换按钮<<<<<<<<<<<