・発行履歴を登録するようにする
です。
機能を追加するだけなのでUIに変更はありません。
ただただコードを書くだけです。
Dim db As New database.MSAccess.DBAccess
Dim SqlCommand As OleDb.OleDbCommand
Private Function 登録_発行履歴() As Boolean
SqlCommand = New OleDb.OleDbCommand("INSERT INTO 発行履歴 (入力日, 宛先1行目, 宛先2行目, 月限, 金額) VALUES (@入力日, @宛先1行目, @宛先2行目, @月限, @金額)")
SqlCommand.Parameters.Clear()
SqlCommand.Parameters.Add("@入力日", OleDb.OleDbType.Date)
SqlCommand.Parameters.Add("@宛先1行目", OleDb.OleDbType.Char)
SqlCommand.Parameters.Add("@宛先2行目", OleDb.OleDbType.Char)
SqlCommand.Parameters.Add("@月限", OleDb.OleDbType.Integer)
SqlCommand.Parameters.Add("@金額", OleDb.OleDbType.Currency)
SqlCommand.Parameters("@入力日").Value = dtp発行日.Value
SqlCommand.Parameters("@宛先1行目").Value = tb1行目.Text
SqlCommand.Parameters("@宛先2行目").Value = tb2行目.Text
If cb月限.Text.Length = 0 Then
SqlCommand.Parameters("@月限").Value = System.DBNull.Value
Else
SqlCommand.Parameters("@月限").Value = cb月限.Text
End If
SqlCommand.Parameters("@金額").Value = tb今回請求金額.Text
Dim Result As Integer = db.ExecuteSqlCommandNonQuery(SqlCommand)
If Not Result = 1 Then
Dim ex As Exception = db.SQLException
MsgBox("発行履歴の登録時にエラーが発生しました。" & vbNewLine & ex.Message, MsgBoxStyle.Information, "")
Return False
Exit Function
End If
Return True
End Function
登録ボタンを押したときのコードも少し手を入れます。
Private Sub btn発行_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn発行.Click '発行履歴が登録できたら帳票を発行する If 登録_発行履歴() Then Call 出力_合計請求書() Call FormClear() End If End Sub次回はデータを格納するデータベースの作成と発行履歴の表示をやります。