我的应用需要一些改进 [英] Need some improvements for my application

问题描述

我有一张表格可以显示我学生的成绩。



问题是：



1.我想通过按Oke按钮打印结果并将其输入Nama，NIM，Tugas，Ulangan，UTS，UAS，hasil和skor到我创建的Microsoft Word模板。
$这是docx模板：



道奇模板 [ ^ ]



2.我不知道代码是怎么做的以及如何做到这一点。



请帮帮我。



我尝试过：



这是程序的样子：



该计划 [ ^ ]



VB.NET代码是：

 公共 类 Form2 
 私有  Sub  PenilaianBindingNavigatorSaveItem_Click（发件人 As  对象，e  As  EventArgs）
 我。 Validate（）
  Me  .PenilaianBindingSource.EndEdit（）
  Me  .TableAdapterManager。 UpdateAll（ Me  .MahasiswaDataSet）
 
  End   Sub  
 
 私有  Sub  Form2_Load（发件人< span class =code-keyword>作为 对象，e  As  EventArgs）句柄  MyBase  .Load 
 '  TODO：这行代码将数据加载到MahasiswaDataSet.penilaian表中。您可以根据需要移动或删除它。 
 我 .PenilaianTableAdapter.Fill（我 .MahasiswaDataSet.penilaian）
 NimTextBox.Text =   
 NamaLabel1.Text =   
 NimLabel1.Text =   
 TugasLabel1.Text =   
 UlanganLabel1.Text =   
 UtsLabel1.Text =   
 UasLabel1.Text =   
 HasilLabel1.Text =   
 SkorLabel1.Text =   
  End   Sub  
 
 私有  Sub  btnoke_Click（发件人作为 对象，e 作为 EventArgs）句柄 btnoke.Click 
 尝试 
 < span class =code-keyword> Dim  dt = PenilaianTableAdapter.GetDataBycaridata（NimTextBox.Text）
 如果 dt.Rows.Count< >  0  然后 
 NamaLabel1.Text = dt.Rows（ 0 ）。项目（ 1 ）
 NimLabel1.Text = dt.Rows（ 0 ）。项目（ 2 ）
 TugasLabel1.Text = dt.Rows（ 0 ）。Item（ 3 ）
 UlanganLabel1.Text = dt.Rows（ 0 ）。项目（ 4 ）
 UtsLabel1.Text = dt.Rows（ 0 ）。项目（< span class =code-digit> 5 ）
 UasLabel1.Text = dt.Rows（ 0 ）。Item（ 6 ）
 HasilLabel1.Text = dt.Rows（ 0 ）。项目（ 7 ）
 SkorLabel1.Text = dt.Rows（ 0 ）。项目（ 8 ）
 其他 
 MsgBox （  NIM Yang Anda输入Salah Atau数据Anda Belum Diinput。 Silahkan Coba Lagi，MsgBoxStyle.Critical， 信息）
 NimTextBox .Text =   
 NamaLabel1.Text =   
 NimLabel1.Text =   
 TugasLabel1.Text =   
 UlanganLabel1.Text =   
 UtsLabel1.Text =   
 UasLabel1.Text =   
 HasilLabel1.Text =   
 SkorLabel1.Text =   
  End  如果 
  Catch  ex  As 异常
 MsgBox（ex.Message）
 结束 尝试 
 结束  Sub  
 
 私人  Sub  Button1_Click（发件人作为 对象，e  As  EventArgs）句柄 Button1.Click 
 我 .Hide（）
 Form3.Show（）
 结束  Sub  
 结束 类 

解决方案

YouTube有一个将引导您完成所需操作的视频数量： ms word vb.net - YouTube [ ^ ]

I have a form that can show the result of my student.

The problems are:

1. I want to print the result by pressing "Oke" button and input it into Nama, NIM, Tugas, Ulangan, UTS, UAS, hasil and skor to Microsoft Word template that I've created.

This is the docx template: this is the docx template :

Docx Template[^]

2. I don't know how the code is and how to do that.

Please help me.

What I have tried:

This is the program's look:

The Program[^]

The VB.NET Code is :

Public Class Form2
    Private Sub PenilaianBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.PenilaianBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.MahasiswaDataSet)

    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'MahasiswaDataSet.penilaian' table. You can move, or remove it, as needed.
        Me.PenilaianTableAdapter.Fill(Me.MahasiswaDataSet.penilaian)
        NimTextBox.Text = ""
        NamaLabel1.Text = ""
        NimLabel1.Text = ""
        TugasLabel1.Text = ""
        UlanganLabel1.Text = ""
        UtsLabel1.Text = ""
        UasLabel1.Text = ""
        HasilLabel1.Text = ""
        SkorLabel1.Text = ""
    End Sub

    Private Sub btnoke_Click(sender As Object, e As EventArgs) Handles btnoke.Click
        Try
            Dim dt = PenilaianTableAdapter.GetDataBycaridata(NimTextBox.Text)
            If dt.Rows.Count <> 0 Then
                NamaLabel1.Text = dt.Rows(0).Item(1)
                NimLabel1.Text = dt.Rows(0).Item(2)
                TugasLabel1.Text = dt.Rows(0).Item(3)
                UlanganLabel1.Text = dt.Rows(0).Item(4)
                UtsLabel1.Text = dt.Rows(0).Item(5)
                UasLabel1.Text = dt.Rows(0).Item(6)
                HasilLabel1.Text = dt.Rows(0).Item(7)
                SkorLabel1.Text = dt.Rows(0).Item(8)
            Else
                MsgBox("NIM Yang Anda Input Salah Atau Data Anda Belum Diinput. Silahkan Coba Lagi", MsgBoxStyle.Critical, "Info")
                NimTextBox.Text = ""
                NamaLabel1.Text = ""
                NimLabel1.Text = ""
                TugasLabel1.Text = ""
                UlanganLabel1.Text = ""
                UtsLabel1.Text = ""
                UasLabel1.Text = ""
                HasilLabel1.Text = ""
                SkorLabel1.Text = ""
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Hide()
        Form3.Show()
    End Sub
End Class

解决方案

YouTube has a number of videos that will walk you through what you are wanting to do: ms word vb.net - YouTube[^]

这篇关于我的应用需要一些改进的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！