Nghiên cứu hệ thống chỉ tiêu đánh giá và giải pháp tăng cường năng lực quản lý khai thác công trình cầu đường bộ khu vực thành phố hồ chí minh

BỘ GIÁO DỤC VÀ ĐÀO TẠO ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA - TRAÀN MINH TRUNG NGHIÊN CỨU HỆ THỐNG CHỈ TIÊU ĐÁNH GIÁ VÀ GIẢI PHÁP TĂNG CƯỜNG NĂNG LỰC QUẢN LÝ- KHAI THÁC CÔNG TRÌNH CẦU ĐƯỜNG BỘ KHU VỰC TP.HCM CHUYÊN NGÀNH: CẦU,TUYNEN MÃ NGÀNH: 02.15.10 NĂM 2003 Mục lục MỤC LỤC Trang NỘI DUNG TẬP I PHẦN I : TỔNG QUAN CHƯƠNG 1: PHẦN MỞ ĐẦU Đặt vấn đề 1.1 1.2 Sự cần thiết nghiên cứu trạng 1.3 Nội dung luận án PHẦN II: NGHIÊN CỨU CHUYÊN SÂU PHÁT TRIỂN CHƯƠNG :PHÂN TÍCH TỔNG QUAN VÀ ĐÁNH GIÁ HIỆN TRẠNG………… 2.1 Tổng quan hệ thống cầu đường thành phố Hồ Chí Minh ……… 4 9 2.1.1 Khái quát 2.1.2 Hiện trạng hệ thống cầu đường địa bàn thành phố 2.1.3 Sự đa dạng hệ thống cầu địa bàn thành phố 11 2.1.3.1 Thời gian sử dụng tuổi thọ công trình 11 2.1.3.2 Các kết cấu tiêu chuẩn kết cấu 12 2.1.3.3 Chiều dài nhịp khổ cầu 13 2.1.3.4 Tải trọng thiết kế qui trình thiết kế 13 2.1.3.5 Phân loại cầu 14 2.1.3.5.1 Phân loại theo sơ đồ chịu lực 14 2.1.3.5.2 Phân loại theo vật liệu 15 15 2.1.3.5.3 Phân loại theo thời gian khai thác 2.1.4 Tác động khí hậu, nhiệt độ, môi trường………………………………………… 16 động trình thi công 2.1.5 Tác …………………………………………………………… 17 2.1.6 Những vấn đề tồn hệ thống cầu địa bàn thành phố 19 2.1.6.1 Đối với dạng cầu phổ biến khu vực TP Hồ Chí Minh 20 a) Cầu có tính phổ biến cầu 20 ………………………………………………………………………… b) Đối với cầu có nhịp dầm thép hình I lắp ghép 2.1.6.2 Đối với cầu đặc biệt lắp 22 ghép 23 2.2 Tổng quan công tác quản lý khai thác cầu ………………………….………… 25 2.2.1 Đánh giá chung công tác quản lý cầu đường ………………………………… 25 2.2.2 Đánh giá chung công tác khai thác cầu đường ……………………………… 30 2.2.3 Những vấn đề tồn cần khắc phục công tác quản lý……………… 32 2.2.4 Đánh giá công tác bảo vệ, đảm bảo an toàn cho hệ thống cầu…………… 34 2.2.5 Những biện pháp cần tổ chức thực kiến nghị ………………… 35 Trang Mục lục 2.3 Kết luận 36 2.3.1 Hiện trạng hệ thống cầu Thành phố Hồ Chí Minh 36 2.3.2 Công tác quản lý khai thác hệ thống cầu đường ………………………… 2.3.3 Những vấn đề cấp thiết cần tập trung giải 37 37 CHƯƠNG 3: NGHIÊN CỨU CÁC CHỈ TIÊU ĐÁNH GIÁ ………………………………………… 39 3.1.1 Cơ sở phương pháp luận 39 3.2 Các ưu nhược điểm hệ thống đánh giá chất lượng …………………………… 40 40 3.2.1 Công tác tuần tra 3.2.2 Phương pháp đánh giá tình trạng kỹ thuật ………………………………………… 41 41 3.2.3 Nhận xét 3.3 Kinh nghiệm quản lý, kiểm tra đánh giá cầu đường ……………………… 3.3.1 Phương pháp Phần Lan 43 44 3.3.1.1 Kiểm định cầu 47 3.3.1.2 Các bước tiến hành kiểm định cầu Đánh giá hư hỏng phát 48 3.3.1.3 Những nguyên tắc để tính toán khả chịu tải ………… 49 3.3.1.4 Dự báo tuổi thọ lại cầu mức đôï xác 50 3.3.1.5 Khả chịu tải mức xác 51 3.3.1.6 Thử tải kết thúc tính toán khả chịu tải 51 3.3.1.7 51 3.3.2 Phương pháp Vương quốc Anh 52 3.3.2.1 Tầm quan trọng việc kiểm tra cầu 52 3.3.2.2 Khái niệm hình thức kiểm tra cầu 52 3.3.2.3 Kiểm tra thường xuyên 54 3.3.2.4 Kiểm tra chi tiết 58 3.3.3 Phương pháp Nhật Bản Giới thiệu 3.3.3.1 Những tiêu chuẩn trình tự chủ yếu để đánh giá …………………59 3.3.3.2 Phân loại công tác kiểm tra 65 3.3.3.3 67 3.3.3.4 Phương pháp trình tự kiểm tra công trình Phương pháp lựa chọn hạng mục điều tra 69 3.3.3.5 Thời gian thời điểm tiến hành việc kiểm tra 71 3.3.3.6 Những biện pháp sửa chữa công trình hư hỏng 76 3.3.3.7 42 58 3.4 Xây dựng hệ thống tiêu đánh giá chất lượng kỹ thuật………………………… 78 3.4.1Phân loại chất lượng kỹ thuật 79 Trang Mục lục 3.4.2.Các hình thức kiểm tra chủ yếu 3.4.2.1 Kiểm tra chung 3.4.2.3 Kiểm tra chi tiết 3.4.2.4 Kiểm tra đặc biệt 84 3.5 Phương pháp đánh giá trình tự đánh giá chất lượng kỹ thuật ……… 3.3.4 Tình trạng kỹ thuật 3.3.5 Phạm vi hư hỏng 3.3.6 Cách tính mức độ ưu tiên 3.7 Xây dựng hệ thống thông tin quản lý cầu 84 84 84 85 89 86 86 87 CHƯƠNG :ĐỀ XUẤT CÁC GIẢI PHÁP TĂNG CƯỜNG………………………………………… 93 4.1 Hoàn thiện hệ thống thông tin quản lý khu vực thành phố 93 4.2 p dụng tiêu phương pháp đánh giá 94 4.3 Lập kế hoạch tu sửa chữa 95 4.4 Lựa chọn giải pháp thích ứng cho việc tu sửa chữa ………………… 95 4.4.1Điều chỉnh , xác lập chế độ khai thác tạm thời 4.4.1.1 Đối giao thông đường 4.4.1.2 Đối với giao thông đường thủy 4.4.2 Sửa chữa , phục hồi hư hỏng nhẹ , trì khả chịu tải 4.4.2.1 Kết cấu cầu thép 4.4.2.2.Kết cấu cầu BTCT 4.4.2.3 Kết cấu móng mố trụ 4.4.2.4 Kết cấu khác 4.4.3 Mở rộng, nâng cấp tăng cường kết cấu 4.4.3.1 Kết cấu cầu thép 4.4.3.2 Kết cấu cầu BTCT 4.4.3.3 Kết cấu móng mố trụ 4.4.4 Thay xây dựng cầu 95 96 4.5 Kết luận PHẦN III : KẾT LUẬN VÀ KIẾN NGHỊ 99 100 CHƯƠNG KẾT LUẬN VÀ KIẾN NGHỊ 5.1 Những hạn chế tồn công tác quản lý sửa chữa ………………… 5.2 Những yêu cầu công tác ………………………………………………… 101 5.3 Những kiến nghị TẬP II : PHỤ LỤC PHỤ LỤC :BIỂU MẪU KIỂM TRA CẦU PHỤ LỤC :HƯỚNG DẪN CÔNG NGHỆ KIỂM ĐỊNH CẦU…………………… PHỤ LỤC : PHIẾU KIỂM TRA TÌNH TRẠNG KỸ THUẬT CẦU 43 96 96 96 97 97 98 95 96 96 97 97 98 100 quản lý 102 20 Trang Mục lục PHỤ LỤC 4: CHƯƠNG TRÌNH “ NGÂN HÀNG DỮ LIỆU HỆ THỐNG CẦU …” 47 Trang Chương 1: Phần mở đầu PHẦN I TỔNG QUAN Trang Chương 1: Phần mở đầu CHƯƠNG 1: PHẦN MỞ ĐẦU 1.1 ĐẶT VẤN ĐỀ: Thành phố Hồ Chí Minh trãi qua 300 năm tuổi, so với thành phố khác đất nước Việt Nam nói thành phố Hồ Chí Minh thành phố hình thành sớm Vào thời thuộc Pháp, hệ thống giao thông xây dựng chủ yếu để phục vụ cho việc khai thác, vận chuyển tài nguyên, khoáng sản thực dân Pháp, lúc vấn đề qui hoạch đô thị không trọng Đến trước năm 1975, chế độ ng quyền Sài Gòn, hệ thống giao thông trọng xây dựng nhiều hơn, nhiên mục đích chủ yếu để phục vụ chiến tranh Sau năm 1975, chiến tranh kết thúc hạ tầng sở thành phố Hồ Chí Minh chịu hậu nặng nề chiến để lại Chính quyền thành phố có chủ trương qui hoạch xây dựng lại với qui mô đô thị lớn, phục vụ cho khoảng hai triệu dân với diện tích 2095 km2 Đến công xây dựng tái thiết đất nước đạt thành tựu lớn, thành phố Hồ Chí Minh có bước phát triển nhảy vọt Tuy nhiên hệ phát triển nhanh chóng loạt vấn đề bất cập nảy sinh, giao thông đô thị toán nan giải Chỉ tính riêng số dân định cư thành phố lên đến 5.285.454 người (năm 2001), bên cạnh lực lượng lao động nhập cư khoảng 5.000.000 người Như tổng số dân sinh sống làm việc thành phố Hồ Chí Minh khoảng mười triệu dân Con số gây áp lực lớn lên hệ thống hạ tầng thành phố, hệ thống cầu đường mạng lưới giao thông phải làm việc trạng thái tải Những cầu đa chủng loại nằm tuyến đường thành phố Hồ Chí Minh xây dựng từ ngày đầu kỷ đến với nhiều tiêu chuẩn, nhiều mục đích khác nhau, nên việc chẩn đoán đưa giải pháp kỹ Trang Chương 1: Phần mở đầu thuật để tăng cường, sửa chữa đảm bảo an toàn công trình trình khai thác sử dụng việc đơn giản Trên địa bàn thành phố khu vực có hệ thống sông ngòi, kênh rạch chằng chịt, ranh giới hành chánh bao quanh sông lớn sông Đồng Nai, sông Sài Gòn,… Trong thành phố có nhiều sông, dòng kênh rạch lớn nhỏ len lỏi khắp nơi, chúng mang lại nhiều lợi ích kinh tế xã hội cho thành phố, tạo cân sinh thái đem lại vẻ đẹp mỹ quan đô thị, đồng thời phần đáp ứng nhu cầu lại người dân thành phố Và vấn đề không nhắc đến lợi ích thu từ giao thông đường thuỷ Tuy nhiên đồng thời với điều phải xây dựng hàng loạt cầu Đó lý TP Hồ Chí Minh lại có hệ thống cầu dày đặc đến Có thể nói mật độ cầu địa bàn TP Hồ Chí Minh cao so với tất tỉnh thành phố nước 1.2 SỰ CẦN THIẾT NGHIÊN CỨU VỀ HIỆN TRẠNG VÀ TĂNG CƯỜNG NĂNG LỰC HỆ THỐNG CẦU KHU VỰC THÀNH PHỐ HỒ CHÍ MINH Một thực trạng quan quản lý, sửa chữa khai thác cầu đường chưa đưa “định nghóa” có tính khoa học “cầu yếu” Trong cầu yếu cầu yếu để có thứ tự ưu tiên đầu tư sửa chữa, tăng cường xây Thực tế có nhiều trường hợp cầu chưa cần sửa chữa tăng cường lại đầu tư sửa chữa trước, cầu cần sửa chữa chưa đầu tư để xuống cấp trầm trọng Vì vậy, việc nghiên cứu hoàn thiện hệ thống đánh gía chất lượng kỹ thuật công trình cầu thống thích hợp yêu cầu cần thiết cấp bách công tác quản lý sửa chữa khai thác hệ thống cầu đường thành phố Hồ Chí Minh Nó giúp cho đơn vị quản lý cầu đường nắm tình trạng kỹ thuật hệ thống cầu mà làm sở cho việc lập kế hoạch Trang Chương 1: Phần mở đầu đầu tư vốn trang thiết bị cho công tác bảo dưỡng, sửa chữa nâng cấp công trình cầu cách hợp lý điều kiện kinh phí đầu tư hạn chế Từ thực trạng hệ thống cầu địa bàn thành phố Hồ Chí Minh chưa có hệ thống quản lý đánh giá chất lượng kỹ thuật cách có hiệu quả, chưa phát kịp thời hư hỏng, cố dẫn đến cầu sập khả khai thác thiết kế ban đầu Do đó, đề tài nghiên cứu luận án xác định là: “Nghiên cứu hệ thống tiêu đánh giá giải pháp tăng cường lực quản lý - khai thác công trình cầu đường khu vực thành phố Hồ Chí Minh” 1.3 NỘI DUNG CỦA LUẬN ÁN PHẦN I : TỔNG QUAN Chương 1: Phần mở đầu PHẦN II : NGHIÊN CỨU CHUYÊN SÂU PHÁT TRIỂN Chương 2: Phân tích đánh giá trạng - Tổng quan công tác quản lý khai thác hệ thống cầu đường địa bàn thành phố Hồ Chí Minh Chương 3: Nghiên cứu tiêu đánh giá chất lượng kỹ thuật công trình cầu đường khu vực thành phố Hồ Chí Minh Chương4 : Đề xuất giải pháp tăng cường lực quản lý khai thác hệ thống công trình cầu đường khu vực thành phố Hồ Chí Minh PHẦØN III : KẾT LUẬN VÀ KIẾN NGHỊ Chương 5: Kết luận kiến nghị Trang Chương 2: phân tích tổng quan đánh giá trạng công tác quản lý … PHẦN II NGHIÊN CỨU CHUYÊN SÂU PHÁT TRIỂN Trang Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” implementation uses Unit_DMCD, Unit_Main; {$R *.dfm} { Tfrm_CauDuong } procedure Tfrm_CauDuong.CreateLevels; begin with DM_CauDuong begin if not Table_DiaBan.Active then // Nếu Bảng Table_DiaBan chưa mở Table_DiaBan.Open; // Mở lên phép người dùng nhập liệu vào Table_DiaBan.First; // Di chuyển Record while not Table_DiaBan.Eof // Duyệt từ đầu đến cuối danh sách Quận địa bàn begin with Grid.Levels.Add begin MaxDetailHeight := 600; // Điều chỉnh chiều cao lưới nhập liệu Caption := Table_DiaBanTENQUAN.AsString; //Thêm vào Tab có Text hiển thị tên Quận Options.DetailTabsPosition := dtpTop; // Tab hiển thị vị Trí Top Styles.Tab := cxStyle1; // Điều chỉnh màu cho Tab Styles.TabsBackground := cxStyle39; // Điều chỉnh màu cho Tab Tag := Table_DiaBanMAQUAN.AsInteger; // Gán Mã Quận cho Tab dùng // để lọc liệu người dùng chọn Tab Dữ liệu Table Cau lọc liệu cầu // Quận chọn end; Table_DiaBan.Next; // Trong chưa duyệt hết Quận bảng địa bàn // Tiếp tục duyệt hết Quận end; if not Table_CauDuong.Active then // Mở bảng Cầu lên cho phép người dùng nhập // cầu vào Table_CauDuong.Open; end; end; procedure Tfrm_CauDuong.FormCreate(Sender: TObject); begin DM_CauDuong.Table_DiaBan.Active := True; // Khi Form Cầu Đường khởi tạo mở liệu Bảng Table_DiaBan DM_CauDuong.Table_KP.Active := True; // Table_KP CreateLevels; // Gọi Hàm tạo Tab hiển thị tên quận GridActiveTabChanged(Grid, Grid.Levels[0]); //Sự kiện lọc liệu theo caùc Tab end; procedure Tfrm_CauDuong.GridRootLevelStylesGetTabStyle(Sender, ATabLevel: TcxGridLevel; out AStyle: TcxStyle); Trang 52 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” begin if Grid.ActiveLevel = ATabLevel then AStyle := cxStyle9; // Điều chỉnh việc hiển thị lại màu Tab chọn end; procedure Tfrm_CauDuong.GridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); begin try if ALevel.IsMaster then // Khi Tab chọn có thuộc tính Master try Grid.BeginUpdate; // Bắt đầu chuẩn bị việc hiển thị lại nội dung lưới ALevel.GridView := TCauduong; // Lưới lưới TcauDuong khai báo chuyên dùng để thị nội dung cầu Tab chọn maquan := ALevel.Tag; //Mỗi Tab hiển thị tạo gán cho Mã -// Quận DM_CauDuong.Table_CauDuong.Filter := 'QUAN = ''' + IntToStr(ALevel.Tag) + '''' ; // Lọc lại liệu cầu Tab chọn chẳng hạn chọn Quận Thì lưới hiển thị nội dung tất cầu có Quận cầu Quận khác không hiển thị ( Dùng Filter với chuỗi câu Query có Mã Quận mã Tab gán liệu) DM_CauDuong.Table_CauDuong.Filtered := True; // Bắt đầu lọc liệu để lựa cầu phù hợp để hiển thị TCauduong.DataController.ClearDetails; // Xóa liệu cũ lưới finally Grid.EndUpdate; // Hiển thị lại thay đổi liệu end; except on exception end; end; // Khi đóng Form Nhập tất Table_DiaBan, Table_CauDuong, Table Kinh Phí phải đóng lại để bảo toàn thao tác nhập liệu người dùng nhập vào Sau giải phóng Form nhớ máy tính procedure Tfrm_CauDuong.FormClose(Sender: TObject; var Action: TCloseAction); begin DM_CauDuong.Table_DiaBan.Active := False; DM_CauDuong.Table_CauDuong.Active := False; DM_CauDuong.Table_KP.Active := False; Action := caFree; frm_CauDuong := NIL; end; procedure Tfrm_CauDuong.GridEnter(Sender: TObject); begin frm_main.dxBarDBNavigator1.DataSource := DM_CauDuong.DS_CauDuong; Trang 53 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” end; // Khi checkbox “Xem ảnh ” Check hay không check cột hiển thị hình ảnh lưới hiển thị hay không hiển thị hình nhập liệu procedure Tfrm_CauDuong.ShowImageClick(Sender: TObject); begin TCauduongHINHANH.Visible := ShowImage.Checked; //Nếu cột ảnh hiển thị ẩn đi, ẩn hiển thị lại TCauduong.Bands[0].Visible := ShowImage.Checked; // n cột ảnh end; // Hàm chuyên dùng để lọc lại liệu theo yêu cầu người xem procedure Tfrm_CauDuong.AllClick(Sender: TObject); begin if not All.Checked then begin DM_CauDuong.Table_CauDuong.Filter := 'QUAN = ''' + IntToStr(maquan) + '''' ; // Loïc cầu Theo quận Tab Quận chọn Form Cầu Đường DM_CauDuong.Table_CauDuong.Filtered := True; // Bắt đầu lọc liệu end else DM_CauDuong.Table_CauDuong.Filtered := False; // Không lọc liệu , hiển thị tất liệu Grid.RootLevelOptions.DetailTabsPosition := TcxGridDetailTabsPosition(not All.Checked); end; procedure Tfrm_CauDuong.FilterClick(Sender: TObject); var sql : String; begin // Chọn kết cấu if (ftkc1.ItemIndex > 0) then sql := 'KETCAU1 = ''' + ftkc1.EditValue + ''' '; //Điều kiện lọc = “Kết cấu 1” choïn // Chọn kết cấu if (ftkc2.ItemIndex > 0) then if sql = '' then sql := ' KETCAU2 = ''' + ftkc2.EditValue + ''' ' //Điều kiện lọc = “Kết cấu 2” chọn else sql := SQL + ' AND KETCAU2 = ''' + ftkc2.EditValue + ''' '; //Điều kiện lọc = điều kiện trước + với “Kết cấu 1” chọn // Chọn vật liệu kết cấu if (ftvl1.ItemIndex > 0) then if sql = '' then Trang 54 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” sql := ' VATLIEU1 = ''' + ftvl1.EditValue + ''' ' //Điều kiện lọc = “Vật liệu 1” chọn else sql := sql + 'AND VATLIEU1 = ''' + ftvl1.EditValue + ''' '; //Điều kiện lọc = điều kiện trước + với “Vật liệu 1” chọn // Chọn vật liệu kết cấu if (ftvl2.ItemIndex > 0) then if sql = '' then sql := ' VATLIEU2 = ''' + ftvl2.EditValue + ''' ' //Điều kiện lọc = “Vật liệu 2” chọn else sql := sql + 'AND VATLIEU2 = ''' + ftvl2.EditValue + ''' '; //Điều kiện lọc = điều kiện trước + với “Vật liệu 2” chọn // Chọn Thời gian khai thaùc if (fttg.ItemIndex > 0) then if sql = '' then sql := ' THOIGIAN = ''' + fttg.EditValue + ''' ' //Điều kiện lọc = “Thời gian” choïn else sql := sql + 'AND THOIGIAN = ''' + fttg.EditValue + ''' '; //Điều kiện lọc = điều kiện trước + với “Thời gian” chọn // Chọn tình trạng cầu if (ftttc.ItemIndex > 0) then if sql = '' then sql := ' TINHTRANG = ''' + ftttc.EditValue + ''' ' //Điều kiện lọc = “Tình trạng cầu” chọn else sql := sql + 'AND TINHTRANG = ''' + ftttc.EditValue + ''' '; //Điều kiện lọc = điều kiện trước + “Tình trạng cầu” chọn // Tải trọng kết cấu if (fttt1.ItemIndex > 0) then if sql = '' then sql := 'TAITRONG1 = ''' + fttt1.EditValue + ''' ' //Điều kiện lọc = “Tải trọng ” chọn else sql := sql + ' AND TAITRONG1 = ''' + fttt1.EditValue + ''' '; //Điều kiện lọc = điều kiện lọc trước + “Tải trọng 1” chọn // Tải trọng kết cấu if (fttt2.ItemIndex > 0) then if sql = '' then sql := 'TAITRONG2 = ''' + fttt2.EditValue + ''' ' //Điều kiện lọc = “Tải trọng 2” chọn else Trang 55 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống caàu …” sql := sql + ' AND TAITRONG2 = ''' + fttt2.EditValue + ''' '; //Điều kiện lọc = điều kiện lọc trước + “Tải trọng 1” chọn // Năm xây dựng cầu if (ftnxd.ItemIndex > 0) then if sql = '' then sql := ' NAMXD = ''' + ftnxd.EditValue + ''' ' //Điều kiện lọc = “Năm xây dựng” chọn else sql := sql + ' AND NAMXD = ''' + ftnxd.EditValue + ''' '; //Điều kiện lọc = điều kiện lọc trước + “Năm xây dựng” chọn // Lọc Tổng chiều dài cầu if (ftcdc.ItemIndex > 0) then if sql = '' then case ftcdc.ItemIndex of : sql := ' CHIEUDAI < 50 '; //Chiều dài < 50 m : sql := ' CHIEUDAI >= 50 AND CHIEUDAI < 100 '; //Chiều dài 50 < 100 m : sql := ' CHIEUDAI >= 100 AND CHIEUDAI < 200 '; //Chiều dài 100 < 200 m : sql := ' CHIEUDAI >= 200 AND CHIEUDAI < 300 '; //Chiều dài 200 < 300 m : sql := ' CHIEUDAI >= 300 '; //Chiều dài > 300 m end else case ftcdc.ItemIndex of : sql := SQL + ' AND CHIEUDAI < 50 '; //Chieàu daøi < 50 m : sql := SQL + ' AND CHIEUDAI >= 50 AND CHIEUDAI < 100 '; //Chiều dài 50 < 100 m : sql := SQL + ' AND CHIEUDAI >= 100 AND CHIEUDAI < 200 '; //Chiều dài 100 < 200 m : sql := SQL + ' AND CHIEUDAI >= 200 AND CHIEUDAI < 300 '; //Chiều dài 200 < 300 m : sql := SQL + ' AND CHIEUDAI >= 300 '; //Chiều dài > 300 m end; // Lọc kinh Phí cấp < Triệu, < Triệu, < 10 Triệu > 10 Trieäu if (ftkp.ItemIndex > 0) then if sql = '' then case ftkp.ItemIndex of : sql := ' KINHPHI < 10000000 '; // < Trieäu : sql := ' KINHPHI >= 10000000 AND KINHPHI < 50000000 '; // Kinh phí < Triệu : sql := ' KINHPHI >= 50000000 AND KINHPHI < 100000000 '; //Kinh phí < 10 Triệu : sql := ' KINHPHI > 100000000 '; // Kinh phí > 10 Trieäu end else case ftkp.ItemIndex of : sql := SQL + ' AND KINHPHI < 10000000 '; // < Trieäu : sql := SQL + ' AND KINHPHI >= 10000000 AND KINHPHI < 50000000 '; // Kinh phí < Triệu : sql := SQL + ' AND KINHPHI >= 10000000 AND KINHPHI < 100000000 '; //Kinh phí < 10 Triệu Trang 56 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” : sql := SQL + ' AND KINHPHI > 100000000 '; // Kinh phí > 10 Trieäu end; if (DM_CauDuong.Table_CauDuong.Filter '') and not(All.Checked) then begin if sql '' then // Nếu xem cầu khu vực Quận điều kiện xem cầu có tồn DM_CauDuong.Table_CauDuong.Filter := DM_CauDuong.Table_CauDuong.Filter + ' AND ' + sql // Lọc cầu Quận đựơc chọn else DM_CauDuong.Table_CauDuong.Filter := DM_CauDuong.Table_CauDuong.Filter; // Nếu điều kiện lọc khỏi lọc theo điều kiện mà xem tất cầu Quận DM_CauDuong.Table_CauDuong.Filtered := True; // Cho phép lọc liệu end else // Nếu xem tất cầu tất quận Thì if All.Checked then begin DM_CauDuong.Table_CauDuong.Filter := sql; // Choïn cầu đủ điều kiện để xem DM_CauDuong.Table_CauDuong.Filtered := True; //Bắt đầu lọc end; end; // Khi muốn xem hết tất liệu nhấn vào nút procedure Tfrm_CauDuong.SeeallClick(Sender: TObject); begin //Gán lại thuộc tính xem hết cho tất thuộc tính cầu // Thuộc tính Kết cấu ftkc1.EditValue := 0; // Thuộc tính Kết cấu ftkc2.EditValue := 0; // Thuộc tính Vật liệu Ftvl1.EditValue := 0; // Thuộc tính Vật liệu Ftvl2.EditValue := 0; //Thuộc tính thời gian fttg.EditValue := 0; // Thuộc tính Tải trọng Fttt1.EditValue := 0; // Thuộc tính Tải trọng Fttt2.EditValue := 0; //Thuộc tính Năm Xây dựng ftnxd.EditValue := 0; // Chiều dài cầu ftcdc.EditValue := 0; Trang 57 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” // Kinh phí ftkp.EditValue := 0; // Tình trạng cầu ftttc.EditValue := 0; // Nếu Checkbox “Tất cầu” check hiển thị nội dung tất cầu thuộc tất Quận địa bàn TPHCM Còn không hiển thị nội dung cầu chọn mà if (All.Checked) then //Đoạn không lọc liệu mà hiển thị tất DM_CauDuong.Table_CauDuong.Filtered := False else begin // Đoạn dùng để lọc liệu cầu theo Quận chọn DM_CauDuong.Table_CauDuong.Filter := 'QUAN = ''' + IntToStr(maquan) + '''' ; DM_CauDuong.Table_CauDuong.Filtered := True; end; end; // Haøm naøy cho phép in cầu procedure Tfrm_CauDuong.FormActivate(Sender: TObject); begin frm_main.Bt_print.Enabled := NOT frm_main.Bt_print.Enabled; end; end unit Unit_DMCD; interface uses SysUtils, Classes, DB, ADODB; type TDM_CauDuong = class(TDataModule) DS_CauDuong: TDataSource; Table_CauDuong: TADOTable; DS_DiaBan: TDataSource; Table_DiaBan: TADOTable; Table_DiaBanTENQUAN: TWideStringField; Table_DiaBanNOITHANH: TBooleanField; Table_DiaBanMAQUAN: TIntegerField; DS_KP: TDataSource; Table_KP: TADOTable; Table_KPMACAU: TIntegerField; Table_KPMAKP: TAutoIncField; Table_KPKINHPHI: TIntegerField; Table_KPTHANG: TIntegerField; Table_KPNAM: TIntegerField; DS_REPORT: TDataSource; Trang 58 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” TABLE_REPORT: TADOTable; TABLE_REPORTMACAU: TAutoIncField; TABLE_REPORTTENCAU: TWideStringField; TABLE_REPORTDIACHI: TWideStringField; TABLE_REPORTKETCAU: TWideStringField; TABLE_REPORTVATLIEU: TWideStringField; TABLE_REPORTTHOIGIAN: TWideStringField; TABLE_REPORTTAITRONG: TFloatField; TABLE_REPORTNAMXD: TFloatField; TABLE_REPORTCHIEUDAI: TFloatField; TABLE_REPORTTINHTRANG: TWideStringField; TABLE_REPORTQUAN: TIntegerField; TABLE_REPORTLICHSU: TMemoField; TABLE_REPORTHINHANH: TBlobField; TABLE_REPORTKINHPHI: TFloatField; Table_CauDuongMACAU: TAutoIncField; Table_CauDuongTENCAU: TWideStringField; Table_CauDuongDIACHI: TWideStringField; Table_CauDuongKETCAU2: TWideStringField; Table_CauDuongKETCAU1: TWideStringField; Table_CauDuongVATLIEU: TWideStringField; Table_CauDuongTHOIGIAN: TWideStringField; Table_CauDuongTAITRONG: TWideStringField; Table_CauDuongNAMXD: TWideStringField; Table_CauDuongCHIEUDAI2: TFloatField; Table_CauDuongCHIEUDAI1: TFloatField; Table_CauDuongCHIEUDAI: TFloatField; Table_CauDuongTINHTRANG: TWideStringField; Table_CauDuongQUAN: TIntegerField; Table_CauDuongLICHSU: TMemoField; Table_CauDuongHINHANH: TBlobField; Table_CauDuongKINHPHI: TFloatField; procedure Table_CauDuongNewRecord(DataSet: TDataSet); // Hàm dùng để xử lý liệu cầu thêm vào Bảng Table_CauDuong procedure Table_KPNewRecord(DataSet: TDataSet); // Hàm dùng để xử lý liệu Kinh Phí cầu thêm vào Bảng Table_KP procedure Table_KPAfterPost(DataSet: TDataSet); // Sau thông tin Kinh Phí cầu lưu vào sở liệu procedure Table_CauDuongBeforePost(DataSet: TDataSet); //Trước liệu Cầu Đường lưu vào Bảng Table_CauDuong private { Private declarations } public { Public declarations } Trang 59 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” end; var DM_CauDuong: TDM_CauDuong; implementation uses Unit_Main, Unit_CauDuong, cxCustomData, cxGridDBTableView; {$R *.dfm} procedure TDM_CauDuong.Table_CauDuongNewRecord(DataSet: TDataSet); begin Table_CauDuongQUAN.AsInteger := maquan; // Khi cầu thêm cầu thuộc Quận chọn //Chiều dài chiều dài cầu = Table_CauDuongCHIEUDAI1.AsInteger := 0; Table_CauDuongCHIEUDAI2.AsInteger := 0; end; procedure TDM_CauDuong.Table_KPNewRecord(DataSet: TDataSet); begin //Qui định Kinh Phí nhập vào cho cầu Table_KPMACAU.AsInteger := Table_CauDuongMACAU.AsInteger; end; procedure TDM_CauDuong.Table_KPAfterPost(DataSet: TDataSet); var rs : _Recordset; sql : String; begin // Caâu truy vấn SQL dùng để tính Tổng kinh phí cho cầu sql := 'SELECT Sum(KINHPHI) FROM KINHPHI HAVING ([KINHPHI].[MACAU]= ' + Table_CauDuongMACAU.AsString + ' )'; // Thực thi câu truy vấn rs := frm_main.CN.Execute(sql); // Gán tổng kinh phí cho cầu lưu lại vào Bảng Cầu Table_CauDuong.Edit; Table_CauDuongKINHPHI.Value := rs.Fields[0].Value; if Table_CauDuong.State in [dsedit] then Table_CauDuong.Post; end; procedure TDM_CauDuong.Table_CauDuongBeforePost(DataSet: TDataSet); begin // Tính tổng chiều dài CHIEUDAI1 + CHIEUDAI2 kết cấu gán cho tổng chiều dài cầu Table_CauDuongCHIEUDAI.AsVariant := Table_CauDuongCHIEUDAI1.AsVariant + Table_CauDuongCHIEUDAI2.AsVariant; end; Trang 60 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” end unit Unit_Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxBar, DB, ADODB, cxControls, cxContainer, cxEdit, cxRadioGroup, cxDBEdit, ExtCtrls, dxBarDBNav, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, ImgList, cxImage, cxMemo, RzStatus; type Tfrm_main = class(TForm) Bar: TdxBarManager; Sub_Hethong: TdxBarSubItem; Sub_NLCT: TdxBarSubItem; Sub_Filter: TdxBarSubItem; Bt_Exit: TdxBarButton; Bt_CD: TdxBarButton; CN: TADOConnection; Bt_DiaBan: TdxBarButton; Bt_Filter: TdxBarButton; Panel1: TPanel; pnParent: TPanel; dxBarDBNavigator1: TdxBarDBNavigator; dxBarDBNavFirst1: TdxBarDBNavButton; dxBarDBNavPrev1: TdxBarDBNavButton; dxBarDBNavNext1: TdxBarDBNavButton; dxBarDBNavLast1: TdxBarDBNavButton; dxBarDBNavInsert1: TdxBarDBNavButton; dxBarDBNavDelete1: TdxBarDBNavButton; dxBarDBNavEdit1: TdxBarDBNavButton; dxBarDBNavPost1: TdxBarDBNavButton; dxBarDBNavCancel1: TdxBarDBNavButton; dxBarDBNavRefresh1: TdxBarDBNavButton; ImageList1: TImageList; Grid1: TcxGrid; Table_DB: TcxGridDBTableView; Table_DBMAQUAN: TcxGridDBColumn; Table_DBTENQUAN: TcxGridDBColumn; Table_DBNOITHANH: TcxGridDBColumn; Grid_DB: TcxGridLevel; Splitter1: TSplitter; Trang 61 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; cxStyle2: TcxStyle; cxStyle3: TcxStyle; cxStyle4: TcxStyle; cxStyle5: TcxStyle; cxStyle6: TcxStyle; cxStyle7: TcxStyle; cxStyle8: TcxStyle; cxStyle9: TcxStyle; cxStyle10: TcxStyle; cxStyle11: TcxStyle; cxStyle12: TcxStyle; cxStyle13: TcxStyle; cxStyle14: TcxStyle; cxStyle15: TcxStyle; cxStyle16: TcxStyle; cxStyle17: TcxStyle; cxStyle18: TcxStyle; cxStyle19: TcxStyle; cxStyle20: TcxStyle; cxStyle21: TcxStyle; cxStyle22: TcxStyle; cxStyle23: TcxStyle; cxStyle24: TcxStyle; cxStyle25: TcxStyle; cxStyle26: TcxStyle; cxStyle27: TcxStyle; cxStyle28: TcxStyle; cxStyle29: TcxStyle; cxStyle30: TcxStyle; cxStyle31: TcxStyle; cxStyle32: TcxStyle; cxStyle33: TcxStyle; cxStyle34: TcxStyle; cxStyle35: TcxStyle; GridTableViewStyleSheetDevExpress: TcxGridTableViewStyleSheet; GridTableViewStyleSheetUserFormat1: TcxGridTableViewStyleSheet; GridTableViewStyleSheetUserFormat2: TcxGridTableViewStyleSheet; GridTableViewStyleSheetUserFormat3: TcxGridTableViewStyleSheet; GridTableViewStyleSheetUserFormat4: TcxGridTableViewStyleSheet; GridTableViewStyleSheetBrick: TcxGridTableViewStyleSheet; GridTableViewStyleSheetDesert: TcxGridTableViewStyleSheet; GridTableViewStyleSheetEggplant: TcxGridTableViewStyleSheet; Trang 62 Phuï luïc 4: Chương trình “ Ngân hàng liệu hệ thống caàu …” GridTableViewStyleSheetLilac: TcxGridTableViewStyleSheet; GridTableViewStyleSheetMaple: TcxGridTableViewStyleSheet; GridTableViewStyleSheetMarinehighcolor: TcxGridTableViewStyleSheet; GridTableViewStyleSheetPlumhighcolor: TcxGridTableViewStyleSheet; GridTableViewStyleSheetPumpkinlarge: TcxGridTableViewStyleSheet; GridTableViewStyleSheetRainyDay: TcxGridTableViewStyleSheet; GridTableViewStyleSheetRedWhiteandBlueVGA: TcxGridTableViewStyleSheet; GridTableViewStyleSheetRose: TcxGridTableViewStyleSheet; GridTableViewStyleSheetRoselarge: TcxGridTableViewStyleSheet; GridTableViewStyleSheetSlate: TcxGridTableViewStyleSheet; GridTableViewStyleSheetSpruce: TcxGridTableViewStyleSheet; GridTableViewStyleSheetStormVGA: TcxGridTableViewStyleSheet; GridTableViewStyleSheetTealVGA: TcxGridTableViewStyleSheet; GridTableViewStyleSheetWheat: TcxGridTableViewStyleSheet; GridTableViewStyleSheetWindowsClassic: TcxGridTableViewStyleSheet; GridTableViewStyleSheetWindowsClassiclarge: TcxGridTableViewStyleSheet; GridTableViewStyleSheetWindowsStandard: TcxGridTableViewStyleSheet; GridTableViewStyleSheetWindowsStandardlarge: TcxGridTableViewStyleSheet; GridTableViewStyleSheetHighContrast1: TcxGridTableViewStyleSheet; GridTableViewStyleSheetHighContrast1large: TcxGridTableViewStyleSheet; GridTableViewStyleSheetHighContrast2: TcxGridTableViewStyleSheet; GridTableViewStyleSheetHighContrast2large: TcxGridTableViewStyleSheet; GridTableViewStyleSheetHighContrastBlack: TcxGridTableViewStyleSheet; GridTableViewStyleSheetHighContrastBlacklarge: TcxGridTableViewStyleSheet; GridTableViewStyleSheetHighContrastWhite: TcxGridTableViewStyleSheet; GridTableViewStyleSheetHighContrastWhitelarge: TcxGridTableViewStyleSheet; Bt_print: TdxBarButton; RzMarqueeStatus1: TRzMarqueeStatus; //Hàm Đóng Form procedure Bt_ExitClick(Sender: TObject); //Gọi Form CauDuong //Gọi Form Cầu Đường lên để nhập liệu procedure Bt_CDClick(Sender: TObject); //Gọi Panel Địa Bàn Để sử dụng procedure Bt_DiaBanClick(Sender: TObject); //Hàm tạo Form procedure FormCreate(Sender: TObject); //Hàm sảy lưới dùng để nhập liệu procedure Grid1Enter(Sender: TObject); //Xử lý việc in ấn procedure Bt_printClick(Sender: TObject); private { Private declarations } Trang 63 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” procedure ShowPanel(APanel: TPanel); public { Public declarations } end; var frm_main: Tfrm_main; implementation uses Unit_CauDuong, Unit_DMDB; {$R *.dfm} // Xử lý việc đóng Form procedure Tfrm_main.Bt_ExitClick(Sender: TObject); begin //Đóng Form Nhập liệu giải phóng nhớ Thoát khỏi chương trình self.Close; end; // Xử lý việc gọi Form CauDuong để mở lên cho người dùng nhập liệu procedure Tfrm_main.Bt_CDClick(Sender: TObject); begin with Tfrm_CauDuong.Create(nil) //Tạo Form CauDuong Show; //Hiển thị lên end; // Hiển thị Panel DiaBan cho người dùng nhập liệu procedure Tfrm_main.ShowPanel(APanel: TPanel); var I: Integer; AControl: TControl; Begin // Định lại vị trí hiển thị APanel.Parent := pnParent; APanel.Left := 0; APanel.Top := 0; APanel.Visible := True; // n tất Panel Panel để hiển thị Lưới nhập liệu Quận , Địa Baøn for I := to pnParent.ControlCount - begin AControl := pnParent.Controls[I]; if (AControl is TPanel) and (AControl APanel) then AControl.Visible := False; end; end; // Duøng để ẩn lưới nhập Thông tin Quận, Địa baøn procedure Tfrm_main.Bt_DiaBanClick(Sender: TObject); begin pnParent.Visible := not pnParent.Visible; Trang 64 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” //Nếu Panel Lưới nhập liệu Quận, ẩn lên , ngược lại ẩn if pnParent.Visible then with DM_DB Data_Active(Table_DiaBan) // Mở Table_DiaBan để nhập liệu else with DM_DB Data_DeActive(Table_DiaBan); dxBarDBNavigator1.DataSource := dm_db.DS_DiaBan; end; procedure Tfrm_main.FormCreate(Sender: TObject); begin pnParent.Visible := False; //Đầu tiên mở Form main lên ẩn lưới trước sau Mở lưới end; procedure Tfrm_main.Grid1Enter(Sender: TObject); begin dxBarDBNavigator1.DataSource := dm_db.DS_DiaBan; //Chuyển data source điều khiển liệu sang Table_DiaBan end; end Trang 65 Phụ lục 4: Chương trình “ Ngân hàng liệu hệ thống cầu …” Trang 66 ... lý khai thác hệ thống cầu đường thành phố 2.3.2 Công tác quản lý khai thác hệ thống cầu đường khu vực thành phố Thực tế việc quản lý khai thác hệ thống cầu đường nước ta nói chung thành phố Hồ. .. TRẠNG CÔNG TÁC QUẢN LÝ VÀ KHAI THÁC HỆ THỐNG CẦU ĐƯỜNG BỘ TRÊN ĐỊA BÀN THÀNH PHỐ HỒ CHÍ MINH 2.1 TỔNG QUAN VỀ HỆ THỐNG CẦU ĐƯỜNG BỘ Ở THÀNH PHỐ HỒ CHÍ MINH : 2.1.1 Khái quát Thành phố Hồ Chí Minh. .. quản lý khai thác hệ thống cầu đường địa bàn thành phố Hồ Chí Minh Chương 3: Nghiên cứu tiêu đánh giá chất lượng kỹ thuật công trình cầu đường khu vực thành phố Hồ Chí Minh Chương4 : Đề xuất giải