Luận văn Xây dựng trang web giao tiếp giữa phường và các nhân khẩu trong phường 17 Quận Gò Vấp

/MATG HINHTHUC(MAHT,TENHT) Bối cảnh : Hình thức Điều kiện R4 = .Nếu HT HT’ Thì Tầm ảnh hưởng T X S HINHTHUC + - +/MAHT NHANKHAU(MANK,HONK,TENNK,NGAYSINH,PHAI,QUEQUAN,NGHENGHIEP,CMND,MAHO,MAHT,MADT,MAQH,MAQT,TRINHDOVANHOA) Bối cảnh : Nhân khẩu Điều kiện R3 = .Nếu NK NK’ Thì Tầm ảnh hưởng T X S NHANKHAU + - +/MANK Bảng tầm ảnh hưởng của các quan hệ khác tương tự như trên. Phụ thuộc tồn tại T_NHANKHAU[MAHT,MADT,MAQT,MATG,MAHO] T_HINHTHUC[MAHT] ^ T_DANTOC[MADT] ^ T_QUOCTICH[MAQT] ^ T_TONGIAO[MATG] ^ T_HOGIADINH[MAHO] HINHTHUC(MAHT,TENHT) NHANKHAU(MANK, HONK, TENNK, NGAYSINH, PHAI, QUEQUAN, NGHENGHIEP, CMND, MAHO, MAHT, MADT, MATG, MAQT, TRINHDOVANHOA, QUANHEGIADINH,THUOCPHUONG) Bối cảnh : Nhân khẩu,hình thức Điều kiện RB1=T_NHANKHAU[MAHT] T_HINHTHUC[MAHT] Tầm ảnh hưởng RB1 T X S NHANKHAU + - +/MAHT HINHTHUC - + +/MAHT DANTOC(MADT,TENDT) NHANKHAU(MANK, HONK, TENNK, NGAYSINH, PHAI, QUEQUAN, NGHENGHIEP, CMND, MAHO, MAHT, MADT, MATG, MAQT, TRINHDOVANHOA, QUANHEGIADINH,THUOCPHUONG) Bối cảnh : Nhân khẩu,dân tộc Điều kiện RB2=T_NHANKHAU[MADT] T_DANTOC[MADT] Tầm ảnh hưởng RB2 T X S NHANKHAU + - +/MADT DANTOC - + +/MADT QUOCTICH(MAQT,TENQT) NHANKHAU(MANK, HONK, TENNK, NGAYSINH, PHAI, QUEQUAN, NGHENGHIEP, CMND, MAHO, MAHT, MADT, MATG, MAQT, TRINHDOVANHOA, QUANHEGIADINH,THUOCPHUONG) Bối cảnh : Nhân khẩu,quốc tịch Điều kiện RB3=T_NHANKHAU[MAQT] T_QUOCTICH[MAQT] Tầm ảnh hưởng RB3 T X S NHANKHAU + - +/MAQT QUOCTICH - + +/MAQT HOGIADINH(MAHO,DIACHI,MATODP) NHANKHAU(MANK, HONK, TENNK, NGAYSINH, PHAI, QUEQUAN, NGHENGHIEP, CMND, MAHO, MAHT, MADT, MATG, MAQT, TRINHDOVANHOA, MAQH,THUOCPHUONG) Bối cảnh : Nhân khẩu,hộ gia đình Điều kiện RB4=T_NHANKHAU[MAHO] T_HOGIADINH[MAHO] Tầm ảnh hưởng RB4 T X S NHANKHAU + - +/MAHO HOGIADINH - + +/MAHO TAMVANGTAMTRU(MAPHIEUTVTT, MANK, DIADIEMKHAIBAO,TUNGAY, DENNGAY, DIADIEMDIDEN, LYDO, TREEMDUOI15TUOIDITHEO, NGAYDKTVTT, MALOAITVTT) LOAITVTT(MALOAITVTT,TENLOAITVTT) Bối cảnh : Loại tạm vắng tạm trú,Tạm vắng Tạm trú Điều kiện RB5=T_TAMVANGTAMTRU[MALOAITVTT] T_LOAITVTT[MALOAITVTT] Tầm ảnh hưởng T X S TAMVANGTAMTRU + - +/MALOAITVTT LOAITVTT - + +/MALOAITVTT KHUVUC (MAKV,TENKV) TODANPHO(MATODP, TENTODP,MAKV) Bối cảnh : Khu vực,Tổ dân phố Điều kiện RB5=T_TODANPHO[MAKV] T_KHUVUC[MAKV] Tầm ảnh hưởng RB5 T X S TODANPHO + - +/MAKV KHUVUC - + +/MAKV NHANKHAU(MANK, HONK, TENNK, NGAYSINH, PHAI, QUEQUAN, NGHENGHIEP, CMND, MAHO, MAHT, MADT, MATG, MAQT, TRINHDOVANHOA, QUANHEGIADINH,THUOCPHUONG) DANGKYKETHON(MAPHIEUDKKH, MANKVO, MANKCHONG, KETHONLANMAY, NGAYDKKH) Bối cảnh : Nhân khẩu,Đăng ký kết hôn. Điều kiện RB6=DANGKYKETHON[MANKVO,MANKCHONG] T_NHANKHAU[MANK] Tầm ảnh hưởng RB6 T X S DANGKYKETHON + - +/MANK NHANKHAU - + +/MANK NHANKHAU(MANK, HONK, TENNK, NGAYSINH, PHAI, QUEQUAN, NGHENGHIEP, CMND, MAHO, MAHT, MADT, MATG, MAQT, TRINHDOVANHOA, MAQH,THUOCPHUONG) LYHON(MAPHIEUDKLH, MANKVO, MANKCHONG, LYDOLYHON, NGAYDKLH) Bối cảnh : Nhân khẩu,Ly hôn. Điều kiện RB7=LYHON[MANKVO,MANKCHONG] T_NHANKHAU[MANK] Tầm ảnh hưởng RB7 T X S DANGKYLYHON + - +/MANK NHANKHAU - + +/MANK NHANKHAU(MANK, HONK, TENNK, NGAYSINH, PHAI, QUEQUAN, NGHENGHIEP, CMND, MAHO, MAHT, MADT, MATG, MAQT, TRINHDOVANHOA, MAQH,THUOCPHUONG) GIAYCHUNGSINH(MAPHIEUCS, MANKEMBE, MANKNGUOIDODAU,NOISINH,CANNANG, NGAYLAPPHIEUCS) Bối cảnh : Nhân khẩu, Giấy chứng sinh . Điều kiện RB7=T_GIAYCHUNGSINH[MANKEMBE,MANKNGUOIDODAU] T_NHANKHAU[MANK] Tầm ảnh hưởng RB7 T X S GIAYCHUNGSINH + - +/MANK NHANKHAU - + +/MANK NHANKHAU(MANK, HONK, TENNK, NGAYSINH, PHAI, QUEQUAN, NGHENGHIEP, CMND, MAHO, MAHT, MADT, MATG, MAQT, TRINHDOVANHOA, MAQH,THUOCPHUONG) THAYDOICHUHO( MAPHIEUTD, MANK, LYDOTHAYDOI, MAHOCU, NGAYDKTD) Bối cảnh : Nhân khẩu, Thay đổi chủ hộ Điều kiện RB8=THAYDOICHUHO[MANK] T_NHANKHAU[MANK] Tầm ảnh hưởng RB8 T X S THAYDOICHUHO + - +/MANK NHANKHAU - + +/MANK Bảng tầm ảnh hưởng của các quan hệ còn lại tương tự như trên. Liên thuộc tính TAMVANGTAMTRU(MAPHIEUTVTT, DIADIEMKHAIBAO,TUNGAY,DENNGAY, DIADIEMDIDEN, MANK, LYDO, TREEMDUOI15TUOIDITHEO, NGAYDKTVTT, LOAITVTT) Bối cảnh Tamvangtamtru Điều kiện RBL1= Tầm ảnh hưởng RBL1 T X S TAMVANGTAMTRU + _ + DANGKYKETHON(MAPHIEUDKKH, NGAYDKKH, KETHONLANMAY, MANKVO, MANKCHONG) Bối cảnh Đăng Ký Kết Hôn Điều kiện RBL2= Tầm ảnh hưởng RBL2 T X S DANGKYKETHON + _ + DANGKYLYHON(MAPHIEUDKLH, MANKVO, MANKCHONG, LYDOLYHON, NGAYDKLH) Bối cảnh : Đăng ký ly hôn Điều kiện RBL3= Tầm ảnh hưởng RBL3 T X S DANGKYLYHON + _ + GIAYCHUNGSINH(MAPHIEUCS, MANKEMBE, MANKNGUOIDODAU,CANNANG,NOISINH,NGAYSINH, NGAYLAPPHIEUCS) Bối cảnh :Giấy chứng sinh Điều kiện RBL4= và Tầm ảnh hưởng RBL4 T X S GIAYCHUNGSINH + _ + GIAYCHUNGTU(MAPHIEUCT,NGAYCHET,NOICHET,NGUYENNHANCET,MANK,NGAYLAPGIAYCT) Bối cảnh :Giấy chứng tử Điều kiện RBL5= Tầm ảnh hưởng RBL5 T X S GIAYCHUNGTU + _ + Mô hình xử lý mức logic Chọn các ô xử lý đặc trưng để mô tả Thủ tục X( giá trị CMND) Mở table nhankhau ký hiệu nk. Trong khi tìm =false và tập tin chưa hết Đọc từng dòng trong table So sánh CMND = Nk.CMND Nếu tìm thấy Mank=nhankhau.mank If (Gọi thủ tục Y(mank)=true) thì Trả về “” End Ngược lại Trả về mank End End Ngược lại Trả về “” End End Thủ tục Y(giá trị mank) Mở table giaychungtu Trong khi tìm=false và chưa hết tập tin So sánh mank = giaychungtu.mank Nếu tìm thấy thì Trả về true End Ngược lại Trả về false End End MÔ TẢ Ô XỬ LÝ ( SỐ 1.2) -------ĐĂNG KÝ------- Dữ liệu vào : CMND TÊN dữ liệu ra : cho phép đăng ký .Nếu đúng không cho phép đăng ký .Nếu sai Giải thuật : Mở table Nhankhau. Tìm=false Trong khi Tìm = false và tập tin chưa hết Đọc từng dòng trong table So sánh CMND = Nhankhau.CMND Tên=Nhankhau.Ten Nếu tìm thấy Tim=true Thoát khỏi vòng lặp end End Nếu tim=true thì Cho phép đăng nhập End Ngược lại nếu tim=false thì Thông báo lỗi đăng nhập End End MÔ TẢ Ô XỬ LÝ SỐ (1.5) -------CHỨNG NHẬN KẾT HÔN ------- Dữ liệu vào: CMND vợ. CMND chồng Các thông tin liên quan đến ly hôn. Dữ liệu ra: Cho phép cập nhật.Nếu đúng Không cho phép cập nhật.Nếu sai Giải thuật: Tìm chứng minh xem chứng minh nhân dân chồng có tồn tại không? mank = thủ tục X(CMND) Nếu mank khác rỗng và tuổi đã đủ để đăng ký kết hôn thì Mở table dangkykethon viết tắt là dkkh Tìm = false Trong khi tìm=false và chưa hết tập tin So sánh mank = dkkh.mankchong Nếu tìm thấy Mở table dangkylyhon viết tắt dklh Trong khi tìm=false và chưa hết tập tin So sánh dkkh.mankchong=dklh.mahkchong và dkkh.ngaydkkh < dklh.ngaydklh Nếu thoả điều kiện thì Tim=true Thoát khỏi vòng lặp End Ngược lại Tim=false End End End End Nếu tim=true thì Hiển thị thông tin của chồng ra Cochong=true End Ngược lại Thông báo lỗi cho người quản lý biết. End End Tìm xem chứng minh nhân dân vợ có tồn tại không mank = thủ tục X(CMND) Nếu mank khác rỗng và tuổi đã đủ để đăng ký kết hôn thì Mở table dangkykethon viết tắt là dkkh Tìm = false Trong khi tìm=false và chưa hết tập tin So sánh mank = dkkh.mankvo Nếu tìm thấy Mở table dangkylyhon viết tắt dklh Trong khi tìm=false và chưa hết tập tin So sánh dkkh.mankvo=dklh.mankvo và dkkh.ngaydkkh < dklh.ngaydklh Nếu thoả điều kiện thì Tim=true Thoát khỏi vònglặp End Ngược lại Tim=false End End End Ngược lại Tim=true Thoát khỏi vònglặp End End Nếu tim=true thì Hiển thị thông tin của vợ ra Covo=true End Ngược lại Thông báo lỗi cho người quản lý biết. End End Trước khi cập nhật Nếu covo=true và cochong=true thì Cho phép cập nhật thông tin vào cơ sở dữ liệu End Ngược lại Không cho cập nhật thông tin vào cơ sở dữ liệu End MÔ TẢ Ô XỬ LÝ SỐ ( 2.5) -------CHỨNG NHẬN LY HÔN------- Dữ liệu vào: CMND vợ hoặc chồng. Các thông tin liên quan đến ly hôn. Dữ liệu ra: Cho phép cập nhật.nếu đúng Không cho phép cập nhật.Nếu sai Mở table NHÂNKHÂU ký hiệu nk Mank=thủ tục x(cmnd vợ hoặc chồng) Nếu mank khác rỗng thì Mở table dangkykethon viết tắt là dkkh Tim=false Trong khi tim=false va chưa hết tập tin Đọc từng dòng So sánh mank=dkkh.mankvo hoặc mank=dkkh.dkkhmankchong Nếu tìm thấy (thoả điều kiện) thì Mở table dangkylyhon viết tắt là dklh Trong khi tim=false và chưa hết tập tin Đọc từng dòng So sánh dkkh.mankchong=dklh.mankchong và dkkh.mankvo=dklh.mankvo Nếu thoả điều kiện thì So sánh dkkh.ngaydkkh>dklh.ngaydklh Nếu thoả điều kiện thì Tim=true Thoát khỏi vònglặp Co=true End end End Nếu tìm=true thì Co=true Thoát khỏi vòng lặp End End End End  MÔ TẢ Ô XỬ LÝ SỐ (4.5) -------CHỨNG NHẬN CHỨNG SINH ------- Dữ liệu vào: CMND mẹ Dữ liệu liên quan đến giấy chứng sinh. Dữ liệu ra: cho phép cập nhật.Nếu đúng Không cho phép cập nhật.Nếu sai Tìm xem CMND của mẹ em bé có tồn tại không? Mankme=gọi thủ tục x (cmnd) Nếu mankme khác rỗng thì Hiển thị thông tin của mẹ ra. Come=true End Ngược lại Thông báo lỗi cho người nhập liệu biết. End Trước khi cập nhật Nếu thông tin nhập vào hợp lệ hết và come=true thì Cho phép cập nhật thông tin vào cơ sở dữ liệu End Ngược lại Thông báo lỗi cho người dùng và không cho cập nhật End MÔ TẢ Ô XỬ LÝ SỐ (5.5) -------CHỨNG NHẬN CHỨNG TỬ ------- Dữ liệu vào: CMND người cần chứng tử Dữ liệu liên quan đến giấy chứng tư( Dữ liệu ra: cho phép cập nhật.Nếu đúng Không cho phép cập nhật.Nếu sai Tìm xem CMND của em bé có tồn tại không? Mank = gọi thủ tục x (cmnd) Co=false Nếu mank khác rỗng thì Hiển thị thông tin người có CMND này ra. Co=true End Trước khi cập nhật dữ liệu cần kiểm tra. Nếu co=true và các thông tin liên quan là hợp lệ Cho phép cập nhật mank và các thông tin liên quan vào cơ sở dữ liệu. End Ngược lại Thông báo lỗi cho người dùng và không cho cập nhật vào cơ sở dữ liệu. End THIẾT KẾ HỆ THỐNG Ở MỨC VẬT LÝ Mô hình dữ liệu ở mức vật lý Mô tả chi tiết các bảng và thuộc tính Tên bảng : DÂN TỘC Tên viết tắt DANTOC Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Madt Mã dân tộc Char Khoá chính 10 2 Tendt Tên dân tộc Nvarchar Khác rỗng 50 Tên bảng : QUỐC TỊCH Tên viết tắt : QUOCTICH Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maqt Mã quốc tịch Char Khoá chính 10 2 Tenqt Tên quốc tịch Nvarchar Khác rỗng 100 Tên bảng : TÔN GIÁO Tên viết tắt : TONGIAO Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Matg Mã tôn giáo Char Khoá chính 10 2 Tentongiao Tên tôn giáo Nvarchar Khác rỗng 100 Tên bảng : HÌNH THỨC Tên viết tắt : HINHTHUC Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maht Mã hình thức Char Khoá chính 10 2 Tenht Tên hình thức Nvarchar Khác rỗng 100 Tên bảng : KHU VỰC Tên viết tắt : KHUVUC Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Makv Mã khu vực Char Khoá chính 10 2 Tenkv Tên khu vực Nvarchar Khác rỗng 100 Tên bảng : TỔ DÂN PHỐ Tên viết tắt : TODANPHO Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Matodp Mã tổ dân phố Char Khoá chính 10 2 Tentodp Tên tổ dân phố Nvarchar 100 3 Makv Mã khu vực Char Khoá ngoại 10 Tên bảng : CHÍNH SÁCH Tên viết tắt :CHINHSACH Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Macs Mã chính sách Char Khoá chính 10 2 Tencs Tên chính sách Nvarchar Khác rỗng 100 Tên bảng : HỘ GIA ĐÌNH Tên viết tắt : HOGIADINH Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maho Mã hộ Char Khoá chính 10 2 Diachi Địa chỉ Nvarchar Rỗng 100 3 Sonhankhau Số nhân khẩu int Rỗng 4 4 Matodp Mã tổ dân phố Char Khoá ngoại 10 Tên bảng : NHÂNN KHẨU Tên viết tắt : NHANKHAU Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Mank Mã nhân khẩu Char Khoá chính 10 2 Honk Họ nhân khẩu Nvarchar rỗng 100 3 Tennk Tên nhân khẩu Nvarchar Khác rỗng 50 4 Ngaysinh Ngày sinh smalldatetime Khác rỗng 4 5 Phai Phái Char Khác rỗng 3 6 Quequan Quê quán Nvarchar Rỗng 200 7 Nghenghiep Nghề nghiệp Nvarchar Rỗng 100 8 Cmnd Chứng minh nhân dân Char Rỗng 9 9 Trinhdovh Trình độ văn hoá Nvarchar Rỗng 15 10 Maho Mã hộ Char Khoá ngoại 10 11 Madt Mã dân tộc Char Khoá ngoại 10 12 Matg Mã tôn giáo Char Khoá ngoại 10 13 Maqt Mã quốc tịch Char Khoá ngoại 10 14 Maqh Mã quan hệ Char Khoá ngoại 10 Tên bảng : LOẠI TẠM VẮNG TẠM TRÚ Tên viết tắt : LOAITVTT Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maloaitvtt Mã loại tạm vắng tạm trú Char Khoá chính 10 2 Tenloaitvtt Tên loại tạm vắng tạm trú Nvarchar Khác rỗng 50 Tên bảng : TẠM VẮNG TẠM TRÚ Tên viết tắt : TAMVANGTAMTRU Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maphieutvtt Mã phiếu tạm vắng tạm trú Char Khoá chính 10 2 Diadiem khaibao Địa điểm khai báo Nvarchar Khác rỗng 200 3 Tungay Từ ngày smalldatetime Khác rỗng 4 4 Denngay Đến ngày smalldatetime Khác rỗng 4 5 Diadiem Diden Địa điểm đi đến Nvarchar Khác rỗng 200 6 Treemduoi 15tuoitheo Trẻ em dưới 15 tuổi theo Nvarchar Rỗng 5 7 Ngaydktvtt Ngày đăng ký tạm vắng tạm trú smalldatetime Khác rỗng 4 8 Lydo Lý do Nvarchar Rỗng 200 9 Mank Mã nhân khẩu Char Khoá ngoại 10 10 Maloaitvtt Mã loại tạm vắng tạm trú Char Khoá ngoại 10 Tên bảng : ĐĂNG KÝ KẾT HÔN Tên viết tắt : DANGKYKETHON Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maphieudkkh Mã phiếu đăng ký kết hôn Char Khoá chính 10 2 Ngaydkkh Ngày đăng ký kết hôn smalldatetime Khác rỗng 4 3 Mankchong Mã nhân khẩu chồng Char Khoá ngoại 10 4 Mankvo Mã nhân khẩu vợ Char Khoá ngoại 10 Tên bảng : ĐĂNG KÝ LY HÔN Tên viết tắt : LYHON Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maphieudklh Mã phiếu đăng ký ly hôn Char Khoá chính 10 2 Lydolyhon Lý do Nvarchar Rỗng 200 3 Ngaydkkh Ngày đăng ký ly hôn smalldatetime Khác rỗng 4 4 Mankchong Mã nhân khẩu chồng Char Khoá ngoại 10 5 Mankvo Mã nhân khẩu vợ Char Khoá ngoại 10 Tên bảng : GIẤY CHỨNG SINH Tên viết tắt : GIAYCHUNGSINH Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maphieucs Mã phiếu chứng sinh Char Khoá chính 10 2 Cannang Cân nặng Char Khác rỗng 20 3 Noisinh Nơi sinh Nvarchar Rỗng 200 4 Ngaylapphieucs Ngày lập phiếu chứng sinh smalldatetime Khác rỗng 5 Mankembe Mã nhân em bé Char Khoá ngoại 10 6 Manknguoidodau Mã nhân khẩu vợ Char Khoá ngoại 10 Tên bảng : GIẤY CHỨNG TỬ Tên viết tắt : GIAYCHUNGTU Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maphieuct Mã phiếu chứng tử Char Khoá chính 10 2 Ngaychet Ngày chết smalldatetime Khác rỗng 4 3 Noichet Nơi chết Nvarchar 200 4 Nguyennhan Nguyên nhân chết Nvarchar Rỗng 200 5 Ngaylapphieuct Ngày lập phiếu chứng tử smalldatetime Khác rỗng 4 6 Mank Mã nhân khẩu Char Khoá ngoại 10 Tên bảng : THAY ĐỔI CHỦ HỘ Tên viết tắt : THAYDOICHUHO Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maphieutd Mã phiếu thay đổi Char Khoá chính 10 2 Lydothaydoi Lý do thay đổi Nvarchar Rỗng 200 3 Ngaydktd Ngày đăng ký thay đổi smalldatetime Khác rỗng 4 4 Mankchuhomoi Mã nhân khẩu chủ hộ mới Char Khoá ngoại 10 5 Mahocu Mã hộ cũ Char Khoá ngoại 10 Tên bảng : TÁCH HỘ Tên viết tắt : TACHHO Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maphieutach Mã phiếu tách Char Khoá chính 10 2 Lydotach Lý do tách Nvarchar Rỗng 200 3 Ngaydkth Ngày đăng ký tách smalldatetime Khác rỗng 4 4 Mahomoi Mã hộ mới Char Khoá ngoại 10 Tên bảng : QUAN HỆ CHỦ HỘ Tên viết tắt : QUANHECHUHO Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maqh Mã quan hệ Char Khoá chính 10 2 Tenqh Tên quan hệ Nvarchar Khác rỗng 20 Tên bảng : QUẢN LÝ Tên viết tắt : ADMIN Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Tendangnhap Tên đăng nhập Nvarchar Khoá chính 100 2 matma Mật mã Nvarchar Khác rỗng 10 3 Maloaiad Mã loại quản lý Char Khoá ngoại 10 Tên bảng : LOẠI QUẢN LÝ Tên viết tắt : LOAIADMIN Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Maloaiad Mã loại quản lý Char Khác rỗng 10 2 Tenad Tên loại quản lý Nvarchar Khác rỗng 50 Tên bảng : NHÂN KHẨU –TÁCH HỘ Tên viết tắt : NHANKHAU_TACHHO Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Mank Mã nhân khẩu Char Khóa chính 10 2 Maphieutach Mã phiếu tách Char Khoá chính 10 Tên bảng : NHÂN KHẨU –CHÍNH SÁCH Tên viết tắt : NHANKHAU_CHINHSACH Stt Tên thuộc tính Tên đầy đủ Kiểu dữ liệu Ràng buộc Độ dài 1 Mank Mã nhân khẩu Char Khoá chính 10 2 Macs Mã chính sách Char Khoá chính 10 Mô hình xử lý mức vật lý Chỉ mô tả các ô xử lý điển hình Ngôn ngữ chọn lựa Visual Basic 7.0 MÔ TẢ Ô XỬ LÝ SỐ (1.2) -------ĐĂNG KÝ------- Dữ liệu vào : CMNDD TÊN dữ liệu ra : cho phép đăng ký .Nếu đúng không cho phép đăng ký . Nếu sai Giải thuật : Private Sub dongy_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles dongy.Click Dim TEN As String, CMND As String, sql As String Dim strconn As String Dim conn As SqlConnection Dim cmd As SqlCommand Dim oDR As SqlDataReader 'strconn = ConnectionString() strconn = "Password=;User ID=sa; initial catalog=QUANLYNHANKHAU;data source=localhost" conn = New SqlConnection(strconn) conn.Open() Session("TXTTEN") = "" Session("TXTCMND") = "" TEN = Trim(Request.Form("TXTTEN")) CMND = Trim(Request.Form("TXTCMND")) sql = "loginustv" cmd = New SqlCommand(sql, conn) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@tennk", SqlDbType.NVarChar, 50).Value = TEN cmd.Parameters.Add("@cmnd", SqlDbType.Char, 9).Value = CMND oDR = cmd.ExecuteReader(CommandBehavior.SequentialAccess) Do While oDR.Read() If Trim(oDR("TENNK")) = Trim(TEN) Then If oDR("CMND") = CMND Then Session("TENNK") = TEN Session("CMND") = CMND Response.Redirect("TAMCHUNGSINH.ASPX") TXTTEN.Text = "" TXTCMND.Text = "" End If End If Loop LBERROR.Visible = True LBERROR.Text = "Chứng minh nhân dân hoặc tên không tồn tại " End Sub MÔ TẢ Ô XỬ LÝ SỐ (1.5) -------CHỨNG NHẬN KẾT HÔN ------- Dữ liệu vào: Cmnd vợ. Cmnd chồng Các thông tin liên quan đến ly hôn. Dữ liệu ra: Cho phép cập nhật. Nếu đúng Không cho phép cập nhật. Nếu sai Giải thuật: Private Sub cmdctchong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdctchong.Click ttc = False lberr.Text = "" If txtcmndchong.Text "" Then strsql = "select mank,tennk, ngaysinh,cmnd,tennk,honk,tendt,tenqt,quequan from nhankhau,quoctich,dantoc " strsql = strsql & " where NHANKHAU.madt = DANTOC.madt And QUOCTICH.maqt = NHANKHAU.maqt and mank not in (select mank from giaychungtu) and cmnd='" & txtcmndchong.Text & "' and phai='nam'" ds = New DataAccess.Myconnection.Luanvan.DataLoader().GetData(strsql) With ds.Tables(0) If .Rows.Count > 0 Then ' 1 strsql = "select mank from giaychungtu where mank='" & ds.Tables(0).Rows(0).Item("mank") & "'" ds3 = New DataAccess.Myconnection.Luanvan.DataLoader().GetData(strsql) If ds3.Tables(0).Rows.Count > 0 Then lberr.Text = "Người này đã chết vui lịng kiểm tra lại!!!" Else If (Year(Now()) - Year(.Rows(0).Item("ngaysinh")) < 20) Then '2 'neu chua du tuoi lberr.Visible = True lberr.Text = "Bạn chưa đủ tuổi để đăng ký kết hộn!!!" Exit Sub ElseIf (Year(Now()) - Year(.Rows(0).Item("ngaysinh")) = 20) Then 'else 2 If (Month(Now()) - Month(.Rows(0).Item("ngaysinh")) < 0) Then '3 'neu du nam nhung khong du thang lberr.Visible = True lberr.Text= "Bạn chưa đủ tuổi để đăng ký kết hộn!!!" Exit Sub ElseIf (Month(Now()) - Month(.Rows(0).Item("ngaysinh")) = 0) Then 'else 3 If (Day(Now()) - Day(.Rows(0).Item("ngaysinh")) <= 0) Then '4 'neu du thang du nam nhung khong du ngay lberr.Visible = True lberr.Text = "Bạn chưa đủ tuổi để đăng ký kết hộn!!! " Exit Sub End If 'end 4 End If Else Dim aa As String strsql = "select mankchong ,ngaydkkh from dangkykethon " strsql = strsql & " where mankchong='" & .Rows(0).Item("mank") & "' order by ngaydkkh desc" ds2 = New DataAccess.Myconnection.Luanvan.DataLoader().GetData(strsql) If (ds2.Tables(0).Rows.Count > 0) Then strsql = "select ngaydklh from lyhon" strsql = strsql & " where lyhon.mankvo='" & ds.Tables(0).Rows(0).Item("mank").ToString & "' or mankchong='"& ds.Tables(0).Rows(0).Item("mank").ToString & "' order by ngaydklh desc" ds3 = New DataAccess.Myconnection.Luanvan.DataLoader().GetData(strsql) If ds3.Tables(0).Rows.Count > 0 Then If (Trim(ds3.Tables(0).Rows(0).Item("ngaydklh").ToString) = "" Or Trim(ds3.Tables(0).Rows(0).Item("ngaydklh")) < Trim(ds2.Tables(0).Rows(0).Item("ngaydkkh"))) Then lberr.Text = "Bạn đang trong tình trạng hơn nhân!!!" Else ttc = True txthtchong.Text = .Rows(0).Item("honk").ToString & " " & .Rows(0).Item("tennk").ToString txtnschong.Text = .Rows(0).Item("ngaysinh").ToString txtqtchong.Text = .Rows(0).Item("tenqt").ToString txtdtchong.Text = .Rows(0).Item("tendt").ToString txtqqchong.Text = .Rows(0).Item("quequan").ToString txtmankchong.Text = .Rows(0).Item("mank").ToString End If Else lberr.Visible = True lberr.Text = "Bạn đang trong tình trạng hơn nhân!!!" End If Else ttc = True txthtchong.Text = .Rows(0).Item("honk").ToString & " " & .Rows(0).Item("tennk").ToString txtnschong.Text = .Rows(0).Item("ngaysinh").ToString txtqtchong.Text = .Rows(0).Item("tenqt").ToString txtdtchong.Text = .Rows(0).Item("tendt").ToString txtqqchong.Text = .Rows(0).Item("quequan").ToString txtmankchong.Text = .Rows(0).Item("mank").ToString End If End If End If Else lberr.Visible = True lberr.Text = "CMND nàykhơng tồn tại!!!" End If 'end 1 End With End If End Sub Private Sub cmdctvo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdctvo.Click ttv = False Lberr1.Text = "" If txtcmndvo.Text "" Then strsql = "select mank, ngaysinh,cmnd,honk,tennk,tendt,tenqt,quequan " strsql = strsql & " from nhankhau,quoctich,dantoc where nhankhau.madt=dantoc.madt " strsql = strsql & "and quoctich.maqt=nhankhau.maqt and " strsql = strsql & " mank not in (select mank from giaychungtu) and cmnd='" & txtcmndvo.Text & "' and phai='nu'" ds = New DataAccess.Myconnection.Luanvan.DataLoader().GetData(strsql) With ds.Tables(0) If .Rows.Count > 0 Then strsql = "select mank from giaychungtu where mank='" & ds.Tables(0).Rows(0).Item("mank") & "'" ds3 = New DataAccess.Myconnection.Luanvan.DataLoader().GetData(strsql) If ds3.Tables(