Xử lý câu truy vấn bằng phép toán đại số kết hợp thời gian.
LUẬN VĂN TỐT NGHIỆP PHẦN : THUYẾT MINH CHƯƠNG TRÌNH Trang 40 LUẬN VĂN TỐT NGHIỆP 1- Thiết kế sơ đồ EER Ta xây dựng ứng dụng cho công ty theo chi tiết cụ thể sau : Tại cơng ty có nhiều phịng ban, phịng ban có nhiều nhân viên nhân viên thuộc phịng Mỗi phịng có người quản lý người quản lý quản lý phịng Mỗi phịng có nhiều dự án dự án quản lý phòng Nhân viên tham gia vào nhiều dự án, tham gia vào dự án thời điểm Mỗi dự án có nhà quản lý nhà quản lý quản lý nhiều dự án thời điểm quản lý dự án 2- Xây dựng cấu trúc liệu : Ta có lớp đối tượng sau dùng nhập xuất liệu : TEmployeeForm = class(TForm) EmpID : TLabel; Msnv : TEdit; EmpName : TLabel; Tennv : TEdit; InDepartment : TButton; InProject : TButton; Top : TButton; Trang 41 LUẬN VĂN TỐT NGHIỆP Bottom : TButton; Next : TButton; Previous : TButton; Exit : TButton; Save : TButton; procedure ExitClick(Sender: TObject); procedure InDepartmentClick(Sender: TObject); procedure InProjectClick(Sender: TObject); procedure TopClick(Sender: TObject); procedure BottomClick(Sender: TObject); procedure NextClick(Sender: TObject); procedure PreviousClick(Sender: TObject); procedure SaveClick(Sender: TObject); procedure Init(var point : TNhan_vien); procedure Restore(var point : TNhan_vien); procedure Displayed(point : TNhan_vien); procedure Emp_Sal; private { Private declarations } public { Public declarations } end; TDepartmentForm = class(TForm) DeptID : TLabel; Msphong : TEdit; DeptName : TLabel; Tenphong : TEdit; DeptManager : TButton; Top : TButton; Bottom : TButton; Next : TButton; Previous : TButton; Save : TButton; Exit : TButton; procedure ExitClick(Sender: TObject); procedure DeptManagerClick(Sender: TObject); procedure TopClick(Sender: TObject); procedure BottomClick(Sender: TObject); procedure NextClick(Sender: TObject); procedure PreviousClick(Sender: TObject); procedure SaveClick(Sender: TObject); procedure Init(var point : T_Phong); procedure Restore(var point : T_Phong); procedure Displayed(point : T_Phong); private { Private declarations } Trang 42 LUẬN VĂN TỐT NGHIỆP public { Public declarations } end; TProject Form = class(TForm) ProjID : TLabel; Msda : TEdit; ProjName : TLabel; Tenda : TEdit; ProjManager : TButton; DeptManageProj : TButton; Top : TButton; Bottom : TButton; Next : TButton; Previous : TButton; Save : TButton; Exit : TButton; procedure ProjManagerClick(Sender: TObject); procedure DeptManageProjClick(Sender: TObject); procedure SaveClick(Sender: TObject); procedure ExitClick(Sender: TObject); procedure TopClick(Sender: TObject); procedure BottomClick(Sender: TObject); procedure NextClick(Sender: TObject); procedure PreviousClick(Sender: TObject); procedure Init(var point : TDu_an); procedure Restore(var point : TDu_an); procedure Displayed(point : TDu_an); private { Private declarations } public { Public declarations } end; Ngoài ra, để quản lý liệu ta xây dựng thêm cấu trúc sau : TTime = array[1 2] of TDatetime; T_EmpRef = ^ TEmpRef; T_DeptRef = ^ TDeptRef; T_ProjRef = ^ TProjRef; T_Salary = ^TSalary; TSalary = Record luong : integer; time : TTime; next : T_Salary; pre : T_Salary; end; TNhan_vien = ^ TNhanvien; TNhanvien = Record Trang 43 LUẬN VĂN TỐT NGHIỆP msnv tennv p_InDept : p_InProj p_DeptManager p_ProjManager p_luong next pre end; T_Phong TPhong msphong tenphong p_DeptManager p_Dept_Man_Proj p_InDept next pre end; TDu_an TDuan msda tenda p_ProjManager p_Dept_Man_Proj p_InProj next pre end; TEmpRef time next pre ref end; TDeptRef time next pre ref : string; : string; T_DeptRef; : T_ProjRef; : T_DeptRef; : T_ProjRef; : T_Salary; : TNhan_vien; : TNhan_vien; TProjRef time next pre = = : : : : : : : ^ TPhong; Record string; string; T_EmpRef; T_ProjRef; T_EmpRef; T_Phong; T_Phong; = = : : : : : : : ^ TDuan; Record string; string; T_EmpRef; T_DeptRef; T_EmpRef; TDu_an; TDu_an; = : : : : Record TTime; T_EmpRef; T_EmpRef; TNhan_vien; = : : : : Record TTime; T_DeptRef; T_DeptRef; T_Phong; = : : : Record TTime; T_ProjRef; T_ProjRef; end; Trang 44 LUẬN VĂN TỐT NGHIỆP ref : TDu_an; end; Với cấu trúc liệu ta mơ hình hố quan hệ đối tượng theo hình : Chú thích : [TIME] : đoạn thời gian, từ thời điểm T1 đến T2 (T1