dayin.vb

人事管理系统,用VB+SQL编译的

            sqlstr = "select distinct 员工编号 from jiangcheng "
            execsql(sqlstr, "jiangcheng")
            Dim i, j As Integer
            i = myds.Tables("jiangcheng").Rows.Count
            Do While j <= i - 1
                Me.ComboBox1.Items.Add(myds.Tables("jiangcheng").Rows(j).Item(0))
                j = j + 1
            Loop
        Else
            ComboBox1.Enabled = False
        End If
    End Sub
    Private Sub dayin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.GroupBox1.Enabled = False
        If myyh2 = "adm" Then
            ComboBox1.Enabled = False
            Me.TextBox1.Visible = False
        Else
            TextBox1.Text = myyh2
            Me.ComboBox1.Visible = False
            Me.Label1.Visible = False
            Me.CheckBox1.Enabled = False
        End If
    End Sub
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Me.GroupBox1.Enabled = True
        Else
            Me.GroupBox1.Enabled = False
            Me.RadioButton1.Checked = False
            Me.RadioButton2.Checked = False
        End If
    End Sub
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim p(6) As Point
        Dim myb As New SolidBrush(System.Drawing.Color.Black)
        Dim myf = New Font("宋体", 15)
        Dim i As Integer
        For i = 1 To 6
            p(i) = New Point(100 + (i - 1) * 110, 100)
        Next
        Dim myp As Pen = New Pen(System.Drawing.Color.Black)
        e.Graphics.DrawLine(myp, p(1), p(6))
        For i = 1 To 6
            p(0).X = p(i).X
            p(0).Y = p(i).Y + 30
            e.Graphics.DrawLine(myp, p(i), p(0))
            p(0).Y = p(0).Y - 23
            Select Case i
                Case 1
                    e.Graphics.DrawString("员工编号", myf, myb, p(0).X, p(0).Y)
                Case 2
                    e.Graphics.DrawString("姓名", myf, myb, p(0).X, p(0).Y)
                Case 3
                    e.Graphics.DrawString("奖惩", myf, myb, p(0).X, p(0).Y)
                Case 4
                    e.Graphics.DrawString("奖惩原因", myf, myb, p(0).X, p(0).Y)
                Case 5
                    e.Graphics.DrawString("日期", myf, myb, p(0).X, p(0).Y)
            End Select
        Next
        For i = 1 To 6
            p(i).Y = p(i).Y + 30
        Next
        e.Graphics.DrawLine(myp, p(1), p(6))
        myds.Clear()
        mycon.Close()
        Dim j, k As Integer
        Dim sqlstr As String
        sqlstr = "select * from jiangcheng" & dy
        If execsql(sqlstr, "jiangcheng") Then
            j = myds.Tables("jiangcheng").Rows.Count - 1
            For k = 0 To myds.Tables("jiangcheng").Rows.Count - 1
                For i = 1 To 6
                    p(0).X = p(i).X
                    p(0).Y = p(i).Y + 30
                    e.Graphics.DrawLine(myp, p(i), p(0))
                    p(0).Y = p(0).Y - 23
                    Select Case i
                        Case 1
                            e.Graphics.DrawString(myds.Tables("jiangcheng").Rows(k).Item("员工编号"), myf, myb, p(0).X, p(0).Y)
                        Case 2
                            e.Graphics.DrawString(myds.Tables("jiangcheng").Rows(k).Item("姓名"), myf, myb, p(0).X, p(0).Y)
                        Case 3
                            e.Graphics.DrawString(myds.Tables("jiangcheng").Rows(k).Item("奖惩"), myf, myb, p(0).X, p(0).Y)
                        Case 4
                            e.Graphics.DrawString(myds.Tables("jiangcheng").Rows(k).Item("奖惩原因"), myf, myb, p(0).X, p(0).Y)
                        Case 5
                            e.Graphics.DrawString(myds.Tables("jiangcheng").Rows(k).Item("日期"), myf, myb, p(0).X, p(0).Y)
                    End Select
                Next
                For i = 1 To 6
                    p(i).Y = p(i).Y + 30
                Next
                e.Graphics.DrawLine(myp, p(1), p(6))
            Next
        End If
        myds.Clear()
        mycon.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If myyh2 = "adm" Then
            If Me.CheckBox1.Checked = False And Me.CheckBox2.Checked = False Then
                MsgBox("请选择")
                Exit Sub
            End If
            If Me.ComboBox1.Text <> "选择员工编号" Or Me.RadioButton1.Checked = True Or Me.RadioButton2.Checked = True Then
                dy = " where "
            End If
            If Me.ComboBox1.Text <> "选择员工编号" Then
                dy = dy & "员工编号 ='" & Trim(Me.ComboBox1.Text) & "'"
            End If
            If Me.RadioButton1.Checked = True Then
                If Me.ComboBox1.Text <> "选择员工编号" Then
                    dy = dy & " and 奖惩='" & Trim(Me.RadioButton1.Text) & "'"
                Else
                    dy = dy & "奖惩='" & Trim(Me.RadioButton1.Text) & "'"
                End If
            End If
            If Me.RadioButton2.Checked = True Then
                'Dim sqlstr As String
                'sqlstr = "select * from jiangcheng where 员工编号='" & Trim(Me.ComboBox1.Text) & "' or 奖惩='" & Trim(Me.RadioButton2.Text) & "'"
                'If execsql(sqlstr, "jiangcheng") Then
                '    If Me.TextBox1.Text <> "选择员工编号" Then
                '        dy = dy & " and 奖惩='" & Trim(Me.RadioButton2.Text) & "'"
                '    Else
                '        dy = dy & "奖惩='" & Trim(Me.RadioButton2.Text) & "'"
                '    End If
                'Else
                '    MsgBox("无")
                '    Exit Sub
                'End If
                If Me.ComboBox1.Text <> "选择员工编号" Then
                    dy = dy & " and 奖惩='" & Trim(Me.RadioButton2.Text) & "'"
                Else
                    dy = dy & "奖惩='" & Trim(Me.RadioButton2.Text) & "'"
                End If

            End If

        Else
            If Me.TextBox1.Text <> "选择员工编号" Or Me.RadioButton1.Checked = True Or Me.RadioButton2.Checked = True Then
                dy = " where "
            End If
            If Me.TextBox1.Text <> "选择员工编号" Then
                dy = dy & "员工编号 ='" & Trim(Me.TextBox1.Text) & "'"
            End If
            If Me.RadioButton1.Checked = True Then
                If Me.TextBox1.Text <> "选择员工编号" Then
                    dy = dy & " and 奖惩='" & Trim(Me.RadioButton1.Text) & "'"
                Else
                    dy = dy & "奖惩='" & Trim(Me.RadioButton1.Text) & "'"
                End If
            End If
            If Me.RadioButton2.Checked = True Then
                If Me.TextBox1.Text <> "选择员工编号" Then
                    dy = dy & " and 奖惩='" & Trim(Me.RadioButton2.Text) & "'"
                Else
                    dy = dy & "奖惩='" & Trim(Me.RadioButton2.Text) & "'"
                End If
            End If

        End If


        myds.Clear()
        mycon.Close()
        Dim j, k As Integer
        Dim sqlstr As String
        sqlstr = "select * from jiangcheng" & dy
        If Not execsql(sqlstr, "jiangcheng") Then
            MsgBox("无信息")
            Exit Sub
        End If


        Me.PrintPreviewDialog1.Document = Me.PrintDocument1
        Me.PrintPreviewDialog1.ShowDialog()
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    End Sub
End Class