Để 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)
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
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
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()
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
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
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
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 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)
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 listview_SearchAll() End If End If End Sub
Tìm theo đặc điểm cư trú
Private Sub Tim_Data()
DataConnect.McTen_CSDL = “HoTam”
DataConnect.McTen_May = “Q_Computer”
Dim LcCn As SqlConnection = DataConnect.McKet_Noi_Data LcCn.Open()
If (Me.cbocutru.Text = "") Then
MessageBox.Show("Bạn chưa chọn tiêu chí để tìm kiếm", "Thông báo", MessageBoxButtons.OK)
End If
Dim strsql As String = "select * from NhanKhau where CuTruID='" &
Me.cbocutru.Text & "' "
'LoadDataListView(ListViewtimkiem, 22, strsql)
Dim mycmd As SqlCommand = New SqlCommand(strsql, LcCn) Dim myread As SqlDataReader = mycmd.ExecuteReader
Do While myread.Read
Dim Col_List As New ListViewItem(myread.Item("NhanKhauID").ToString) Col_List.SubItems.Add(myread.Item("HoTen").ToString)
Col_List.SubItems.Add(myread.Item("BiDanh").ToString) Col_List.SubItems.Add(myread.Item("NSinh").ToString) Col_List.SubItems.Add(myread.Item("GioiTinh").ToString) Col_List.SubItems.Add(myread.Item("SoCMND").ToString) Col_List.SubItems.Add(myread.Item("NgayCap").ToString) Col_List.SubItems.Add(myread.Item("NoiCap").ToString) Col_List.SubItems.Add(myread.Item("QueQuanID").ToString) Col_List.SubItems.Add(myread.Item("NoiDKHK").ToString) Col_List.SubItems.Add(myread.Item("NgheNghiepID").ToString) Col_List.SubItems.Add(myread.Item("NoiLV").ToString)
Col_List.SubItems.Add(myread.Item("NgayDen").ToString) Col_List.SubItems.Add(myread.Item("NoiTruocDen").ToString) Col_List.SubItems.Add(myread.Item("NgayDi").ToString) Col_List.SubItems.Add(myread.Item("NoiDen").ToString) Col_List.SubItems.Add(myread.Item("TonGiaoID").ToString) Col_List.SubItems.Add(myread.Item("TrinhDoID").ToString) Col_List.SubItems.Add(myread.Item("DanTocID").ToString) Col_List.SubItems.Add(myread.Item("CuTruID").ToString)
Col_List.SubItems.Add(myread.Item("QuanHe").ToString) Col_List.SubItems.Add(myread.Item("GhiChu").ToString) Col_List.SubItems.Add(myread.Item("ChuHoID").ToString) ListViewchitietcutru.Items.Add(Col_List)
Loop
LcCn.Close() End Sub
4.3. Các modul chính của chương trình4.3.1. Modul Load Data lên combobox 4.3.1. Modul Load Data lên combobox
Module fillcombo
Private DataConnect As New Connection Private value As New values
'DataConnect
Public Sub LoadFillCombo(ByVal sql As String, ByVal table As Object, ByVal cbo As ComboBox, ByVal id As String)
DataConnect.McTen_CSDL = “HoTam”
DataConnect.McTen_May = “Q_Computer”
Dim LcCn As SqlClient.SqlConnection = DataConnect.McKet_Noi_Data LcCn.Open()
Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(sql, LcCn)
Dim ds As New DataSet da.Fill(ds, "table")
's DefaultView to the datagrid control
Dim dv As DataView = ds.Tables("table").DefaultView cbo.DataSource = dv
cbo.DisplayMember = id End Sub
End Module
4.3.2. Modul Load Data lên Treeview
Load dữ liệu địa bàn hành chính trong chương trình
Module mdlLoadTreeview
'Inherits System.Windows.Form
Private DataConnect As New Connection
DataConnect.McTen_CSDL = “HoTam”
DataConnect.McTen_May = “Q_Computer”
Dim LcCn As SqlConnection = DataConnect.McKet_Noi_Data LcCn.Open()
Dim ds As New DataSet()
Dim daquanhuyen As New SqlDataAdapter("select QuanHuyen,QuanHuyenID
from QuanHuyen", LcCn)
Dim daphuongxa As New SqlDataAdapter("select
PhuongXa,PhuongXaID,QuanHuyenID from PhuongXa", LcCn)
Dim dakhupho As New SqlDataAdapter("select KhuPho,KhuPhoID,PhuongXaID
from KhuPho", LcCn)
daquanhuyen.Fill(ds, "QuanHuyen") daphuongxa.Fill(ds, "PhuongXa") dakhupho.Fill(ds, "KhuPho") LcCn.Close()
ds.Relations.Add("donvi", ds.Tables("QuanHuyen").Columns("QuanHuyenID"), ds.Tables("PhuongXa").Columns("QuanHuyenID"))
ds.Relations.Add("donvi1", ds.Tables("PhuongXa").Columns("PhuongXaID"), ds.Tables("KhuPho").Columns("PhuongXaID"))
Dim nodeQh, nodePxa, nodeKPho As TreeNode Dim rowQh, rowPxa, rowKpho As DataRow For Each rowQh In ds.Tables("QuanHuyen").Rows nodeQh = New TreeNode
nodeQh.Text = rowQh("QuanHuyen") 'nodeQh.Index = rowQh("QuanHuyenID")
tv.Nodes.Add(nodeQh)
For Each rowPxa In rowQh.GetChildRows("donvi") nodePxa = New TreeNode
nodePxa.Text = rowPxa("PhuongXa") nodeQh.Nodes.Add(nodePxa)
For Each rowKpho In rowPxa.GetChildRows("donvi1") nodeKPho = New TreeNode
nodePxa.Nodes.Add(nodeKPho) Next Next Next ds.Dispose() daquanhuyen.Dispose() daphuongxa.Dispose() LcCn.Close() LcCn.Dispose() End Sub End Module
Load dữ liệu nhân khẩu trong chương trình trên treeview
DataConnect.McTen_CSDL = “HoTam”
DataConnect.McTen_May = “Q_Computer”
Dim LcCn As SqlConnection = DataConnect.McKet_Noi_Data LcCn.Open()
Dim ds As New DataSet()
Dim dahk As New SqlDataAdapter("select TenCH,ChuHoID from HoKhau", LcCn)
Dim dank As New SqlDataAdapter("select HoTen,NhanKhauID,ChuHoID from
NhanKhau", LcCn)
dahk.Fill(ds, "HoKhau") dank.Fill(ds, "NhanKhau") LcCn.Close()
Try
ds.Relations.Add("nhankhau", ds.Tables("HoKhau").Columns("ChuHoID"), ds.Tables("NhanKhau").Columns("ChuHoID"))
Dim nodehk, nodenk As TreeNode Dim rowhk, rownk As DataRow
For Each rowhk In ds.Tables("HoKhau").Rows nodehk = New TreeNode
nodehk.Text = rowhk("TenCH")
TreeViewnhankhau.Nodes.Add(nodehk)
For Each rownk In rowhk.GetChildRows("nhankhau") nodenk = New TreeNode
nodenk.Text = rownk("HoTen") nodehk.Nodes.Add(nodenk) Next Next ds.Dispose() dahk.Dispose() dank.Dispose() LcCn.Close() LcCn.Dispose() Catch ex As Exception
MessageBox.Show("Chưa có CSDL", "Thông báo", MessageBoxButtons.OK) End Try
4.3.3. Molul báo cáo
Thực hiện lưu trữ dữ liệu báo cáo theo các hình thưc báo cáo Module mdlbaocao
Public myreport As New ReportDocument Private DataConnect As New Connection
Public Sub Result_Report(ByVal str As String, ByVal tbl As Object, ByVal local As Object)
DataConnect.McTen_CSDL = “HoTam”
DataConnect.McTen_May = “Q_Computer”
Dim LcCn As SqlConnection = DataConnect.McKet_Noi_Data LcCn.Open()
Dim da As SqlDataAdapter = New SqlDataAdapter(str, LcCn) Dim ds As New DataSet
da.Fill(ds, "tbl")
myreport.SetDataSource(ds) End Sub
End Module
In Tạm trú tạm vắng
Private Sub frmhienthigiaybao_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataConnect.McTen_CSDL = “HoTam”
DataConnect.McTen_May = “Q_Computer”
Dim LcCn As SqlConnection = DataConnect.McKet_Noi_Data LcCn.Open()
Dim str As String = "select
HoTen,NSinh,NgheNghiepID,SoCMND,NoiHT,NoiDen,LyDo,CuTruID,MaCB,NoiL V,NgayDen,NgayDi from NhanKhau "
str = str + " WHERE HoTen LIKE '%" + Trim(frm.txthoten.Text) + "%'" Dim da As SqlDataAdapter = New SqlDataAdapter(Str, LcCn)
Dim ds As New DataSet da.Fill(ds, "NhanKhau") myreport.Load("E:\HOTAM\QLNK12\Reports\tttvCrystalReport.rpt") myreport.SetDataSource(ds) Me.PhieutttvCrystalReportViewer1.ReportSource = myreport End Sub End Class
4.4.1. Chức năng quản lý người dùng
Click menu Truy cập Quản lý người dùng
4.4.2. Chức năng quản lý danh mục
Click menu Danh mục chọn một danh mục muốn làm việc
4.4.2.1. Danh mục quận, huyện
4.4.2.2. Danh mục phường, xã
4.4.2.3. Danh mục khu phố
Người sử dụng sẽ có các chưc năng thêm, sửa, xóa. Để thực hiện được chức năng sửa xóa, người dùng chọn một bản ghi bên cạnh rồi sau đó mới thực hiện chức năng đã
nêu. Trong quá trình thêm sửa, người dùng không muốn thực hiện tiếp bấm chức
năng hủy.
4.4.2.4. Danh mục tôn giáo
4.4.2.5. Danh mục Quê Quán
Tương tự như vậy cho các danh mục khác.
Click menu Quản lý hồ sơ Hồ sơ nhân khẩu
Để xem thông tin chi tiết của nhân khẩu nào, ta click vào tên nhân khẩu đó trên cây bên trái và thông tin hiển thị bên phải. phần ghi chú là phần để cho người sử dụng cập nhật thông tin của nhân khẩu thường xuyên trên địa bàn quản lý(thông tin cá biệt). để xem
hình của đối tượng, chọn đối tượng cần xem rồi Xem. Muốn tìm người Tìm
4.4.4. Chức năng tìm kiếm
4.4.4.1. Chức năng tìm kiếm theo hộ
Click menu Tìm kiếm Tìm kiếm theo hộ
4.4.4.2. Chức năng tìm kiếm theo thông tin cá nhân Click menu Tìm kiếm Tìm theo thông tin cá nhân
4.4.4.4. Chức năng tìm kiếm theo thời gian
Click menu Tìm kiếm Tìm theo ngày đến ngày đi(thời gian cư trú)
4.4.5. Chức năng báo cáo thống kê4.4.5.1. Báo cáo tổng hợp 4.4.5.1. Báo cáo tổng hợp
Click menu Báo cáo – thống kê Báo cáo Báo cáo tổng hợp
KẾT LUẬN
Qua quá trình thực hiện đề tài em thấy việc ứng dụng Tin học vào công việc Quản lý là vô cùng cần thiết và không thể thiếu trong thời đại ngày nay. Bước sang thế kỷ XXI, công nghệ thông tin ngày càng chứng tỏ rõ tính ưu việt của mình. Phát triển với tốc độ cao, luôn hoàn thiện nhanh chóng chiếm lĩnh mọi lĩnh vực của đời sống xã hội, công nghệ thông tin nói chung và tin học nói riêng đã và đang là một trợ thủ đắc lực cho những người làm công tác quản lý. Cùng với công nghệ DotNet, một công nghệ mới với nhiều tính ưu việt của nó, không chỉ hỗ trợ mạnh trong lập trinh cơ sở dữ liệu cùng với SQL server mà còn áp dụng được với nhiều ngôn ngữ cơ sở dữ liệu khác nữa như Access, Orarle. Điển hình là ngôn ngữ Visual Basic.Net một ngôn ngữ lập trình hướng đối tượng, nó hỗ trợ rất nhiều trong công việc lập trình từ việc thiết kế giao diện cho đến việc viết code và một số ưu điểm khác nữa.
Trong khuôn khổ đề tài này, em đã cố gắng vận dụng những kiến thức đã được học tại trường và kiến thức thực tế cùng với sự hướng dẫn, chỉ dạy tận tình của Nguyễn Thanh Toàn để hoàn thành đồ án một cách tôt nhất.
Em mong rằng các chương trình quản lý con người nói chung, và chương trình quản lý nhân, hộ khẩu nói riêng ngày càng được ứng dụng rộng rãi trong cuộc sống hiện đại với nhiều ứng dụng công nghệ thông tin. Hướng phát triển của chương trình là có thể xây dựng nên một cơ sở dữ liệu quản lý con người của quốc gia và ứng dụng quản lý con người thông qua một thẻ thông hành, vừa là chứng minh nhân dân, vừa là bằng lái xe máy. Để con người có thể tự do đi lại, làm ăn, sinh sống và học tập một cách thỏa mái đồng thời công tác quản lý của con người cũng nhẹ nhàng và thuận tiện, Cơ sở dữ liệu con người của hàng chục triệu dân được thu nhỏ trong cái USB.
Em xin chân thành cảm ơn các thầy, cô trong Khoa Công nghệ Thông tin !
TÀI LIỆU THAM KHẢO
1. Giáo trình và phân tích thiết kế hệ thống thông tin – Nguyễn Văn Ba.
2. Giáo trình lập trình Visual Basic.NET – Hoàng Anh Quang
3. Website http://www.codebase.com
và http://www.codeproject.com 4. Mẫu sổ hộ khẩu
5. Mẫu phiếu khai báo tạm trú tạm vắng
LỜI CẢM ƠN ... 1
PHẦN MỞ ĐẦU ... 3
CHƯƠNG 1 : KHẢO SÁT SƠ BỘ ... 6
1.1. Hiện trạng. ... 6
1.2. Quy trình quản lý và nhận xét, đánh giá công tác quản lý: ... 6
1.3 Các thông tin cần quản lý. ... 8
1.3.1. Thông tin về người dùng. ... 8
1.3.2. Thông tin về các danh mục. ... 8
1.3.3. Thông tin về hồ sơ. ... 9
1.3.4. Thông tin báo cáo. ... 10
1.4. Tổ chức. ... 10
1.4.1. Người quản lý ... 10
1.4.2. Trưởng công an Xã, Phường ... 10
1.4.3 . Cán bộ phụ trách thông tin ... 11
CHƯƠNG 2: PHÂN TÍCH THIẾT KẾ CƠ SỞ DỮ LIỆU ... 12
2.1. Sơ đồ phân rã chức năng ... 12
2.1.1.Sơ đồ ... 12
... 12
2.1.2. Mô tả chức năng chính của hệ thống ... 13
2.2. Sơ đồ luồng dữ liệu ... 14
2.2.1. Sơ đồ luồng dữ liệu mức bối cảnh. ... 14
3.2.2. sơ đồ luồng dữ liệu mức đỉnh ... 16
2.3. Diễn tả và quản lý dữ liệu. ... 28
2.4. Thiết kế các bảng dữ liệu ... 30
2.5. Sơ đồ thực thể liên kết ... 34
... 34
CHƯƠNG 3: TỔNG QUAN VỀ NGÔN NGỮ LẬP TRÌNH ... 35
3.1. Tổng quan về Microsoft .NET ... 35
3.1.1.Định nghĩa .NET ... 35
3.1.2. Tác động của .NET đối với chuyên gia CNTT ... 36
3.1.2.Tác động của .NET đối với con người. ... 37
3.1.3.Cơ sở hạ tầng .NET. ... 37
3.2. Các công cụ phát triển. ... 39