prde.frm

考务管理是学校考务管理的重要部分

         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "邮政编码"
         Caption         =   "邮政编码"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "准考证号"
         Caption         =   "准考证号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "合格否"
         Caption         =   "合格否"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "数学"
         Caption         =   "数学"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         DataField       =   "外语"
         Caption         =   "外语"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column09 
         DataField       =   "政治"
         Caption         =   "政治"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column10 
         DataField       =   "专业课"
         Caption         =   "专业课"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column11 
         DataField       =   "总分"
         Caption         =   "总分"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   1200.189
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1005.165
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   494.929
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   2505.26
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1200.189
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   1200.189
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column11 
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "prde"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim first As Boolean

Private Sub DataGrid1_Click()

End Sub

Private Sub Form_Load()
    recs = Adodc1.Recordset.RecordCount '给全局变量recs赋初值
    condstr = ""                        '条件表达式赋初值
    first = True
End Sub

Private Sub Form_activate()
    DataGrid1.SetFocus                  '是焦点移到DataGrid1控件上
    Call encomm
End Sub

Private Sub Comm1_Click()               '打印成绩单
    Dim sqltxt As String
    sqltxt = "delete tmpksb"
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DSN=KS;UID=sa;PWD=;"
    conn.Open
    conn.Execute sqltxt                 '删除临时表tmpksb中原有纪录
    If condstr = "" Then
        sqltxt = "insert into tmpksb select * from ksb"
    Else
        sqltxt = "insert into tmpksb select * from ksb where " + condstr
    End If
    conn.Execute sqltxt                 '向临时表tmpksb中添加满足用户指定条件的记录
    conn.Close
    If first = True Then DataEnvironment1.Command1
                                        '若是第一次则执行Command1
    first = False
    DataEnvironment1.rsCommand1.Requery '数据源刷新
    DataReport1.Show vbModal            '以模式方式调用报表
End Sub

Private Sub Comm2_Click()
    Unload Me
End Sub

Private Sub selcmd1_click()
    If Trim(Text1(1).Text) <> "" Then
        If Not IsDate(Trim(Text1(1).Text)) Then
            MsgBox "出生日期输入错误，应为yyyy-mm-dd类型", vbOKOnly, "信息提示"
            Text1(1).SetFocus
            Exit Sub
        End If
    End If
    condstr = ""                '以下根据用户输入数据构造条件表达式
    If Trim(Text1(0).Text) <> "" Then
        If condstr = "" Then
            condstr = "姓名 like '" + Trim(Text1(0).Text) + "'"
        Else
            condstr = condstr + " and 姓名 like '" + Trim(Text1(0).Text) + "'"
        End If
    End If
    If Trim(Text1(1).Text) <> "" Then
        If condstr = "" Then
            condstr = "出生日期='" + Format(Trim(Text1(1).Text), "yyyy.mm.dd") + "'"
        Else
            condstr = condstr + " and 出生日期='" + Format(Trim(Text1(1).Text), "yyyy.mm.dd") + "'"
        End If
    End If
    If Trim(Text1(2).Text) <> "" Then
        If condstr = "" Then
            condstr = "通信地址 like '" + Trim(Text1(2).Text) + "'"
        Else
            condstr = condstr + " and 通信地址 like '" + Trim(Text1(2).Text) + "'"
        End If
    End If
    If Opt1.Value = True Then
        If condstr = "" Then
            condstr = "性别='男'"
        Else
            condstr = condstr + " and 性别='男'"
        End If
    ElseIf Opt2.Value = True Then
        If condstr = "" Then
            condstr = "性别='女'"
        Else
            condstr = condstr + " and 性别='女'"
        End If
    End If
    If condstr <> "" Then       '有条件查询
        Adodc1.RecordSource = "select * from ksb where " + condstr
        Adodc1.Refresh
    Else                        '无条件查询
        Adodc1.RecordSource = "select * from ksb"
        Adodc1.Refresh
    End If
    recs = Adodc1.Recordset.RecordCount
    If recs = 0 Then
        MsgBox "没有任何满足条件的记录", vbOKOnly, "信息提示"
    End If
    Call encomm
End Sub

Private Sub selcmd2_click()     '重置
    Text1(0).Text = ""
    Text1(1).Text = ""
    Text1(2).Text = ""
    Opt1.Value = False
    Opt2.Value = False
End Sub

Private Sub encomm()        '自定义子过程，判断adodc1中是否存在记录
    If recs1 = 0 Then
        Comm1.Enabled = False
    Else
        Comm1.Enabled = True
    End If
End Sub

Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)
    Call endata(KeyAscii)
End Sub