Mohammad Farid Hasymi Ответов: 1

Нужны некоторые улучшения для моего приложения


У меня есть форма, которая может показать результат моего ученика.

Проблемы заключаются в следующем:

1. Я хочу, чтобы распечатать результат, нажав на "Оке" кнопку и введите его в Нама, ним, Tugas, Ulangan, УЦ, бас, хасил и скор на слово Microsoft шаблон, который я создал.

Это шаблон docx: это шаблон docx :

Шаблон Docx[^]

2. я не знаю, как работает код и как это сделать.

Пожалуйста, помогите мне.

Что я уже пробовал:

Это внешний вид программы:

программа[^]

Тот самый VB.NET код есть :

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

1 Ответов

Рейтинг:
2

Graeme_Grant

На YouTube есть несколько видеороликов, которые помогут вам понять, что вы хотите сделать: МС слово vb.net - Ютуб[^]