Public Class frmDangNhap

Public sTenDangNhap As String

Public dsQuyen As DataTable

Private Sub bHuy_Click(sender As Object, e As EventArgs) Handles bHuy.Click

Close()
End Sub
Private Sub bDongY_Click(sender As Object, e As EventArgs) Handles bDongY.Click
'Hash mat khau md5
'Thong tin nguoi dung
Dim TenDangNhap As String = tbTenDangNhap.Text.Trim()
Dim MatKhau As String = getHash(tbMatKhau.Text.Trim())

Dim str As String = String.Format("Select * from TaiKhoan where

tk_ten_dang_nhap like '{0}'", TenDangNhap)
Dim dt As DataTable = XuLyDuLieu.DocDuLieu(str)

If dt.Rows.Count = 1 Then
If dt.Rows(0)("tk_mat_khau") = MatKhau Then
sTenDangNhap = tbTenDangNhap.Text
'dsQuyen = XuLyDuLieu.DocDuLieu("Slect * from Quyen, VauTroQuyen,
TaiKhoan where tk_ma = " + dt.Rows(0)("tk_ma"))
Me.DialogResult = DialogResult.OK
Return
End If
End If
MessageBox.Show("Anh/chi da sai ten dang nhap hoac mat khau", "Thong bao")
End Sub

End Class

Public Class frmMHChinh

Dim CoXacNhanDong As Boolean = False
Dim dsQuyen As DataTable

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs)

Handles MyBase.FormClosing
If CoXacNhanDong = False Then
Dim dr As DialogResult = MessageBox.Show("Anh/chi co muon dong man hinh
phai khong?", "Thong bao", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If dr <> DialogResult.Yes Then
e.Cancel = True
End If
End If
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim frm As frmDangNhap = New frmDangNhap()
Dim dr As DialogResult = frm.ShowDialog()
If dr = DialogResult.OK Then
lTenDangNhap.Text = frm.sTenDangNhap
dsQuyen = frm.dsQuyen
'for va tat menu
Else
CoXacNhanDong = True
Close()
 End If
End Sub

Private Sub NhânViênToolStripMenuItem_Click(sender As Object, e As EventArgs)

Handles NhânViênToolStripMenuItem.Click
Dim frm As frmNhanVien = New frmNhanVien()
frm.MdiParent = Me
frm.Show()
frm.WindowState = FormWindowState.Maximized
End Sub

Private Sub SảnPhẩmToolStripMenuItem_Click(sender As Object, e As EventArgs)

Handles SảnPhẩmToolStripMenuItem.Click
Dim frm As frmSanPham = New frmSanPham()
frm.MdiParent = Me
frm.Show()
frm.WindowState = FormWindowState.Maximized
End Sub

Private Sub TheoDoiPhieuNhapToolStripMenuItem_Click(sender As Object, e As

EventArgs) Handles TheoDoiPhieuNhapToolStripMenuItem.Click
Dim frm As frmTheoDoiPhieuNhap = New frmTheoDoiPhieuNhap()
frm.MdiParent = Me
frm.WindowState = FormWindowState.Maximized
frm.Show()
End Sub

Private Sub FileToolStripMenuItem_Click(sender As Object, e As EventArgs)

Handles FileToolStripMenuItem.Click

End Sub
End Class
Public Class frmNhanVien
Dim dsNguoiDungView As DataView
Dim dsNguoiDung As DataTable
Dim dsTaiKhoan As DataTable
Private Sub frmNhanVien_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
dsNguoiDung = XuLyDuLieu.DocDuLieu("Select * from NguoiDung, TaiKhoan where
nd_xoa = false and nd_ma_tai_khoan = tk_ma")
dsNguoiDungView = New DataView(dsNguoiDung)
dgvDanhSach.DataSource = dsNguoiDungView

dgvDanhSach.Columns(0).Visible = False
dgvDanhSach.Columns(5).Visible = False
dgvDanhSach.Columns(6).Visible = False
dgvDanhSach.Columns(7).Visible = False
dgvDanhSach.Columns(10).Visible = False

End Sub

Private Sub bThem_Click(sender As Object, e As EventArgs) Handles bThem.Click

'Kiểm tra dữ liệu

'Kiểm tra hợp lệ
'Thêm dữ liệu vào 2 bảng
 Dim ds As DataTable = XuLyDuLieu.DocDuLieu("Select * from TaiKhoan where
tk_ten_dang_nhap like '" + tbTenDangNhap.Text + "'")
If ds.Rows.Count > 0 Then
MessageBox.Show("Ten dang nhap da ton tai. Vui long chon ten dang nhap
khac", "Thong bao")
End If

dsTaiKhoan = XuLyDuLieu.DocCauTruc("Select * from TaiKhoan")

Dim tk As DataRow = dsTaiKhoan.NewRow()

tk("tk_ten_dang_nhap") = tbTenDangNhap.Text
tk("tk_mat_khau") = getHash(tbMatKhau.Text)

dsTaiKhoan.Rows.Add(tk)
XuLyDuLieu.GhiDuLieu("TaiKhoan", dsTaiKhoan)
'Thêm dữ liệu người dùng
Dim nd As DataRow = dsNguoiDung.NewRow()
nd("nd_ten") = tbTen.Text
nd("nd_email") = tbEmail.Text
nd("nd_dia_chi") = tbDiaChi.Text
nd("nd_tuoi") = tbTuoi.Text
nd("nd_xoa") = False
nd("nd_ma_tai_khoan") = tk("tk_ma")
nd("tk_ten_dang_nhap") = tk("tk_ten_dang_nhap")
nd("tk_mat_khau") = tk("tk_mat_khau")

dsNguoiDung.Rows.Add(nd)
XuLyDuLieu.GhiDuLieu("NguoiDung", dsNguoiDung)

End Sub

Private Sub bCapNhat_Click(sender As Object, e As EventArgs) Handles

bCapNhat.Click
If dgvDanhSach.SelectedRows.Count > 0 Then
'Kiểm tra dữ liệu

Dim vitri As Integer = dgvDanhSach.SelectedRows(0).Index

Dim ndv As DataRowView = dgvDanhSach.Rows(vitri).DataBoundItem
Dim nd As DataRow = ndv.Row

If nd("tk_ten_dang_nhap") <> tbTenDangNhap.Text Then

MessageBox.Show("Vui long khong cap nhat ten dang nhap", "Thong
bao")
Return
End If

nd("nd_ten") = tbTen.Text
nd("nd_email") = tbEmail.Text
nd("nd_dia_chi") = tbDiaChi.Text
nd("nd_tuoi") = tbTuoi.Text
nd("tk_mat_khau") = getHash(tbMatKhau.Text)

XuLyDuLieu.GhiDuLieu("NguoiDung", dsNguoiDung)
dsTaiKhoan = XuLyDuLieu.DocDuLieu("Select * from TaiKhoan where tk_ma =
" + nd("tk_ma").ToString())
dsTaiKhoan.Rows(0)("tk_mat_khau") = nd("tk_mat_khau")
XuLyDuLieu.GhiDuLieu("TaiKhoan", dsTaiKhoan)
Else
 MessageBox.Show("Vui long chon nhan vien", "Thong bao")
End If
End Sub

Private Sub bXoa_Click(sender As Object, e As EventArgs) Handles bXoa.Click

If dgvDanhSach.SelectedRows.Count > 0 Then
'Kiểm tra dữ liệu

Dim vitri As Integer = dgvDanhSach.SelectedRows(0).Index

Dim ndv As DataRowView = dgvDanhSach.Rows(vitri).DataBoundItem
Dim nd As DataRow = ndv.Row

nd("nd_xoa") = True
nd("tk_xoa") = True

XuLyDuLieu.GhiDuLieu("NguoiDung", dsNguoiDung)
XuLyDuLieu.GhiDuLieu("TaiKhoan", dsNguoiDung)

dsNguoiDung.Rows.RemoveAt(vitri)
End If

End Sub

Private Sub dgvDanhSach_SelectionChanged(sender As Object, e As EventArgs)

Handles dgvDanhSach.SelectionChanged
If dgvDanhSach.SelectedRows.Count > 0 Then
'Kiểm tra dữ liệu

Dim vitri As Integer = dgvDanhSach.SelectedRows(0).Index

Dim ndv As DataRowView = dgvDanhSach.Rows(vitri).DataBoundItem
Dim nd As DataRow = ndv.Row

tbTen.Text = nd("nd_ten")
tbEmail.Text = nd("nd_email")
tbDiaChi.Text = nd("nd_dia_chi")
tbTuoi.Text = nd("nd_tuoi")
tbTenDangNhap.Text = nd("tk_ten_dang_nhap")

End If
End Sub

Private Sub tbTimKiem_TextChanged(sender As Object, e As EventArgs) Handles

tbTimKiem.TextChanged
If tbTimKiem.Text <> "" Then
dsNguoiDungView.RowFilter = "nd_ten like '%" + tbTimKiem.Text + "%'"
Else
dsNguoiDungView.RowFilter = ""
End If
End Sub
End Class

Public Class frmPhieuNhap

Dim dsKho As DataTable

Dim dsKhachHang As DataTable
Dim dsSanPham As DataTable
 Dim dsCTPN As DataTable
Dim dsPhieuNhap As DataTable

Public Loai As Integer '1: moi, 2: hien thi, 3: cap nhat'

Public PhieuNhap As DataRow

Private Sub frmPhieuNhap_Load(sender As Object, e As EventArgs) Handles

MyBase.Load

dsKho = XuLyDuLieu.DocDuLieu("Select * from Kho where k_xoa = false")

cbKho.DataSource = dsKho
cbKho.DisplayMember = "k_ten"
cbKho.ValueMember = "k_xoa"

dsKhachHang = XuLyDuLieu.DocDuLieu("Select * from KhachHang where kh_xoa =

false")
cbKhachHang.DataSource = dsKhachHang
cbKhachHang.DisplayMember = "kh_ten"
cbKhachHang.ValueMember = "kh_ma"

cbKhachHang.SelectedIndex = -1
cbKho.SelectedIndex = -1

dsSanPham = XuLyDuLieu.DocDuLieu("Select * from SanPham")

dgvDSSanPham.DataSource = dsSanPham

If Loai = Constants.MHPhieuNhapLoai.Moi Then

dsCTPN = XuLyDuLieu.DocCauTruc("Select * from ChiTietPhieuNhap, SanPham
where ctpn_ma_sanPham = sp_ma")
cbKhachHang.SelectedIndex = -1
cbKho.SelectedIndex = -1
dsPhieuNhap = XuLyDuLieu.DocCauTruc("Select * from PhieuNhap")
ElseIf Loai = Constants.MHPhieuNhapLoai.CapNhat Then
dsCTPN = XuLyDuLieu.DocDuLieu("Select * from ChiTietPhieuNhap, SanPham
where ctpn_ma_sanPham = sp_ma and ctpn_ma_phieu_nhap =" +
PhieuNhap("pn_ma").ToString())
cbKhachHang.SelectedValue = PhieuNhap("pn_ma_khach_hang")
cbKho.SelectedValue = PhieuNhap("pn_ma_kho")
dsPhieuNhap = XuLyDuLieu.DocDuLieu("Select * from PhieuNhap where pn_ma
= " + PhieuNhap("pn_ma").ToString())
ElseIf Loai = Constants.MHPhieuNhapLoai.HienThi Then
dsCTPN = XuLyDuLieu.DocDuLieu("Select * from ChiTietPhieuNhap, SanPham
where ctpn_ma_sanPham = sp_ma and ctpn_ma_phieu_nhap =" +
PhieuNhap("pn_ma").ToString())
cbKhachHang.SelectedValue = PhieuNhap("pn_ma_khach_hang")
cbKho.SelectedValue = PhieuNhap("pn_ma_kho")
dsPhieuNhap = XuLyDuLieu.DocDuLieu("Select * from PhieuNhap where pn_ma
= " + PhieuNhap("pn_ma").ToString())
End If

dgvDSChiTietPhieuNhap.DataSource = dsCTPN
dgvDSChiTietPhieuNhap.Columns(0).Visible = False
dgvDSChiTietPhieuNhap.Columns(2).Visible = False
dgvDSChiTietPhieuNhap.Columns(3).Visible = False
dgvDSChiTietPhieuNhap.Columns(4).Visible = False
dgvDSChiTietPhieuNhap.Columns(8).Visible = False

dsPhieuNhap = XuLyDuLieu.DocDuLieu("Select * from PhieuNhap")

 End Sub

Private Sub bThem_Click(sender As Object, e As EventArgs) Handles bThem.Click

If dgvDSSanPham.SelectedCells.Count > 0 Then
If numSoLuong.Value > 0 Then
Dim spv As DataRowView =
dgvDSSanPham.Rows(dgvDSSanPham.SelectedCells(0).RowIndex).DataBoundItem
Dim sp As DataRow = spv.Row

Dim ctpns() As DataRow = dsCTPN.Select("sp_ma = " +

sp("sp_ma").ToString())
If ctpns.Length > 0 Then
Dim ctpn As DataRow = ctpns(0)

ctpn("ctpn_so_luong") += numSoLuong.Value
Dim t As Double = 0
Double.TryParse(tbTrongLuong.Text, t)
ctpn("ctpn_trong_luon") += t
t = 0
Double.TryParse(tbTrongLuong.Text, t)
ctpn("ctpn_the_tich") += t
Else
Dim ctpn As DataRow = dsCTPN.NewRow()
ctpn("sp_ma") = sp("sp_ma")
ctpn("sp_ten") = sp("sp_ten")
ctpn("ctpn_ma_san_pham") = sp("sp_ma")
ctpn("ctpn_so_luong") = numSoLuong.Value
Dim t As Double = 0
Double.TryParse(tbTrongLuong.Text, t)
ctpn("ctpn_trong_luon") = t
t = 0
Double.TryParse(tbTrongLuong.Text, t)
ctpn("ctpn_the_tich") = t

dsCTPN.Rows.Add(ctpn)
End If
TinhTong()
Else

End If
Else
End If
End Sub

Private Sub btnXoa_Click(sender As Object, e As EventArgs) Handles btnXoa.Click

If dgvDSChiTietPhieuNhap.SelectedCells.Count > 0 Then
If numSoLuong.Value > 0 Then
Dim ctpnv As DataRowView =
dgvDSChiTietPhieuNhap.Rows(dgvDSChiTietPhieuNhap.SelectedCells(0).RowIndex).DataBoun
dItem
Dim ctpn As DataRow = ctpnv.Row

Dim t = ctpn("ctpn_so_luong") - numSoLuong.Value

If t > 0 Then
ctpn("ctpn_so_luong") = t
Else
If Loai = Constants.MHPhieuNhapLoai.Moi Then
dsCTPN.Rows.Remove(ctpn)
 ElseIf Loai = Constants.MHPhieuNhapLoai.CapNhat Then
ctpn.Delete()
End If
End If
End If
TinhTong()
Else

End If
End Sub
Sub TinhTong()
Dim tongTrongLuong = dsCTPN.Compute("Sum(ctpn_trong_luong)", String.Empty)
Dim tongTheTich = dsCTPN.Compute("Sum(ctpn_the_tich)", String.Empty)

lTheTich.Text = "Tong Trong Luong:" + tongTheTich.ToString()

lTrongLuong.Text = "Tong The Tich:" + tongTrongLuong.ToString()

End Sub

Private Sub bTao_Click(sender As Object, e As EventArgs) Handles bTao.Click

If cbKhachHang.SelectedItem < 0 Then
MessageBox.Show("Vui long chon khach hang", "Thong bao")
Return
End If

If cbKho.SelectedIndex < 0 Then

MessageBox.Show("Vui long chon kho")
Return
End If

If dsCTPN.Rows.Count < 0 Then

MessageBox.Show("Vui long chon san pham")
End If

Dim pn = dsPhieuNhap.NewRow()

pn("pn_ngay") = dtbPhieuNhap.Value
pn("pn_ma_khach_hang") = cbKhachHang.SelectedValue
pn("pn_ma_kho") = cbKho.SelectedValue
dsPhieuNhap.Rows.Add(pn)
XuLyDuLieu.GhiDuLieu("PhieuNhap", dsPhieuNhap)

For Each ctpn In dsCTPN.Rows

ctpn("ctpn_ma_phieu_nhap") = pn("pn_ma")
Next

XuLyDuLieu.GhiDuLieu("ChiTietPhieuNhap", dsCTPN)
TatManHinh()
End Sub

Sub TatManHinh()

If TypeOf Tag Is frmTheoDoiPhieuNhap Then

CType(Tag, frmTheoDoiPhieuNhap).docDSPhieuNhap()
End If
Me.Close()
 End Sub

Private Sub bCapNhat_Click(sender As Object, e As EventArgs) Handles

bCapNhat.Click
If cbKhachHang.SelectedItem < 0 Then
MessageBox.Show("Vui long chon khach hang", "Thong bao")
Return
End If

If cbKho.SelectedIndex < 0 Then

MessageBox.Show("Vui long chon kho")
Return
End If

If dsCTPN.Rows.Count < 0 Then

MessageBox.Show("Vui long chon san pham")
End If

Dim pn = dsPhieuNhap.Rows(0)

pn("pn_ngay") = dtbPhieuNhap.Value
pn("pn_ma_khach_hang") = cbKhachHang.SelectedValue
pn("pn_ma_kho") = cbKho.SelectedValue

XuLyDuLieu.GhiDuLieu("PhieuNhap", dsPhieuNhap)

For Each ctpn In dsCTPN.Rows

ctpn("ctpn_ma_phieu_nhap") = pn("pn_ma")
Next

XuLyDuLieu.GhiDuLieu("ChiTietPhieuNhap", dsCTPN)
TatManHinh()
End Sub
End Class

Public Class frmSanPham

Dim dsSanPham As DataTable
Dim dsLoaiSanPham As DataTable

Private Sub frmSanPham_Load(sender As Object, e As EventArgs) Handles

MyBase.Load
dsLoaiSanPham = XuLyDuLieu.DocCauTruc("Select * from LoaiSanPham where
lsp_xoa = false")
cbLoaiSanPham.DataSource = dsLoaiSanPham
cbLoaiSanPham.ValueMember = "lsp_ma"
cbLoaiSanPham.DisplayMember = "lsp_ten"

DocDSSanPham()
End Sub

Sub DocDSSanPham()
lvDSSanPham.Items.Clear()
dsSanPham = XuLyDuLieu.DocDuLieu("Select * from SanPham, LoaiSanPham where
sp_loai = lsp_ma and sp_xoa = false")
For Each sp As DataRow In dsSanPham.Rows
Dim spv As ListViewItem = New ListViewItem(sp("sp_ten").ToString())
spv.SubItems.Add(sp("sp_mo_ta"))
 spv.SubItems.Add(sp("sp_ma"))
spv.SubItems.Add(sp("lsp_ten"))
lvDSSanPham.Items.Add(spv)
Next
End Sub

Private Sub lvDSSanPham_SelectedIndexChanged(sender As Object, e As EventArgs)

Handles lvDSSanPham.SelectedIndexChanged
If lvDSSanPham.SelectedItems.Count > 0 Then
Dim vitri As Integer = lvDSSanPham.SelectedItems(0).Index

Dim sp As DataRow = dsSanPham.Rows(vitri)

tbTen.Text = sp("sp_ten")
tbMoTa.Text = sp("sp_mo_ta")
cbLoaiSanPham.SelectedValue = sp("sp_loai")

End If
End Sub

Private Sub bThem_Click(sender As Object, e As EventArgs) Handles bThem.Click

Dim sp As DataRow = dsSanPham.NewRow()
sp("sp_ten") = tbTen.Text
sp("sp_mo_ta") = tbMoTa.Text
sp("sp_xoa") = False
sp("sp_loai") = cbLoaiSanPham.SelectedValue
sp("lsp_ma") = cbLoaiSanPham.SelectedValue
sp("lsp_ten") = cbLoaiSanPham.SelectedValue("lsp_ten")

dsSanPham.Rows.Add(sp)
XuLyDuLieu.GhiDuLieu("SanPham", dsSanPham)

Dim spv As ListViewItem = New ListViewItem(sp("sp_ten").ToString())

spv.SubItems.Add(sp("sp_mo_ta"))
spv.SubItems.Add(sp("sp_ma"))
spv.SubItems.Add(sp("lsp_ten"))
lvDSSanPham.Items.Add(spv)

End Sub

Private Sub bCapNhat_Click(sender As Object, e As EventArgs) Handles

bCapNhat.Click
If lvDSSanPham.SelectedItems.Count > 0 Then

Dim vitri As Integer = lvDSSanPham.SelectedItems(0).Index

Dim sp As DataRow = dsSanPham.Rows(vitri)

sp("sp_ten") = tbTen.Text
sp("sp_mo_ta") = tbMoTa.Text
sp("sp_xoa") = False
sp("sp_loai") = cbLoaiSanPham.SelectedValue
sp("lsp_ma") = cbLoaiSanPham.SelectedValue
sp("lsp_ten") = cbLoaiSanPham.SelectedValue("lsp_ten")

XuLyDuLieu.GhiDuLieu("SanPham", dsSanPham)

Dim spv As ListViewItem = lvDSSanPham.Items(vitri)

spv.Text = sp("sp_ten")
 spv.SubItems(1).Text = sp("sp_mo_ta")
spv.SubItems(2).Text = sp("lsp_ten")
spv.SubItems(3).Text = sp("sp_ma")

End If
End Sub

Private Sub bXoa_Click(sender As Object, e As EventArgs) Handles bXoa.Click

If lvDSSanPham.SelectedItems.Count > 0 Then

Dim vitri As Integer = lvDSSanPham.SelectedItems(0).Index

Dim sp As DataRow = dsSanPham.Rows(vitri)

sp("sp_xoa") = True

XuLyDuLieu.GhiDuLieu("SanPham", dsSanPham)

dsSanPham.Rows.RemoveAt(vitri)
lvDSSanPham.Items.RemoveAt(vitri)

End If
End Sub

End Class

Public Class frmTheoDoiPhieuNhap

Dim dsPhieuNhap As DataTable
Dim dsKhachHang As DataTable
Dim dsKho As DataTable

Private Sub frmTheoDoiPhieuNhap_Load(sender As Object, e As EventArgs) Handles

MyBase.Load
dsKho = XuLyDuLieu.DocDuLieu("Select * from Kho where k_xoa = false")
cbKho.DataSource = dsKho
cbKho.DisplayMember = "k_ten"
cbKho.ValueMember = "k_xoa"

dsKhachHang = XuLyDuLieu.DocDuLieu("Select * from KhachHang where kh_xoa =

false")
cbKhachHang.DataSource = dsKhachHang
cbKhachHang.DisplayMember = "kh_ten"
cbKhachHang.ValueMember = "kh_ma"

cbKhachHang.SelectedIndex = -1
cbKho.SelectedIndex = -1

docDSPhieuNhap()
End Sub

Sub docDSPhieuNhap()
Dim str As String = "Select pn_ma, pn_ngay, k_ten, kh_ten, pn_ma_kho,
pn_ma_khach_hang from PhieuNhap, Kho, KhachHang where pn_ma_kho = k_ma and
pn_ma_khach_hang = kh_ma and DateValue(pn_ngay) = #" +
dtpNgay.Value.ToString("yyyy/MM/dd") + "#"
If cbKho.SelectedIndex >= 0 Then
str = str + "and pn_ma_kho" + cbKho.SelectedItem(0).ToString + ""
End If
 If cbKhachHang.SelectedIndex >= 0 Then
str = str + "and pn_ma_khach_hang" +
cbKhachHang.SelectedItem(0).ToString
End If

dsPhieuNhap = XuLyDuLieu.DocDuLieu(str)
DataGridView1.DataSource = dsPhieuNhap
End Sub

Private Sub btnTimKiem_Click(sender As Object, e As EventArgs) Handles

btnTimKiem.Click
docDSPhieuNhap()
End Sub

Private Sub bTao_Click(sender As Object, e As EventArgs)

Dim frmPhieuNhap = New frmPhieuNhap()
frmPhieuNhap.Tag = Me
frmPhieuNhap.Loai = Constants.MHPhieuNhapLoai.Moi
frmPhieuNhap.MdiParent = Me.MdiParent
frmPhieuNhap.WindowState = FormWindowState.Maximized
frmPhieuNhap.Show()
End Sub

Private Sub bCapNhat_Click(sender As Object, e As EventArgs) Handles

bCapNhat.Click
If DataGridView1.SelectedCells.Count > 0 Then

Dim pnv As DataRowView =

DataGridView1.Rows(DataGridView1.SelectedCells(0).RowIndex).DataBoundItem
Dim pn As DataRow = pnv.Row

Dim frmPhieuNhap = New frmPhieuNhap()

frmPhieuNhap.Tag = Me
frmPhieuNhap.Loai = Constants.MHPhieuNhapLoai.CapNhat
frmPhieuNhap.PhieuNhap = pn
frmPhieuNhap.MdiParent = Me.MdiParent
frmPhieuNhap.WindowState = FormWindowState.Maximized
frmPhieuNhap.Show()
End If
End Sub

Private Sub bXoa_Click(sender As Object, e As EventArgs) Handles bXoa.Click

If DataGridView1.SelectedCells.Count > 0 Then
Dim pnv As DataRowView =
DataGridView1.Rows(DataGridView1.SelectedCells(0).RowIndex).DataBoundItem
Dim pn As DataRow = pnv.Row
Dim dr As DialogResult = MessageBox.Show("anh / chi co muon xoa don
hang: " + pn("pn_ma")).ToString()
If dr = DialogResult.Yes Then
pn("pn_xoa") = True
XuLyDuLieu.GhiDuLieu("PhieuNhap", dsPhieuNhap)
dsPhieuNhap.Rows.Remove(pn)
End If
End If
End Sub
End Class
Imports System.Data.OleDb
Imports System.Security.Cryptography
Imports System.Security.Cryptography.X509Certificates
Imports System.Text

Module Util

Public Function getHash(ByVal str As String) As String

Dim hasher As MD5 = MD5.Create()

Dim dbytes As Byte() = hasher.ComputeHash(Encoding.UTF8.GetBytes(str))
Dim builder As StringBuilder = New StringBuilder()
For n As Integer = 0 To dbytes.Length - 1
builder.Append(dbytes(n).ToString("X2"))
Next
Return builder.ToString()

End Function

End Module
Imports System.Data.OleDb
Imports System.Security.Cryptography.X509Certificates

Module XuLyDuLieu
Dim ChuoiKetNoi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\Văn Bằng 2\Lập Trình Quản Lý Ứng Dụng\DoAn\DoAn\Database2.accdb;Persist
Security Info=True"

Public Function DocDuLieu(sql As String) As DataTable

Dim connection As OleDbConnection = New OleDbConnection(ChuoiKetNoi) 'tạo
connection
Dim command As OleDbCommand = New OleDbCommand(sql, connection) 'tạo lệnh
đọc dữ liệu
Dim dt As DataTable = New DataTable() 'tạo bảng mới để chứa dữ liệu
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(command) 'làm trung
gian để gán, để đọc dữ liệu
adapter.Fill(dt)
Return dt
End Function

Public Function DocCauTruc(sql As String) As DataTable

Dim connection As OleDbConnection = New OleDbConnection(ChuoiKetNoi) 'tạo
connection
Dim command As OleDbCommand = New OleDbCommand(sql, connection) 'tạo lệnh
đọc dữ liệu
Dim dt As DataTable = New DataTable() 'tạo bảng mới để chứa dữ liệu
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(command) 'làm trung
gian để gán, để đọc dữ liệu
adapter.FillSchema(dt, SchemaType.Source)
Return dt
End Function

Public Sub GhiDuLieu(TenBang As String, DuLieu As DataTable)

Dim connection As OleDbConnection = New OleDbConnection(ChuoiKetNoi) 'tạo
connection

Dim command As OleDbCommand = New OleDbCommand("Select * from " + TenBang,

connection) 'tạo kết nối với bảng mục tiêu
 Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(command) 'làm trung
gian để gán, để đọc dữ liệu

Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter) 'Tạo

các insert, delete, update từ câu select

AddHandler adapter.RowUpdated, AddressOf CapNhatMaSo

adapter.Update(DuLieu)

End Sub

Private Sub CapNhatMaSo(ByVal sender As Object, ByVal e As

OleDbRowUpdatedEventArgs)
Dim Ket_noi As OleDbConnection = e.Command.Connection

If e.StatementType = StatementType.Insert Then

Dim Lenh As OleDbCommand = New OleDbCommand("Select @@IDENTITY",

Ket_noi)

Dim ma_so As Integer = Integer.Parse(Lenh.ExecuteScalar())

e.Row(0) = ma_so
End If
End Sub

End Module