CHƯƠNG VI CƠ SỞ DỮ LIỆU VÀ CHI TIẾT CHƯƠNG TRÌNH
6.3. THIẾT KẾ CÁC FORM NHẬP DỮ LIỆU
Menu màn hình nhập danh sách các đối tượng dữ liệu cho việc quản lý dự án.
Menu màn hình này có tác dụng cho thêm, xóa, sửa, xem, tìm kiếm với các bảng dữ liệu.
Trong menu này khi nhập ta phải nhập theo thứ tự các form sau (vì khi nhập có các form với những trường dữ liệu chỉ được chọn cho đảm bảo tính chính xác, hợp lý về dữ liệu nhất là các mã số):
Danh mục dự án (1).
Danh mục chủ đầu tư (2).
Quản lý dự án (3).
Đơn vị thi công (4).
Hạng mục (5).
Phòng ban (6) -> Nhân viên (7) -> Chi tiết công việc (8).
Ban quản lý (9) -> Hóa đơn thanh toán (10).
6.3.1. Form DANH MỤC DỰ ÁN :
Màn hình gồm những trường dữ liệu bảng DUAN.
Màn hình gồm 4 button dùng di chuyển mẫu tin và 6 button dùng để xuất dữ liệu, thêm, cập nhật, xóa, tìm kiếm, thoát.
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.
Nhấn nút "Thêm" thì ta sẽ nhảy đến mẫu tin cuối cùng và thêm dữ liệu (sau khi nhập dữ liệu ta phải nhấn nút cập nhật để lưu mẫu tin mới).
Khi nhấn nút "Cập nhật" để cập nhật mẩu tin hiện hành sẽ xuất hiện thông báo
Khi nhấn nút "Xóa" thì chương trình sẽ xóa mẫu tin hiện hành trong form, nếu mẩu tin rỗng thì sẽ xuất hiện thông báo
Khi nhấn vào "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 DUAN, nếu tìm thấy 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 sẽ hiện bảng thông báo
Button "Thoát" dùng để thoát khỏi màn hình nhập dự án trở về menu chính của chương trình, trước khi thoát sẽ xuất hiện thông báo cần cập nhật mẩu tin hay thêm xóa sửa gì không.
CÁC SOURCE CODE (Trigger) DÙNG CHUNG CHO TẤT CẢ CÁC FORM TRONG CHƯƠNG TRÌNH
Chương trình gồn 3 ALERT, ALERT1, ALERT2 : dùng để tạo các message THONGBAO gồm có các nút button cụ thể
ALERT : "YES", "NO"
ALERT1 : "YES", "NO", "CANCEL"
ALERT2 : "OK"
Phóng lớn cửa sổ khi khởi động 1 form:
// WHEN-NEW-FORM-INSTANCE BEGIN
INIT_VAR;
SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,WINDOW_STATE, MAXIMIZE);
SET_WINDOW_PROPERTY('WINDOW0', WINDOW_STATE, MAXIMIZE);
END;
Khởi động các biến toàn cục (Program Unit):
//INIT-VAR (Procedure Body) PROCEDURE INIT_VAR IS BEGIN
:GLOBAL.ALERT := 'ALERT';
:GLOBAL.ALERT1 := 'ALERT1';
:GLOBAL.ALERT2 := 'ALERT2';
execute_query;
END;
//OFF-ITEM (Procedure Body)
PROCEDURE OFF_ITEM(I VARCHAR2)IS BEGIN
IF GET_ITEM_PROPERTY(I, ENABLED) = 'TRUE' THEN
SET_ITEM_PROPERTY(I, ENABLED, PROPERTY_FALSE);
END IF;
END;
//OFF-PALETTLE (Procedure Body) PROCEDURE OFF_PALETTE IS BEGIN
OFF_ITEM('SCROLL_UP');
OFF_ITEM('UP');
OFF_ITEM('DOWN');
OFF_ITEM('SCROLL_DOWN');
OFF_ITEM('SAVE');
END;
//ON-ITEM (Procedure Body)
PROCEDURE ON_ITEM(I VARCHAR2) IS BEGIN
IF GET_ITEM_PROPERTY(I, ENABLED) = 'FALSE' THEN
SET_ITEM_PROPERTY(I, ENABLED, PROPERTY_TRUE);
END IF;
END;
//ON-PALETTLE (Procedure Body) PROCEDURE ON_PALETTE IS BEGIN
ON_ITEM('SCROLL_UP');
ON_ITEM('UP');
ON_ITEM('DOWN');
ON_ITEM('SCROLL_DOWN');
ON_ITEM('SAVE');
END;
//THONG-BAO (Functino Body)
FUNCTION THONGBAO(A VARCHAR2, M VARCHAR2) RETURN NUMBER IS
BEGIN
DECLARE
N NUMBER;
BEGIN
SET_ALERT_PROPERTY(A, ALERT_MESSAGE_TEXT, M);
RETURN Show_Alert(A);
END;
END;
Trở về mẩu tin đầu tiên:
Begin
first_record;
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 Thêm
DECLARE
R NUMBER;
E EXCEPTION;
BEGIN
IF :SYSTEM.LAST_RECORD = 'TRUE' THEN --Xét mẫu tin đã đến record cuối chưa
DO_KEY('CREATE_RECORD'); --Tạo record mới.
ELSE
LAST_RECORD; --Di chuyển đến record cuối DO_KEY('CREATE_RECORD'); --Tạo record mới.
END IF;
EXCEPTION --Bẫy lỗi
WHEN E THEN
R := THONGBAO('ALERT2','Khong the them duoc !');
END;
Xóa
DECLARE
R NUMBER;
BEGIN
DELETE_RECORD;
EXCEPTION
WHEN OTHERS THEN
R := THONGBAO('ALERT2','Khong the xoa mau tin nay duoc !');
RAISE FORM_TRIGGER_FAILURE;
END;
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 nay'.'||Chr(13)||'Mau tin ban dau se tra ve !');
CLEAR_RECORD;
DO_KEY('execute_query');
END IF;
END IF;
END;
Source code Cập Nhật DECLARE
R NUMBER;
E EXCEPTION;
BEGIN
IF :System.Form_Status = 'CHANGED' THEN
R := THONGBAO('ALERT1','Ban co muon cap nhat du lieu lai khong
?');
IF R = ALERT_BUTTON1 THEN
DO_KEY('COMMIT_FORM');
execute_query;
ELSE
IF R = ALERT_BUTTON2 THEN DO_KEY('CLEAR_RECORD');
execute_query;
ELSE
RETURN;
END IF;
END IF;
END IF;
END;
Thoát DECLARE
R NUMBER;
E EXCEPTION;
BEGIN
IF :System.Form_Status = 'CHANGED' THEN
R := THONGBAO('ALERT1','Chuong trinh se thoat ?'||Chr(13)||'Ban co muon cap nhat du lieu lai khong ?');
IF R = ALERT_BUTTON1 THEN EXIT_FORM(DO_COMMIT);
ELSE
IF R = ALERT_BUTTON2 THEN EXIT_FORM(NO_COMMIT);
ELSE
IF R = ALERT_BUTTON3 THEN RETURN;
END IF;
END IF;
END IF;
END IF;
EXIT_FORM(NO_COMMIT);
EXCEPTION WHEN E THEN BEGIN
MESSAGE('Loi Nhap !');
RAISE FORM_TRIGGER_FAILURE;
END;
END;
END IF;
END IF;
END;
6.3.2. Form QUẢN LÝ DỰ ÁN:
Màn hình gồm những trường dữ liệu bảng DUAN_CHUDAUTU.
Màn hình cũng gồm 4 button dùng di chuyển mẫu tin và 6 button dùng để xuất dữ liệu, thêm, cập nhật, xóa, tìm kiếm, thoát.
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.
Nhấn nút "Thêm" thì ta sẽ nhảy đến mẫ tin cuối cùng (rỗng) và thêm dữ liệu (sau khi nhập dữ liệu ta phải nhấn nút cập nhật để lưu mẫu tin mới). Trong trường dữ liệu mã chủ đầu tư và mã dự án không được nhập mà chọn khi click vào button
hình mũi tên xuống. Nếu mẩu tin rỗng mà vẫn nhấn nút thêm thì nó sẽ xuất hiện thông báo.
Khi muốn thêm Mã Chủ Đầu Tư và Mã Dự Án ta phải chọn từ danh sách của bảng CHUDAUTU và bảng DUAN.
Khi đã nhập ngày bắt đầu dự kiến và ngày kết thúc dự kiến , thì ta có thể nhấn nút dấu = ngay mục số ngày dự kiến sẽ biết được khoảng cách ngày giữa ngày bắt đầu dự kiến và ngày kết thúc dự kiến. Khi đã nhập ngày bắt đầu dự kiến và số ngày dự kiến, ta có thể nhấn nút dấu = ngay mục ngày kết thúc dự kiến để biết được ngày kết thúc dự kiến.
Tương tự đối với số ngày thực tế, ngày bắt đầu thực tế, ngày kết thúc thực tế.
Khi nhấn nút "Cập nhật" để cập nhật mẩu tin hiện hành và sẽ xuất hiện thông báo.
Khi nhấn nút "Xóa" thì chương trình sẽ xóa mẫu tin hiện hành trong form, nếu mẩu tin rỗng thì sẽ xuất hiện thông báo.
Khi nhấn vào "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 DUAN_CHUDAUTU, nếu tìm thấy 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 sẽ hiện bảng thông báo.
Button "Thoát" dùng để thoát khỏi màn hình nhập quản lý dự án trở về menu chính của chương trình, trước khi thoát sẽ xuất hiện thông báo cần cập nhật mẩu tin hay thêm xóa sửa gì không.
Các chức năng của form Quản Lý Dự An: thêm mới một Dự An, xoá 1 Dự An, cho phép tìm kiếm thông tin 1 Dự An, cho phép xuất dữ liệu Dự An, cho phép lưu một Dự An được thêm vào, có các nút tới và quay lui một record.
Source code Cập Nhật DECLARE
R NUMBER;
R1 NUMBER;
E EXCEPTION;
BEGIN
IF :System.Form_Status = 'CHANGED' THEN
R := THONGBAO('ALERT1','Ban co muon cap nhat du lieu lai khong
?');
IF R = ALERT_BUTTON1 THEN
IF :SONGAYDUKIEN < 0 THEN
R := THONGBAO('ALERT2','Ngay Du Kien phai lon hon 0 !');
END IF;
IF :KINHPHIDUKIEN < 0 THEN
R := THONGBAO('ALERT2','Kinh Phi Du Kien phai lon hon 0
!');
END IF;
IF :NGAYBATDAU > :NGAYKETTHUC THEN
R := THONGBAO('ALERT2','Ngay Ket Thuc phai lon hon hoac bang Ngay Bat Dau ?');
IF R = ALERT_BUTTON1 THEN GO_ITEM(':NGAYKETTHUC');
END IF;
ELSE
DO_KEY('COMMIT_FORM');
execute_query;
END IF;
ELSE
IF R = ALERT_BUTTON2 THEN DO_KEY('CLEAR_RECORD');
execute_query;
ELSE
RETURN;
END IF;
END IF;
END IF;
END;
Thoát DECLARE
R NUMBER;
E EXCEPTION;
BEGIN
IF :System.Form_Status = 'CHANGED' THEN
R := THONGBAO('ALERT1','Chuong trinh se thoat ?'||Chr(13)||'Ban co muon cap nhat du lieu lai khong ?');
IF R = ALERT_BUTTON1 THEN
IF :SONGAYDUKIEN < 0 THEN
R := THONGBAO('ALERT2','Ngay Du Kien phai lon hon 0 !');
END IF;
IF :KINHPHIDUKIEN < 0 THEN
R := THONGBAO('ALERT2','Kinh Phi Du Kien phai lon hon 0 !');
END IF;
IF :NGAYBATDAU > :NGAYKETTHUC THEN
R := THONGBAO('ALERT2','Ngay Ket Thuc phai lon hon hoac bang Ngay Bat Dau ?');
IF R = ALERT_BUTTON1 THEN GO_ITEM(':NGAYKETTHUC');
END IF;
ELSE
EXIT_FORM(DO_COMMIT);
END IF;
ELSE
IF R = ALERT_BUTTON2 THEN EXIT_FORM(NO_COMMIT);
ELSE
IF R = ALERT_BUTTON3 THEN RETURN;
END IF;
END IF;
END IF;
END IF;
EXIT_FORM(NO_COMMIT);
EXCEPTION WHEN E THEN BEGIN
MESSAGE('Loi Nhap !');
RAISE FORM_TRIGGER_FAILURE;
END;
END;
Nút tính ngày bắt đầu
:SONGAYDUKIEN := :NGAYKETTHUC - :NGAYBATDAU;
Nút tính ngày kết thúc
:NGAYKETTHUC := :NGAYBATDAU + :SONGAYDUKIEN;
Nút tính ngày bắt đầu thực tế
:SONGAYTHUCTE := :NGAYKETTHUCTT - :NGAYBATDAUTT Nút tính ngày kết thúc thực ế
:NGAYKETTHUCTT := :NGAYBATDAUTT + :SONGAYTHUCTE;
Lấy mã chủ đầu tư từ danh sách chủ đầu tư DECLARE
a_value_chosen BOOLEAN;
BEGIN
a_value_chosen := Show_Lov('CDT');
IF NOT a_value_chosen THEN
Message('You have not selected a value.');
Bell;
RAISE Form_Trigger_Failure;
END IF;
END;
Lấy mã dự án từ danh sách dự án DECLARE
a_value_chosen BOOLEAN;
BEGIN
a_value_chosen := Show_Lov('DUAN');
IF NOT a_value_chosen THEN
Message('You have not selected a value.');
Bell;
RAISE Form_Trigger_Failure;
END IF;
END;
6.3.3. Form DANH MỤC CHỦ ĐẦU TƯ:
Màn hình gồm những trường dữ liệu bảng CHUDAUTU
Màn hình cũng gồm 4 button dùng di chuyển mẫu tin và 6 button dùng để xuất dữ liệu, thêm, cập nhật, xóa, tìm kiếm, thoát.
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.
Nhấn nút "Thêm" thì ta sẽ nhảy đến mẫ tin cuối cùng (rỗng) và thêm dữ liệu (sau khi nhập dữ liệu ta phải nhấn nút cập nhật để lưu mẫu tin mới) vào nếu ta để mẩu tin rỗng mà vẫn nhấn nút thêm thì nó sẽ xuất hiện thông báo
Khi nhấn nút "Cập nhật" để cập nhật mẩu tin hiện hành sẽ xuất hiện thông báo Khi nhấn nút "Xóa" thì chương trình sẽ xóa mẫu tin hiện hành trong form, nếu mẩu tin rỗng thì sẽ xuất hiện thông báo
Khi nhấn vào "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 CHUDAUTU, 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 "Thoát" dùng để thoát khỏi màn hình nhập danh sách chủ đầu tư trở về menu chính của chương trình, trước khi thoát sẽ xuất hiện thông báo cần cập nhật mẩu tin hay thêm xóa sửa gì không.
Các chức năng của Form danh mục chủ đầu tư: thêm mới tên 1 chủ đầu tư, xoá tên 1 chủ đầu tư, cho phép tìm kiếm thông tin 1 chủ đầu tư, cho phép xuất dữ liệu chủ đầu tư, cho phép lưu tên 1 chủ đầu tư được thêm vào, có các nút tới và quay lui một record.
Source code Cập Nhật DECLARE
R NUMBER;
E EXCEPTION;
BEGIN
IF :System.Form_Status = 'CHANGED' THEN
R := THONGBAO('ALERT1','Ban co muon cap nhat du lieu lai khong
?');
IF R = ALERT_BUTTON1 THEN IF :DIENTHOAI < 0 THEN
R := THONGBAO('ALERT1','So Dien Thoai khong duoc nho hon 0
!');
IF R = ALERT_BUTTON1 THEN GO_ITEM('DIENTHOAI');
END IF;
ELSE
DO_KEY('COMMIT_FORM');
execute_query;
END IF;
ELSE
IF R = ALERT_BUTTON2 THEN DO_KEY('CLEAR_RECORD');
execute_query;
ELSE
RETURN;
END IF;
END IF;
END IF;
END;
Thoát DECLARE
R NUMBER;
E EXCEPTION;
BEGIN
IF :System.Form_Status = 'CHANGED' THEN
R := THONGBAO('ALERT1','Chuong trinh se thoat ?'||Chr(13)||'Ban co muon cap nhat du lieu lai khong ?');
IF R = ALERT_BUTTON1 THEN IF :DIENTHOAI < 0 THEN
R := THONGBAO('ALERT1','So Dien Thoai khong duoc nho hon 0 !');
IF R = ALERT_BUTTON1 THEN GO_ITEM('DIENTHOAI');
END IF;
ELSE
EXIT_FORM(DO_COMMIT);
END IF;
ELSE
IF R = ALERT_BUTTON2 THEN EXIT_FORM(NO_COMMIT);
ELSE
IF R = ALERT_BUTTON3 THEN RETURN;
END IF;
END IF;
END IF;
END IF;
EXIT_FORM(NO_COMMIT);
EXCEPTION
WHEN E THEN BEGIN
MESSAGE('Loi Nhap !');
RAISE FORM_TRIGGER_FAILURE;
END;
END;
6.3.4. Form CHI TIẾT CÔNG VIỆC:
Màn hình gồm những trường dữ liệu bảng CHITIETCONGVIEC.
Màn hình cũng gồm 4 button dùng di chuyển mẫu tin và 6 button dùng để xuất dữ liệu, thêm, cập nhật, xóa, tìm kiếm, thoát.
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.
Nhấn nút "Thêm" thì ta sẽ nhảy đến mẫ tin cuối cùng (rỗng) và thêm dữ liệu (sau khi nhập dữ liệu ta phải nhấn nút cập nhật để lưu mẫu tin mới). Trong trường dữ liệu mã công việc và mã nhân viên không được nhập mà chỉ được chọn khi click vào button hình mũi tên đi xuống. Nếu mẩu tin rỗng mà vẫn nhấn nút thêm thì nó sẽ xuất hiện thông báo.
Khi muốn thêm mã công việc và mã nhân viên ta phải chọn từ danh sách của bảng HANGMUC và bảng NHANVIEN
Khi nhấn nút "Cập nhật" để cập nhật mẩu tin hiện hành và sẽ xuất hiện thông báo.
Khi nhấn nút "Xóa" thì chương trình sẽ xóa mẫu tin hiện hành trong form, nếu mẩu tin rỗng thì sẽ xuất hiện thông báo.
Khi nhấn vào "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 CHITIETCONGVIEC, nếu tìm thấy 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 sẽ hiện bảng thông báo.
Button "Thoát" dùng để thoát khỏi màn hình nhập chi tiết công việc trở về menu chính của chương trình, trước khi thoát sẽ xuất hiện thông báo cần cập nhật mẩu tin hay thêm xóa sửa gì không.
Các chức năng của Form danh sách chi tiết công việc của hạng mục: thêm mới 1 chi tiết công việc, xoá 1 chi tiết công việc, cho phép tìm kiếm thông tin chi tiết công việc, cho phép xuất dữ liệu chi tiết công việc, cho phép lưu 1 chi tiết công việc được thêm vào, có các nút tới và quay lui một record.
Source code Cập Nhật DECLARE
R NUMBER;
E EXCEPTION;
BEGIN
IF :System.Form_Status = 'CHANGED' THEN
R := THONGBAO('ALERT1','Ban co muon cap nhat du lieu lai khong
?');
IF R = ALERT_BUTTON1 THEN
IF :SONGAYLAMVIEC < 0 THEN
R := THONGBAO('ALERT1','So gio lam viec phai lon hon 0 !');
END IF;
IF :GIATRI < 0 THEN
R := THONGBAO('ALERT1','Gia Tri phai lon hon 0 !');
IF R = ALERT_BUTTON1 THEN GO_ITEM('GIATRI');
END IF;
ELSE
DO_KEY('COMMIT_FORM');
execute_query;
END IF;
ELSE
IF R = ALERT_BUTTON2 THEN DO_KEY('CLEAR_RECORD');
execute_query;
ELSE
RETURN;
END IF;
END IF;
END IF;
END;
Thoát DECLARE
R NUMBER;
E EXCEPTION;
BEGIN
IF :System.Form_Status = 'CHANGED' THEN
R := THONGBAO('ALERT1','Chuong trinh se thoat ?'||Chr(13)||'Ban co muon cap nhat du lieu lai khong ?');
IF R = ALERT_BUTTON1 THEN EXIT_FORM(DO_COMMIT);
ELSE
IF R = ALERT_BUTTON2 THEN EXIT_FORM(NO_COMMIT);
ELSE
IF R = ALERT_BUTTON3 THEN RETURN;
END IF;
END IF;
END IF;
END IF;
EXIT_FORM(NO_COMMIT);
EXCEPTION WHEN E THEN BEGIN
MESSAGE('Loi Nhap !');
RAISE FORM_TRIGGER_FAILURE;
END;
END;
Lấy mã công việc từ danh sách công việc DECLARE
a_value_chosen BOOLEAN;
BEGIN
a_value_chosen := Show_Lov('CV');
IF NOT a_value_chosen THEN
Message('You have not selected a value.');
Bell;
RAISE Form_Trigger_Failure;
END IF;
END;
Lấy mã nhân viên từ bảng nhân viên DECLARE
a_value_chosen BOOLEAN;
BEGIN
a_value_chosen := Show_Lov('NVIEN');
IF NOT a_value_chosen THEN
Message('You have not selected a value.');
Bell;
RAISE Form_Trigger_Failure;
END IF;
END;
6.3.5. Form NHÂN VIÊN:
Màn hình gồm những trường dữ liệu bảng NHANVIEN.
Màn hình cũng gồm 4 button dùng di chuyển mẫu tin và 6 button dùng để xuất dữ liệu, thêm, cập nhật, xóa, tìm kiếm, thoát.
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.
Nhấn nút "Thêm" thì ta sẽ nhảy đến mẫ tin cuối cùng (rỗng) và thêm dữ liệu (sau khi nhập dữ liệu ta phải nhấn nút cập nhật để lưu mẫu tin mới). Trong trường dữ liệu mã phòng ban không được nhập mà chỉ được chọn khi click vào button hình mũi tên đi xuống. Nếu mẩu tin rỗng mà vẫn nhấn nút thêm thì nó sẽ xuất hiện thông báo.
Khi muốn thêm mã phòng ban ta phải chọn từ danh sách của bảng PHONGBAN.
Khi nhấn nút "Cập nhật" để cập nhật mẩu tin hiện hành và sẽ xuất hiện thông báo.
Khi nhấn nút "Xóa" thì chương trình sẽ xóa mẫu tin hiện hành trong form, nếu mẩu tin rỗng thì sẽ xuất hiện thông báo.
Khi nhấn vào "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 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 sẽ hiện bảng thông báo.
Button "Thoát" dùng để thoát khỏi màn hình nhập danh sách nhân viên về menu chính của chương trình, trước khi thoát sẽ xuất hiện thông báo cần cập nhật mẩu tin hay thêm xóa sửa gì không.
Các chức năng của Form danh sách nhân viên: thêm mới 1 nhân viên, xoá 1 nhân viên, cho phép tìm kiếm thông tin nhân viên, cho phép xuất dữ liệu về nhân viên, cho phép lưu dữ liệu về nhân viên việc được thêm vào, có các nút tới và quay lui một record.
Source code Cập Nhật DECLARE
R NUMBER;
E EXCEPTION;
BEGIN