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() [...]... Col_List.SubItems.Add(myread.Item("GhiChu").ToString) Col_List.SubItems.Add(myread.Item("ChuHoID").ToString) ListViewchitietcutru.Items.Add(Col_List) Loop myread.Close() LcCn.Close() End Sub 4.3 Các modul chính của chương trình 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... 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 Public Sub Load_Treeview(ByVal tv As TreeView) DataConnect.McTen_CSDL = “HoTam” DataConnect.McTen_May... = rowKpho("KhuPho") 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... myreport.Load("E:\HOTAM\QLNK12\Reports\tttvCrystalReport.rpt") myreport.SetDataSource(ds) Me.PhieutttvCrystalReportViewer1.ReportSource = myreport End Sub End Class 4.4 Giao diện chính và cách sử dụng chương trình 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.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 4.4.3.2 Chức năng quản lý hồ sơ nhân . : 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. 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