Đồ án tốt nghiệp Xây dựng chương trình quản lý thông tin thư viện cho Trường Tiểu học Lê Văn Tám, Hải Phòng trên ngôn ngữ lập trình Microsoft Visual Basic 6.0 và cơ sở dữ liệu Microsoft Access được thực hiện nhằm khảo sát thực tế nhu cầu ứng dụng phần mềm quản lý thư viện, thống kê báo cáo trong thư viện và đặc biệt là nhu cầu nâng cấp phần mềm quản lý thư viện của thư viện trường Tiểu học Lê Văn Tám. Mời các bạn cùng tham khảo nội dung đồ án để có thêm tài liệu học tập và nghiên cứu.
Trang 1L I C M NỜ Ả Ơ
Em xin chân thành cảm ơn B môn M ng & Truy n thông Khoaộ ạ ề Công nghệ thông tin và quý Th y,ầ Cô trong khoa, trường Đ iạ học Công ngh thông tin & Truy n thôngệ ề đã t oạ đi uề ki nệ cho em học t pậ và thực
hi nệ đ án t t nghi pồ ố ệ này
Đ cặ biệt, em xin chân thành cảm ơn th y giáo Th c sĩ Đ Đình ầ ạ ỗ
Cườ đã t nng ậ tình hướng d n,ẫ chỉ b oả em trong quá trình thực hiện đ ề tài
M cặ dù em đã cố g ngắ hoàn thành đ tàiề với t tấ cả sự nỗ lực của
b n thả ân, nhưng đ tài cề h cắ ch nắ không tránh khỏi những thi uế sót, kính mong s ự cảm thông và t nậ tình chỉ b oả của quý Th y,ầ Cô và các bạn
Thái Nguyên, ngày 15 tháng 7 năm 2013
Sinh viên
Ph m Th Khánh Hoàiạ ị
Trang 2L I CAM ĐOANỜ
Em xin cam đoan toàn b n i dung trong đ án này là do em t nghiênộ ộ ồ ự
c u các tài li u, kh o sát th c t nhu c u ng d ng ph n m m qu n lý thứ ệ ả ự ế ầ ứ ụ ầ ề ả ư
vi n, th ng kê báo cáo trong th vi n và đ c bi t là nhu c u nâng c p ph nệ ố ư ệ ặ ệ ầ ấ ầ
m m qu n lý th vi n c a th vi n trề ả ư ệ ủ ư ệ ường Ti u h c Lê Văn Tám. T đó emể ọ ừ nghiên c u c s lý thuy t liên quan đ n vi c xây d ng nâng c p ph n m mứ ơ ở ế ế ệ ự ấ ầ ề
qu n lý th vi n và đ ng th i xây d ng chả ư ệ ồ ờ ự ương trình làm đ tài th c t p t tề ự ậ ố nghi p c a mình.ệ ủ
Các s li u và thi t k không sao chép t b t c m t công trình hayố ệ ế ế ừ ấ ứ ộ
m t s n ph m nào khác.ộ ả ẩ
Người cam đoan
Sinh viên: Ph m Th Khánh Hoàiạ ị
Trang 31.1.2 Các thành ph n trong c a s c a Visual ầ ử ổ ủ Basic
10 1.1.3. Thi t k giao di n ế ế ệ
11 1.1.4. Thu c tính, ph ng th c và s ki n ộ ươ ứ ự ệ
Recordset.
28 1.2. T ng quan v h qu n tr c s d li u ổ ề ệ ả ị ơ ở ữ ệ Microsoft Access.
30 1.2.1 Gi i thi u chung v Microsoft Access ớ ệ ề
Trang 42.1.1. Gi i thi u v tr ớ ệ ề ườ ng và th vi n tr ư ệ ườ ng
ti u h c Lê văn Tám ể ọ
40 2.1.2. Th c tr ng qu n lý th vi n tr ự ạ ả ư ệ ườ ng ti u ể
h c Lê Văn Tám ọ
41 2.2. Phân tích bài toán qu n lý th vi n tr ả ư ệ ườ ng
ti u h c Lê Văn Tám ể ọ
47 2.2.1 Các ch c năng chính c a h th ng ứ ủ ệ ố
+ Tìm ki m theo mã sách ế
47 2.2.2. Các bi u đ phân tích thi t k h th ng ể ồ ế ế ệ ố
Trang 5
2.3.2 Thi t k các b ng c a c s d li u ế ế ả ủ ơ ở ữ ệ
Trang 62.3.2.1 B ng đ c gi ả ộ ả
61 2.3.2.2 B ng M ả ượ n tr ả
61 2.3.2.4 B ng phân lo i ả ạ
62 2.3.2.5 B ng Nhà xu t b n ả ấ ả
62 2.3.2.7. B ng ChiTietNhap ả
62
B ng User ả
63 2.3.2.9 B ng TacGia ả
63 2.3.2.10 B ng Sach ả
63 2.3.3 S đ th c th liên k t ơ ồ ự ể ế
Giao di n chính c a ch ng trình có ch c ệ ủ ươ ứ
năng đ a ra các menu giúp cho ng i dùng có ư ườ
th l a ch n các ch c năng c a ch ng trình ể ự ọ ứ ủ ươ trong quá trình làm vi c đ ệ ượ c d dàng và thu n ễ ậ
ti n h n ệ ơ
65 Menu c a giao di n chính g m: ủ ệ ồ
65 4 Qu n lý m ả ượ n tr ả
65 5 Tìm ki m ế
65 6 Th ng kê ố
65 7 Tr giúp ợ
66 3.1.1. Form đăng nh p ậ
66 3.1.2. Form đăng ký
67 3.2. Ch c năng qu n lý đ c gi ứ ả ộ ả
68
Trang 73.2.1. Giao di n ch c năng nh p thông tin đ c ệ ứ ậ ộ giả
68 3.2.2 Giao di n ch c năng gia h n th ệ ứ ạ ẻ
3.3 Ch c năng qu n lý sách ứ ả
71 3.3.1 Giao di n ch c năng c p nh t sách ệ ứ ậ ậ
74 3.4.2. Giao di n ch c năng tìm ki m theo tên ệ ứ ế sách
75 3.5. Ch c năng qu n lý m ứ ả ượ n tr ả
76 3.5.1. Giao di n ch c năng cho m ệ ứ ượ n sách
nh p mã sách b ng combobox ậ ằ
76 3.5.2. Giao di n ch c năng nh n tr sách ệ ứ ậ ả
3.6 Ch c năng th ng kê, báo cáo ứ ố
77 3.6.1 Giao di n ch c năng th ng kê ds sách có ệ ứ ố trong th vi n ư ệ
77
Trang 83.6.3 Giao di n ch c năng th ng kê sách h ng ệ ứ ố ỏ
82
NH N XÉT C A GIÁO VIÊN HẬ Ủ ƯỚNG D NẪ
83
Trang 9L I M Đ UỜ Ở Ầ
Trong các trường Ti u h c, THCS và THPT, th vi n luôn là n i cungể ọ ư ệ ơ
c p r t nhi u tài li u cho các cán b giáo viên, h c sinh trong trấ ấ ề ệ ộ ọ ường h c t pọ ậ
và nghiên c u. Ngoài nh ng đ u sách ra, th vi n còn cung c p tài li u c aứ ữ ầ ư ệ ấ ệ ủ các cán b giáo viên và h c sinh đ m i ngộ ọ ể ọ ười có th tham kh o. Vi c tìmể ả ệ
ki m sách đ cho h c sinh mế ể ọ ượn sách, vi c nh n tr sách hay thêm các tài li uệ ậ ả ệ
m i theo yêu c u c n có m t chớ ầ ầ ộ ương trình qu n lý đ giúp các công vi cả ể ệ
được th c hi n m t cách d dàng h n và có th ph c v đự ệ ộ ễ ơ ể ụ ụ ượ ố ơc t t h n cho nhu c u c a đ c gi ngày càng tăng. V i Microsoft Visual Basic 6.0, chúng taầ ủ ộ ả ớ
có th t vi t m t chể ự ế ộ ương trình qu n lý thông tin cho m t th vi n c a b t kả ộ ư ệ ủ ấ ỳ
m t trộ ường Ti u h c, THCS hay THPT nào đ giúp cho công vi c qu n lý thể ọ ể ệ ả ư
vi n đệ ược d dàng và ch t ch h n. V i m t chễ ặ ẽ ơ ớ ộ ương trình qu n lý th vi n,ả ư ệ chúng ta có th phát tri n m r ng thêm và thay đ i cho phù h p v i b t kể ể ở ộ ổ ợ ớ ấ ỳ yêu c u c a m t th vi n nào.ầ ủ ộ ư ệ
Là sinh viên đang theo h c t i trọ ạ ường ĐH Công Ngh Thông Tin vàệ Truy n Thông – ĐH Thái Nguyên, đã đề ược h c t p v môn h c c s d li uọ ậ ề ọ ơ ở ữ ệ
và phân tích thi t k h th ng cùng v i vi c tìm hi u ngôn ng l p trìnhế ế ệ ố ớ ệ ể ữ ậ Visual Basic, em r t hi v ng đấ ọ ược mang nh ng ki n th c mình đã đữ ế ứ ược h c ápọ
d ng vào trong th c t , giúp ích cho công vi c qu n lý thông tin th vi n đụ ự ế ệ ả ư ệ ượ c
d dàng h n.ễ ơ
Đ án t t nghi p mà em th c hi n là Xây d ng chồ ố ệ ự ệ ự ương trình qu n lý thông tinả
th vi n cho Trư ệ ường Ti u h c Lê Văn Tám – H i Phòng trên Ngôn ng l pể ọ ả ữ ậ trình Microsoft Visual Basic 6.0 và c s d li u Microsoft Access.ơ ở ữ ệ
Trang 10
CHƯƠNG 1: C S LÝ THUY TƠ Ở Ế
1.1. Microsoft visual basic 6.0
1.1.1 Gi i thi u Microsoft visual basic 6.0ớ ệ
Viusal Basic 6.0 là công c l p trình tr c quan giúp ta t o nhanh nh ngụ ậ ự ạ ữ
ng d ng ch y trên Windows
Viusal Basic 6.0 là ngôn ng l p trình hữ ậ ướng đ i tố ượng (L p trìnhậ viên chia nh v n đ c n gi i quy t thành nhi u đ i tỏ ấ ề ầ ả ế ề ố ượng).T ng đ i từ ố ượ ng
có nh ng đ c đi m, g i là thu c tính (Properties) và nh ng ch c năng riêngữ ặ ể ọ ộ ữ ứ
bi t, g i là phệ ọ ương th c (Methods).L p trình viên ph i đ a ra các thu c tínhứ ậ ả ư ộ
và phương th c mà đ i tứ ố ượng c n th hi n.Các chầ ể ệ ương trình c a VB ho tủ ạ
đ ng theo hộ ướng tác ng v i s ki n bên ngoài.ứ ớ ự ệ
VD: Nh n chu t, bàn phím…vào đ i tấ ộ ố ượng đó
Chương trình c a Viusal Basic 6.0 là t p h p các đo n mã l nh đ củ ậ ợ ạ ệ ộ
l p. Các đo n mã l nh này ch đậ ạ ệ ỉ ược kích ho t khi có bi n c tạ ế ố ương ng x yứ ả
ra. N u ta ch a vi t th t c cho bi n c đó thì chế ư ế ủ ụ ế ố ương trình không ho t đ ngạ ộ
1.1.2.2 Thanh th c đ n (Menu Bar)ự ơ
G m các l nh sau: File, Edit, Project, Format, Debug, Run, Query,ồ ệ Diagram, Tools, AddIns, Window, Help
Thanh l nh đ n (menu bar) xu t hi n ngay dệ ơ ấ ệ ưới thanh tiêu đ (Titleề bar) và ch a m t ho c nhi u tu ch n l nh đ n, m i tu ch n trong thanhứ ộ ặ ề ỳ ộ ệ ơ ỗ ỳ ọ
l nh đ n đ nh danh m t ph m trù các tác v ệ ơ ị ộ ạ ụ
Trang 11 Xu t hi n ngay dấ ệ ưới m i tu ch n l nh đ n có th là m t ho c nhi uỗ ỳ ọ ệ ơ ể ộ ặ ề
tu ch n. Các tu ch n xu t hi n trên thanh l nh đ n đỳ ọ ỳ ọ ấ ệ ệ ơ ược g i là các tuọ ỳ
ch n l nh đ n chính và nh ng tu ch n dọ ệ ơ ữ ỳ ọ ưới chúng được g i là các tu ch nọ ỳ ọ con
1.1.2.3 Thanh công c (Tool bar)ụ
Là các l nh đệ ược th hi n dể ệ ướ ại d ng bi u tể ượng giúp ta th c hi nự ệ
m t l nh nhanh h n.ộ ệ ơ
G m các l nh sau: Add Standard EXE Project, Add form, Menu editor,ồ ệ Open Project, Save Project, Cut, Copy, Paste, Find, Undo, Redo, Start, Break, End, Project Explore, Project windows, Form layuot window, Object brownser, Toolbox, Data view window, Visual component manager
Thanh công c ch a các nút thanh công c , cho phép nhanh chóng truyụ ứ ụ
c p đ n các l nh thậ ế ệ ường dùng nh t. ấ
Các nút trong thanh công c cũng tụ ương t nh các m c trong thanhự ư ụ
th c đ n. Các nút thanh công c cung c p cho ngự ơ ụ ấ ười dùng m t n i t t đ i v iộ ố ắ ố ớ các hành đ ng mà ta ch n qua nhi u bộ ọ ề ước b ng l nh đ n.ằ ệ ơ
Các tính ch t c a thanh công c : là các tính ch t duy nh t đ i v i m tấ ủ ụ ấ ấ ố ớ ộ
đi u khi n thanh công c g m:ề ể ụ ồ
+ Style: Xác đ nh hình dáng c a đi u khi n.ị ủ ề ể
+ TextAlignment: xác đ nh v trí c a văn b n tị ị ủ ả ương đ i v i nút.ố ớ
+ ToolTipText: ô g i nh tên công c ợ ớ ụ
Các phương pháp c a thanh công c :ủ ụ
Các phương pháp thường dùng là: Move, Drag
1.1.3. Thi t k giao di nế ế ệ
1.1.3.1. Gi i thi u Formớ ệ
Trong ch ng trình Visual Basic đ u có ít nh t là m t Form. Form hay cònươ ề ấ ộ
g i là bi u m u, là thành ph n quan tr ng nh t trong s t t c các thành ph nọ ể ẫ ầ ọ ấ ố ấ ả ầ giao di n. Form là c s cho vi c thi t k giao di n ng i dùng c a ng d ng.ệ ơ ở ệ ế ế ệ ườ ủ ứ ụ
Trang 12T tấ c các thành ph n t o thành giao di n ngả ầ ạ ệ ười dùng đ u đề ược đ t trongặ Form.
Khi ng d ng ch y, nó m ra m t Form. Sau khi Form đứ ụ ạ ở ộ ược n p vào bạ ộ
nh , t t c các thành ph n hàm ch a trong nó s hi n di n và có th truy c p.ớ ấ ả ầ ứ ẽ ệ ệ ể ậ
Cách t o Form: Sau khi t o Project m i, môi trạ ạ ớ ường tri n khai l pể ậ trình cho s n ta m t Form. Có 2 cách:ẵ ộ
1.1.3.2. L u và ch y Formư ạ
L u Form: có 2 cách:ư
+ Dùng menu: = File / Save<tên Form>As
+ Vào c a s Project, ử ổ chu t ph i lên Form ch n Save<tên Form>Asộ ả ọ
Ch y Form: Run / Start ho c nh n vào công c Run trên thanh công cạ ặ ấ ụ ụ (Tool Bar)
1.1.3.3. Các đ i tố ượng (Objects)
* Đ c đi mặ ể :
+ M i đ i tỗ ố ượng có m t tên đ phân bi t ộ ể ệ
+ Có nhi u đ c tính, các đ c tính này có th g i là các thu c tínhề ặ ặ ể ọ ộ (Property) c a đ i đó.ủ ố
Trang 13+ M i đ i tỗ ố ượng có nhi u ho t đ ng và các ho t đ ng này g i là cácề ạ ộ ạ ộ ọ
phương th c (method) c a nó.ứ ủ
Truy xu t đ i tấ ố ượng
+ Truy xu t đ i tấ ố ượng t c là đ t giá tr cho các property (thu c tính) c aứ ặ ị ộ ủ
đ i tố ượng, hay g i Method (phọ ương th c) cho các đ i tứ ố ượng đó ho t đ ng.ạ ộ
B t c khi nào truy xu t đ n đ i tấ ứ ấ ế ố ượng đ u đề ược vi t theo cú phápế :
<Object name>.<tên Property hay Method>
Vi t l nh cho đ i tế ệ ố ượng
+ Khi b n đ t m t đ i tạ ặ ộ ố ượng lên form thì lúc đ u nó ch a ho t đ ng.ầ ư ạ ộ
Vì v y c n ph i vi t l nh đ cho nó làm vi c b ng cáchậ ầ ả ế ệ ể ệ ằ :
. Double click cho đ i tố ượng
. C a s l nh hi n ra và vi t l nh cho đ i tử ổ ệ ệ ế ệ ố ượng đó
.S d ng c a s đ vi t mã l nhử ụ ử ổ ể ế ệ
M i ph n mã l nh cho m t s ki n x y ra trên m t đ i tỗ ầ ệ ộ ự ệ ả ộ ố ương đ u cóề hai dòng đ u tiên là Sub và cu i là End subầ ố
Thu c tính chung các đ i tộ ố ượng
+ Thu c tính Nameộ :M i Coltrol trong m t Form đ u có thu c tínhỗ ộ ề ộ Name đ phân bi t v i các Coltrol khác. Đây là thu c tính dùng đ truy xu tể ệ ớ ộ ể ấ
đ n đ i tế ố ượng Coltrol đó
Thu c tínhộ Gi i thíchả
Alignment Căn l cho dòng ch (Text, Caption)ề ữ
Appearrance Xác đ nh cotrol có là 3D hay khôngị ?
Forecolor Mã ch trên cotrolữ
Backcolor Màu n n trên coltrolề
Font Font c a coltrolủ
Enable N u thu c tính này có giá tr False, coltrol s không sế ộ ị ẽ ử
d ng đụ ược, đ có th nhìn th yủ ể ấTop – Left Quy góc trái trên c a coltrolủ
Visible Ân hay hi n coltrolệ
Width – Height Quy đ nh kích thị ước coltrol
Tooltexttiph Ghi chú n i dung c a coltrol. Dòng ch này hi n ra khiộ ủ ữ ệ
ta d ng chu t ngay trên coltrol.ừ ộ
Trang 14Thu c tínhộ Gi i thích.ả
Alignment Cách l cho dòng chề ữ (Tetx captin)
Appearrance Xác đ nh control có là 3D hay khôngị ?
Forecolor Mà ch trên control.ữ
Backcolor Màu n n trên control.ề
Font Font c a control.ủ
Enable N u thu c tính này có giá tr False control s không sế ộ ị ẽ ử
d ng đụ ược, có th nhìn th y .ể ấTop – Left Quy góc trái trên c a control.ủ
Visible Ẩn hay hi n c a control.ệ ủ
Width – Height Quy đ nh kích thị ướ ủc c a control
Tooltexttip Ghi chú nôi dung c a control. Dòng ch này hi n ra khiủ ữ ệ
ta d ng chu t ngày trên control.ừ ộ
B ng 1.1.3.3(a): Các thu c tính c a đ i tả ộ ủ ố ượng trong VB6.0
* Các đi u khi n n i t i bao g m:ề ể ộ ạ ồ
CheckBox Cho phép ngườ ử ụi s d ng ch n ho c khôngọ ặ
ch n m t kh năng nào đóọ ộ ảComboBox Cho phép ngườ ử ụi s d ng ch n t danh sáchọ ừ
các ch n l a hay nh p d li u m iọ ự ậ ữ ệ ớHscrollBar Cho phép ngườ ử ụi s d ng cu n ngang quaộ
m t đi u khi n ch a d li u khácộ ề ể ứ ữ ệTimer Cho phép chương trình t đ ng thi hànhự ộ
m t công vi c nào đó vào m t th i đi m,ộ ệ ộ ờ ể không c n tầ ương tác c a ngủ ườ ử ụi s d ngDirListBox Cho phép ngườ ử ụi s d ng ch n th m cọ ư ụShape Hi n th d ng hình h c trên bi u m uể ị ạ ọ ể ẫ
Image Hi n th hình nh đ ho trên bi u m uể ị ả ồ ạ ể ẫ
nh ng không th làm n i ch aư ể ơ ứOLE Cho phép thêm ch c năng l p trình c a m tứ ậ ủ ộ
Trang 15Container đi u khi n vào ng d ngề ể ứ ụ
PictureBox Hi n th hình nh trên bi u m u và có thể ị ả ể ẫ ể
làm n i ch aơ ứTextBox Dùng trình bày văn b n nh ng cũng choả ư
phép ngườ ử ụi s d ng s a đ i hay thêm m iử ổ ớ văn b nả
CmdButton Cho phép người s d ng th c hi n m tử ụ ự ệ ộ
hành đ ngộOptionButton Cho phép ngườ ử ụi s d ng ch n t m t nhómọ ừ ộ
có 2 hay nhi u kh năng tr lênề ả ởListBox Cho phép ngườ ử ụi s d ng ch n t danh sáchọ ừ
các ph n tầ ửVscrollBar Cho phép ngườ ử ụi s d ng cu n d c qua m tộ ọ ộ
đi u khi n ch a d li u khácề ể ứ ữ ệDriveListBox Cho phép ngườ ử ụi s d ng ch n đĩaọ ổ
FileListBox Cho phép ng òi s d ng ch n t p tinư ử ụ ọ ậ
Line Hi n th m t đo n th ng trên bi u m uể ị ộ ạ ẳ ể ẫData Cho phép k t n i v i c s d li uế ố ớ ơ ở ữ ệ
B ng 1.1.3.3(b): Các đi u khi n c a giao di n VB6.0ả ề ể ủ ệ
Trang 161.1.4. Thu c tính, phộ ương th c và s ki nứ ự ệ
Là nh ng đo n chữ ạ ương trình ch a trong đi u khi n, cho đi u khi nứ ề ể ề ể
bi t cách th c đ th c hi n m t công vi c nào đó ế ứ ể ự ệ ộ ệ
Move Thay đ i v trí 1 đ i tổ ị ố ượng theo yêu c u c a chầ ủ ươ ng
trìnhDrag Thi hành hành đ ng kéo và th c a ngộ ả ủ ườ ử ụi s d ng
Setfous Cung c p t m ng m cho đ i tấ ầ ầ ố ượng được ch ra trongỉ
l nh g i phệ ọ ương th cứZorder Quy đ nh th t xu t hi n c a các đi u khi n trên mànị ứ ự ấ ệ ủ ề ể
Width Chi u r ng c a đi u khi nề ộ ủ ề ể
Name M t giá tr chu i độ ị ỗ ược dùng đ nói đ n thu c tínhể ế ộEnabled Giá tr logic (True ho c False) quy t đ nh ngị ặ ế ị ườ ử i s
d ng có làm vi c v i đi u khi n khôngụ ệ ớ ề ểVisible Giá tr logic (True ho c False) giá tr ngị ặ ị ườ ử ụ i s d ng
có th y đi u khi n hay khôngấ ề ểBorderstyle Quy t đ nh các thành ph n c a c a sế ị ầ ủ ử ổ
Trang 17DragDrop Ngườ ử ụi s d ng kéo rê m t đ i tộ ố ượng sang n i khácơ
DragOver Ngườ ử ụi s d ng kéo rê m t đ i tộ ố ượng ngang qua m tộ
đi u khi n khácề ểGolFocus Đ a m t đ i tư ộ ố ượng vào t m ng m c a ngầ ắ ủ ườ ử ụi s d ngKeyDown Ngườ ử ụi s d ng nh n m t nút trên bàn phím trong khi 1ấ ộ
đ i tố ượng đang trong t m ng mầ ắKeyPress Ngườ ử ụi s d ng nh n và th m t nút trên bàn phím trongấ ả ộ
khi m t đ i tộ ố ượng đang trong t m ng mầ ắKeyUp Ngườ ử ụi s d ng th 1 nút trên bàn phím trong khi 1 đ iả ố
tượng đang trong t m ng mầ ắLostFocus Đ a 1 đ i tư ố ượng ra kh i t m ng mỏ ầ ắ
MouseDown Ngườ ử ụi s d ng nh n 1 nút chu t b t kì trong khi con trấ ộ ấ ỏ
chu t đang n m trên 1 đ i tộ ằ ố ượngMouseMove Người sd ng di chuy n con tr chu t ngang m t đ iụ ể ỏ ộ ộ ố
tượngMouseUp Ngườ ử ụi s d ng th nút chu t trong khi con tr chu tả ộ ỏ ộ
đang n m trên m t đ i tằ ộ ố ượng
Ta dùng toán t (=) đ tính toán và ch a giá tr vào bi nử ể ứ ị ế
D u (=) là toán t gán, không ph i là toán t so sánh b ngấ ử ả ử ằ
Khai báo bi n: Đ khai báo bi n ta dùng l nh Dim:ế ể ế ệ
Trang 18Dim<tên bi n>[As<ki u d li u>]ế ể ữ ệ
Bi n khai báo trong th t c ch t n t i khi th t c thi hành.Nó s m t điế ủ ụ ỉ ồ ạ ủ ụ ẽ ấ khi th t c ch m d t. Ta không th truy c p bi n t bên ngoài th t c vì giáủ ụ ấ ứ ể ậ ế ừ ủ ụ
tr c a bi n trong th t c là c c b đ i v i th t c đóị ủ ế ủ ụ ụ ộ ố ớ ủ ụ
Ki u d li u trong khai báo Dim có th là: Integer, String ho cể ữ ệ ể ặ Currency
Ta có th khai báo ng m ho c khai báo tể ầ ặ ường minh ho c khai báoặ static
[PubliclPrivate] Cost<tên h ng> [As<ki u d li u>]=<bi u th c> ằ ể ữ ệ ể ứ
Bi u th c bên ph i d u = là m t con s hay m t chu i tể ứ ả ấ ộ ố ộ ỗ ường minh,
nh ng nó cũng có th là m t bi u th c cho ra k t qu là s hay chu i (M c dùư ể ộ ể ứ ế ả ố ỗ ặ
bi u th c đó không th g i hàm)ể ứ ể ọ
T m ho t đ ng:ầ ạ ộ
+ H ng khai báo trong th t c ch ho t đ ng trong th t cằ ủ ụ ỉ ạ ộ ủ ụ
+ H ng ho t đ ng trong modun ch ho t đ ng trong modunằ ạ ộ ỉ ạ ộ
1.1.5.3 . Ki u d li uể ữ ệ
Ki u s (Integer, Long, Double, Currency). Ki u s t n ít vùng ch a.ể ố ể ố ố ứ
T t c các bi n ki u s có th đấ ả ế ể ố ể ược gán cho nhau và cho bi n Variantế
Ki u Byte:thể ường dùng đ ch a d li u nh phân. Byte là ki u khôngể ứ ữ ệ ị ể
d u (0255), nó không th nh n ra d u âmấ ể ậ ấ
Ki u String : M c đ nh, bi n hay tham s ki u chu i có chi u dài thayể ặ ị ế ố ể ỗ ề
đ i, nó có th tăng ho c gi m tu theo ta gán d li uổ ể ặ ả ỳ ữ ệ
Ki u Boolean : N u ta có m t bi n có 2 giá tr là True/False, Yes/No,ể ế ộ ế ị
Trang 19 Ki u Date:Ki u ngày thángể ể
Ki u Object: Bi n ki u Obiect ch a 1 đ a ch 4 byte (32 bit) tr đ nể ế ể ứ ị ỉ ỏ ế
đ i tố ượng trong ng d ng hi n hành ho c các ng d ng khácứ ụ ệ ặ ứ ụ
Ki u Variant: Có th ch a m i d li u, chu i, s , th m chí c m ng.ể ể ứ ọ ữ ệ ỗ ố ậ ả ả
Ta không c n chuy n đ i d li u vì VB làm vi c đó m t cách t đ ng.Variantầ ể ổ ữ ệ ệ ộ ự ộ cũng thu n ti n khi ta không bi t trậ ệ ế ước ki u d li uể ữ ệ
Ki u m ng (Array):M ng là m t xâu các bi n có cùng tên và cùngể ả ả ộ ế
ki u d li u. Dùng Array làm chể ữ ệ ương trình đ n gi n và rút g n, vì ta có thơ ả ọ ể dùng vòng l pặ
1.1.6. Các c u trúc đi u khi n chấ ể ể ương trình
Đi u ki n là m t so sánh hay m t bi u th c mang giá tri s VB thôngề ệ ộ ộ ể ứ ố
d ch giá tr này là True/False (0 là False, giá tr khác 0 là True). N u đi u ki nị ị ị ế ề ệ
là True, VB thi hành t t c các dòng l nh sau t khoá Thenấ ả ệ ừ
Trang 20*Select Case:Giúp gi i quy t tr ng h p có quá nhi u ElseIf đ cả ế ườ ợ ề ượ dùng, giúp chương trình sáng s a, d đ củ ễ ọ
Select Case <Bi u th c ki m tra> ể ứ ể
=>Trong đó bi u th c có th là bi u th c s ho c bi u th c chu i kýể ứ ể ể ứ ố ặ ể ứ ỗ
t M i danh sách bi u th c ch a 1 ho c nhi u giá tr Các giá tr cách nhauự ỗ ể ứ ứ ặ ề ị ị
b ng d u ph y. M i kh i l nh có th ch a t 0 đ n nhi u dòng l nh. N u cóằ ấ ẩ ỗ ố ệ ể ứ ừ ế ề ệ ế
h n m t Case tho đi u ki n thì kh i l nh c a Case đ u tiên đơ ộ ả ề ệ ố ệ ủ ầ ược thi hành. Case Else không nh t thi t ph i có.ấ ế ả
Trang 21+Step(n):Th hi n bể ệ ước nh y n có th là âm ho c dả ể ặ ương.N u khôngế dùng Step thì máy cho r ng bằ ước nh y là 1ả
+Exit For:N u g p s nh y ra kh i vòng l pế ặ ẽ ả ỏ ặ
+ Ph n t trong t p h p ch có th là bi n Variant, bi n Objectầ ử ậ ợ ỉ ể ế ế
+ Ph n t trong m ng ch có th là bi n Variantầ ử ả ỉ ể ế
+ Không dùng For Each…Next v i m ng ch a ki u t đ nh nghĩa vìớ ả ứ ể ự ị Variant không ch a ki u t đ nh nghĩaứ ể ự ị
Trang 22Loop While <Đi u ki n> ề ệ
D ng 3:L p trong khi đi u ki n là Falseạ ặ ề ệ
Do Until <Đi u ki n><Kh i l nh> ề ệ ố ệ
1.1.7. Các k thu t k t n i c s d li u ỹ ậ ế ố ơ ở ữ ệ
1.1.7.1. Gi i thi u v k t n i CSDL trong VB6.0ớ ệ ề ế ố
T nhi u năm tr l i đây hãng Microsoft đã cho ra đ i r t nhi u phiênừ ề ở ạ ờ ấ ề
b n l p trình c s d li u v i Visual Basic 6.0, đ ng th i cũng có nhi uả ậ ơ ở ữ ệ ớ ồ ờ ề phiên b n k t n i c s d li u kèm theo. Sau đây là m t s k t n i c b nả ế ố ơ ở ữ ệ ộ ố ế ố ơ ả
mà Visual Basic 6.0 hay s d ng.ử ụ
+) ODBC (Open Database Connectivity): ODBC đ c thi t k đ choượ ế ế ể
chương trình k t n i v i nhi u lo i c s d li u mà ch dùng m t phế ố ớ ề ạ ơ ở ữ ệ ỉ ộ ươ ngcách duy nh t. Đi u này giúp cho l p trình viên ch s d ng m t phấ ề ậ ỉ ử ụ ộ ương th cứ duy nh t đ truy c p vào h qu n tr c s d li u. H n th n a, khi chúng taấ ể ậ ệ ả ị ơ ở ữ ệ ơ ế ữ nâng c p lên h qu n tr c s d li u cao h n, ví d nâng t Access lên SQLấ ệ ả ị ơ ở ữ ệ ơ ụ ừ Server, thì s s a đ i trong chự ử ổ ương trình s r t ít.ẽ ấ
+) DAO (Data Access Object): DAO là k thu t k t n i c s d li uỹ ậ ế ố ơ ở ữ ệ riêng c a Microsoft. K thu t này ch dùng v i Jet Data Engine, L i đi m c aủ ỹ ậ ỉ ớ ợ ể ủ
k thu t này là tính d dùng, nhanh chóng và ti n l i, tuy nhiên ch có th liênỹ ậ ễ ệ ợ ỉ ể
k t đế ược v i h qu n tr c s d li u Microsoft Access.ớ ệ ả ị ơ ở ữ ệ
+) RDO (Remote Data Object): M t trong nh ng lý do chính đ RDOộ ữ ể
được thi t k là gi i quy t khó khăn v s r c r i c a ODBC. Cách l p trìnhế ế ả ế ề ự ắ ố ủ ậ
Trang 23v i RDO đ n gi n nh DAO, kh năng c a nó thì nh ODBC. RDO cho phépớ ơ ả ư ả ủ ư nhi u chề ương trình k t n i v i c s d li u. ế ố ớ ơ ở ữ ệ
+) ADO (Active X Data Objects): S khác bi t chính gi a ADO và DAOự ệ ữ
là ADO cho phép ta làm vi c v i m i lo i ngu n d li u (data sources), khôngệ ớ ọ ạ ồ ữ ệ
nh t thi t ph i là c s d li u Microsoft Access hay SQL Server, Data Sourceấ ế ả ơ ở ữ ệ
có th là danh sách các đ a ch Email, hay m t file text, trong đó m i hàng làể ị ỉ ộ ỗ
m t recocrd g m nh ng fields ngăn cách b i các d u ph y hay d u tab.ộ ồ ữ ở ấ ẩ ấ
1.1.7.2 K thu t l p trình ADOỹ ậ ậ
ADO (ActiveX Data Objects) là m t k thu t l p trình k t n i c s dộ ỹ ậ ậ ế ố ơ ở ữ
li u phát tri n g n đây nh t c a Visual Basic 6.0. Không gi ng nh nh ng kệ ể ầ ấ ủ ố ư ữ ỹ thu t truy c p c s d li u khác c a Visual Basic 6.0 nh RDO (Remote Dataậ ậ ơ ở ữ ệ ủ ư Objects), DAO (Data Access Objects), ADO có th cung c p cho ngể ấ ườ ậ i l ptrình viên nhi u l a ch n trong vi c truy xu t d li u. M t khác, ADO khôngề ự ọ ệ ấ ữ ệ ặ truy c p tr c ti p đ n m t c s d li u, ADO làm vi c t ng th p h n làậ ự ế ế ộ ơ ở ữ ệ ệ ầ ấ ơ OLE DB provider và OLE DB provider này có nhi m v truy xu t đ n nhi uệ ụ ấ ế ề
lo i d li u khác nhau, sau đó trình bày c s d li u ngạ ữ ệ ơ ở ữ ệ ượ ạ ớc l i v i ADO
K thu t ADO cho phép truy c p d li u thông qua 2 cách:ỹ ậ ậ ữ ệ
*S d ng ADO DATA CONTROL ử ụ
Sau đây chúng ta s thi t l p m t form k t n i c s d li u có s d ngẽ ế ậ ộ ế ố ơ ở ữ ệ ử ụ
đi u khi n ADO (ADO data control).ề ể
ADO Data Control không có s n trong h p công c (Toolbox) nh m t sẵ ộ ụ ư ộ ố control thông d ng khác, do đó b n ph i đ a vào b ng cách: trên menu c aụ ạ ả ư ằ ủ Visual Basic 6.0 ch n Project >Components (ho c click chu t ph i trênọ ặ ộ ả Toolbox ch n Components), trong tab Control b n check vào ô “Microsoft ADOọ ạ Data Control 6.0 (OLEDB)” r i nh n nút Apply:ồ ấ
Trang 25button b n click vào button này s hi n ra c a s Property Page, có 3 ch nạ ẽ ệ ử ổ ọ
l a:ự
Use Data Link File: cho phép b n load nh ng thông s k t n i đã đạ ữ ố ế ố ượ ư c l utrong MDL file (Microsoft Data Link). Use ODBC Data Source Name: b n cóạ
th ch n m t DSN t nh ng DSN trong ODBC c a máy b n (b n ph i thi tể ọ ộ ừ ữ ủ ạ ạ ả ế
l p DSN này trong ODBC trậ ước), ho c b n có th t o m i DSN ngay lúc nàyặ ạ ể ạ ớ
Trang 26Liên k t v i c s d li u ế ớ ơ ở ữ ệ
Bước 2: Thi t l p Record Source ngu n c s d li u: ế ậ ồ ơ ở ữ ệ bây gi b n chờ ạ ỉ
c n ch ra t p h p m u tin nào (thu c tính Record Source) s đầ ỉ ậ ợ ẫ ộ ẽ ượ ấc l y ra từ ngu n d li u trên. Trong c a s properties ch n thu c tính Record Source khiồ ữ ệ ử ổ ọ ộ
đó xu t hi n button ấ ệ , click vào button này hi n ra c a s Property Page:ệ ử ổ
Trang 27Khi ch n combobox Command Type (ki u l nh thi hành) s xu ng s cóọ ể ệ ổ ố ẽ các l a ch n sau: 2 adCmd Table, trong ô Table or Stored Producedure Nameự ọ
ch n b ng c s d li u mình c n.ọ ả ơ ở ữ ệ ầ
Bước 3: Hi n th c s d li u lên đi u khi n lể ị ơ ở ữ ệ ề ể ưới:
B xung lổ ưới lên Toolbox b ng cách ch n Components, ch n m t lằ ọ ọ ộ ướ i
c n hi n th , sau đó b n b xung lên Form ( đây dùng Data Grid)ầ ể ị ạ ổ ở
Đ a DataGrid lên l ư ướ i
*S d ng Object interface (giao ti p đ i t ử ụ ế ố ượ ng)
N u không dùng s n các data control c a Visual Basic thì ta v n có thế ẵ ủ ẫ ể truy xu t d li u b ng cách t o m t tham chi u đ n ADO – m t t p h p cácấ ữ ệ ằ ạ ộ ế ế ộ ậ ợ
Trang 28đ i tố ượng m i đớ ượ ạc t o ra này s luôn có s n trong chẽ ẵ ương trình khi c n dùngầ
đ n. Do đó b n có th thao tác d li u tr c ti p t code chế ạ ể ữ ệ ự ế ừ ương trình (dùng các phương th c và thu c tính do các đ i tứ ộ ố ượng này cung c p) mà không ph iấ ả dùng b t k data control nào. Data control d thi t l p h n, nh ng s d ngấ ỳ ễ ế ậ ơ ư ử ụ Object interface thì m nh h n và uy n chuy n h n.ạ ơ ể ể ơ
1.1.7.3 Đ i tố ượng Connection và đ i tố ượng Recordset
*Đ i t ố ượ ng Connection
L nh khai báo và kh i đ ng đ i tệ ở ộ ố ượng Connection:
Đường d n tr c ti p trong ConnectionString.ẫ ự ế
Đường d n tẫ ương đ i qua đ i tố ố ượng APP do Visual Basic cung c pấ
đ ch ra v trí l u tr DataBase.ể ỉ ị ư ữ
*Đ i t ố ượ ng Recordset (Là t p h p các m u tin) ậ ợ ẫ
Khai báo và kh i t o đ i tở ạ ố ượng Recordset
Trang 29+ CursorType : ch d nh lo i con tr s d ng trong recordsetỉ ị ạ ỏ ử ụ
+ LockType : ki u khoá m u tinể ẩ
Thêm m t m u tin:ộ ẩ Tên_recordset.AddNew
S a m t m u tin:ử ộ ẩ Tên_recordset.Update
Xoá m t m u tin: ộ ẩ Tên_recordset.Delete
Tìm ki m m u tin: ế ẩ Tên_recordset.Find, Skiprecord, SearchDirection, Start
Thu c tính Bookmark, AbsolutePosition c a đ i tộ ủ ố ượng recordset
+ Tên_recordset.Bookmark cho bi t v trí xác đ nh là duy nh t c a m uế ị ị ấ ủ ẩ tin hi nệ hành trong recordset
+ Tênrecordset.Absoluteposition l u tr thông tin v trí c a m u tinư ữ ị ủ ẩ
hi nệ hành trong recordset
Trang 301.2. T ng quan v h qu n tr c s d li u Microsoft Access.ổ ề ệ ả ị ơ ở ữ ệ
1.2.1 Gi i thi u chung v Microsoft Access.ớ ệ ề
MS Access là m t h qu n tr c s d li u c a hãng Microsoft ch yộ ệ ả ị ơ ở ữ ệ ủ ạ trên môi trường Windows trên đó có các công c h u hi u và ti n l i t đ ngụ ữ ệ ệ ợ ự ộ
s n sinh chả ương trình cho h u h t các bài toán thầ ế ường g p trong th c t nh :ặ ự ế ư
qu n lý, th ng kê, k toán. V i MS Access ngả ố ế ớ ườ ử ụi s d ng không ph i vi tả ế
t ng câu l nh c th mà v n có đừ ệ ụ ể ẫ ược môi trường hoàn ch nh n u c n l p trìnhỉ ế ầ ậ
MS Access có s n ngôn ng Access Basic đ ta có th l p trình theo ý mu nẵ ữ ể ể ậ ố
c a ngủ ườ ử ụi s d ng
Sáu đ i tố ượng mà Access cung c p là: B ng (Table), truy v n(Query),ấ ả ấ
m u bi u (Form), báo bi u (Report), Macro và Module: có đ y đ các khẫ ể ể ầ ủ ả năng l u tr thông tin d li u, th ng kê, bi u di n thông tin và t đ ng r tư ữ ữ ệ ố ể ễ ự ộ ấ nhi u các tác v khác.ề ụ
1.2.2 Các thành ph n c b n c a access ầ ơ ả ủ
1.2.2.1 B ng trong accessả
*T o b ngạ ả
Trong c a s Database c a c s d li u, t o b ng theo th t sau:ử ổ ủ ơ ở ữ ệ ạ ả ứ ự
T c a s Database ch n m c Table: K t qu s m c a s table ch a danhừ ử ố ọ ụ ế ả ẽ ở ử ổ ư sách các b n ghi đã t n t i và 3 nút ch n:ả ồ ạ ọ
New: dùng đ t o m i.ể ạ ớ
Open: dùng đ m nh p d li u cho b ng ể ở ậ ữ ệ ả
Design: dùng đ xem, s a c u trúc b ng.ể ử ấ ả
* Đ t o b ng m i ta ch n nút ể ạ ả ớ ọ New
hình 1.2.2.1: T o b ng m i ạ ả ớ
Có hai cách t o b ng ng v i l a ch n:ạ ả ứ ớ ự ọ
N u ch n Table Wizard thì b ng đế ọ ả ược xây d ng b ng công c Wizardự ả ụ Access yêu c u.ầ
Ch n Design view đ thi t k theo ý ngọ ể ế ế ườ ử ụi s d ng
Trang 31+ Đ t tên trặ ường (c t), (t i c t Field name)ộ ạ ộ
+ Ch n ki u d li u (t i c t Data type).ọ ể ữ ệ ạ ộ
+ Mô t trả ường (t i ô Description) n u mu n.ạ ế ố
+ Quy đ nh các thu c tính cho trị ộ ường ( ph n Field Properties) nh :ầ ư
Field size: S kí t c a trố ự ủ ường Text, ho c ki u c a trặ ể ủ ường number
Format: Đ nh d ng hi n th d li u ki u ngày và ki u s ị ạ ể ị ữ ệ ể ể ố
Decimalplaces: s ch s th p phân trong ki u number và Currency.ố ữ ố ậ ể
Input mask (M t n nh p li u ): Quy đ nh khuôn d ng nh p li uặ ạ ậ ệ ị ạ ậ ệ
Caption: Đ t nhãn cho các trặ ường. Nhãn s đẽ ược nh p li u thay vì hi n tênậ ệ ệ
trường
Default Value: xác đ nh giá tr m c đ nh c a trị ị ặ ị ủ ường
Validapion Rule: Quy t c d li u h p l ắ ữ ệ ợ ệ
Required: không ch p nh n giá tr r ng.ấ ậ ị ỗ
Allowzerolength: không ch p nh n chu i r ng trong trấ ậ ỗ ỗ ường Text và Memo
Indexed: t o ch m c. ạ ỉ ụ
*Thay đ i thi t k ch nh s a c u trúc b ng :ổ ế ế ỉ ử ấ ả
+ Xóa trường:( có th xóa m t ho c nhiêù trể ộ ặ ường ): Ch n trọ ường c n xóa,ầ
b m phím ấ Delete ho c ch n ặ ọ Delete Row t ừMenu edit
+ Đ thay đ i n i dung (tên , ki u …) ta ch nh p t bàn phím bình thể ổ ộ ể ỉ ậ ừ ường + Đ chèn thêm trể ường : Ta ch n trọ ường, mà trường m i s đớ ẽ ược chèn vào
trướ ồc r i vào Menu edit ch n ọ Insert Row, ti n hành nh p tên và ch n ki u dế ậ ọ ể ữ
Trang 32*L u c u trúc c a b ng và đ t tên b ngư ấ ủ ả ặ ả
Vào menu File/save ho c b m chu t (bi u t ng l u tr ) hay nh n t h pặ ấ ộ ể ượ ư ữ ấ ổ ợ phím Ctrl+S. Xu t hi n c a s ấ ệ ử ổSave as: nh p tên b ng r i ch n ậ ả ồ ọ Ok
*Nh p d li u b ng ậ ữ ệ ả
+ T c a s Data base ch n m c ừ ử ổ ọ ụ Table
+ Ch n tên b ng c n nh p li u r i b m nút ọ ả ầ ậ ệ ồ ấ Open. K t qu hi n m t c a sế ả ệ ộ ử ổ
nh p li u cho b ng, ta ti n hành nh p l n lậ ệ ả ế ậ ầ ượ ừt t các b ng ghi và luôn b tả ắ
đ u t trầ ừ ường khóa
1.2.2.2. Truy v n (QUERY) :ấ
*Khái ni m:ệ
Truy v n (Query) là công c m nh c a Access dùng đ t ng h p, s pấ ụ ạ ủ ể ổ ợ ắ
x p và tìm ki m d li u.ế ế ữ ệ
Truy v n thông thấ ường là truy v n ch n (Select Query) v i các kh năng sau:ấ ọ ớ ả
+ Ch n các b ng ho c các truy v n cũ làm ngu n d li u.ọ ả ặ ấ ồ ữ ệ
+ Ch n cách xây d ng truy v n theo ý ngọ ự ấ ườ ử ụi s d ng (DeSign Wiew)
+ Xây d ng nh công c Wizards c a Access.ự ờ ụ ủ
Ch n ngu n d li u cho truy v n m i g m các b ng và các truy v n đãọ ồ ữ ệ ấ ớ ồ ả ấ
đượ ạ ừ ước t o t tr c
T o l p quan h gi a các b ng, các truy v n ngu n ạ ậ ệ ữ ả ấ ồ
*Ch nh s a truy v n ỉ ử ấ
Trang 34*Xây d ng các đi u khi n trong truy v n :ự ề ể ấ
Các hàm s lý chu i : & (đ ghép các chu i ) .ử ỗ ể ỗ
+ Left ( chu i 1 ,n ) cho chu i con c a chu i 1 g m n ký t bên trái.ỗ ỗ ủ ỗ ồ ự
+ Right ( chu i 1 ,n) cho chu i con c a chuôi 1 g m n ký t bên ph i.ỗ ỗ ủ ồ ự ả
+ Mid ( chu i 1, k, n) cho chu i con băt đ u t v trí k và g m n ký t ỗ ỗ ầ ừ ị ồ ự
*Gi i thi u v m u bi uớ ệ ề ẫ ể
M u bi u cũng gi ng nh báo bi u, nó g m các đi u khi n (Control).ẫ ể ố ư ể ồ ề ể
M i Control đ u có th s d ng m t trong ba d ng sau:ỗ ề ể ử ụ ở ộ ạ
+) Bound Control: Được liên k t v i d li u c a Table hay Report,ế ớ ữ ệ ủ
d ng TextBox là ph bi n nh t.ạ ổ ế ấ
+) Unbound Control: N gượ ạ ớc l i v i ki u trên, d ng ph bi n nh t làể ạ ổ ế ấ Label ch a văn b n hay các tiêu đ ứ ả ề
+) Calculated Control: Ch a bi u th c tính toán.ứ ể ứ
Thành ph n c a m u bi u: Cũng tầ ủ ẫ ể ương t nh báo bi u, nh ng nóự ư ể ư
Trang 35*T o m u bi u t đ ng b ng Wizard ạ ẫ ể ự ộ ằ
N u ch dùng m u bi u đ th hi n c p nh t d li u thì nên dùng các t o tế ỉ ẫ ể ể ể ệ ậ ậ ữ ệ ạ ự
đ ng ho c công c Wizard.ộ ặ ụ
Đ t o m u bi u b ng cách t đ ng ho c b ng Wizard, ta th c hi n theo cácể ạ ẫ ể ằ ự ộ ặ ằ ự ệ
bước sau:
* T c a s Database c a m t c s d li u nào đó, ch n m c Forms. K từ ử ổ ủ ộ ơ ổ ữ ệ ọ ụ ế
qu s m c a s From ba nút l a ch n sau :ả ẽ ở ử ổ ự ọ
Nút New dùng đ t o m u bi u m i.ể ạ ẫ ể ớ
Nút Open dùng đ th c hi n m u bi u.ể ự ệ ẫ ể
Nút Design dùng đ m c a s m u bi u.ể ở ử ổ ẫ ể
*T o m u bi u b ng Design View ạ ẫ ể ằ
Đ ch n m u bi u m i ta ch n nút ể ọ ẫ ể ớ ọ New. K t qu nh n đ c c a sế ả ậ ượ ử ổ New Form. Ch n m t b ng/truy v n ngu n trong ô: choose the table … truyọ ộ ả ấ ồ
Ví d : Ch n b ng [Dmlop] làm ngu n cho bi u m u c n xây d ng. B ngụ ọ ả ồ ể ẫ ầ ự ả này g m b n trồ ố ường ki u text .ể
Trang 36+ N u ch n Design View thì m u bi u đế ọ ẫ ể ược thi t k theo ý c a ngế ế ủ ườ ử i s
Báo bi u (Report) là công c thu n ti n đ in n d li u c a b ngể ụ ậ ệ ể ấ ữ ệ ủ ả
ho c truy v n. M c dù có th in d li u t b ng, truy v n hay m u bi uặ ấ ặ ể ữ ệ ừ ả ấ ẫ ể
nh ng báo bi u cung c p kh năng linh ho t đ t ch c công vi c in n.ư ể ấ ả ạ ể ổ ứ ệ ấ
Unbound (Không bu c vào b t k t i trộ ấ ỳ ớ ường nào): Thường được dùng
đ nh p d li u t bàn phím, trình bày tiêu đ , trang trí hình v , h p…ể ậ ữ ệ ừ ề ẽ ộ
Calculate (Tính toán): Dùng đ hi n th giá tr c a m t bi u th c.ể ể ị ị ủ ộ ể ứ
*Các b ướ c xây d ng : ự
a. C a s Database ch n ử ổ ọ Report, ch n ọ New, xu t hi n c a s ấ ệ ử ổNew Report
b. Ch n m t b ng ho c m t truy v n trong h p Choose the table or …ọ ộ ả ặ ộ ấ ộ
ho c không ch n b ng truy v n ngu n .ặ ọ ả ấ ồ
Gi ng nh Form, ta th y có cách t o báo bi u tố ư ấ ạ ể ương ng v i 3 l a ch n:ứ ớ ự ọ
Trang 37+ N u đế ược xây d ng, xây d ng b ng cách ta ch vi c tr l i các câu h i c aự ự ằ ỉ ệ ả ờ ỏ ủ Access yêu c uầ
+ N u ch n Design View thì xây d ng theo ý ngế ọ ự ườ ử ụi s d ng (S d ng h pử ụ ộ Tool Box)
+ N u ch n t đ ng thì khuôn d ng s đế ọ ự ộ ạ ẽ ượ ạ ự ộc t o t đ ng nh ng ph i ch nư ả ọ
b ng hay truy v n làm ngu n cho Report.ả ấ ồ
c . In Báo bi uể
+ Ch n báo bi u c n in t database ọ ể ầ ư
+ Ch n Print Preview t menu file đ xem, ch n Print đ in báo bi u.ọ ừ ể ọ ể ể
Macro bao g m m t dãy các hành đ ng (Action) dùng đ t đ ng hóa m tồ ộ ộ ể ự ộ ộ
lo t các thao tác. Macro th ng dùng v i m u bi u đ t ch c giao di n ch ngạ ườ ớ ẫ ể ể ổ ứ ệ ươ trình. V i Macro ta có th thi t l p đ c m t h th ng menu, kích ho t các nútớ ể ế ậ ượ ộ ệ ố ạ
l nh, m đóng các b ng, bi u m u, truy v n . . . T đ ng tìm ki m ch t l cệ ở ả ể ẫ ấ ự ộ ế ắ ọ thông tin, ki m soát các phím nóng.ể
*T o c a s Database ch n m c Macro.ạ ử ổ ọ ụ
Ch n New, xu t hi n c a s ch g m 2 c t .ọ ấ ệ ử ổ ỉ ồ ộ
Ch n các hành đ ng c t Action b ng cách :Click chu t t i mũi tên xu ngọ ộ ở ộ ằ ộ ạ ố Bên ph i Action hi n danh sách hành đ ng ả ệ ộ
+ Ch n hành đ ng trong danh sách.ọ ộ
Xác đ nh đ i tị ố ượng tương ng cho hành đ ng v a ch n b ng cách:ứ ộ ừ ọ ằ
+ Chuy n xu ng ph n dể ố ầ ưới (dùng chu t ho c phím F6 ). Khi đó s xu t hi nộ ặ ẽ ấ ệ
m t dòng dộ ưới. M i dòng tỗ ương ng v i m t đ i .ứ ớ ộ ố
Trang 38+ Đ t các đ i tặ ố ương ng vào các dòng (gõ tr c ti p t bàn phím ho c kíchứ ự ế ừ ặ chu t t i mũi tên xu ng bên ph i ô đang xét đ m danh sách giá tr , sau đóộ ạ ố ả ể ở ị
ch n giá tr cho đ i).ọ ị ố
Trang 39 Khi đang thi t k : ch n m c Run t menu Run ho c ch n bi u tế ế ọ ụ ừ ặ ọ ể ượng ! .
Chính vì lý do đó em đã quy t đ nh ch n h qu n tr CSDL Microsoft Accessế ị ọ ệ ả ị
k t h p cùng v i ngôn ng l p trình VB đ xây d ng và thi t k ch ong trình.ế ợ ớ ữ ậ ể ự ế ế ư
Trang 40CHƯƠNG 2: KH O SÁT, PHÂN TÍCH VÀ THI T K H TH NGẢ Ế Ế Ệ Ố
2.1. Kh o sát hi n tr ng và tìm hi u nhu c uả ệ ạ ể ầ
2.1.1. Gi i thi u v trớ ệ ề ường và th vi n trư ệ ường ti u h c Lê văn Tám ể ọ
Trường Ti u H c Lê Văn Tám thu c Qu n Lê Chân, H i Phòng là m tể ọ ộ ậ ả ộ
trường khá r ng g m 5 kh i, 31 l p, 1130 h c sinh và 54 giáo viên tr c ti pộ ồ ố ớ ọ ự ế
gi ng d y. Hi u trả ạ ệ ưởng c a trủ ường là bà Nguy n Kim Thoa, ch u trách nhi mễ ị ệ
và ra các quy t đ nh v m i ho t đ ng c a nhà trế ị ề ọ ạ ộ ủ ường. Bà Nguy n Minh Khoaễ
và bà Hoàng Th An là 2 hi u phó, trong đó bà Nguy n Minh Khoa là ngị ệ ễ ườ i
ch trách nhi m và đi u hành toàn b ho t đ ng c a th vi n. Trụ ệ ề ộ ạ ộ ủ ư ệ ường ch cóỉ
m t th th th c hi n m i nghi p v v th vi n. V i s lộ ủ ư ự ệ ọ ệ ụ ề ư ệ ớ ố ượng h c sinh vàọ giáo viên đông, nhu c u mầ ượn sách và tài li u tham kh o ngày càng nhi u.ệ ả ề
Th vi n c a trư ệ ủ ường t ngày thành l p t i nay còn thi u nhi u v c s v từ ậ ớ ế ề ề ơ ở ậ
ch t cũng nh con ngấ ư ười. Hi n nay, trệ ường đang ph n đ u xây d ng th vi nấ ấ ự ư ệ chu n. Do đó m i năm th vi n đẩ ỗ ư ệ ược b sung thêm nhi u đ u sách m i. Cácổ ề ầ ớ
đ u sách ch y u sách giáo khoa, sách tham kh o, sách nghi p v Bên c nhầ ủ ế ả ệ ụ ạ
đó còn ph c v b n đ c m t s sách báo, t p chí, truy n dân gian, truy nụ ụ ạ ọ ộ ố ạ ệ ệ tranh … cho các l a tu i.ứ ổ
Th vi n ch y u ph c v h c sinh và giáo viên c a trư ệ ủ ế ụ ụ ọ ủ ường. Th vi nư ệ
ch có cán b qu n lý và m t máy tính đ ph c v công vi c. Ch a có ph nỉ ộ ả ộ ể ụ ụ ệ ư ầ
m m qu n lý th vi n, qu n lý sách. Công vi c qu n lý sách, qu n lý mề ả ư ệ ả ệ ả ả ượ n
tr còn nhi u công đo n th công và đôi khi g p khó khăn.ả ề ạ ủ ặ
Do được đ u t nên s lầ ư ố ượng, ch ng lo i sách, tài li u c a th vi nủ ạ ệ ủ ư ệ hàng năm càng tăng. S lố ượng đ c gi ngày càng nhi u. Th vi n l i ch a cóộ ả ề ư ệ ạ ư
chương trình qu n lý nên công vi c ph c v còn mang n ng tính th công.ả ệ ụ ụ ặ ủ
Vi c qu n lý do v y mà ngày càng ph c t p. Th vi n c n thay đ i cách th c,ệ ả ậ ứ ạ ư ệ ầ ổ ứ
phương th c qu n lý ho t đ ng c a vi c xây d ng h th ng thông tin đ cóứ ả ạ ộ ủ ệ ự ệ ố ể
th qu n lý th vi n để ả ư ệ ượ ố ơc t t h n, gi m khó khăn cho qu n lý th vi n.ả ả ư ệ