R NUMBE; E EXCEPTION;
6.4. THIẾT KẾ CÁC FORM XEM DỮ LIỆU:
Menu màn hình xem danh sách các đối tượng liên quan với nhau. Menu màn hình này chỉ cĩ tác dụng cho xem, tìm kiếm với các bảng dữ liệu. Khơng cĩ chức năng thêm, xĩa, sửa, hiệu chỉnh trong các form của menu này.
6.4.1. Form ĐƠN VỊ THI CƠNG - PHỊNG BAN:
Màn hình gồm những trường dữ liệu của 2 bảng DONVITHICONG (Mã đơn vị thi cơng, tên đơn vị thi cơng, địa chỉ, điện thoại) và PHONGBAN (Mã phịng ban, tên phịng ban, điện thoại) trong đĩ DONVITHICONG là chủ thể chính.
Màn hình cũng gồm 4 command button dùng di chuyển mẫu tin và 3 command button dùng để xuất dữ liệu, tìm kiếm, thốt. Trên màn hình ứng với tên 1 đơn vị thi cơng là danh sách các phịng ban mà đơn vị đĩ trực thuộc.
Button "Xuất dữ liệu" dùng để xuất lại dữ liệu sau khi tìm kiếm, cĩ tác dụng như refresh lại dữ liệu.
Khi click vào buton "Tìm kiếm" ta cĩ thể nhập vào các tham số cần tìm trên các trường của bảng DONVITHICONG, nếu tìm thấy nĩ sẽ xuất dữ liệu (dùng 4
command button để di chuyển nếu cĩ nhiều mẫu tin được tìm thấy), cịn khơng tìm thấy nĩ sẽ hiện bảng thơng báo
Button "Thốt" dùng để thốt khỏi màn hình danh sách đơn vị thi cơng phịng ban trở về menu chính của chương trình.
Source code
Trở về mẩu tin đầu tiên: Begin
End
Trở về mẩu tin trước mẩu tin hiện thời: Begin
previous_record; End
Đến mẩu tin sau mẩu tin hiện thời: Begin
next_record; End
Đến mẩu tin cuối cùng: Begin last_record; End Xuất dữ liệu: execute_query Tìm kiếm: DECLARE R CHAR; R1 NUMBER; BEGIN
IF :System.Mode = 'NORMAL' THEN DO_KEY('enter_query'); ELSE DO_KEY('execute_query'); R := GET_BLOCK_PROPERTY(:SYSTEM.CURRENT_BLOCK, QUERY_HITS); IF TO_NUMBER(R) > 0 THEN ON_ITEM('TIM_KIEM'); ON_ITEM('XOA'); ELSE
R1 := THONGBAO('ALERT2', 'Khong tim thay mau tin co Ma so '||:DONVITHICONG.MA_DVTC||'.'||Chr(13)||'Mau tin ban dau se tra ve !');
CLEAR_RECORD; DO_KEY('execute_query'); END IF; END IF; END; Thốt: EXIT_FORM(NO_COMMIT)
6.4.2. Form PHỊNG BAN - NHÂN VIÊN:
Màn hình gồm những trường dữ liệu của 2 bảng PHONGBAN (mã phịng ban, mã đơn vị thi cơng, tên phịng ban, điện thoại) và NHANVIEN (mã nhân viên, tên nhân viên, chức vụ, địa chỉ, điện thoại) trong đĩ PHONGBAN là chủ thể chính. Màn hình cũng gồm 4 command button dùng di chuyển mẫu tin và 3 command button dùng để xuất dữ liệu, tìm kiếm, thốt. Trên màn hình ứng với tên 1 phịng ban là danh sách các nhân viên trực thuộc.
Button "Xuất dữ liệu" dùng để xuất lại dữ liệu sau khi tìm kiếm, cĩ tác dụng như refresh lại dữ liệu.
Khi click vào buton "Tìm kiếm" ta cĩ thể nhập vào các tham số cần tìm trên các trường của bảng PHONGBAN, nếu tìm thấy nĩ sẽ xuất dữ liệu (dùng 4 command button để di chuyển nếu cĩ nhiều mẫu tin được tìm thấy), cịn khơng tìm thấy nĩ sẽ hiện bảng thơng báo khơng tìm thấy.
Button "Thốt" dùng để thốt khỏi màn hình danh sách phịng ban nhân viên trở về menu chính của chương trình.
6.4.2. Form ĐƠN VỊ THI CƠNG - PHỊNG BAN - NHÂN VIÊN:
Màn hình gồm những trường dữ liệu của 3 bảng DONVITHICONG (Mã đơn vị thi cơng, tên đơn vị thi cơng, địa chỉ, điện thoại), PHONGBAN (mã phịng ban, tên phịng ban, điện thoại) và NHANVIEN (mã nhân viên, tên nhân viên, chức vụ, địa chỉ, điện thoại) trong đĩ DONVITHICONG là chủ thể chính.
Màn hình cũng gồm 4 command button dùng di chuyển mẫu tin và 3 command button dùng để xuất dữ liệu, tìm kiếm, thốt. Trên màn hình ứng với tên 1 đơn vị thi cơng là danh sách các phịng ban mà đơn vị đĩ trực thuộc và phía dưới là danh sách các nhân viên làm việc cho phịng ban đĩ (khi ta "click" vào một trường bất kỳ của 1 mẩu tin nào trong bảng PHONGBAN nếu nĩ thuộc phịng ban nào thì nĩ sẽ hiển thị danh sách nhân viên làm việc cho phịng ban đĩ).
Button "Xuất dữ liệu" dùng để xuất lại dữ liệu sau khi tìm kiếm, cĩ tác dụng như refresh lại dữ liệu.
Khi click vào buton "Tìm kiếm" ta cĩ thể nhập vào các tham số cần tìm trên các trường của bảng DONVITHICONG, nếu tìm thấy nĩ sẽ xuất dữ liệu (dùng 4
command button để di chuyển nếu cĩ nhiều mẫu tin được tìm thấy), cịn khơng tìm thấy nĩ sẽ hiện bảng thơng báo khơng tìm thấy.
Button "Thốt" dùng để thốt khỏi màn hình danh sách đơn vị thi cơng phịng ban nhân viên trở về menu chính của chương trình.
6.4.4. Form CƠNG VIỆC - NHÂN VIÊN:
Màn hình gồm những trường dữ liệu của 2 bảng NHANVIEN (mã nhân viên, tên nhân viên, chức vụ, địa chỉ, điện thoại) và CHITIETCONGVIEC (mã cơng việc, ngày làm việc, số ngày làm việc, giá trị, đơn vị tính) trong đĩ NHANVIEN là chủ thể chính.
Màn hình cũng gồm 4 command button dùng di chuyển mẫu tin và 3 command button dùng để xuất dữ liệu, tìm kiếm, thốt. Trên màn hình ứng với tên 1 nhân viên là danh sách chi tiết cơng việc mà nhân viên đĩ thực hiện.
Button "Xuất dữ liệu" dùng để xuất lại dữ liệu sau khi tìm kiếm, cĩ tác dụng như refresh lại dữ liệu.
Khi click vào buton "Tìm kiếm" ta cĩ thể nhập vào các tham số cần tìm trên các trường của bảng NHANVIEN, nếu tìm thấy nĩ sẽ xuất dữ liệu (dùng 4 command button để di chuyển nếu cĩ nhiều mẫu tin được tìm thấy), cịn khơng tìm thấy nĩ sẽ hiện bảng thơng báo khơng tìm thấy.
Button "Thốt" dùng để thốt khỏi màn hình cơng việc nhân viên trở về menu chính của chương trình.
6.4.5. Form HẠNG MỤC - CƠNG VIỆC:
Màn hình gồm những trường dữ liệu của 2 bảng HANGMUC (mã chủ đầu tư, mã dự án, mã cơng việc, mã đơn vị thi cơng, số ngày dự kiến, số ngày thực tế, ngày bắt đầu dự kiến, ngày bắt đầu thực tế, ngày kết thúc dự kiến, ngày kết thúc thực tế, kinh phí dự kiến, kinh phí thực tế, đơn vị tính, độ ưu tiên, tỷ lệ hồn thành) và CHITIETCONGVIEC (mã nhân viên, ngày làm việc, số ngày làm việc, giá trị, đơn vị tính) trong đĩ HANGMUC là chủ thể chính.
Màn hình cũng gồm 4 command button dùng di chuyển mẫu tin và 3 command button dùng để xuất dữ liệu, tìm kiếm, thốt. Trên màn hình ứng với tên 1 hạng mục trong dự án là danh sách chi tiết cơng việc mà nhân viên đĩ thực hiện. Button "Xuất dữ liệu" dùng để xuất lại dữ liệu sau khi tìm kiếm, cĩ tác dụng như refresh lại dữ liệu.
Khi click vào buton "Tìm kiếm" ta cĩ thể nhập vào các tham số cần tìm trên các trường của bảng HANGMUC, nếu tìm thấy nĩ sẽ xuất dữ liệu (dùng 4 command button để di chuyển nếu cĩ nhiều mẫu tin được tìm thấy), cịn khơng tìm thấy nĩ sẽ hiện bảng thơng báo khơng tìm thấy.
Button "Thốt" dùng để thốt khỏi màn hình hạng mục cơng việc trở về menu chính của chương trình.
Màn hình gồm những trường dữ liệu của 2 bảng BANQUANLY (mã ban quản lý, tên ban quản lý, điện thoại) và HOADON (mã hĩa đơn, mã cơng việc, tiền thanh tốn, tiền đã thu, tiền cịn lại, đơn vị tính) trong đĩ BANQUANLY là chủ thể chính.
Màn hình cũng gồm 4 command button dùng di chuyển mẫu tin và 3 command button dùng để xuất dữ liệu, tìm kiếm, thốt. Trên màn hình ứng với tên 1 ban quản lý là các danh sách hĩa đơn.
Button "Xuất dữ liệu" dùng để xuất lại dữ liệu sau khi tìm kiếm, cĩ tác dụng như refresh lại dữ liệu.
Khi click vào buton "Tìm kiếm" ta cĩ thể nhập vào các tham số cần tìm trên các trường của bảng BANQUANLY, nếu tìm thấy nĩ sẽ xuất dữ liệu (dùng 4 command button để di chuyển nếu cĩ nhiều mẫu tin được tìm thấy), cịn khơng tìm thấy nĩ sẽ hiện bảng thơng báo khơng tìm thấy.
Button "Thốt" dùng để thốt khỏi màn hình ban quản lý hĩa đơn trở về menu chính của chương trình.