II. Một số giao diện chính của chơng trình
9. Danh sách luận văn của khoa
Phần 4 Kết luận
Trong thời kỳ thông tin hiện đại, việc sử dụng các ứng dụng tin học vào việc xử lý thông tin là một việc không thể thiếu đợc. Ngoài việc tiếp nhận các phần mềm ứng dụng của nớc ngoài chúng ta còn có các chơng trình ứng dụng của chính mình.
Kết hợp với yêu cầu từng bớc tin học hoá việc "Quản lý luận văn", tôi đã xây dựng đề tài "Phân tích, thiết kế hệ thống quản lý luận văn của khoa Tin học kinh tế". Đề tài đã thu đợc một số kết quả nh sau:
-Lu trữ và truy cập dữ liệu một cách an toàn, chính xác - Phục vụ kịp thời các yêu cầu quản lý và tìm kiếm thông tin - Kết quả thống kê đợc chính xác và nhanh chóng
Tuy vậy, do thời gian và kinh nghiệm còn nhiều hạn chế do đó đề tài này chắc chắn còn nhiều thiếu sót, rất mong đợc sự giúp đỡ của các thầy cô giáo và các bạn. Qua đây em cũng xin chân thành cảm ơn cô Trần Thị Thu Hà đã tận tình chỉ bảo trong quá thực hiện đề tài này.
Tài liệu tham khảo
1.TS. Trơng Văn Tú- TS. Trần Thị Song Minh
Giáo trình hệ thống thông tin quản lý, Hà Nội-năm 2000 2.Nguyễn Ngọc Minh (chủ biên)- Nguyễn Đình Tê (hiệu đính) Sử dụng và khai thác Microsoft Visual Foxpro 6.0
Nhà xuất bản Giáo dục-2000
3.Tổng hợp và biên dịch: VN-GUIDE và kỹ s tin học: Đinh Xuân Lâm Những bài thực hành Visual Foxpro, Nhà xuất bản thống kê
1. Các luận văn tố nghiệp của sinh viên K41 Khoa Tin học kinh tế trờng đại ĐHKTQD
Mục lục
Trang
Lời nói đầu...1
Phần 1...2
Giới Thiệu về hệ thống thông tin quản lý luận văn của khoa Tin Học kinh tế và lý do chọn đề tài...2
I. Tổng quan về hệ thống thông tin quản lý luận văn trong khoa...2
II. Khảo sát hệ thống...2
1. Một số nguyên tắc trong quản lý luận văn...2
2. Phân tích hệ thống quản lý luận văn cũ...3
3. Những yêu cầu của hệ thống mới...3
III. Các giai đoạn phát triển một hệ thống thông tin...4
Giai đoạn I: Đánh giá yêu cầu...4
Giai đoạn II: Phân tích chi tiết...4
Giai đoạn III. Thiết kế lô gíc...5
Giai đoạn IV: Đề xuất các phơng án của giải pháp...5
Giai đoạn V: Thiết kế vật lý ngoài...5
Giai đoạn VI: Triển khai kỹ thuật hệ thống...6
Giai đoạn VII: Cài đặt và khai thác...6
Phần 2...6
Phân tích và thiết kế chơng trình quản lý luận văn...6
I. Phân tích các chức năng cơ bản của hệ thống...6
1. Các chức năng cơ bản trong hệ thống quản lý luận văn...6
2. Phân loại và gom tụ các chức năng thành các chức năng con của chức năng chính...7
a. Chức năng quản lý luận văn gồm:...7
b. Chức năng quản lý mợn trả gồm:...7
c. Chức năng quản lý bạn đọc gồm:...7
d. Chức năng quản lý thống kê gồm:...7
e. Chức năng tra cứu thông tin gồm:...8
II. Biểu đồ phân cấp chức năng...9
III. Biểu đồ luồng dữ liệu...10
1. Biểu đồ luồng dữ liệu mức khung cảnh...10
2. Sơ đồ luồng thông tin...11
b. Bảng bạn đọc( Table BANDOC)...13
c. Bảng mợn trả (Table MUON_TRA)...13
d. Bảng thể loại luận văn (Table THELOAI)...13
e. Bảng tên giáo viên hớng dẫn(Table GVHD)...14
f. Bảng khoá học(Table Khoa)...14
2. Sơ đồ quan hệ thực thể giữa các bảng trong cơ sở dữ liệu...15
V. Một số thuật toán của chơng trình...16
1. Thuật toán đăng nhập chơng trình...16
2. Thuật toán nhập dữ liệu...17
3. Thuật toán sửa dữ liệu...17
4. Thuật toán tìm dữ liệu thông tin...18
Phần 3...20
Tổng quan về Visual Foxpro và một số giao diện chính của chơng trình ...20
I. Tổng quan về Visual Foxpro...20
1. Một số u điểm của Visual Foxpro Version 6.0...20
2. Một số nhợc điểm của Visual Foxpro...22
II. Một số giao diện chính của chơng trình...25
1. Giao diện đăng nhập chơng trình...25
2. Giao diện chính của chơng trình...26
3. Màn hình nhập danh sách luận văn...27
4. Màn hình cho phép nhập thể loại luận văn...28
5. Màn hình nhập thông tin bạn đọc...29
6. Màn hình mợn trả...30
7. Khi có một giáo viên mới vào khoa thì chúng ta có thể nhập tên giáo viên vào cơ sở dữ liệu thông qua form nh sau...31
8. Màn hình tra cứu thông tin...32
9. Danh sách luận văn của khoa...33
Phần 4...34
Kết luận...34
Phụ lục
Một số mã nguồn chính của chơng trình quản lý luận văn của khoa Tin học kinh tế
- Mã nguồn Form Nhập luận văn cmdNhap-Click()
select luanvan go top
=messagebox("Đã về đến bản ghi đầu tiên",20,"Thông Báo")=6 thisform.refresh
Cmxem-Click()
BROW FONT [.VnArial],12 NOAPPE NODELE NOMODIFY CmdXoa-Click()
select luanvan
IF MESSAGEBOX('Co chac chan xoa hang nay khong?',36,'Chu y') = 6 DELE
if !EOF() skip pack endif
if EOF() and !BOF() skip -1 endif ENDIF thisform.refresh cmdThoat-Click() select luanvan
if messagebox("Có muốn thoát không?",20,"Thông báo")=6 then thisform.release
endif
CmDDau-Click() select theloai go top
select theloai skip -1 if BOF() go top
=messagebox("Đã về đến bản ghi đầu tiên",20,"Thông Báo")=6 endif thisform.refresh CmdTiep-Click() select theloai skip 1 if EOF() go bottom
=messagebox("Đã về đến bản ghi Cuối cùng",20,"Thông Báo")=6 endif
thisform.refresh CmdCuoi-Click() select theloai go bottom
=messagebox("Đã về đến bản ghi cuối cùng",20,"Thông Báo")=6 thisform.refresh
- Mã nguồn Form Nhập thể loại luận văn CmdNhap-Click() select theloai append blank thisform.txtmalv.setfocus thisform.refresh CmdXem-Click()
BROW FONT [.VnArial],12 NOAPPE NODELE NOMODIFY CmdXoa-Click()
select theloai
IF MESSAGEBOX('Co chac chan xoa hang nay khong?',36,'Chu y') = 6 DELE
if !EOF() skip
pack endif
if EOF() and !BOF() skip -1
endif ENDIF
thisform.refresh CmdThoat-Click()
if messagebox("Có muốn thoát không?",20,"Thông báo")=6 then thisform.release
endif
CmDDau-Click() select theloai go top
=messagebox("Đã về đến bản ghi đầu tiên",20,"Thông Báo")=6 thisform.refresh CmdKe-Click() select theloai skip -1 if BOF() go top
=messagebox("Đã về đến bản ghi đầu tiên",20,"Thông Báo")=6 endif thisform.refresh CmdTiep-Click() select theloai skip 1 if EOF() go bottom
=messagebox("Đã về đến bản ghi Cuối cùng",20,"Thông Báo")=6 endif
thisform.refresh CmdCuoi-Click() select theloai go bottom
=messagebox("Đã về đến bản ghi cuối cùng",20,"Thông Báo")=6 thisform.refresh - Mã lệnh Form Tìm kiếm timkiem-Init thisform.t1.enabled=.F. thisform.t2.enabled=.F. thisform.t3.enabled=.F.
thisform.t4.value='' thisform.c1.value=.T. thisform.c2.value=.F. thisform.c3.value=.F. thisform.c4.value=.F. thisform.T1.enabled=.T. thisform.t2.enabled=.F. thisform.t3.enabled=.F. thisform.t4.enabled=.F. thisform.t1.value='' thisform.c2.value=.T. thisform.c1.value=.F. thisform.c3.value=.F. thisform.c4.value=.F. thisform.T1.enabled=.T. thisform.t2.enabled=.F. thisform.t3.enabled=.F. thisform.t4.enabled=.F. thisform.t2.value='' thisform.c3.value=.T. thisform.c1.value=.F. thisform.c2.value=.F. thisform.c4.value=.F. thisform.T2.enabled=.T. thisform.t1.enabled=.F. thisform.t3.enabled=.F. thisform.t4.enabled=.F. thisform.t2.value='' thisform.c3.value=.T. thisform.c2.value=.F. thisform.c1.value=.F. thisform.c4.value=.F. thisform.T3.enabled=.T. thisform.t2.enabled=.F. thisform.t1.enabled=.F. thisform.t4.enabled=.F. thisform.t3.value='' thisform.c4.value=.T. thisform.c2.value=.F. thisform.c3.value=.F. thisform.c1.value=.F. thisform.T4.enabled=.T. thisform.t2.enabled=.F.
thisform.t3.enabled=.F. thisform.t1.enabled=.F. thisform.t4.value='' CmdXem-Click() If (Thisform.C1.Value=1)And(Thisform.t1.ReadOnly=.F.) Thisform.Grid1.visible=.T.
Select malv,tendetai,tacgia,tengvhd,khoa from luanvan ; where Alltrim(Lower(Thisform.t1.value)) $
Alltrim(Lower(luanvan.malv)) ; into Cursor KetQua
Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="KetQua" Else
MessageBox("Khong tim thay","Thong bao") EndIf
&&&
If (Thisform.C2.Value=1)And(Thisform.t2.ReadOnly=.F.) Thisform.Grid1.visible=.T.
Select malv,tendetai,tacgia,tengvhd,khoa from luanvan ; where Alltrim(Lower(Thisform.t2.value)) $
Alltrim(Lower(luanvan.malv)) ; into Cursor KetQua
Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="KetQua" Else
MessageBox("Khong tim thay","Thong bao") endif
&&
If (Thisform.C3.Value=1)And(Thisform.t3.ReadOnly=.F.) Thisform.Grid1.visible=.T.
Select malv,tendetai,tacgia,tengvhd,khoa from luanvan ; where Alltrim(Lower(Thisform.t3.value)) $
Alltrim(Lower(luanvan.malv)) ; into Cursor KetQua
Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="KetQua" Else
MessageBox("Khong tim thay","Thong bao") endif
&&
If (Thisform.C4.Value=1)And(Thisform.t4.ReadOnly=.F.) Thisform.Grid1.visible=.T.
Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="KetQua" Else
MessageBox("Khong tim thay","Thong bao") endif
CmdThoat-Click()
if messagebox("Có muốn thoát không?",20,"Thông báo")=6 then thisform.release endif -Mã lệnh Form Bandoc CmdNhap-Click() select bandoc append blank thisform.txtmabd.setfocus thisform.refresh CmdXem-Click()
BROW FONT [.Vntime],12 NOAPPE NODELE NOMODIFY CmdXoa-Click()
select bandoc
IF MESSAGEBOX('Co chac chan xoa hang nay khong?',36,'Chu y') = 6 DELE
if !EOF() skip
pack endif
if EOF() and !BOF() skip -1
endif ENDIF
thisform.refresh CmdThoat-Click()
if messagebox("Ban co chac thoat khong?",20,"Thong bao")=6 then =dodefault()
thisform.release endif
CmDDau-Click() select bandoc
go top thisform.refresh CmdKe-Click() select bandoc skip -1 if BOF() go top endif thisform.refresh CmdTiep-Click() select bandoc skip 1 if EOF() go bottom endif thisform.refresh CmdCuoi-Click() select bandoc go bottom thisform.refresh -Mã lệnh Form Mợn_Trả CmdChapNhan-Click() select muon_tra append blank thisform.txtmalv.setfocus thisform.refresh CmdHuyBo-Click() select muon_tra
IF MESSAGEBOX('Co chac chan xoa hang nay khong?',36,'Chu y') = 6 DELE
if !EOF() skip pack endif
if EOF() and !BOF() skip -1
CmdXem-Click()
BROW FONT [.VnArial],12 NOAPPE NODELE NOMODIFY CmdThoat-Click()
f messagebox(" Có muốn thoát không?",20,"Thông báo")=6 then thisform.release endif CmDDau-Click() select bandoc go top thisform.refresh CmdKe-Click() select bandoc skip -1 if BOF() go top endif thisform.refresh CmdTiep-Click() select bandoc skip 1 if EOF() go bottom endif thisform.refresh CmdCuoi-Click() select bandoc go bottom thisform.refresh