GIỚI THIỆU CHƯƠNG TRÌNH

: GIỚI THIỆU CHƯƠNG TRÌNH
4.1. Điều kiện và phần mềm ứng dụng đi kèm để sử dụng
Để chương trình có thể chạy được khi cài vào máy mới cần cài đặt một số phần mềm sau:
- .NET Framework 2.0
- SQL server 2000
- Crystal Reports
- Setup chương trình
4.2. Các lớp chính của chương trình
4.2.1. Lớp kết nối cơ sở dữ liệu
Thực hiện chức năng kết nối tới cơ sở dữ liệu
Public Class Connection
Dim LcTen_May As String
Dim LcTen_Csdl As String
' tao thuoc tinh de lay gia tri ten server
Public Property McTen_May() As String
Get
Return LcTen_May
End Get
Set(ByVal value As String)
LcTen_May = value
End Set
End Property
Public Property McTen_CSDL() As String
Get
Return LcTen_Csdl
End Get
Set(ByVal value As String)
LcTen_Csdl = value
End Set
End Property
Public Function McKet_Noi_Data() As SqlClient.SqlConnection

Dim LcCn As New SqlClient.SqlConnection
Dim LcStr_Conn As String = "Data source=" & Me.McTen_May & "; " & "Initial
catalog=" & Me.McTen_CSDL & ";" & "password=sa;" & "user id=sa;"
LcCn = New SqlClient.SqlConnection(LcStr_Conn)
McKet_Noi_Data = LcCn
End Function
End Class
4.2.2. Lớp lựa chọn giá trị
Thực hiện bắt cờ trong các trường hợp thêm, sửa, xóa
Public Class values
Public LcValueID As String
Public Property McValueID()
Get
Return LcValueID
End Get
Set(ByVal value)
LcValueID = value
End Set
End Property
Public LcRowSelect As Integer
Public Property McRowSelect()
Get
Return LcRowSelect
End Get
Set(ByVal value)
LcRowSelect = value
End Set
End Property
Public LcColSelect As Integer
Public Property McColSelect()

Get
Return LcColSelect
End Get
Set(ByVal value)
LcColSelect = value
End Set
End Property
Public LcFlag As String
Public Property McFlag()
Get
Return LcFlag
End Get
Set(ByVal value)
LcFlag = value
End Set
End Property
Public source As Object
Public Property DataSource()
Get
Return source
End Get
Set(ByVal value)
source = value
End Set
End Property
Public data As String
Public Property DataMember()
Get
Return data
End Get

Set(ByVal value)
data = value
'Binding()
End Set
End Property
End Class
4.2.3. Lớp formmain của chương trình
Thực hiện các thao tác chính của chương trình
Public Class frmmain
Private px As New frmphuongxa
Private DataConnect As New Connection
Public nodeQh, nodePxa, nodeKPho As TreeNode
Public rowQh, rowPxa, rowKpho As DataRow
Private Sub menuitthoat_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemcaidat.Click
Me.Close()
End Sub
Private Sub menuitpx_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
frmphuongxa.ShowDialog()
Me.px.ListViewpx.Clear()
End Sub
Private Sub menuitdantoc_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitdantoc.Click
frmdantoc.ShowDialog()
End Sub
Private Sub frmmain_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Load_Treeview(Treeviewmain)

End Sub

Private Sub menuitnghenghiep_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitnghenghiep.Click
frmnghenghiep.ShowDialog()
End Sub
Private Sub menuittongiao_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuittongiao.Click
frmtongiao.ShowDialog()
End Sub
Private Sub menuitquequan_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitquequan.Click
frmquequan.ShowDialog()
End Sub

Private Sub menuittrinhdo_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuittrinhdo.Click
frmtrinhdo.ShowDialog()
End Sub
Private Sub khuphoMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles khuphoMenuItem.Click
'rmkhupho.ShowDialog()
Dim frmkp As New frmkhupho
'frmkp.MdiParent = Me
frmkp.ShowDialog()
End Sub
Private Sub menuitemhk_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemhk.Click
frmchuho.ShowDialog()
End Sub

Private Sub menuitemnk_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemnk.Click
frmnhankhau.ShowDialog()

End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
Me.Close()
End Sub
Private Sub butnhankhau_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
frmnhankhau.ShowDialog()
End Sub
Private Sub menuitemthaydoi_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemthaydoi.Click
frmdoimatkhau.ShowDialog()
End Sub
Private Sub menuitemtg_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemtg.Click
frmtacgia.ShowDialog()
End Sub
Private Sub menuitemkhaibao_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemkhaibao.Click
frmkhaibaonguoidung.ShowDialog()
End Sub
Private Sub menuitemxaclap_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemxaclap.Click
frmxaclapdv.ShowDialog()
End Sub
Private Sub menuthongtindv_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles menuthongtindv.Click
frmthongtindonvi.ShowDialog()
End Sub
Private Sub TheoĐịaBànToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles TheoĐịaBànToolStripMenuItem.Click
frmtimkiemdiaban.ShowDialog()
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
End Sub

Private Sub TToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TToolStripMenuItem.Click
'frmtimkiemtheothongtincanhan.ShowDialog()
frmtimnguoi.ShowDialog()
End Sub
Private Sub menuitemddcutru_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
frmdacdiemcutru.ShowDialog()
End Sub
Private Sub menuitempx_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
frmphuongxa.ShowDialog()
End Sub
Private Sub menuitemqh_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemqh.Click
frmquanhuyen.ShowDialog()
End Sub

Private Sub menuitempx_Click_1(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles menuitempx.Click
frmphuongxa.ShowDialog()
End Sub
Private Sub menuitemngaydendi_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemngaydendi.Click
frmtimkiemngayden.ShowDialog()
End Sub
Private Sub menuitemcutru_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemcutru.Click
frmtimkiemcutru.ShowDialog()
End Sub

Private Sub menuitemtkho_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemtkho.Click
frmtimkiemchuho.ShowDialog()
End Sub
Private Sub menuitemthoat_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemthoat.Click
Me.Close()
End Sub
Private Sub TổngHợpToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles TổngHợpToolStripMenuItem.Click
frmbaocaonhankhau.ShowDialog()
End Sub
Private Sub TreeViewmain_AfterSelect(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.TreeViewEventArgs) Handles TreeViewmain.AfterSelect

End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton1.Click

Me.Close()
End Sub
Private Sub menuitemkhac_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles menuitemkhac.Click
frmdacdiemcutru.ShowDialog()
End Sub
Private Sub NhâToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles NhâToolStripMenuItem.Click
frmthongkenhankhau.ShowDialog()
End Sub
Private Sub NhânKhẩuTạmVắngToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
NhânKhẩuTạmVắngToolStripMenuItem.Click
frmtamvang.ShowDialog()
End Sub
Private Sub NhânKhẩuTạmTrúToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
NhânKhẩuTạmTrúToolStripMenuItem.Click
frmtamtru.ShowDialog()
End Sub
Private Sub InTạmTrúTạmVắngToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
InTạmTrúTạmVắngToolStripMenuItem.Click
frmintamtrutamvang.ShowDialog()
End Sub
Private Sub InBáoCáoNhânKhẩuToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
InBáoCáoNhânKhẩuToolStripMenuItem.Click
frmbaocaonhankhau.ShowDialog()
End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton2.Click
frmquanhuyen.ShowDialog()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton3.Click
frmphuongxa.ShowDialog()
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton4.Click
frmkhupho.ShowDialog()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton5.Click
frmdantoc.ShowDialog()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton6.Click
frmquequan.ShowDialog()
End Sub
Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton8.Click
frmtongiao.ShowDialog()
End Sub
Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton9.Click
frmtrinhdo.ShowDialog()
End Sub
Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton10.Click

frmnghenghiep.ShowDialog()
End Sub
Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton11.Click
frmdacdiemcutru.ShowDialog()
End Sub
Private Sub ToolStripButton12_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton12.Click
frmchuho.ShowDialog ()
End Sub
Private Sub ToolStripButton13_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton13.Click
frmnhankhau.ShowDialog()
End Sub
End Class
4.2.4. Lớp tìm kiếm
 Tìm theo thông tin hộ khẩu
Private Sub btntim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btntim.Click
DataConnect.McTen_CSDL = “HoTam”
DataConnect.McTen_May = “Q_Computer”
Dim LcCn As SqlConnection = DataConnect.McKet_Noi_Data
LcCn.Open()
Me.ListBoxthanhvien.Items.Clear()
Dim strsql As String = "select HoTen from NhanKhau where ChuHoID ='" &
Me.cbomach.Text & "'"
Dim da As SqlDataAdapter = New SqlDataAdapter(strsql, LcCn)
Dim ds As New DataSet
da.Fill(ds, "NhanKhau")
Dim datable As DataTable = ds.Tables(0)

Dim r As DataRow
For Each r In datable.Rows
ListBoxthanhvien.Items.Add(r("HoTen"))
Next
End Sub
 Tìm theo thông tin cá nhân
Private Sub btntim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btntim.Click
If checkht.Checked = True Then
If txthoten.Text = "" Then
MessageBox.Show("Bạn chưa nhập tên để tìm kiếm", "Thông báo",
MessageBoxButtons.OK)
Else
listview_Searchhoten()
End If
End If
If Checkgioitinh.Checked = True Then
If txtgioitinh.Text = "" Then
MessageBox.Show("Bạn chưa nhập tiêu chí tìm kiếm", "Thông báo",
MessageBoxButtons.OK)
Else
listview_searchgioitinh()
End If
End If
If Checksocmnd.Checked = True And checkht.Checked = False And
Checkgioitinh.Checked = False And CheckBoxnamsinh.Checked = False Then
If txtsocmnd.Text = "" Then
MessageBox.Show("Bạn chưa nhập số CMND muốn tìm", "Thông báo",
MessageBoxButtons.OK)
Else

listview_SearchSocmnd()
End If
End If
If CheckBoxnamsinh.Checked = True Then
If txtnamsinh.Text = "" Then
MessageBox.Show("Bạn chưa nhập năm sinh muốn tìm", "Thông báo",
MessageBoxButtons.OK)
Else
listview_SearchNsinh()
End If
End If
If Checksocmnd.Checked = True And checkht.Checked = True And
Checkgioitinh.Checked = True And CheckBoxnamsinh.Checked = False Then
If txthoten.Text = "" Or txtgioitinh.Text = "" Or txtsocmnd.Text = "" Then
MessageBox.Show("Bạn chưa nhập đủ thông tin để tìm kiếm", "Thông báo",
MessageBoxButtons.OK)
Else