Lời Mở Đầu Trong sống thông tin đợc sử dụng hàng ngày Con ngời có nhu cầu nghe đài, đọc báo, tham khảo ý kiến ngời khác để thu nhËn th«ng tin míi Khi tiÕp nhËn th«ng tin ngời phải xử lý để tạo thông tin có ích hơn, thân thiện để đến định chăc chắn Để xử lý thông tin ngời phải sử dụng số công cụ định nh giấy, bút trí nhớ ngời Có thể nói thông tin đóng vai trò quan trọng Các vấn đề Xà hội, Khoa häc kü tht,trong Kinh doanh, Quan hƯ cịng nh hoạt động khác xà hội Chúng ta sèng mét kû nguyªn víi sù bïng nỉ cđa thông tin mạnh mẽ phong phú Thông tin trở thành nguồn tài nguyên quan trọng, nguồn cải vô giá ngời Vì việc nắm bắt thông tin nhanh, lu trữ thông tin với số lợng lớn xử lý thông tin xác kịp thời đóng vai trò cốt lõi toán, với phát triển công nghệ tin học ngành khoa học đáp ứng đợc đòi hỏi Những năm gần đây, giới nói chung nớc ta nói riêng tin học đà phát triển nhanh chóng, tin học đà đợc áp dụng nhiều ngành: Khoa Học Công Nghệ, Quản Lý Kinh Tế, Sản Xuất Kinh Doanh, Giáo Dục Đặc biệt ngành Thống Kê, giúp nhà quản lý, nhà hoạch định sách chiến lợc giải công việc cách khoa học xác Thống kê công cụ quản lý vĩ mô quan trọng, có vai trò cung cấp thông tin thống kê trung thực, khách quan, xác, đầy đủ, kịp thời phục vụ quan nhà nớc việc đánh giá dự báo tình hình, hoạch định sách chiến lợc xây dựng kế hoạch phát triển kinh tế xà hội, đáp ứng nhu cầu thông tin tổ chức cá nhân Trong điều tra hàng năm dân số, lao động việc làm, doanh nghiệp, tổ chức xà hội việc tổng hợp kết điều tra đòi hỏi phải nhanh chóng xác, nh với công việc tổng hợp thủ công khó khăn , khó tránh khỏi nhầm lẫn, ví dụ nh công tác tổng hợp kết điều tra lao động việc làm hàng năm, việc ứng dụng tin học vào công tác tổng hợp kết thống kê lµ rÊt quan träng Díi sù híng dÉn cđa Thầy giáo Bùi Thế Ngũ, cán hớng sở thực tập, thực đề tài: Xây dựng hệ thống thống tin hỗ trợ xử lý tổng hợp kết điều tra lao động - việc làm 01/7/2004 Cấu trúc đề tài gồm: - Chơng I, Tỉng quan vỊ c¬ së thùc tËp - Ch¬ng II, Cơ sở phơng pháp luận nghiên cứu đề tài - Chơng III, Thiết kế xây dựng chơng trình Trong thời gian làm đề tài thân em đà có nhiều cố gắng nhng lần xây dựng ứng dụng tin học vào thùc tÕ, cïng víi thêi gian t×m hiĨu häc hái không đợc nhiều nên khả nắm bắt vấn đề giải toán nhiều thiếu sót Kính mong đợc giúp đỡ thầy cô, đóng góp xây dựng bạn bè, để hoàn thiện chơng trình Cuối em xin bày tỏ lòng biết ơn sâu sắc tới thầy giáo hớng dẫn K.S Bùi Thế Ngũ Cán hớng dẫn Trung tâm tin học thống kê K.S Hồ Văn Bảo đà hớng dẫn giúp đỡ, tạo điều kiện cho em hoàn thành đề tài Xin chân thành cảm ơn thầy, cô khoa Tin học kinh tế trờng Đại học kinh tế quốc dân đà nhiệt tình giảng dạy trang bị cho em kiến thức quý báu suốt trình đào tạo dành cho chúng em điều kiện học tập thuận lợi Ch¬ng I Tỉng quan vỊ c¬ së thùc tËp Trung tâm tin học thống kê - Tổng cục thống kê I Lịch sử hình thành phát triển Tổng cục Thống kê Ngay thời gian đầu cách mạng thành công, muôn vàn khó khăn thời kỳ chống thù giặc ngoài, ngày tháng năm 1946, Chủ Tịch Hồ Chí Minh, Chủ tịch Chính phủ lâm thời nớc Việt Nam Dân Chủ Cộng Hòa đà kí sắc lệnh số 61/SL quy định máy tổ chức Bộ quốc dân kinh tế gồm phòng ban, nha trực thuộc, có Nha Thống kê Việt Nam Để ghi nhớ sâu sắc công ơn Bác Hồ vĩ đại trình xây dựng thành ngành thống kê, để phù hợp với thực tế lịch sử, đợc ®ång ý cđa Thđ tíng chÝnh phđ níc Céng hßa Xà hội Chủ nghĩa Việt Nam Ngành Thống kê đà lấy ngày tháng năm 1946 ngày thành lập ngành Thống kê Việt Nam Trong trình xây dựng phát triển ngành Thống kê Việt Nam có nhiều thay đổi cấu tổ chức: Ngày 20 tháng năm 1956, Thủ tớng Chính Phủ đà ban hành Điều lệ số 695/TTg tổ chức Cục Thống kê Trung ơng, quan thống kê địa phơng tổ chức thống kê Bộ có ghi: Nay thành lập Cục Thống kê Trung ơng ủy ban Kế hoạch nhà nớc nớc Việt Nam dân chủ cộng hòa, Ban Thống kê địa Phơng, tổ chức thống kê Bộ, quan xí nghiệp Cục thống kê trung ơng quan thống kê địa phơng hệ thống nhất, tập trung Cục thống kê trung ơng ủy ban kế hoạch Nhà nớc Việt Nam dân chủ cộng hòa quan Nhà nớc để lÃnh đạo thống tập trung việc thống kê kế toán nớc Nhiệm vụ chủ yếu cục thống kê trung ơng su tầm, thu thập, nghiên cứu đệ trình Chính Phủ tài liệu thống kê xác, phân tích cách khoa học để nêu đợc trình thực kế hoạch Nhà nớc, phát triển kinh tế văn hóa nớc, nguồn tài nguyên cách sử dụng tài nguyên đó, tỷ lệ phát triển ngành kinh tế, văn hóa mức độ phát triển ngành Cục thống kê trung ơng tạm thời gồm phòng: Thống kê tổng hợp; Thống kê nông nghiệp; Thống kê công nghiệp; Vận tải; Thống kê Thơng nghiệp tài chính; Thống kê văn hóa; Giáo dục; Y tế; Dân số; Lao động Ngày 21/12/1960 Cục thống kê trung ơng đợc tách khỏi ủy ban kế hoạch Nhà nớc, thành lập Tổng cục Thống kê Đến ngày 03/9/2003, Chính phủ ban hành Nghị định số 101/2003/NĐ-CP quy định chức năng, nhiệm vụ, quyền hạn cấu tổ chức Tổng cục Thống kê Vị trí chức Tổng cục Thống kê c¬ quan thc ChÝnh phđ thùc hiƯn mét sè nhiƯm vụ quyền hạn quản lý nhà nớc thống kê, tổ chức thực hoạt độn thống kê cung cấp thông tin thống kê kinh tế- xà hội cho quan, tổ chức cá nhân theo quy định pháp luật, quản lý nhà nớc dịch vụ công thực số nhiệm vụ, quyền hạn cụ thể đại diện chủ sở hữu phần vốn nhà nớc doanh nghiệp có vốn nhà nớc thuộc Tổng cục quản lý theo quy định pháp luật Nhiệm vụ quyền hạn Tổng cục thống kê chịu trách nhiệm thực nhiệm vụ, quyền hạn quan thuộc phủ quy định chức năng, nhiệm vụ, quyền hạn cấu tổ chức quan thuộc phủ nhiệm vụ, quyền hạn cụ thể sau: Chủ trì tham gia soạn thảo dự án luật, pháp lệnh dự thảo văn quy phạm pháp luật khác thống kê theo phân công Chính phủ, Thủ tớng chÝnh phđ Tr×nh ChÝnh phđ, Thđ tíng ChÝnh phđ chiÕn lợc, quy hoạch, kế hoạch dài hạn, năm năm, hàng năm thống kê dự án quan trọng Tổng cục thống kê Trình Chính phủ quy định thẩm quyền ban hành bảng phân loại thống kê Trình Thủ tớng phủ ban hành hệ thống tiêu quốc gia, chế độ báo cáo thống kê quốc gia dài hạn, hàng năm tổng điều tra thống kê theo quy định pháp luật Trình Bộ trởng đợc Thủ tớng Chính phủ phân công ký ban hành văn quy phạm pháp luật thống kê theo quy định pháp luật Chỉ đạo, kiểm tra chịu trách nhiệm thực văn quy phạm pháp luật, chiến lợc, quy hoạch, chơng trình, kế hoạch thống kê, hệ thống tiêu thống kê quốc gia sau đợc phê duyệt, tuyên truyền, phổ biến, giáo dục pháp luật thông tin thống kê Chỉ đạo, hớng dẫn nghiệp vụ chuyên môn Bộ, quan ngang Bộ, quan thuộc Chính phủ, Tòa án nhân dân tỉnh, thành phố trực thuộc trung ơng việc báo cáo thống kê, điều tra thống kê phân loại thống kê thuộc thẩm quyền Thẩm định chuyên môn nghiệp vụ chế độ báo cáo, phơng án điều tra thống kê Bộ, quan ngang Bộ, quan thuộc phủ, Tòa án nhân dân tối cao, Viện kiểm sát nhân dân tối cao ủy ban nhân dân tỉnh thành phố trực thuộc trung ơng Tổ chức thu thập thông tin kinh tế xà hội, xây dựng quản lý sở liệu quốc gia thông tin thống kê kinh tế xà hội theo quy định pháp luật Báo cáo phủ, Thủ tớng Chính phủ thống kê tổng hợp hàng tháng, quý, năm tình hình kinh tế xà hội, tình hình thực chơng trình mục tiêu quốc gia, mức độ hoàn thành tiêu kế hoạch nhà nớc, báo cáo phân tích dự báo tình hình phát triển kinh tế xà hội hàng năm Giúp phủ thống việc quản lý công bố thông tin thống kê kinh tế xà hội theo quy định pháp luật Công bố thông tin thèng kª thc hƯ thèng chØ tiªu thèng kª quốc gia, cung cấp thông tin thống kê kinh tế xà hội cho quan, tổ chức cấ nhân theo quy định pháp luật, chịu trách nhiệm độ tin cậy số liệu thông tin công bố cung cấp Biên soạn xuất niên giám thống kê, sản phẩm thống kê nớc Cộng hòa xà hội chủ nghĩa Việt Nam số liệu thống kê nớc ngoài, thực so sánh quốc tế thống kê Quản lý dự án đầu t xây dựng lĩnh vực thống kê theo quy định pháp luật Tổ chức đạo thực kế hoạch nghiên cứu khoa học thống kê, ứng dụng tiến khoa học, công nghệ hƯ thèng tỉ chøc thèng kª tËp trung Qut định chủ trơng, biện pháp, đạo hoạt động dịch vụ công hệ thống tổ chức thống kê tập trung theo quy định pháp luật, quản lý đạo hoạt động tổ chức sù nghiƯp thc Tỉng cơc thèng kª Thùc hiƯn mét số nhiệm vụ, quyền hạn cụ thể đại diện chủ sở hữu phần vốn nhà nớc doanh nghiệp có vốn nhà nớc thuộc Tổng cục Thống kê theo quy định pháp luật Kiểm tra, tra, giải khiếu nại tố cáo, chống tham nhũng, tiêu cực xử lý vi phạm thống kê theo thẩm quyền Quyết định đạo thực chơng trình cải cách hành Tổng cục thống kê theo mục tiêu nội dung chơng trình cải cách hành nhà nớc đà đợc Thủ tớng phủ phê duyệt Quản lý tổ chức máy, biên chế, đạo thực chế độ tiền lơng chế độ sách đÃi ngộ, khen thởng, kỷ luật cán bộ, công chức, viên chức nhà nớc thuộc phạm vi quản lý Tổng cục thống kê, đào tạo, bồi dỡng chuyên môn nghiệp vụ thống kê cán bộ, công chức, viên chức nhà nớc thuộc phạm vi quản lý Tổng cục thống kê Quản lý tài chính, tài sản đợc giao tổ chức thực ngân sách đợc phân bố theo quy định pháp luật Hệ thống tỉ chøc cđa Tỉng cơc Thèng kª Tỉng cơc thèng kê đợc tổ chức theo ngành dọc, gồm có: - Trung ơng có quan Tổng cục thống kê - tỉnh thành phố trực thuộc trung ơng có Cơc Thèng kª trùc thc Tỉng cơc Thèng kª - huyện quận thị xà thành phố thuộc tỉnh có Phòng Thống kê trực thuộc Cục thống kê tỉnh, thành trùc thc trung ¬ng C¬ cÊu tỉ chøc quan Tổng cục thống kê: - Các tổ chøc gióp Tỉng cơc trëng thùc hiƯn nhiƯm vơ, qun hạn quản lý nhà nớc: + Vụ Hệ thống tài khoản quốc gia + Vụ phơng pháp chế độ thống kê + Vụ Thống kê tổng hợp + Vụ Thống kê Công nghiệp xây dựng + Vụ Thống kê Nông, Lâm nghiệp Thủy sản + Vụ Thống kê Thơng mại, Dịch vụ giá + Vụ Thống kê Dân số Lao động + Vụ Thống kê Xà hội Môi trờng + Vụ Hợp tác qc tÕ + Vơ Tỉ chøc c¸n bé + Vơ Kế hoạch tài + Thanh tra + Văn phòng - Các đơn vị nghiệp thuộc Tổng cục Thống kª: + ViƯn nghiªn cøu Khoa häc thèng kª + Trung tâm tin học thống kê + Trung tâm t liệu thống kê + Tạp chí số kiện Các đơn vị nghiệp khác có giao Tổng cục trởng Tổng cục Thống kê tổ chức xếp theo quy định pháp luật II Những thành tựu ngành thống kê Việt Nam Trong trình xây dựng phát triển, ngành thống kê Việt Nam đà bớc trởng thành, phục vụ đắc lực cho nghiệp xây dựng bảo vệ Tổ quốc theo yêu cầu Đảng Nhà nớc qua giai đoạn Trong năm kháng chiến chống thực dân Pháp xâm lợc (1846 1954), bối cảnh Nhà nớc thành lập, khó khăn nhiều mặt, vừa kháng chiến, vừa kiến quốc, phơng tiện thông tin liên lạc, sở vật chất thiếu thốn, trình độ nghiệp vụ chuyên môn cán thống kê hạn chế, số lợng cán thống kê mỏng Song luôn đợc Đảng Bác Hồ quan tâm đạo sát sao, cán thống kê nhiệt tình hăng say, nên thời kỳ kháng chiến chống thực dân Pháp xâm lợc, công tác thống kê đà làm đợc nhiều việc nh thờng xuyên kịp thời nắm bắt tình hình tổng hợp báo cáo thờng kỳ kết tăng gia sản xuất, diệt giặc đói, xóa nạn mù chữ, thống kê giá số sản phẩm chủ yếu, thực giảm tô, giảm tức thực thuế nông nghiệp v.v vùng tự để phục vụ kịp thời yêu cầu đạo Chính phủ Năm 1954, hòa bình đợc lập lại miền Bắc, tổ chức máy ngành thống kê lúc sơ khai, đội ngũ cán từ trung ơng đến địa phơng hầu hết từ cán trị quân đội chuyển sang, cha biết nghiệp vụ thống kê Nhng với tinh thần ngời chiến sĩ cách mạng, đồng chí đà vừa làm vừa học thực tế, học hỏi chuyên gia Liên xô, Trung quốc Đội ngũ cán thống kê ban đầu ỏi đà trởng thành phát triển số lợng trình độ chuyên môn nghiệp vụ, đủ sức thực nhiệm vụ trị ngành Trong điều kiện xây dựng CNXH miền Bắc tiếp tục đấu tranh giải phóng miền Nam, thống Tổ quốc, ngành Thống kê đà vào thực tiễn, tiếp thu kinh nghiệm thống kê nớc anh em, phát triển công tác nhiều mặt Phù hợp với yêu cầu đợc xây dựng sở thống thống kê, kế toán chế độ ghi chép ban đầu Các điều tra chuyên đề, điều tra trọng điểm, kiểm kê hàng hóa, vật t đà tổ chức để thu thập số liệu phục vụ yêu cầu khác quan quản lý Nhà nớc Trên sở đó, ngành Thống kê đà cung cấp thông tin cho việc xây dựng kế hoạch, quản lý điều hành trực tiếp tham gia đánh giá kết thực kế hoạch Nhà nớc theo cấp từ trung ơng đến địa phơng, từ Bộ ngành đến doanh nghiệp Sớm nhận thức đợc vai trò giới hóa tự động hóa công tác tính toán thống kê, từ đầu năm 1970, ngành thống kê đà bớc hình thành hệ Trung tâm tính toán, máy móc thiết bị thô sơ, nhng đà phục vụ đắc lực cho việc xử lý số liệu thống kê từ báo cáo định kỳ đến kết điều tra, điều tra lớn nh tổng điều tra dân số, kiểm kê hàng hóa, vật t v.v Trong thời gian chiến tranh phá hoại miền Bắc đất nớc chuyển sang thời chiến, đội ngũ cán thống kê từ trung ơng đến địa phơng không ngại gian khổ hy sinh, bám sát sở, thu thập thông tin, phản ánh kịp thời tình hình kinh tế xà hội hậu phơng lớn Nhiều cán thống kê đà lên đờng chi viện cho miỊn Nam rt thÞt, trùc tiÕp tham gia chiÕn ®Êu gi¶i phãng miỊn Nam, thèng nhÊt Tỉ qc Thùc nghĩa vụ quốc tế, nhiều cán thống kê đà lên đờng chi viện cho nớc bạn xây dựng phát triển công tác thống kê Năm 1975, miền Nam hoàn toàn giải phóng, đất nớc thống nhất, nớc tiến lên CNXH Theo yêu cầu Đảng Nhà nớc tình hình mới, với quan quản lý Nhà nớc, tổ chức máy quan thống kê tất tỉnh, thành phố miền Nam đà nhanh chóng hình thành với nòng cốt cán thống kê có lực kinh nghiệm từ Tổng cục Cục Thống kê miền Bắc, hàng trăm cán đà đợc tuyển dụng để bố trí vào máy thống kê từ tỉnh, thành phố đến quận, huyện miền NamVới tâm cao, toàn ngành Thống kê đà phấn đấu vợt khó khăn triển khai công việc, ổn định tổ chức, đà nhanh chóng thu thập tổng hợp đợc số liệu thống kê phạm vi níc Cho ®Õn tríc thêi kú ®ỉi míi, nỊn kinh tÕ kÕ ho¹ch hãa tËp trung, sè liƯu thèng kê giữ vai trò chủ yếu, quan trọng việc đánh giá tình hình thực kế hoạch Nhà níc mét c¸ch rÊt chi tiÕt HƯ thèng sè liƯu thời kỳ thiếu để xây dựng đánh giá kết thực kế hoạch quý, năm năm, nh để nghiên cứu xây dựng sách chiến lợc kinh tế xà hội Đảng Chính phủ Bớc sang thời kỳ đổi mới, cán bộ, công chức ngành Thống kê từ trung ơng đến địa phơng đà quán triệt đờng lối Đảng, bớc đổi công tác ngành Từ hệ thống tiêu thống kê phục vụ chế quản lý, kế hoạch hóa tập trung với nhiều tiêu vật, nặng mô t¶, chđ u phơc vơ cho qu¶n lý kinh tÕ vi mô, ngành Thống kê đà nhanh chóng cải tiến hƯ thèng chØ tiªu thèng kª, bỉ sung nhiỊu chØ tiêu giá trị phục vụ quản lý Nhà nớc tầm vĩ mô nhiều nhu cầu thông tin đa dạng khác Nội dung phơng pháp thống kê đợc chuyển đổi bớc, đặc biệt phải kể đến vấn đề phơng pháp luận quan trọng nh: Chuyển hệ thống phơng pháp luận thống kê bảng cân đối vật chất (MPS) sang hệ thống tài khoản quốc gia (SNA), chuyển đổi phơng pháp tính số giá tiêu dùng, nghiên cứu áp dụng tiêu suất, hiệu số ngành sản xuất chủ yếu số nguồn nhân lực, tăng cờng áp dụng phơng pháp điều tra chọn mẫu, xây dựng nhiều bảng danh mục theo chuẩn quốc tế, tăng cờng thống kê xà hội, môi trờngHệ thống tieu thống kê ngày hoàn thiện phản ánh đầy đủ tình hình kinh tế xà hội điều kiện hoàn cảnh phù hợp với thông lệ thống kê quốc tế, nâng cao tính so sánh số liệu thống kê nớc ta với nớc giới Trong năm đổi mới, ngành Thống kê đà tiến hành có kết điều tra lớn nh: Tổng điều tra dân số năm 1989, tổng điều tra dân số nhà năm 1999, tổng điều tra nông nghiệp nông thôn năm 1994, tổng điều tra nông thôn, nông nghiệp thủy sản năm 2001, tổng điều tra sở kinh tế, hành nghiệp năm 1995 năm 2002, điều tra đời sống kinh tế hộ gia đình, điều tra vốn đầu t phát triển toàn xà hội, điều tra doanh nghiệp, điều tra lao động việc làm, điều tra chuyên ngành khác Nhờ nguồn thông tin thống kê cung cấp ngày phong phú, chất lợng thông tin cao hơn, trình độ kinh nghiệm nghề nghiệp cán toàn ngành Thống kê đợc nâng lên, đánh dấu bớc trởng thành ngành Thống kê chế Để tăng cờng môi trờng pháp lý cho công tác thống kê, Pháp lệnh Kế toán Thống kê, Nghị định Chính phủ xử phạt vi phạm hành lĩnh vực thống kê đà đợc ban hành năm đầu thời kỳ đổi Nhằm tăng cờng môi trờng pháp lý cho công tác thống kê ngày 17/6/2003 Quốc hội nớc CHXHCN Việt Nam đà ban hành Luật thống kê thay cho Pháp lệnh Kế toàn Thống kê ngày 13/2/2004 Chính phủ nghị định số 40/2004/NĐ - CP quy định chi tiết hớng dẫn thi hành số điều Luật Thống Kê Công tác xây dựng, tổ chức bồi dỡng đội ngũ cán đợc trọng củng cố phát triển, sở vật chất kỹ thuật ngành Thống kê đợc tăng cờng đáng kể Thực Nghị só 49/CP phủ việc phát triển công nghệ thông tin, từ năm 1996 ngành Thống kê đà xây dựng đợc sở hạ tầng công nghệ thông tin tơng đối đại quan Tổng cục nhiều Cục Thống kê Mạng lới tin học diện rộng sở liệu ngành đà hình thành, giúp cho việc khai thác số liệu thống kê đối tợng sử dụng đợc dễ dàng, nhanh chóng Cán thống kê đà bớc đợc đào tạo công nghệ thông tin Đa số cán thống kê trung ơng tỉnh, thành phố thờng xuyên áp dụng công nghệ tin học xử lý tổng hợp số liệu Hệ thống trang thiết bị ngày phát huy tác dụng tích cực 10 use CongTong * chinh with Matinh Tonghop sele solieu * Ghi tg cho tung Huyen for bra=1 to 16 Ghitg with bra,MaTinh,Mahuyen endfor sele Hstinh Repl tsho with soho,mautt_nam with nam_tt,mautt_nu with nu_tt Repl tsho_TT with sohoTT,tsho_NT with sohonT if mautt_nam0 Repl hstt_nam with dstt_nam/mautt_nam endif if mautt_nu0 Repl hstt_nu with dstt_nu/mautt_nu endif Repl maunt_nam with nam_nt,maunt_nu with nu_nt Repl hsnt_nam with dsnt_nam/maunt_nam,hsnt_nu with dsnt_nu/maunt_nu else * * * * * dstt_nu/mautt_nu * * * dsnt_nu/maunt_nu * skip enddo sele hsTinh use dele file slHuyen.dbf Mahuyen=0 sele hs2004 loca for mtinh=Matinh if found() sott_nam=hstt_nam sott_nu=hstt_nu sont_nam=hsnt_nam sont_nu=hsnt_nu endif store to soho,nam_tt,nu_tt,nam_nt,nu_nt,sohoTT,sohoNT sele use &Fsl copy to slTam use slTam alias solieu chinh with Matinh Tonghop sele solieu use dele file slTam.dbf CongTong * sele hs2004 loca for mtinh=Matinh if found() Repl tsho with soho,mautt_nam with nam_tt,mautt_nu with nu_tt Repl hstt_nam with dstt_nam/mautt_nam,hstt_nu with Repl maunt_nam with nam_nt,maunt_nu with nu_nt Repl hsnt_nam with dsnt_nam/maunt_nam,hsnt_nu with endif endif endif * Ghi tg for bra=1 to 16 Ghitg with bra,MaTinh,Mahuyen endfor Return * Proc Congdon sele tgBCN 92 sort on mb,md to slft zap Dime bts(67) store to bts sele use slft alias slft go top imb=mb imd=md iTen=ten cKieu=K_in while not eof() if mb=imb and md=imd for j=1 to 67 cot="c"+allt(str(j,2)) bts(j)=bts(j)+&cot endfor else sele tgBCN appe blank Repl tinh with 0,ten with iten,mb with imb,md with imd,K_in with cKieu for j=1 to 67 cot="c"+allt(str(j,2)) Repl &cot with bts(j) endfor sele slft store to bts imb=mb imd=md iTen=ten cKieu=K_in loop endif skip enddo sele tgBCN appe blank Repl tinh with 0,ten with iten,mb with imb,md with imd,K_in with cKieu for j=1 to 67 cot="c"+allt(str(j,2)) Repl &cot with bts(j) endfor sele slft use dele file slft.dbf Rele bts Return ************************* * Chia Ty le, BQ * ************************* Proc Chia sele tgBCN scan for Subs(mb,2,2)="04" if c10 Repl c2 with c2*100/c1 Repl c3 with c3*100/c1 Repl c4 with c4*100/c1 Repl c5 with c5*100/c1 Repl c6 with c6*100/c1 Repl c1 with c1*100/c1 endif endscan scan for Subs(mb,2,2)="05" if c10 Repl c2 with c2*100/c1 Repl c3 with c3*100/c1 Repl c4 with c4*100/c1 Repl c5 with c5*100/c1 Repl c6 with c6*100/c1 Repl c7 with c7*100/c1 93 Repl c8 with c8*100/c1 Repl c1 with c1*100/c1 endif endscan scan for Subs(mb,2,2)="07" if c70 Repl c1 with c1*100/c7 endif if c80 Repl c2 with c2*100/c8 endif if c90 Repl c3 with c3*100/c9 endif if c100 Repl c4 with c4*100/c10 endif if c110 Repl c5 with c5*100/c11 endif if c120 Repl c6 with c6*100/c12 endif endscan dime ts(12) store to ts scan for Subs(mb,2,2)="08" if md=1 for j=1 to 12 cot="c"+allt(str(j,2)) ts(j)=&Cot endfor endif * for j=1 to 12 cot="c"+allt(str(j,2)) if ts(j)0 Repl &cot with &cot*100/ts(j) endif endfor endscan store to ts scan for Subs(mb,2,2)="09" if md=1 for j=1 to 12 cot="c"+allt(str(j,2)) ts(j)=&Cot endfor endif * for j=1 to 12 cot="c"+allt(str(j,2)) if ts(j)0 Repl &cot with &cot*100/ts(j) endif endfor endscan scan for Subs(mb,2,2)="10" for j=1 to 12 cot="c"+allt(str(j,2)) cotc="c"+allt(str(j+12,2)) if &cot0 Repl &cot with &cotc/&cot endif endfor Endscan 94 scan for Subs(mb,2,2)="12" if c50 Repl c1 with c1*100/c5 endif if c60 Repl c2 with c2*100/c6 endif if c70 Repl c3 with c3*100/c7 endif if c80 Repl c4 with c4*100/c8 endif endscan scan for Subs(mb,2,2)="13" if c60 Repl c4 with c7*100/c6 endif if c80 Repl c2 with c5*100/c8 Repl c3 with c6*100/c8 endif endscan scan for Subs(mb,2,2)="16" for j=1 to 12 cot="c"+allt(str(j,2)) cotc="c"+allt(str(j+12,2)) if &cot0 Repl &cot with &cot*100/&cotc endif endfor Endscan Return ******************** * Cong Tong * ******************** Proc CongTong for bra=1 to 16 Bi="B"+padl(allt(str(Bra,2)),2,"0") sele dmBieu loca for Mab=Bra if found() sdong=tsdong scot=tscot For i=1 to sdong for j=1 to scot &Bi(i,j)=Int(&Bi(i,j)) endfor Endfor endif endfor for i=1 to 17 B01(i,3)=B01(i,3)+B01(i,4) B01(i,5)=B01(i,5)+B01(i,6) B01(i,1)=B01(i,3)+B01(i,5) B01(i,2)=B01(i,4)+B01(i,6) endfor && TS=Nam+Nu for i=1 to 12 B02(i,3)=B02(i,3)+B02(i,4) && TS=Nam+Nu B02(i,5)=B02(i,5)+B02(i,6) B02(i,1)=B02(i,3)+B02(i,5) B02(i,2)=B02(i,4)+B02(i,6) endfor * Chinh lai LD tuoi B02(13,3)=B06(1,7)+B06(1,8) B02(13,5)=B06(1,11)+B06(1,12) 95 B02(13,1)=B02(13,3)+B02(13,5) B02(13,2)=B02(13,4)+B02(13,6) * for i=1 to 14 B03(i,3)=B03(i,3)+B03(i,4) && TS=Nam+Nu B03(i,5)=B03(i,5)+B03(i,6) B03(i,1)=B03(i,3)+B03(i,5) B03(i,2)=B03(i,4)+B03(i,6) endfor * Chinh lai B06 Co VL+TN=HDKT(b03) for i=1 to 14 B06(i,5)=B03(i,3)-B06(i,6) B06(i,9)=B03(i,5)-B06(i,10) endfor for i=1 to 14 B06(i,1)=B06(i,5)+B06(i,9) B06(i,2)=B06(i,6)+B06(i,10) B06(i,3)=B06(i,7)+B06(i,11) B06(i,4)=B06(i,8)+B06(i,12) endfor for i=1 to 14 B07(i,1)=B07(i,3)+B07(i,5) B07(i,2)=B07(i,4)+B07(i,6) B07(i,7)=B07(i,9)+B07(i,11) B07(i,8)=B07(i,10)+B07(i,12) endfor for j=1 to 12 B08(1,j)=B08(3,j)+B08(4,j) endfor * Chinh lai B15 B15(1,1)=B01(3,1)-B03(1,1) B15(3,1)=B01(6,1)-B03(3,1) B15(4,1)=B01(7,1)-B03(4,1) B15(5,1)=B01(8,1)-B03(5,1) B15(6,1)=B01(9,1)-B03(6,1) B15(7,1)=B01(10,1)-B03(7,1) B15(8,1)=B01(11,1)-B03(8,1) B15(9,1)=B01(12,1)-B03(9,1) B15(10,1)=B01(13,1)-B03(10,1) B15(12,1)=B01(15,1)-B03(12,1) B15(13,1)=B01(16,1)-B03(13,1) B15(14,1)=B01(17,1)-B03(14,1) for i=1 to 14 B15(i,4)=B15(i,1)-B15(i,2)-B15(i,3) endfor for i=1 to 17 B16(i,1)=B16(i,2)+B16(i,3)+B16(i,4)+B16(i,5)+B16(i,6)+B16(i,7)+B16(i,8)+B16(i,9) B16(i,13)=B16(i,14)+B16(i,15)+B16(i,16)+B16(i,17)+B16(i,18)+B16(i,19)+B16(i,20)+B16(i,21) endfor if b07(1,4)b16(1,1) ?"Tinh "+str(MaTinh,3)+" - TN " endif if b07(1,10)b16(1,13) ?"Tinh "+str(MaTinh,3)+" - HDKT " endif Return ********************************** * Ghi cac Bieu Trung gian * ********************************** Proc Ghitg Para Bra,MaTinh,Mahuyen wait wind "Bieu "+str(bra,5) nowait bdm=Bra if Bra=4 or Bra=5 or Bra=6 or Bra=7 or Bra=12 or Bra=13 or Bra=14 or Bra=15 96 cKieu bdm=3 endif * Bi="B"+padl(allt(str(Bra,2)),2,"0") sele dmBieu loca for Mab=Bra if found() sdong=tsdong scot=tscot For i=1 to sdong iTen=" " cKieu=0 sele dmuc seek str(bdm,2)+str(i,2) if found() iTen=ten cKieu=Kieu_in endif sele tgBCN appe Blank Repl tinh with MaTinh,Huyen with Mahuyen,md with i,Ten with iTen,K_in with Repl mb with bi for j=1 to scot cot="c"+allt(str(j,2)) Repl &cot with &Bi(i,j) endfor endfor endif Return * ************************************** * Cong vao cac Bieu trung gian * ************************************** Proc Tonghop sele solieu Store to b01,b02,b03,b04,b05,b06,b07,b08,b09,b10,b11,b12,b13,b14,b15,b16 Store to mht,mh,mc,tuoi,Gtinh,tdvh,cmkt,Kvkt,Tpkt,Lamthem,Thunhap,TinhLv,mhTinh go top while not eof() wait wind "Tinh :"+str(tinh,3)+" - "+str(recno(),5)+"/"+str(Recc(),5) nowait Tuoi=H5 Gtinh=H3 Tdtuoi=0 if H2=1 && Chu ho soho=soho+1 if ttnt=1 sohoTT=sohoTT+1 else sohoNT=sohoNT+1 endif endif if ttnt=1 if Gtinh=1 nam_tt=nam_tt+1 else nu_tt=nu_tt+1 endif else if Gtinh=1 nam_nt=nam_nt+1 else nu_nt=nu_nt+1 endif endif * store to soc if cosr=1 && Gan so ruy rong if ttnt=1 97 else if Gtinh=1 soc=sott_nam else soc=sott_nu endif if Gtinh=1 soc=sont_nam else soc=sont_nu endif endif endif * TDVH if H6_lop=0 and H6_he=0 tdvh=1 else if H6_he=12 case case H6_Lop=5 and H6_lop=9 and H6_lop7 cmkt=7 endif endif * if Tuoi>=15 if gtinh=1 && nam if tuoi0 B03(Kv+11,mc)=B03(Kv+11,mc)+soc endif B04(1,1)=B04(1,1)+soc B04(1,Tdvh+1)=B04(1,Tdvh+1)+soc B04(Vung+2,1)=B04(Vung+2,1)+soc B04(Vung+2,Tdvh+1)=B04(Vung+2,Tdvh+1)+soc if Kv>0 B04(Kv+11,1)=B04(Kv+11,1)+soc B04(Kv+11,Tdvh+1)=B04(Kv+11,Tdvh+1)+soc endif B05(1,1)=B05(1,1)+soc B05(1,cmkt+1)=B05(1,cmkt+1)+soc B05(Vung+2,1)=B05(Vung+2,1)+soc B05(Vung+2,cmkt+1)=B05(Vung+2,cmkt+1)+soc if Kv>0 B05(Kv+11,1)=B05(Kv+11,1)+soc B05(Kv+11,cmkt+1)=B05(Kv+11,cmkt+1)+soc endif * mctt=ttnt*4 if c170 && That nghiep mc=mctt+2 else && Co VL mc=mctt+1 endif B06(1,mc)=B06(1,mc)+soc B06(Vung+2,mc)=B06(Vung+2,mc)+soc if Kv>0 B06(Kv+11,mc)=B06(Kv+11,mc)+soc endif if tdtuoi=1 B06(1,mc+2)=B06(1,mc+2)+soc B06(Vung+2,mc+2)=B06(Vung+2,mc+2)+soc if Kv>0 B06(Kv+11,mc+2)=B06(Kv+11,mc+2)+soc endif endif * mc=ttnt*2+7 && HDKT lam mau so B07(1,mc)=B07(1,mc)+soc B07(Vung+2,mc)=B07(Vung+2,mc)+soc if Kv>0 B07(Kv+11,mc)=B07(Kv+11,mc)+soc endif if tdtuoi=1 B07(1,mc+1)=B07(1,mc+1)+soc B07(Vung+2,mc+1)=B07(Vung+2,mc+1)+soc if Kv>0 B07(Kv+11,mc+1)=B07(Kv+11,mc+1)+soc endif * TN chia theo nhãm tuoi vµ TD CMKT if ttnt=1 congB16 with congB16 with mht 99 * endif case case c1=1 mhc=14 case c1>=2 and c10 B07(Kv+11,mc)=B07(Kv+11,mc)+soc endif if tdtuoi=1 B07(1,mc+1)=B07(1,mc+1)+soc B07(Vung+2,mc+1)=B07(Vung+2,mc+1)+soc if Kv>0 B07(Kv+11,mc+1)=B07(Kv+11,mc+1)+soc endif endif * if ttnt=1 && khu vuc thi CongB8 with "B08",Gtinh+2 CongB8 with "B08",mht+3 CongB8 with "B08",cmkt+16 case case c18=11 or c18=12 or c18=13 Ldtn=1 case c18=20 Ldtn=2 case c18=30 Ldtn=3 case c18=41 or c18=42 or c18=43 Ldtn=4 othe Ldtn=5 endcase CongB8 with "B08",Ldtn+24 if c17=0 or c17>4 Tgtn=1 else Tgtn=c17 endif CongB8 with "B08",Tgtn+30 endif else && c17=0 Co VL XDNKT xdLHKT CongB8 with "B09",1 CongB8 with "B09",Kvkt+2 CongB8 with "B09",Tpkt+6 if c10=1 or c10=2 CongB8 with "B09",12 else CongB8 with "B09",11 endif * Bieu Tnbq 1->12=13->24/1->12 CongB10 with if c10=1 or c10=2 CongB10 with endif if ttnt=1 100 CongB10 with if c10=1 or c10=2 CongB10 with endif else CongB10 with if c10=1 or c10=2 CongB10 with endif endif * if Tinhc9 && LV o Tinh khac store to TinhLv,mhTinh xdTinh with TinhLv,mhTinh B11(1,1)=B11(1,1)+soc B11(1,TinhLV+1)=B11(1,TinhLV+1)+soc B11(mhTinh+1,1)=B11(mhTinh+1,1)+soc B11(mhTinh+1,TinhLV+1)=B11(mhTinh+1,TinhLV+1)+soc else store to TinhLv,mhTinh xdTinh with TinhLv,mhTinh B11(1,67)=B11(1,67)+soc B11(mhTinh+1,67)=B11(mhTinh+1,67)+soc endif endif && KT that nghiep else && Khong HDKT if c19=0 or c19>2 && Tu ma den ma vao cot mc=4 else mc=c19+1 endif B15(1,1)=B15(1,1)+soc B15(1,mc)=B15(1,mc)+soc B15(Vung+2,1)=B15(Vung+2,1)+soc B15(Vung+2,mc)=B15(Vung+2,mc)+soc if KV>0 B15(Kv+11,1)=B15(Kv+11,1)+soc B15(Kv+11,mc)=B15(Kv+11,mc)+soc endif endif && Ket Thuc HDKT * if ttnt=2 and datnn=1 if c19=0 && HDKT if c170 && That nghiep mc=3 else && Co VL mc=2 endif else && Khong HDKT if c19=0 or c19>6 mc=9 else mc=c19+3 endif endif B14(1,1)=B14(1,1)+soc B14(1,mc)=B14(1,mc)+soc B14(Vung+2,1)=B14(Vung+2,1)+soc B14(Vung+2,mc)=B14(Vung+2,mc)+soc if KV>0 B14(Kv+11,1)=B14(Kv+11,1)+soc B14(Kv+11,mc)=B14(Kv+11,mc)+soc endif endif * if ttnt=2 && Khu vuc Nong thon if c21(c22_1+c22_2) ?str(tinh,3)+str(huyen,3)+diaban+str(hoso,10)+str(c21,10)+str((c22_1+c22_2),10)+" Chenh "+str(c21-(c22_1+c22_2),10) endif 101 if (c21+c24)>=183 or c26>=183 &&HDKTTX 12 thang qua Congb12 with Congb12 with Vung+2 if Kv>0 Congb12 with KV+11 endif * Congb13 with Congb13 with Vung+2 if Kv>0 Congb13 with KV+11 endif endif &&HDKTTX 12 thang qua endif endif && Ket thuc >= 15 tuoi skip enddo Return * Proc CongB16 Para mh b16(mh,Vung+13)=b16(mh,Vung+13)+soc if KV>0 b16(mh,Kv+21)=b16(mh,Kv+21)+soc endif if c170 b16(mh,Vung+1)=b16(mh,Vung+1)+soc if KV>0 b16(mh,Kv+9)=b16(mh,Kv+9)+soc endif endif Return * Proc CongB12 Para mh b12(mh,1)=b12(mh,1)+c21 b12(mh,5)=b12(mh,5)+c21+c24+c26 if gTinh=2 b12(mh,2)=b12(mh,2)+c21 b12(mh,6)=b12(mh,6)+c21+c24+c26 endif if tdtuoi=1 b12(mh,3)=b12(mh,3)+c21 b12(mh,7)=b12(mh,7)+c21+c24+c26 if gTinh=2 b12(mh,4)=b12(mh,4)+c21 b12(mh,8)=b12(mh,8)+c21+c24+c26 endif endif Return * Proc CongB13 Para mh b13(mh,1)=b13(mh,1)+soc b13(mh,5)=b13(mh,5)+c22_1 b13(mh,6)=b13(mh,6)+c22_2 b13(mh,7)=b13(mh,7)+c22_3 b13(mh,8)=b13(mh,8)+c21 Return * Proc CongB8 Para bi,mh &bi(mh,1)=&bi(mh,1)+soc &bi(mh,Vung+1)=&bi(mh,Vung+1)+soc if KV>0 &bi(mh,Kv+9)=&bi(mh,Kv+9)+soc endif Return * 102 Proc CongB10 Para mh b10(mh,1)=b10(mh,1)+1 b10(mh,Vung+1)=b10(mh,Vung+1)+1 b10(mh,13)=b10(mh,13)+c15 b10(mh,Vung+13)=b10(mh,Vung+13)+c15 if KV>0 b10(mh,Kv+9)=b10(mh,Kv+9)+1 b10(mh,Kv+21)=b10(mh,Kv+21)+c15 endif Return * Proc xdLhkt case case c11>=11 and c11=21 and c11=10 and Val(c8)=15 and tuoi=20 and tuoi=25 and tuoi=30 and tuoi=35 and tuoi=40 and tuoi=45 and tuoi=50 and tuoi=55 and tuoi=60 mht=12 endcase return * Proc xdVungKT case case Matinh=101 or Matinh=103 or Matinh=104 or Matinh=105 or Matinh=106 or Matinh=107 ; or Matinh=109 or Matinh=225 Kv=1 case Matinh=501 or Matinh=503 or Matinh=505 or Matinh=507 or Matinh=411 Kv=2 case Matinh=701 or Matinh=713 or Matinh=717 or Matinh=711 or Matinh=709 or Matinh=707 ; or Matinh=801 Kv=3 Othe Kv=0 endcase Return - cmbTinh.Click cMat=SUBS(THISFORM.cmbTinh.LISTITEM(THISFORM.cmbTinh.LISTINDEX),1,3) if Val(cMat)