querypersonnelform.vb

这是一个人事工资管理系统

        e.Graphics.DrawString("合同服务年限：" + Me.基本档案DataGridView.CurrentRow.Cells(16).Value.ToString(), New Font("宋体", 12), Brushes.Black, 400, 275)
        e.Graphics.DrawString("基本工资：" + Me.基本档案DataGridView.CurrentRow.Cells(17).Value.ToString(), New Font("宋体", 12), Brushes.Black, 570, 275)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 295, 720, 295)
        e.Graphics.DrawString("银行帐号：" + Me.基本档案DataGridView.CurrentRow.Cells(18).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 300)
        e.Graphics.DrawString("养老保险帐号：" + Me.基本档案DataGridView.CurrentRow.Cells(19).Value.ToString(), New Font("宋体", 12), Brushes.Black, 400, 300)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 320, 720, 320)
        e.Graphics.DrawString("医疗保险帐号：" + Me.基本档案DataGridView.CurrentRow.Cells(20).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 325)
        e.Graphics.DrawString("住房基金帐号：" + Me.基本档案DataGridView.CurrentRow.Cells(21).Value.ToString(), New Font("宋体", 12), Brushes.Black, 400, 325)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 345, 720, 345)
        e.Graphics.DrawString("联系电话：" + Me.基本档案DataGridView.CurrentRow.Cells(22).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 350)
        e.Graphics.DrawString("手机号码：" + Me.基本档案DataGridView.CurrentRow.Cells(23).Value.ToString(), New Font("宋体", 12), Brushes.Black, 400, 350)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 370, 720, 370)
        e.Graphics.DrawString("电子信箱：" + Me.基本档案DataGridView.CurrentRow.Cells(24).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 375)
        e.Graphics.DrawString("家庭住址：" + Me.基本档案DataGridView.CurrentRow.Cells(25).Value.ToString(), New Font("宋体", 12), Brushes.Black, 400, 375)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 395, 720, 395)
        e.Graphics.DrawString("邮政编码：" + Me.基本档案DataGridView.CurrentRow.Cells(26).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 400)
        e.Graphics.DrawString("籍贯：" + Me.基本档案DataGridView.CurrentRow.Cells(27).Value.ToString(), New Font("宋体", 12), Brushes.Black, 270, 400)
        e.Graphics.DrawString("说明：" + Me.基本档案DataGridView.CurrentRow.Cells(28).Value.ToString(), New Font("宋体", 12), Brushes.Black, 400, 400)
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 420, 720, 420)
        e.Graphics.DrawString("家庭成员姓名", New Font("宋体", 12), Brushes.Black, 110, 425)
        e.Graphics.DrawString("与员工关系", New Font("宋体", 12), Brushes.Black, 250, 425)
        e.Graphics.DrawString("工作单位", New Font("宋体", 12), Brushes.Black, 450, 425)
        e.Graphics.DrawString("联系电话", New Font("宋体", 12), Brushes.Black, 620, 425)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 445, 720, 445)
        Dim MyPosY As Integer = 450
        For i As Integer = 0 To MyFamilyTable.Rows.Count - 1 Step 1
            e.Graphics.DrawString(MyFamilyTable.Rows(i)(0).ToString(), New Font("宋体", 12), Brushes.Black, 110, MyPosY)
            e.Graphics.DrawString(MyFamilyTable.Rows(i)(1).ToString(), New Font("宋体", 12), Brushes.Black, 250, MyPosY)
            e.Graphics.DrawString(MyFamilyTable.Rows(i)(2).ToString(), New Font("宋体", 12), Brushes.Black, 350, MyPosY)
            e.Graphics.DrawString(MyFamilyTable.Rows(i)(5).ToString(), New Font("宋体", 12), Brushes.Black, 610, MyPosY)
            MyPosY = MyPosY + 20
        Next
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 550, 720, 550)
        e.Graphics.DrawString("培训时间", New Font("宋体", 12), Brushes.Black, 110, 555)
        e.Graphics.DrawString("培训单位", New Font("宋体", 12), Brushes.Black, 250, 555)
        e.Graphics.DrawString("培训内容", New Font("宋体", 12), Brushes.Black, 400, 555)
        e.Graphics.DrawString("证书名称", New Font("宋体", 12), Brushes.Black, 600, 555)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 575, 720, 575)
        MyPosY = 580
        For i As Integer = 0 To Me.MyTrainingTable.Rows.Count - 1 Step 1
            e.Graphics.DrawString((MyTrainingTable.Rows(i)(0)).ToShortDateString(), New Font("宋体", 12), Brushes.Black, 110, MyPosY)
            e.Graphics.DrawString(MyTrainingTable.Rows(i)(2).ToString(), New Font("宋体", 12), Brushes.Black, 220, MyPosY)
            e.Graphics.DrawString(MyTrainingTable.Rows(i)(4).ToString(), New Font("宋体", 12), Brushes.Black, 350, MyPosY)
            e.Graphics.DrawString(MyTrainingTable.Rows(i)(6).ToString(), New Font("宋体", 12), Brushes.Black, 560, MyPosY)
            MyPosY = MyPosY + 20
        Next
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 680, 720, 680)
        e.Graphics.DrawString("序号", New Font("宋体", 12), Brushes.Black, 110, 685)
        e.Graphics.DrawString("工作业绩", New Font("宋体", 12), Brushes.Black, 220, 685)
        e.Graphics.DrawString("专长描述", New Font("宋体", 12), Brushes.Black, 450, 685)
        e.Graphics.DrawString("说明", New Font("宋体", 12), Brushes.Black, 620, 685)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 705, 720, 705)
        MyPosY = 710
        For i As Integer = 0 To Me.MyArchievementTable.Rows.Count - 1 Step 1
            e.Graphics.DrawString((i + 1).ToString(), New Font("宋体", 12), Brushes.Black, 110, MyPosY)
            e.Graphics.DrawString(MyArchievementTable.Rows(i)(0).ToString(), New Font("宋体", 12), Brushes.Black, 150, MyPosY)
            e.Graphics.DrawString(MyArchievementTable.Rows(i)(1).ToString(), New Font("宋体", 12), Brushes.Black, 350, MyPosY)
            e.Graphics.DrawString(MyArchievementTable.Rows(i)(2).ToString(), New Font("宋体", 12), Brushes.Black, 550, MyPosY)
            MyPosY = MyPosY + 20
        Next
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 810, 720, 810)
        e.Graphics.DrawString("奖惩日期", New Font("宋体", 12), Brushes.Black, 110, 815)
        e.Graphics.DrawString("奖惩类型", New Font("宋体", 12), Brushes.Black, 250, 815)
        e.Graphics.DrawString("奖惩原因", New Font("宋体", 12), Brushes.Black, 420, 815)
        e.Graphics.DrawString("批准单位", New Font("宋体", 12), Brushes.Black, 600, 815)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 835, 720, 835)
        MyPosY = 840
        For i As Integer = 0 To Me.MyRewardsTable.Rows.Count - 1 Step 1
            e.Graphics.DrawString((MyRewardsTable.Rows(i)(0)).ToShortDateString(), New Font("宋体", 12), Brushes.Black, 110, MyPosY)
            e.Graphics.DrawString(MyRewardsTable.Rows(i)(1).ToString(), New Font("宋体", 12), Brushes.Black, 220, MyPosY)
            e.Graphics.DrawString(MyRewardsTable.Rows(i)(2).ToString(), New Font("宋体", 12), Brushes.Black, 350, MyPosY)
            e.Graphics.DrawString(MyRewardsTable.Rows(i)(3).ToString(), New Font("宋体", 12), Brushes.Black, 550, MyPosY)
            MyPosY = MyPosY + 20
        Next
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 940, 720, 940)
        e.Graphics.DrawString("序号", New Font("宋体", 12), Brushes.Black, 110, 945)
        e.Graphics.DrawString("开始时间", New Font("宋体", 12), Brushes.Black, 150, 945)
        e.Graphics.DrawString("结束时间", New Font("宋体", 12), Brushes.Black, 250, 945)
        e.Graphics.DrawString("工作(学习)单位名称", New Font("宋体", 12), Brushes.Black, 380, 945)
        e.Graphics.DrawString("担任职务", New Font("宋体", 12), Brushes.Black, 620, 945)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 965, 720, 965)
        MyPosY = 970
        For i As Integer = 0 To Me.MyResumeTable.Rows.Count - 1 Step 1
            e.Graphics.DrawString((i + 1).ToString(), New Font("宋体", 12), Brushes.Black, 110, MyPosY)
            e.Graphics.DrawString((MyResumeTable.Rows(i)(0)).ToShortDateString(), New Font("宋体", 12), Brushes.Black, 150, MyPosY)
            e.Graphics.DrawString((MyResumeTable.Rows(i)(1)).ToShortDateString(), New Font("宋体", 12), Brushes.Black, 250, MyPosY)
            e.Graphics.DrawString(MyResumeTable.Rows(i)(2).ToString(), New Font("宋体", 12), Brushes.Black, 350, MyPosY)
            e.Graphics.DrawString(MyResumeTable.Rows(i)(3).ToString(), New Font("宋体", 12), Brushes.Black, 600, MyPosY)
            MyPosY = MyPosY + 20
        Next
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 1070, 720, 1070)
    End Sub
End Class