Xây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng Ninh

Xây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng NinhXây dựng chương trình quản lý điểm tuyển sinh CĐ Nông Lâm Quảng Ninh

LỜI CẢM ƠN Em xin trân thành cảm ơn thầy Phạm Đức Long tận tình giúp đỡ, hướng dẫn cung cấp tài liệu liên quan tới đồ án Em xin trân thành cảm ơn khoa công nghệ thông tin, đại học Thái Nguyên tạo điều kiện thuận lợi cho chúng em học tập Em xin trân thành cảm ơn thầy cô khoa tận tình giảng dạy, trang bị cho em kiến thức quý báu Cảm ơn bạn lớp HCĐH K4 Quảng Ninh, anh chị bạn bè đóng góp ý kiến xây dựng đồ án Sinh viên Phạm Thị Thanh Hà LỜI CAM ĐOAN Em xin cam đoan đồ án tốt nghiệp em khảo sát thực tế phân tích, thiết kế, xây dựng Đồ án không vi phạm quyền chương trình thuộc sinh viên tố chức khác MỤC LỤC LỜI NĨI ĐẦU CHƯƠNG I: KHẢO SÁT- MƠ TẢ BÀI TOÁN 1.1 Lý chọn đề tài……………………………………………………… 1.2 Yêu cầu toán……………………………………………………… CHƯƠNG II: GIỚI THIỆU CƠNG CỤ SỬ DỤNG 2.1 Lựa chọn cơng cụ xây dựng chương trình…………………………… 2.2 Hệ quản trị CSDL Microsoft Acceess………………………………… CHƯƠNG III: PHÂN TÍCH THIẾT KẾ HỆ THỐNG QUẢN LÝ ĐIỂM TUYỂN SINH 3.1 Thiết kế hệ thống……………………………………………………… 3.2 Thiết kế chương trình………………………………………………… 13 CHƯƠNG IV: CÀI ĐẶT CHƯƠNG TRÌNH 4.1 Biểu mẫu( Form)……………………………………………………… 20 4.2 Báo cáo( Report)……………………………………………………… 29 4.3 Macro…………………………………………………………………… 34 ĐÁNH GIÁ- KẾT LUẬN TÀI LIỆU THAM KHẢO LỜI NÓI ĐẦU Với phát triển mạnh mẽ Công nghệ thông tin vài thập kỷ gần đây, việc tin học hóa lĩnh vực góp phần thúc đẩy tiến xã hội Người ta áp dụng Công nghệ thông tin vào công tác quản lý, mang lại hiệu cao đặc biệt không gian thời gian xử lý, lưu trữ tiết kiệm linh hoạt Trong chương trình quản lý quản lý điểm tuyển sinh chương trình quan trọng có ích trường CĐ& ĐH toàn quốc Nhưng việc quản lý giấy tờ gây nhiều khó khăn cho người quản lý việc nhập tìm kiếm thơng tin thí sinh Dựa vào thực tế cần thiết người quản lý cần phải có chương trình hỗ trợ cho việc quản lý điểm tuyển sinh Chương trình đòi hỏi phải lưu trữ lâu dài, dễ sử dụng, không nhiều thời gian nghiên cứu, đặc biệt phải có tính bảo mật cao Chương trình quản lý điểm tuyển sinh khối A, B trường CĐ Nông Lâm Quảng Ninh đươc xuất phát từ thực tế khách quan yêu cầu tối thiểu chương trình quản lý mà em tìm hiểu, khảo sát từ nhiều trường khác Tuy chưa thực đầy đủ chương trình đáp ứng yêu cầu tối thiểu như: nhập, tìm kiếm, lưu trữ thơng tin… Chương trình với giao diện thân thiện, cách sử dụng dễ dàng, có hướng dẫn đầy đủ, cụ thể hi vọng giúp ích cho bạn Với hướng dẫn thầy Phạm Đức Long, em hoàn thành đồ án tốt nghiệp đề tài: quản lý điểm tuyển sinh trường CĐ Nơng Lâm Quảng Ninh Tuy có nhiều cố gắng chương trình chắn nhiều hạn chế, mong q thầy bạn đóng góp ý kiến để chương trình ngày hồn thiện Em xin chân thành cảm ơn thầy: Phạm Đức Long giúp đỡ em hoàn thành đề tài CHƯƠNG I: KHẢO SÁT- MƠ TẢ BÀI TỐN 1.1 Lý chọn đề tài Do quản lý điểm tuyển sinh công việc quan trọng nên tất trường CĐ& ĐH nước dùng phần mềm tin học ứng dụng để quản lý Hệ thống quản lý điểm trường CĐ Nông Lâm Quảng Ninh hồn thiện Với trình độ kiến thức hiểu biết em thiết kế chương trình quản lý điểm tuyển sinh hai khối A, B Chương trình quản lý ngành khối A (Mơi Trường, Quản Lý Đất Đai, Địa Chính, Kế Tốn) ngành khối B (Thú Y, Chăn Nuôi, Trồng Trọt) 1.2 Yêu cầu toán Để đạt yêu cầu cần thiết toán quản lý điểm tuyển sinh cần thực bước sau: 1.2.1 Thiết kế sở liệu gồm bảng + DS khoi A (sbdA, ht, gt, ns, mh, mn, mut, mkv) + DS khoi B (sbdB, ht, gt, ns, mh, mn, mut, mkv) + BD_PhachA (sbdA, sp) + BD_PhachB (sbdB, sp) + Diem_Khoi A (spA, d1, d2, d3, diemt) + Diem_Khoi B (spB, d1, d2, d3, diemt) + Huyen (mh, th) + Nganh (mn, tn) + Uu Tien (mut, dt, dut) + Khu Vuc (mkv, tkv, dkv) + Tạo bảng tiêu bảng điểm chuẩn để chứa tiêu điểm chuẩn ngành 1.2.2 Xử lý thơng tin thí sinh dự thi + Viết hàm chuẩn họ tên để chuẩn hóa họ tên thí sinh + Viết hàm cắt họ, cắt tên, tạo Query xếp danh sách thí sinh theo thứ tự tăng dần họ tên, ngày sinh Make Table Query thành bảng trung gian + Viết hàm (thủ tục) đánh số báo danh bảng trung gian + Xóa thơng tin bảng nguồn, Add thơng tin bảng trung vào bảng nguồn 1.2.3 Đánh phách + Append số báo danh bảng DS Khoi A, DS Khoi B vào bảng BD_PhachA, BD_PhachB Viết hàm đánh số phách theo SBD + Append số phách bảng BD_PhachA, BD_PhachB vào bảng Diem_KhoiA, Diem_KhoiB 1.2.4 Xử lí điểm + Tao Query Tong Hop Khoi A, Tong Hop Khoi B Make Table  DS A, DS B + Tao Query Tong Hop tương ứng ngành + Tìm điểm chuẩn: Sắp xếp bảng DS A, DS B theo thứ tự giảm dần tổng điểm Viết hàm tìm điểm chuẩn biến truyền vào ngành Dùng biến đếm duyệt từ đầu đến cuối danh sách Kiểm tra mã ngành= ngành tăng biến đếm đếm= tiêu ngành dừng lại Điểm thí sinh thời điểm điểm chuẩn ngành cần tìm + Lọc đỗ trượt lần 1: Dựa vào điểm chuẩn lọc thí sinh đỗ ngành Sau lần lọc ta bảng: bảng chứa ds thí sinh trượt khối A, B bảng chứa ds thí sinh đỗ ngành + Lọc đỗ trượt lần 2: Tạo Checkbox Nếu muốn hạ điểm ngành huyện chon Check Sau nhập điểm hạ làm phần lọc đỗ trượt để lọc thí sinh đỗ trượt lần + Liên kết bảng đỗ hai lần ta danh sách thí sinh đỗ trượt khối A, B 1.2.5 Chiết xuất thông tin + Dựa vào yêu cầu tốn quản lí điểm để thiết kế Query, Form Report tương ứng + Cách làm cụ thể mời quý thầy cô bạn xem phần thiết kế xây dựng chương trình CHƯƠNG II: GIỚI THIỆU CƠNG CỤ SỬ DỤNG 2.1 Lựa chọn cơng cụ xây dựng chương trình Đề tài “Quản lý điểm tuyển sinh” xây dựng hệ quản trị sở liệu Microsoft Access 2.2 Hệ quản trị sở liệu Microsoft Access Microsoft Access hệ quản trị sở liệu mơi trường Windown có sẵn công cụ hữu hiệu tiện lợi để tự động sinh chương trình cho hầu hết toán quản lý, thống kê… Với Microsoft Access người dùng viết câu lệnh cụ thể nhiều mà cần tổ chức liệu thiết kế yêu cầu giải công việc Công cụ mạnh mẽ Microsoft Access cung cấp tương tác sở liệu bảng truy vấn, thực truy vấn tập hợp kết truy vấn lên hình Phần mềm Microsoft Access kết hợp với cơng cụ có sẵn làm cho chương trình mềm dẻo hồn tồn thiết kế, cài đặt sở liệu cho tốn, giúp ứng dụng thông qua hệ quản trị sở liệu Microsoft Access thành phần sử dụng việc sử lý sở liệu quan hệ Micosoft Access rõ ràng dễ sử dụng việc xử lý liệu kiểu cách hiệu Lợi ích sở liệu quan hệ chỗ cần lưu trữ liệu có liên quan đến Những thơng tin bổ sung cần thiết kiến tạo nhờ tính chất liên kết bảng liệu Trong chương trình quản lý điểm tuyển sinh quan tâm đến thông tin tổng hợp từ nhiều bảng khác nhau, muốn thông tin tổng hợp cần xác định mối quan hệ bảng liệu, thiết lập mối quan hệ Microsoft Access cung cấp cho người sử dụng cách thuận lợi, khơng cho phép liên kết trường hai bảng mà cho phép quy định khả tồn vẹn liệu Đó khả tự động cập nhập hay xóa thơng tin có liên quan sở liệu Nếu người dùng cập nhập thông tin mà vi phạm đến nguyên tắc tồn vẹn liệu Microsoft Access tự động điều chỉnh để ràng buộc tính tồn vẹn liệu không bị phá vỡ Giao diện Microsoft Access: Cũng tất phần mềm chạy giao diện Windown, Microsoft Access cung cấp cho người sử dùng môi trường đồ họa trực quan, giao diện đồ họa giúp người làm việc cách rõ ràng tạo tâm lý thân thiện với người sử dụng cách trình bày bố trí đẹp mắt, dễ hiểu, công cụ thiết kế thư viện Micosoft Access cho phép làm việc thuận tiện CHƯƠNG III: PHÂN TÍCH THIẾT KẾ HỆ THỐNG QUẢN LÝ ĐIỂM TUYỂN SINH 3.1 Thiết kế hệ thống 3.1.1 Biểu đồ phân cấp chức Quản lý điểm tuyển sinh trường CĐ Nông Lâm Quảng Ninh Nhập DL Nhập tt thí sinh Nhập tiêu Nhập điểm khối A Nhập điểm khối B Tìm điểm chuẩn Khai thác KT tt điểm chuẩn KT tt DS thí sinh đỗ KT tt DS thí sinh trượt KT tt DS thí sinh đỗ theo ngành Tìm Kiếm Thống kê Báo Cáo Hệ Thống TK điểm thi theo ngành Tkê thí sinh dự thi BC giấy báo dự thi HDSD chương trình TK thí sinh đỗ theo huyện Tkê DS thí sinh đỗtrượt BC thẻ dự thi Về Windows TK thí sinh đỗ theo ngành TK thí sinh đỗ theo ngành_ huyện Tkê biểu đồ thí sinh dự thi BC giấy báo điểm Thay đổi mật BC giấy báo nhập học 3.1.2 Biểu đồ luồng liệu mức đỉnh Hội đồng tuyển sinh Hệ thống Nhập DL Khai thác Mật Chỉ tiêu Tìm kiếm Điểm Danh sách Báo cáo Điểm Điểm chuẩn Thống kê Danh sách 3.1.3 Biểu đồ luồng liệu mức đỉnh  Chức nhập liệu Thí sinh DS khoi A Chỉ tiêu DS khoi B Nộp HS Giấy TB kquả Nhập tiêu Nhập tt thí sinh Hội đồng tuyển sinh Nhập điểm khối A Tính điểm chuẩn Điểm khoi A Điểm chuẩn Nhập điểm khối B Điểm khoi B 10 Mã nguồn chương trình Mã nguồn giải công việc ngành, khối tương tự nên nêu mã lệnh điển hình Option Compare Database Dim db As Database Dim rs As Recordset, rd As Recordset Dim diemha# Dim diemdt1#, diemdt2#, diemdt3#, diemdt4# Dim diemub1#, diemub2#, diemub3#, diemub4# Dim diemyh1#, diemyh2#, diemyh3#, diemyh4# Dim diemhl1#, diemhl2#, diemhl3#, diemhl4# Dim diemhb1#, diemhb2#, diemhb3#, diemhb4# Dim diemcp1#, diemcp2#, diemcp3#, diemcp4# Dim diemvd1#, diemvd2#, diemvd3#, diemvd4# Dim diemty1#, diemty2#, diemty3#, diemty4# Dim diembc1#, diembc2#, diembc3#, diembc4# Dim diembl1#, diembl2#, diembl3#, diembl4# Dim diemdh1#, diemdh2#, diemdh3#, diemdh4# Dim diemhh1#, diemhh2#, diemhh3#, diemhh4# Dim diemmc1#, diemmc2#, diemmc3#, diemmc4# Tìm điểm chuẩn ngành 'diem chuan quan ly dat dai Set rs = db.OpenRecordset("Diem Chuan QLyDatDai") tim_diemchuan_qlydatdai cqld = diemchuan rs.Edit: rs(0) = cqld: rs.Update rs.Close diemqlydatdai = cqld diemha = cqld diemdt1 = cl1: diemdt2 = ck1: diemdt3 = ct1 diemub1 = cl2: diemub2 = ck2: diemub3 = ct2 diemyh1 = cl3: diemyh2 = ck3: diemyh3 = ct3 49 diemhl1 = cl4: diemhl2 = ck4: diemhl3 = ct4 diemhb1 = cl5: diemhb2 = ck5: diemhb3 = ct5 diemcp1 = cl6: diemcp2 = ck6: diemcp3 = ct6 diemvd1 = cl7: diemvd2 = ck7: diemvd3 = ct7 diemty1 = cl8: diemty2 = ck8: diemty3 = ct8 diembc1 = cl9: diembc2 = ck9: diembc3 = ct9 diembl1 = cl10: diembl2 = ck10: diembl3 = ct10 diemdh1 = cl11: diemdh2 = ck11: diemdh3 = ct11 diemhh1 = cl12: diemhh2 = ck12: diemhh3 = ct12 diemmc1 = cl13: diemmc2 = ck13: diemmc3 = ct13 Sub tim_diemchuan_qlydatdai() Dim db As Database, tb As TableDef, id As Index Dim rs As Recordset, rd As Recordset, fd As Field Dim chitieuhuyen, dem Set db = CurrentDb() Set tb = db.TableDefs("DS A") On Error Resume Next tb.Indexes.Delete "cs1" Set id = tb.CreateIndex("cs1") Set fd = id.CreateField("mn") id.Fields.Append fd Set fd = id.CreateField("TongDiem") fd.Attributes = dbDescending id.Fields.Append fd tb.Indexes.Append id Set rd = db.OpenRecordset("Chi Tieu_QLyDatDai") rd.MoveFirst chitieuhuyen = rd(0) rd.Close Set rs = db.OpenRecordset("DS A") rs.Index = "cs1" 50 dem = Do Until rs.EOF If rs("mn") = "A02" Then dem = dem + If dem = chitieuhuyen Then diemchuan = rs("TongDiem") Exit Sub End If rs.MoveNext Loop End Sub Sub tim_diemchuan_A(mahuyen As String, manganh As String, chitieu As String) Dim db As Database, tb As TableDef, id As Index Dim rs As Recordset, rd As Recordset, fd As Field Dim dem, chitieuhuyen Set db = CurrentDb() Set tb = db.TableDefs("DS A") On Error Resume Next tb.Indexes.Delete "cs1" Set id = tb.CreateIndex("cs1") Set fd = id.CreateField("TongDiem") fd.Attributes = dbDescending id.Fields.Append fd tb.Indexes.Append id Set rd = db.OpenRecordset(chitieu) Do While Not (rd.EOF) If rd(0) = mahuyen Then chitieuhuyen = rd(2) End If rd.MoveNext Loop 'Tim diem chuan 51 Set rs = db.OpenRecordset("DS A") rs.Index = "cs1" dem = Do Until rs.EOF If rs("mn") = manganh And rs("mh") = mahuyen Then dem = dem + If dem = chitieuhuyen Then diemchuan = rs("TongDiem") Exit Sub End If rs.MoveNext Loop End Sub Tìm danh sách thí sinh đỗ lần Sub DS_dolan1(tenb As String, mahuyen As String, manganh As String, chuan As Double) Dim db As DAO.Database, rs As DAO.Recordset, rd As DAO.Recordset Set db = CurrentDb() Set rd = db.OpenRecordset(tenb) Do Until rd.EOF rd.Delete rd.MoveNext Loop rd.Close Set rs = db.OpenRecordset("DS A") Set rd = db.OpenRecordset(tenb) Do Until rs.EOF If ((rs("tongdiem") >= chuan) And (rs("mh") = mahuyen) And (rs("mn") = manganh)) Then rd.AddNew rd("sbd") = rs("sbd"): rd("ht") = rs("ht") rd("dut") = rs("dut") rd("dkv") = rs("dkv"): rd("d1") = rs("d1") 52 rd("d2") = rs("d2"): rd("d3") = rs("d3") rd("diemt") = rs("diemt"): rd("tongdiem") = rs("tongdiem") rd.Update End If rs.MoveNext Loop rs.Close rd.Close DoCmd.OpenTable "DoLanI" End Sub Sub DS_dolan1qlydatdai(tenb As String, chuan As Double) Dim db As DAO.Database, rs As DAO.Recordset, rd As DAO.Recordset Set db = CurrentDb() Set rd = db.OpenRecordset(tenb) Do Until rd.EOF rd.Delete rd.MoveNext Loop rd.Close Set rs = db.OpenRecordset("DS A") Set rd = db.OpenRecordset(tenb) Do Until rs.EOF If rs("tongdiem") >= chuan And rs("mn") = "A02" Then rd.AddNew rd("sbd") = rs("sbd"): rd("ht") = rs("ht") rd("th") = rs("th") rd("dut") = rs("dut") rd("dkv") = rs("dkv"): rd("d1") = rs("d1") rd("d2") = rs("d2"): rd("d3") = rs("d3") rd("diemt") = rs("diemt"): rd("tongdiem") = rs("tongdiem") rd.Update End If rs.MoveNext 53 Loop rs.Close rd.Close DoCmd.OpenTable "DoLanI_QLyDatDai" End Sub Tìm danh sách thí sinh đỗ lần Sub DS_dolan2(tenb As String, mahuyen As String, manganh As String, chuan As Double) Dim db As DAO.Database, rs As DAO.Recordset, rd As DAO.Recordset Set db = CurrentDb() Set rd = db.OpenRecordset(tenb) Do Until rd.EOF rd.Delete rd.MoveNext Loop rd.Close Set rs = db.OpenRecordset("Truotlan1_A") Set rd = db.OpenRecordset(tenb) Do Until rs.EOF If ((rs("tongdiem") >= chuan) And (rs("mh") = mahuyen) And (rs("mn") = manganh)) Then rd.AddNew rd("sbd") = rs("sbd"): rd("ht") = rs("ht") rd("dut") = rs("dut") rd("dkv") = rs("dkv"): rd("d1") = rs("d1") rd("d2") = rs("d2"): rd("d3") = rs("d3") rd("diemt") = rs("diemt"): rd("tongdiem") = rs("tongdiem") rd.Update End If rs.MoveNext Loop rs.Close rd.Close 54 DoCmd.OpenTable "DoLanII" End Sub Sub DS_dolan2qlydatdai(tenb As String, chuan As Double) Dim db As DAO.Database, rs As DAO.Recordset, rd As DAO.Recordset Set db = CurrentDb() Set rd = db.OpenRecordset(tenb) Do Until rd.EOF rd.Delete rd.MoveNext Loop rd.Close Set rs = db.OpenRecordset("Truotlan1_A") Set rd = db.OpenRecordset(tenb) Do Until rs.EOF If rs("tongdiem") >= chuan And rs("mn") = "A02" Then rd.AddNew rd("sbd") = rs("sbd"): rd("ht") = rs("ht") rd("th") = rs("h") rd("dut") = rs("dut") rd("dkv") = rs("dkv"): rd("d1") = rs("d1") rd("d2") = rs("d2"): rd("d3") = rs("d3") rd("diemt") = rs("diemt"): rd("tongdiem") = rs("tongdiem") rd.Update End If rs.MoveNext Loop rs.Close rd.Close DoCmd.OpenTable "DoLanII_QLyDatDai" End Sub Sub DS_truotlan1qlydatdai(chuan As Double) 55 Dim db As DAO.Database, rs As DAO.Recordset, rd As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("DS A") Set rd = db.OpenRecordset("Truotlan1_A") Do Until rs.EOF If rs("tongdiem") < chuan And rs("mn") = "A02" Then rd.AddNew rd("sbd") = rs("sbd"): rd("ht") = rs("ht") rd("mh") = rs("mh"): rd("mn") = rs("mn") rd("h") = rs("th"): rd("dut") = rs("dut") rd("dkv") = rs("dkv"): rd("d1") = rs("d1") rd("d2") = rs("d2"): rd("d3") = rs("d3") rd("diemt") = rs("diemt"): rd("tongdiem") = rs("tongdiem") On Error Resume Next rd.Update End If rs.MoveNext Loop rs.Close rd.Close End Sub Sub DS_truotlan2qlydatdai(chuan As Double) Dim db As DAO.Database, rs As DAO.Recordset, rd As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("Truotlan1_A") Set rd = db.OpenRecordset("Truot_A") Do Until rs.EOF If rs("tongdiem") < chuan And rs("mn") = "A02" Then rd.AddNew rd("sbd") = rs("sbd"): rd("ht") = rs("ht") rd("mn") = rs("mn"): rd("mh") = rs("mh") rd("h") = rs("h"): rd("dut") = rs("dut") 56 rd("dkv") = rs("dkv"): rd("d1") = rs("d1") rd("d2") = rs("d2"): rd("d3") = rs("d3") rd("diemt") = rs("diemt"): rd("tongdiem") = rs("tongdiem") On Error Resume Next rd.Update End If rs.MoveNext Loop rs.Close rd.Close End Sub Sub taods_do_qlydatdai() Dim db As Database Dim rs As Recordset, rd As Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("DoLanIqlydatdai") Set rd = db.OpenRecordset("DolanI_QLyDatDai") Do Until rs.EOF rd.AddNew rd("sbd") = rs("sbd"): rd("ht") = rs("ht") rd("th") = rs("th") rd("dut") = rs("dut") rd("dkv") = rs("dkv"): rd("d1") = rs("d1") rd("d2") = rs("d2"): rd("d3") = rs("d3") rd("diemt") = rs("diemt"): rd("tongdiem") = rs("tongdiem") On Error Resume Next rd.Update rs.MoveNext Loop rs.Close rd.Close End Sub Sub taods_dolan2_qlydatdai() 57 Dim db As Database Dim rs As Recordset, rd As Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("DoLanIIqlydatdai") Set rd = db.OpenRecordset("DolanII_QLyDatDai") Do Until rs.EOF rd.AddNew rd("sbd") = rs("sbd"): rd("ht") = rs("ht") rd("th") = rs("th") rd("dut") = rs("dut") rd("dkv") = rs("dkv"): rd("d1") = rs("d1") rd("d2") = rs("d2"): rd("d3") = rs("d3") rd("diemt") = rs("diemt"): rd("tongdiem") = rs("tongdiem") On Error Resume Next rd.Update rs.MoveNext Loop rs.Close rd.Close End Sub Chuẩn hóa danh sách thí sinh Function chuanht(ht As String) As String Dim i%, n%, tg$, tg1$ ht = Trim(ht) tg = "" For i = To Len(ht) If (Mid(ht, i, 1) " ") Then tg = tg & Mid(ht, i, 1) If (Mid(ht, i, 1) = " ") Then If (Mid(ht, i - 1, 1) " ") Then tg = tg & Mid(ht, i, 1) End If Next i tg = UCase(tg) 58 tg1 = Mid(tg, 1, 1) For i = To Len(tg) If (Mid(tg, i, 1) " ") Then If (Mid(tg, i - 1, 1) " ") Then tg1 = tg1 & Chr(Asc(Mid(tg, i, 1)) + 32) Else tg1 = tg1 & Mid(tg, i, 1) End If End If If (Mid(tg, i, 1) = " ") Then tg1 = tg1 & Mid(tg, i, 1) Next i chuanht = tg1 End Function Sub Xoa(ten As String) Dim db As Database Dim rs As Recordset Set db = CurrentDb() Set rs = db.OpenRecordset(ten) Do While Not (rs.EOF) rs.Delete rs.MoveNext Loop rs.Close End Sub Sub Danh_STT(ten As String) Dim db As Database Dim rs As Recordset, tt% Set db = CurrentDb() Set rs = db.OpenRecordset(ten) tt = Do While Not (rs.EOF) rs.Edit rs.Fields(0).Value = tt 59 rs.Update rs.MoveNext tt = tt + Loop rs.Close End Sub Function catten(ht As String) As String Dim i%, n%, tg$, tg1$ tg = chuanht(ht) tg1 = "" i = Len(ht) Do While (Mid(tg, i, 1) " ") tg1 = Mid(tg, i, 1) & tg1 i=i-1 Loop catten = tg1 End Function Function cathodem(ht As String) As String Dim i%, n%, tg$, tg1$ tg = chuanht(ht) tg1 = "" i = Len(ht) Do While (Mid(tg, i, 1) " ") i=i-1 Loop Do While (i 0) tg1 = Mid(tg, i, 1) & tg1 i=i-1 Loop cathodem = tg1 End Function 60 Sub chuands(ten As String) Dim db As Database Dim rs As Recordset Set db = CurrentDb() Set rs = db.OpenRecordset(ten) Do While Not (rs.EOF) rs.Edit rs.Fields(1).Value = chuanht(rs.Fields(1).Value) rs.Update rs.MoveNext Loop rs.Close End Sub Đánh phách Function Danh_SoPhach_A() Dim db As DAO.Database Dim rs As DAO.Recordset, rd As Recordset Dim i%, n%, kq, tenb$ Dim sophach% Set db = CurrentDb() Xoa "BD_PHACH_A" Set rs = db.OpenRecordset("DS KHOI A") Set rd = db.OpenRecordset("BD_PHACH_A") sophach = Do Until rs.EOF rd.AddNew rd("sbd") = rs("sbd") rd("sp") = sophach rd.Update sophach = sophach + rs.MoveNext Loop 61 End Function Function phach_diem_A() Dim db As DAO.Database Dim rs As DAO.Recordset, rd As Recordset Dim sophach% Set db = CurrentDb() Xoa "BD_PHACH_A" Xoa "DIEM_KHOI A" Set rs = db.OpenRecordset("DS KHOI A") Set rd = db.OpenRecordset("DIEM_KHOI A") sophach = Do Until rs.EOF rd.AddNew rd("sp") = sophach rd.Update sophach = sophach + rs.MoveNext Loop End Function Function Danh_Phach() phach_diem_A Danh_SoPhach_A phach_diem_B Danh_SoPhach_B Xoa "Truotlan1_A" Xoa "Truotlan1_B" Xoa "Truot_A" Xoa "Truot_B" MsgBox "Hoan Thanh", vbInformation + vbOKOnly, "Thong Bao" End Function 62 CHƯƠNG VII: NHẬN XÉT ĐÁNH GIÁ CỦA GIÁO VIÊN HƯỚNG DẪN …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… …………………………………………………………………………………… 63 ... trường CĐ Nơng Lâm Quảng Ninh hồn thiện Với trình độ kiến thức hiểu biết em thiết kế chương trình quản lý điểm tuyển sinh hai khối A, B Chương trình quản lý ngành khối A (Môi Trường, Quản Lý Đất... kế xây dựng chương trình CHƯƠNG II: GIỚI THIỆU CƠNG CỤ SỬ DỤNG 2.1 Lựa chọn cơng cụ xây dựng chương trình Đề tài Quản lý điểm tuyển sinh xây dựng hệ quản trị sở liệu Microsoft Access 2.2 Hệ quản. .. QUẢN LÝ ĐIỂM TUYỂN SINH 3.1 Thiết kế hệ thống 3.1.1 Biểu đồ phân cấp chức Quản lý điểm tuyển sinh trường CĐ Nông Lâm Quảng Ninh Nhập DL Nhập tt thí sinh Nhập tiêu Nhập điểm khối A Nhập điểm khối