Lời cảm ơn Chúng xin bày tỏ lòng biết ơn chân thành sâu sắc tới thày giáo hớng dẫn Hồ Văn Hơng giúp đỡ dẫn tận tình cho việc hình thành đồ án, hớng dẫn triển khai đề tài, cách sử dụng tài liệu hệ thống hóa kiến thức tổng kết kết nghiên cứu cách có hệ thống khoa học Tôi xin chân thành cảm ơn Đảng uỷ, lãnh đạo, phòng ban, CBCC Chi cục Dự trữ Sóc Sơn giúp đỡ trình tìm hiểu Chi cục Chúng xin cảm ơn thầy cô khoa Công Nghệ Thông Tin_Viện Đào Tạo Công Nghệ Và Quản Lí Quốc Tế nhiệt tình giúp đỡ dạy dỗ thời gian học tập trờng Tôi cảm ơn chân thành nhiệt tình giúp đỡ ý kiến đóng góp quí báu bạn lớp Thơng Mại Điện Tử Cuối xin chân thành cảm ơn tất bạn giúp đỡ hoàn thành tốt đồ án Trang đặt vấn đề - Ngày tin học ngành khoa học đợc phát triển ứng dụng rộng rãi tích cực vào hoạt động xã hội, ứng dụng vào lĩnh vực quản lý cần thiết - Quản lý nhân lĩnh vực đòi hỏi xử lý nhanh thông tin cần thiết, giải công việc đồ sộ thời gian ngắn nhất, ứng dụng tin học vào quản lý công việc phù hợp với yêu cầu thực tế - Xã hội ngày phát triển toán phát sinh ngày phức tạp Nhất toán quản lý, thống kê, kế toán ngôn ngữ có nh Excel, Foxpro có phần cha đáp ứng đợc hết yêu cầu VISUAL BASIC hệ quản trị CSDL chạy môi trờng WINDOWS Trong có đủ công cụ hữu hiệu tiện lợi để tự động xây dựng chơng trình cho hầu hết toán thờng gặp quản lý, thống kê, kế toán Để giải toán cần phải dựa vào ngôn ngữ lập trình đủ mạnh Trong điều kiện nớc ta VISUAL BASIC ngôn ngữ đủ hiệu thông dụng cho việc xây dựng chơng trình nói Trên sở phân tích kết hợp với nhu cầu, từ thực tế nay, đồ án tốt nghiệp giải vấn đề: Xây dựng chơng trình quản lý nhân chi cục Dự trữ Sóc Sơn dựa ngôn ngữ VISUAL BASIC Trang Chơng I khảo sát hệ thống I Hệ thống tổ chức cán hoạt động quan Chi cục Dự trữ Sóc Sơn quan trung ơng đóng địa phơng, có nhiệm vụ dự trữ mặt hàng chiến lợc đợc xuất bán có yêu cầu Chính phủ Sơ đồ hệ thống tổ chức & quản lý nhân chi cục Dự trữ Sóc Sơn Giám đốc P giám đốc P giám đốc Phòng tổ chức cán Phòng kế hoạch Phòng biên tập Phòng kế toán tài Phòng kỹ thuật vi Phòng tra tinh ban có mối quan hệ liên hệ phụ thuộc lẫn bảo vệ đ- Các phòng nhau, ợc chuyên môn hóa, đợc giao trách nhiệm, quyền hạn định, đợc bố trí theo cấp tham mu cho lãnh đạo lĩnh vực mà quản lý Nhiệm vụ quyền hạn lãnh đạo phòng ban Chi cục Dự trữ Sóc Sơn: * Ban giám đốc - Trong Ban giám đốc Chi cục Dự trữ Sóc Sơn có ngời: Giám đốc Phó giám đốc Trang * Giám đốc Là ngời lãnh đạo cao nhất, có quyền định hoạt động Chi cục chịu hoàn toàn trách nhiệm với nhà nớc * Phó giám đốc Là ngời chịu trách nhiệm thi hành công việc đợc giao, thay giám đốc định công việc quan giám đốc vắng Tại Chi cục Dự trữ có phó Giám đốc đợc phân công nh sau: - Phó giám đốc kinh tế Phụ trách mặt kinh tế cho toàn Chi cục, thay giám đốc ký kết hợp đồng kinh tế, văn pháp qui mặt kinh tế cho toàn Chi cục - Phó giám đốc kỹ thuật Phụ trách mặt kỹ thuật thay giám đốc giải công việc mà đợc phân công phụ trách - Phòng kế hoạch Tham mu cho giám đốc việc tổng hợp lập kế hoạch hàng tháng, hàng quí hàng năm, kết hợp phận khác nắm bắt tình hình, nhu cầu khách hàng để xây dựng lập kế hoạch, đồng thời tổ chức việc thực kiểm tra, hớng dẫn đơn vị trực thuộc thực kế hoạch đề Ngoài phòng kế hoạch soạn thảo văn bản, thảo hợp đồng kinh tế lĩnh vực mà phụ trách - Phòng kế toán tài Có chức giúp giám đốc quản lý mặt tài chính, thực công tác kế toán thống kê theo qui định hệ thống kế toán tài chính, qui định pháp luật phù hợp với kế hoạch Cục Dự trữ Quốc gia giao cho Phòng có nhiệm vụ ghi chép, phản ánh nghiệp vụ kinh tế xảy hàng ngày, tiến hành kiểm tra tình hình thu chi ngân sách, quản lý loại vật t tiền vốn, từ cung cấp thông tin cần thiết cho công việc điều hành giám đốc, tiến hành kiểm tra phân tích hoạt động kinh tế tài phục vụ cho công tác lập theo dõi thực kế hoạch Phòng có quyền hạn việc hớng dẫn, kiểm tra, giám sát hoạt động mặt tài toàn Chi cục Trang - Phòng hành Giúp giám đốc quản lý bảo vệ sở vật chất phục vụ cho hoạt động toàn chi cục, phòng có nhiệm vụ tiếp nhận chuyển công văn, giải chế độ cho CBCC, tổ chức công tác thờng trực bảo vệ an toàn cho Chi cục - Phòng máy tính: Phòng có nhiệm vụ lập kế hoạch thiết kế vấn đề quan cách áp dụng CNTT tất lĩnh vực: in ấn, vẽ, phác thảo, công văn, gửi Fax - Phòng biên tập: Có chức giúp giám đốc lĩnh vực biên tập lai vấn đề liên quan đến nghiệp vụ in ấn, việc chỉnh sửa nội dung có trí tác giả, bỏ sung sửa đổi theo yêu cầu Chi cục đề - Bộ phận nhân sự, lao động tiền lơng Có nhiệm vụ quản lý lao động, ký kết hợp lao động, thực đắn chế độ, sách Nhà nớc theo dõi tiền lơng, tiền thởng, phân phối thu nhập, chăm lo cải thiện, tạo công ăn việc làm cho ngời lao động, tham mu cho giám đốc tổ chức nhân cho toàn Chi cục, có quyền đề xuất phơng án đảm bảo an toàn lao động chế độ bảo hiểm xã hội, lập kế hoạch mua sắm trang thiết bị văn phòng, văn phòng phẩm phục vụ cho công tác chuyên môn nghiệp vụ cho toàn Chi cục - Cách tính lơng Chi cục Dự trữ Sóc Sơn Lơng đợc tính dựa theo lơng CBCC là: 210.000đ x hệ số lơng, tuỳ theo hệ số lơng ngời khác có mức lơng khác nhau, công thức tính mức lơng CBCC : Mức lơng = 210.000đ x hệ số Ngoài mức lơng bản, CBCC đợc hởng nhiều mức phụ cấp hệ số khác nh: Phụ cấp chức vụ, phụ cấp thâm niên, phụ cấp trách nhiệm nhng có khoản bắt buộc phải nộp nh: 5% BHXH, 1% BHYT Trên toàn khung cảnh mô hình, cấu tổ chức máy quản lý nhân sự, cách tính lơng Chi cục Dự trữ Sóc Sơn Trang II Cách thức tổ chức lu trữ thông tin Qua nghiên cứu hệ thống lu trữ hồ sơ cán quan, thấy vào thời điểm này, Chi cục Dự trữ bắt đầu triển khai đề án áp dụng công nghệ thông tin vào công tác quản lý nhân nh mua sắm máy tính, cử cán đào tạo tin học, nhng toàn hồ sơ CBCC đợc lu trữ túi riêng gọi túi hồ sơ cá nhân đợc xếp theo trật tự định Thông tin đợc lu trữ hồ sơ Hồ sơ cán đợc lu trữ túi riêng gọi túi hồ sơ cá nhân, túi hồ sơ gồm có: Bản lý lịch cán bộ, QĐ nâng lơng, QĐ khen thởng, tự đánh giá phân loại hàng năm 1.1 Những thông tin lu trữ lý lịch cán Trong tài liệu lu trữ hồ sơ cá nhân, thông tin thân CBCC đợc phản ánh lý lịch cán bộ, gồm có thông tin sau : - Họ tên khai sinh - Tên thờng gọi - Ngày tháng năm sinh - Giới tính - Nơi sinh - Quê quán - Dân tộc - Nghề nghiệp - Trình độ học vấn Trang - Ngày tham gia c/m - Ngày nhập ngũ - Ngày xuất ngũ - Đơn vị tuyển dụng - Ngày vào Đảng - Chức vụ - Bậc lơng - Tình hình sức khoẻ - Lịch sử thân - Khen thởng - Kỷ luật - Quan hệ XH - Ngời cam đoan - Xác nhận (của thủ trởng đơn vị quyền địa phơng) Nh lý lịch cán bảng liệu gốc phản ánh đầy đủ, chi tiết thông tin thân cán công chức, thông thờng lý lịch gốc phải có hồ sơ từ ngời đợc tuyển dụng đợc lu trữ, chuyển công tác toàn hồ sơ chuyển đến đơn vị Ngoài thời kỳ Cục Dự trữ Quốc Gia có chủ trơng lớn vấn đề nhân cán công chức ngành phải kê khai lý lịch thân theo số mẫu định 1.2 Các bảng biểu thống kê báo cáo Khi có yêu cầu lãnh đạo, quan quản lý nhân cấp Phòng tổ chức cán phải làm báo cáo thống kê nhân nh : Tình hình quân số quan đến thời điểm đó, danh sách CB phòng ban, danh sách Trang cán đợc bổ nhiệm, đề bạt nhìn chung bảng biểu báo cáo thống kê đợc qui định từ trớc, nhiên làm báo cáo cán làm công tác tổ chức phải tìm kiếm thông tin từ tập hồ sơ cá nhân theo phơng pháp thủ công Vì nên nhiều thời gian Xin nêu số biểu mẫu sau: * Danh sách CBCC năm 2003 Danh sách CBCC đợc thể đợc số đơn vị mình, thông tin cụ thể cá nhân CB : - Số lợng cán - Độ tuổi - Giới tính - Quê quán - Nơi thờng trú - Trình độ - Chức vụ - Chức danh - Ghi Mẫu biểu : phải đảm bảo thông tin - Số công văn - Trích yếu nội dung (Danh sách cán bộ) - Chủ thể (Ký hiệu đơn vị) - Thời điểm lập biểu - Đơn vị lập biểu (Phòng TCCB) Ghi : Vì nguyên tắc quan nên số liệu biểu thực Trang Cục Dự trữ quốc gia Cộng hoà Xã hội chủ nghĩa việt nam Chi cục dự trữ Sóc Sơn Độc Lập - Tự - Hạnh phúc Số : 135/TCCB danh sách cán công chức năm 2004 ST T Họ tên Năm sinh Quê quán Lê Văn Thinh Nguyễn ĐìnhThu Trần Đức Tiến Lê Sĩ Thành 1944 Bắc Quang Hà Nội 1960 Hà Nội 1960 Tuyên Quang Tuyên Quang Vi Xuyen Vũ Tuấn Anh Trịnh Xuân Bách Lê Văn Phú 1972 Quản Bạ Hà Nội 1970 Đồng văn Hà Nội 1969 Bắc Mê Hà Nội Phạm Trần Vũ Nguyễn Hữu Lợi Do Thu Trang Lê Thi Mai 1970 Xi Mần Hà Nội 1968 Hung An Hà Nội 1961 Yên Minh Hà Nội 1977 Su Phi Hà Nội Mai Đình Huy Trần Tú Nam Lê Văn 1978 Băc Quang Hà Nội 1974 HảI Dơng Hà Nội 1978 Phú Thọ Hà Nội 10 11 12 13 14 1962 Nơi thờng trú Hà Nội Hà Nội Gi Chức Trìn Chứ ới vụ h c tín độ dan h h Na Giámđ ĐH L m ốc Đạo Na P.G ĐH L.Đạ m đốc o Na P.G ĐH L.Đạ m đốc o Na TP ĐH C.viê m n Na TP ĐH C.viê m n Na TP ĐH C.viê m n Na TP ĐH C.viê m n Na TP ĐH C.viê m n Na CB CĐ C.sự m Na CB CĐ C.sự m Nữ CB ĐH C.viê n Na CB CĐ C.sự m Na CB ĐH C.viê m n Na CB CĐ C.sự Trang 15 16 17 Định Nguyễn Thị Cúc Lê Thị Lan Lê Đức Thọ 1976 Vi Xuyên Hà Nội 1979 1976 Mèo Vạc Bắc quang Hà Nội Hà Nội Thủ trởng đơn vị TP tổ chức m Nữ CB ĐH Nữ CB CĐ Na CB ĐH m Ngày tháng năm 2003 Lập biểu * Danh sách đề nghị xét nâng lơng Xét nâng lơng việc làm thờng xuyên hàng năm, nhằm đảm bảo chế độ sách cho cán chức vụ hệ số lơng đợc hởng theo tiêu chuẩn xét duyệt, hoàn thành nhiệm vụ phải vào trình độ đào tạo, chức vụ hệ số lơng đợc hởng theo quy định Vì biểu mẫu phải có cột sau: - Số lợng cán đợc xét duyệt - Họ tên - Năm sinh - Trình độ đào tạo - Chức vụ - Hệ số lơng hởng - Khen thởng, kỷ luật - Đề nghị xét nâng lơng năm 2003 * Mã số biểu mẫu phải thể đợc thông tin sau: - Số công văn - Thời gian thực - Đơn vị lập biểu * Vì nguyên tắc quan nên số biểu không thực tế Trang 10 C.viê n C.sự C.viê n Txthovaten.Enabled = False TxtNgaysinh.Enabled = False ChkGioitinh.Enabled = False Txtnoisinh.Enabled = False TxtQue.Enabled = False TxtNoithuongtru.Enabled = False TxtDiachi.Enabled = False TxtSDT.Enabled = False CboDantoc.Enabled = False CboHocvan.Enabled = False TxtTongiao.Enabled = False TxtSoCMND.Enabled = False TxtNgaycap.Enabled = False TxtNoicap.Enabled = False TxtThanhphangd.Enabled = False CboChinhtri.Enabled = False CboNgoaingu.Enabled = False TxtNgayvaonganh.Enabled = False TxtNgayvaodang.Enabled = False CboPhong.Enabled = False CboChucvu.Enabled = False CboChucvuht.Enabled = False TxtBacluong.Enabled = False TxtKhenthuong.Enabled = False TxtKyluat.Enabled = False 'CboDonvi.Enabled = False TxtNamnghihuu.Enabled = False nut = MDIHethong.StatusBar1.Panels(2).Text = "Xoá liệu" Txtmahoso.SetFocus End Sub Private Sub DBGrid1_Click() On Error GoTo loi Txtmahoso.Text = Data1.Recordset.Fields(0).Value Txthovaten.Text = Data1.Recordset.Fields(1).Value TxtNgaysinh.Value = Data1.Recordset.Fields(2).Value ChkGioitinh.Value = Data1.Recordset.Fields(3).Value Txtnoisinh.Text = Data1.Recordset.Fields(4).Value TxtQue.Text = Data1.Recordset.Fields(5).Value Trang 70 TxtNoithuongtru.Text = Data1.Recordset.Fields(6).Value TxtDiachi.Text = Data1.Recordset.Fields(7).Value TxtSDT.Text = Data1.Recordset.Fields(8).Value CboDantoc.Text = Data1.Recordset.Fields(9).Value CboHocvan.Text = Data1.Recordset.Fields(10).Value TxtTongiao.Text = Data1.Recordset.Fields(11).Value TxtSoCMND.Text = Data1.Recordset.Fields(12).Value TxtNgaycap.Value = Data1.Recordset.Fields(13).Value TxtNoicap.Text = Data1.Recordset.Fields(14).Value TxtThanhphangd.Text = Data1.Recordset.Fields(15).Value CboChinhtri.Text = Data1.Recordset.Fields(16).Value CboNgoaingu.Text = Data1.Recordset.Fields(17).Value TxtNgayvaonganh.Text = Data1.Recordset.Fields(18).Value If Not IsNull(Data1.Recordset.Fields(19).Value) Then TxtNgayvaodang.Text = Data1.Recordset.Fields(19).Value Else TxtNgayvaodang.Text = " / / " End If CboPhong.Text = Data1.Recordset.Fields(20).Value CboChucvu.Text = Data1.Recordset.Fields(21).Value CboChucvuht.Text = Data1.Recordset.Fields(22).Value TxtBacluong.Text = Val(Data1.Recordset.Fields(23).Value) TxtKhenthuong.Text = Data1.Recordset.Fields(24).Value TxtKyluat.Text = Data1.Recordset.Fields(25).Value 'CboDonvi.Text = Data1.Recordset.Fields(26).Value TxtNamnghihuu.Value = Data1.Recordset.Fields(26).Value loi: End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & "\nhansu.mdb" Data1.RecordSource = "qhoso" Data1.Refresh Call Capnhat Adochinhtri.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" Adochinhtri.RecordSource = "select * from qchinhtri" Adochinhtri.Refresh Trang 71 AdoChucvu.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoChucvu.RecordSource = "select * from qchucvu" AdoChucvu.Refresh AdoDantoc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoDantoc.RecordSource = "select * from qdantoc" AdoDantoc.Refresh AdoDonvi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoDonvi.RecordSource = "Select * from QDonvi" AdoDonvi.Refresh AdoHocvan.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoHocvan.RecordSource = "Select * from qhocvan" AdoHocvan.Refresh AdoNgoaingu.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoNgoaingu.RecordSource = "select * from qngoaingu" AdoNgoaingu.Refresh AdoPhong.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoPhong.RecordSource = "select * from qphong" AdoPhong.Refresh End Sub Private Sub Form_Unload(Cancel As Integer) MDIHethong.StatusBar1.Panels(2).Text = "" Trang 72 End Sub Private Sub TxtBacluong_GotFocus() TxtBacluong.SelStart = TxtBacluong.SelLength = Len(TxtBacluong.Text) End Sub Private Sub TxtDiachi_GotFocus() TxtDiachi.SelStart = TxtDiachi.SelLength = Len(TxtDiachi.Text) End Sub Private Sub TxtKhenthuong_GotFocus() TxtKhenthuong.SelStart = TxtKhenthuong.SelLength = Len(TxtKhenthuong.Text) End Sub Private Sub TxtKyluat_GotFocus() TxtKyluat.SelStart = TxtKyluat.SelLength = Len(TxtKyluat.Text) End Sub Private Sub TxtNamnghihuu_GotFocus() TxtNamnghihuu.SelStart = TxtNamnghihuu.SelLength = Len(TxtNamnghihuu.Text) End Sub Private Sub TxtNgaycap_GotFocus() TxtNgaycap.SelStart = TxtNgaycap.SelLength = Len(TxtNgaycap.Text) End Sub Private Sub TxtNgaysinh_GotFocus() TxtNgaysinh.SelStart = TxtNgaysinh.SelLength = Len(TxtNgaysinh.Text) End Sub Private Sub Txthovaten_GotFocus() Txthovaten.SelStart = Txthovaten.SelLength = Len(Txthovaten.Text) Trang 73 End Sub Private Sub Txtmahoso_GotFocus() Txtmahoso.SelStart = Txtmahoso.SelLength = Len(Txtmahoso.Text) End Sub Private Sub TxtNgayvaodang_GotFocus() TxtNgayvaodang.SelStart = TxtNgayvaodang.SelLength = Len(TxtNgayvaodang.Text) End Sub Private Sub TxtNgayvaonganh_GotFocus() TxtNgayvaonganh.SelStart = TxtNgayvaonganh.SelLength = Len(TxtNgayvaonganh.Text) End Sub Private Sub TxtNoicap_GotFocus() TxtNoicap.SelStart = TxtNoicap.SelLength = Len(TxtNoicap.Text) End Sub Private Sub Txtnoisinh_GotFocus() Txtnoisinh.SelStart = Txtnoisinh.SelLength = Len(Txtnoisinh.Text) End Sub Private Sub TxtNoithuongtru_GotFocus() TxtNoithuongtru.SelStart = TxtNoithuongtru.SelLength = Len(TxtNoithuongtru.Text) End Sub Private Sub TxtQue_GotFocus() TxtQue.SelStart = TxtQue.SelLength = Len(TxtQue.Text) End Sub Private Sub TxtSDT_GotFocus() TxtSDT.SelStart = TxtSDT.SelLength = Len(TxtSDT.Text) Trang 74 End Sub Private Sub TxtSoCMND_GotFocus() TxtSoCMND.SelStart = TxtSoCMND.SelLength = Len(TxtSoCMND.Text) End Sub Private Sub TxtThanhphangd_GotFocus() TxtThanhphangd.SelStart = TxtThanhphangd.SelLength = Len(TxtThanhphangd.Text) End Sub Private Sub TxtTongiao_GotFocus() TxtTongiao.SelStart = TxtTongiao.SelLength = Len(TxtTongiao.Text) End Sub Sub Capnhat() On Error GoTo loi Txtmahoso.Text = Data1.Recordset.Fields(0).Value Txthovaten.Text = Data1.Recordset.Fields(1).Value TxtNgaysinh.Value = Data1.Recordset.Fields(2).Value ChkGioitinh.Value = Data1.Recordset.Fields(3).Value Txtnoisinh.Text = Data1.Recordset.Fields(4).Value TxtQue.Text = Data1.Recordset.Fields(5).Value TxtNoithuongtru.Text = Data1.Recordset.Fields(6).Value TxtDiachi.Text = Data1.Recordset.Fields(7).Value TxtSDT.Text = Data1.Recordset.Fields(8).Value CboDantoc.Text = Data1.Recordset.Fields(9).Value CboDantoc.Refresh CboHocvan.Text = Data1.Recordset.Fields(10).Value TxtTongiao.Text = Data1.Recordset.Fields(11).Value TxtSoCMND.Text = Data1.Recordset.Fields(12).Value TxtNgaycap.Value = Data1.Recordset.Fields(13).Value TxtNoicap.Text = Data1.Recordset.Fields(14).Value TxtThanhphangd.Text = Data1.Recordset.Fields(15).Value CboChinhtri.Text = Data1.Recordset.Fields(16).Value CboNgoaingu.Text = Data1.Recordset.Fields(17).Value TxtNgayvaonganh.Text = Data1.Recordset.Fields(18).Value If Not IsNull(Data1.Recordset.Fields(19).Value) Then Trang 75 TxtNgayvaodang.Text = Data1.Recordset.Fields(19).Value Else TxtNgayvaodang.Text = " / / " End If CboPhong.Text = Data1.Recordset.Fields(20).Value CboChucvu.Text = Data1.Recordset.Fields(21).Value CboChucvuht.Text = Data1.Recordset.Fields(22).Value TxtBacluong.Text = Val(Data1.Recordset.Fields(23).Value) TxtKhenthuong.Text = Data1.Recordset.Fields(24).Value TxtKyluat.Text = Data1.Recordset.Fields(25).Value TxtNamnghihuu.Value = Data1.Recordset.Fields(26).Value loi: End Sub Option Explicit Dim nut As Integer Private Sub CmdCapnhat_Click() Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path & "\nhansu.mdb") Set rs = db.OpenRecordset("hocvan") Select Case nut Case 1: On Error GoTo loi1 rs.AddNew rs.Fields(0).Value = UCase(Txtmahocvan.Text) rs.Fields(1).Value = Txthocvan.Text rs.Fields(2).Value = Txtghichu.Text rs.Update Data1.Refresh Data1.Recordset.MoveLast Call Capnhat Exit Sub loi1: MsgBox "Dữa liệu bạn nhập vào bị sai", vbOKOnly + vbCritical, "Kiểm tra" Trang 76 Case 2: On Error GoTo loi2 rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value = Txtmahocvan.Text Then rs.Delete End If rs.MoveNext Loop Data1.Refresh Call Capnhat Exit Sub loi2: MsgBox "Dữa liệu bạn nhập vào bị sai", vbOKOnly + vbCritical, "Kiểm tra" Case 3: On Error GoTo loi3 rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value = Txtmahocvan.Text Then rs.Edit rs.Fields(1).Value = Txthocvan.Text rs.Fields(2).Value = Txtghichu.Text rs.Update End If rs.MoveNext Loop Data1.Refresh Call Capnhat Exit Sub loi3: MsgBox "Dữa liệu bạn nhập vào bị sai", vbOKOnly + vbCritical, "Kiểm tra" Case Else MsgBox "Bạn cha chọn trạng thái hoạt động", vbOKOnly + vbCritical, "Kiểm tra" End Select End Sub Private Sub CmdDuyet_Click(Index As Integer) Trang 77 Select Case Index Case Data1.Recordset.MoveFirst Case Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End If Case Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If Case Data1.Recordset.MoveLast End Select Call Capnhat End Sub Private Sub CmdSua_Click() Txtmahocvan.Enabled = True Txthocvan.Enabled = True Txtghichu.Enabled = True nut = MDIHethong.StatusBar1.Panels(2).Text = "Sửa liệu" End Sub Private Sub CmdThem_Click() Txtmahocvan.Enabled = True Txthocvan.Enabled = True Txtghichu.Enabled = True nut = MDIHethong.StatusBar1.Panels(2).Text = "Thêm liệu" End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdThoat_LostFocus() Trang 78 Txtmahocvan.SetFocus End Sub Private Sub CmdXoa_Click() Txtmahocvan.Enabled = True Txthocvan.Enabled = False Txtghichu.Enabled = False nut = MDIHethong.StatusBar1.Panels(2).Text = "Xoá liệu" End Sub Private Sub DBGrid1_Click() On Error GoTo loi Txtmahocvan.Text = Data1.Recordset.Fields(0).Value Txthocvan.Text = Data1.Recordset.Fields(1).Value Txtghichu.Text = Data1.Recordset.Fields(2).Value loi: End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & "\nhansu.mdb" Data1.RecordSource = "qhocvan" Data1.Refresh Call Capnhat DBGrid1.Columns(1).Width = 2000 DBGrid1.Columns(2).Width = 3000 End Sub Private Sub Form_Unload(Cancel As Integer) MDIHethong.StatusBar1.Panels(2).Text = "" End Sub Private Sub Txthocvan_GotFocus() Txthocvan.SelStart = Txthocvan.SelLength = Len(Txthocvan.Text) End Sub Private Sub Txtghichu_GotFocus() Txtghichu.SelStart = Txtghichu.SelLength = Len(Txtghichu.Text) Trang 79 End Sub Private Sub Txtmahocvan_GotFocus() Txtmahocvan.SelStart = Txtmahocvan.SelLength = Len(Txtmahocvan.Text) End Sub Sub Capnhat() On Error GoTo loi Txtmahocvan.Text = Data1.Recordset.Fields(0).Value Txthocvan.Text = Data1.Recordset.Fields(1).Value Txtghichu.Text = Data1.Recordset.Fields(2).Value loi: End Sub Trang 80 TàI liệu tham khảo Microsof ViSual BaSic 6.0 & Lập trình sở liệu -Nguyễn Thị Ngọc Mai - Nhà xuất giáo dục Cơ sở liệu kiến thức thực hành-Vũ Đức Thi - NXB thống kê Phân tích thiết kế hệ thống tin học - Nhà xuất giao thông vận tải Trang 81 Kết luận Mục đích đồ án tin học hoá việc quản lý nhân Chi cục Dự trữ Sóc Sơn, thực tự động hoá số công việc thủ công Khi đa chơng trình vào ứng dụng phần thao tác ngời sử dụng đơn giản số liệu thông tin gốc đối tợng cần quản lý Hệ thống tự động hoá xử lý theo yêu cầu, hệ thống cho phép in báo cáo, danh sách thống kê, đảm bảo cung cấp thông tin xác, kịp thời trung thực phục vụ cho công tác quản lý đạo Là đề tài nghiên cứu có ứng dụng thực tế, kinh nghiệm nghiên cứu chuyên môn cha nhiều, thời gian ngắn vừa nghiên cứu, vừa viết chơng trình, chơng trình không tránh khỏi mặt hạn chế thiếu xót Xin kính mong đợc bảo góp ý giúp hoàn thành đồ án Một lần xin chân thành cảm ơn thày giáo Hồ Văn Hơng, cảm ơn thầy, cô hớng dẫn trực tiếp hoàn thành đồ án này, xin chân thành cảm ơn thầy giáo phản biện thầy cô, bạn bè đồng nghiệp giúp đỡ hoàn thành đồ án này./ Trang 82 Mục lục Tên mục trang *lời cảm ơn *đặt vấn đề chơng I :khảo sát hệ thống tạI +Hệ thống tổ chức cán hoạt đọng quan +Cách thức tổ chức lu trữ thông tinhiện +Danh sách cán công chức năm 2003 +Danh sách cán nâng lơng năm 2003 +Danh sách đảng viên năm 2003 +Danh sách theo trình độ nhân viên chơng II : tin ứng dụng tin học quản lý +Một số khái niệm quản lý ứng dụng tin học công tác quản lý +Giới thiệu mic rosoft access +Ngôn ngữ vi sua basic 6.0 +Mối liên hệ access visual basic chơng III : thiết kế sở liệu +Thông tin vào hệ thống +Thiết kế sở liệu cho hệ thống quản lý cán chơng IV : phân tích thiết kế hệ thống +Mục đích +Sơ đồ chức hệ thống quản lý cán +Sơ đồ luồng liệu chơng v : form code chơng trình Trang 83 +Một số form chơng trình +Một số code chơng trình *tàI liệu tham khảo *kếtluận *mục lục *nhần xét giáo viên Trang 84