Đang tải... (xem toàn văn)
Tài liệu tham khảo công nghệ thông tin, chuyên ngành tin học Ngôn ngữ lập trình Visual Basic
Đồ án tốt nghiệp: Quản Lý Sinh Viên Mở Đầu áp dụng tin học hoá vào quản lý xa lạ kỷ tin học hoá Sử dụng tin học đắn công việc nhập, lu trữ, phân tích, trao đổi thông tin giúp cho nhà quản lý tiết kiệm thời gian, kinh tế đạt hiệu cao công việc Vì em có ý tởng quản lý sinh viên dựa công nghệ thông tin Do phạm vi viết lớn nên chơng trình đợc viết theo chức không sâu vào chức chi tiết trình quản lý sinh viên Các form, báo cáo hay iệu đợc mô tả chức quan trọng, mang tính đặc trng cho chức Trong khoảng thời gian ngắn cha có kinh nghiệm thiết kế phần mềm nh sơ đồ ngữ cảnh chơng trình không tránh khỏi sai sót Em mong đợc châm chớc quý thầy cô Em Chân thành cảm ơn Ts Phan Trung Huy đà hớng dẫn em hoàn thành viết Đồ án tốt nghiệp: Quản Lý Sinh Viên Mục lục Trang Phần I: Cơ sơ ngôn ngữ visual basic I/Tìm hiểu ngôn ngữ lập trình 1/Tổng quan ngôn ngữ lâp trình visual basic 2/Cấu trúc ứng dơng cđa visual basic 3/ Chóng ta cã thĨ lµm gi với visual basic 4/ Tóm tắt ngôn ngữ 4.1/Biến 4.2/ C¸c to¸n tư visual basic 4.3/ CÊu tróc chuyển cấu trúc lặp 4.3.1/Cấu trúc chuyển 4.3.2/Cấu trúc lặp 4.4/Thủ tục phần II: Khảo sát toán 15 I/Khảo sát đánh giá II/Nhiệm vụ hệ thống III/Cơ cấu phân công trách nhiệm 3.1/Phòng đào tạo 3.2/Văn phòng khoa 3.3/Quy trình xử lý liệu Phần III: Phân tích hệ thống chức 19 I/Chơng trinh gồm chc 1.1/Quản lý hồ sơ 1.2Quản lý danh mục 1.3/Quản lý thời khoá biểu 1.4/Quản lý điểm 1.5/Tra cứu 1.6/ Báo cáo thống kê 1.7/ Giúp đỡ Đồ án tốt nghiệp: Quản Lý Sinh Viên II/Phân tích hệ thống 1/Biểu đồ phân cấp chức 2/Biểu đồ luồng liệu Phần IV:Thiết kế hệ thống liệu 26 Phần V: Thiết kế giao diên hệ thông 39 Phần VI: Cord số form 34 Kết luận 65 Tài kiệu tham khảo 66 Đồ án tốt nghiệp: Quản Lý Sinh Viên PHầN I : CƠ SỞ LÝ THUYẾT VỀ NGÔN NGỮ VISUAL BASIC 1Tìm hiểu ngôn ngữ lập trình Visual Basic 1.1.Tổng quan ngôn ngữ lập trình Visual Basic Visual Basic, đường nhanh đơn giản để tạo ứng dụng cho Microsoft Windows Bất kể bạn nhà chuyên nghiệp người lập trình Windows, Visual Basic cung cấp cho bạn tập hợp công cụ hoàn chỉnh để nhanh chóng phát triển ứng dụng Vậy Visual Basic ? Thành phần “Visual” nói đến phương thức dùng để tạo giao diện đồ họa người sử dụng (GUI) Thay viết dòng mã để mô tả xuất vị trí thành phần giao diện, ta cần thêm vào đối tượng định nghóa trước vị trí hình Thành phần “Basic” nói đến ngôn ngữ “BASIC” (Beginners AllPurpose Symbolic Instruction Code) ngôn ngữ dùng nhiều nhà lập trình ngôn ngữ khác lịch sử máy tính Visual Basic phát triển dựa ngôn ngữ BASIC, chứa đựng hàng trăm điều lệnh, hàm, từ khóa… có quan hệ trực tiếp với giao diện đồ họa Windows Ngôn ngữ lập trình Visual Basic không Visual Basic Hệ thống lập trình Visual Basic, ứng dụng bao gồm Microsoft Excel, Microsoft Access, nhiều ứng dụng Windows khác dùng ngôn ngữ Mặc dù mục đích tạo ứng dụng nhỏ cho thân hay nhóm, hệ thống công ty lớn, phaõn Đồ án tốt nghiệp: Quản Lý Sinh Viªn phối ứng dụng toàn cầu qua Internet Visual Basic cung cụ mà bạn cần • Những chức truy xuất liệu cho phép ta tạo sở liệu, ứng dụng front-end, thành phần phạm vi server-side cho hầu hết dạng thức sở liệu phổ biến, bao gồm Microsoft SQL Server sở liệu mức enterprise khác • Những kỹ thuật ActiveX cho phép ta dùng chức cung cấp từ ứng dụng khác, chương trình xử lý văn Microsoft Word, bảng tính Microsoft Excel ứng dụng Windows khác • Khả Internet làm cho dễ dàng cung cấp cho việc thêm vào tài liệu ứng dụng qua Internet intranet từ bên ứng dụng bạn, tạo ứng dụng Internet server • ng dụng bạn kết thúc file exe thật Nó dùng máy ảo Visual Basic để bạn tự phân phối ứng dụng 1.2.Cấu trúc ứng dụng Visual Basic Một ứng dụng thật tập hợp dẫn trực tiếp đến máy tính để thi hành hay nhiều tác vụ Cấu trúc ứng dụng phương pháp dẫn tổ chức, nơi dẫn lưu giữ thi hành dẫn trình tự định Vì ứng dụng Visual Basic, đối tượng, cấu trúc mã đóng để tượng trưng cho mô hình vật lý hình Bằng việc định nghóa, đối tượng chứa mã liệu Form, mà nhìn thấy hình tượng trưng cho thuộc tính, quy định Đồ án tốt nghiệp: Quản Lý Sinh Viên caựch xuất cách cư xử Cho form ứng dụng, có quan hệ module form (với tên file mở rộng frm) dùng để chứa đựng mã Mỗi module chứa thủ tục kiện – đoạn mã, nơi đặt dẫn, thi hành việc đáp ứng kiện định Form chứa điều khiển Tương ứng với điều khiển form, có tập hợp thủ tục kiện module form Mã không quan hệ với form định hay điều khiển đặt loại module khác, module chuẩn (.BAS) Một thủ tục dùng để đáp ứng kiện đối tượng khác phải đặt chuẩn, thay tạo mã thủ tục kiện cho đối tượng Một lớp module (.cls) dùng để tạo đối tượng, mà gọi từ thủ tục bên ứng dụng bạn Trong module chuẩn chứa mã, lớp module chứa đựng mã liệu Ta nghó điều khiển 1.3 Chúng ta làm với Visual Basic Tạo giao diện người sử dụng Giao diện người sử dụng có lẽ thành phần quan trọng ứng dụng Đối với người sử dụng, giao diện ứng dụng ; họ không cần ý đến thành phần mã thực thi bên Ứng dụng phổ biến hay không phụ thuộc vào giao diện Sử dụng điều khiển chuẩn Visual Basic Ta dùng điều khiển để lấy thông tin mà người sử dụng nhập vào, để hiển thị kết xuất Những điều khiển mà ta dùng Đồ án tốt nghiệp: Quản Lý Sinh Viên ửựng duùng bao gồm hộp văn bản, nút lệnh, hộp danh sách,… Những điều khiển khác cho ta truy xuất ứng dụng khác, xử lý liệu thành phần mã ứng dụng bạn Lập trình với đối tượng Những đối tượng thành phần chủ yếu để lập tình Visual Basic Những đối tượng form, điều khiển hay sở liệu Lập trình với phần hợp thành Chúng ta cần sử dụng khả tính toán Microsoft Excel ứng dụng Visual Basic, hay định dạng tài liệu sử dụng công cụ định dạng Microsoft Word, lưu trữ xử lý liệu dùng Microsoft Jet… Tất điều thực cách xây dựng ứng dụng sử dụng thành phần ActiveX Thêm vào đó, Visual Basic giúp tạo điều khiển ActiveX riêng Đáp ứng kiện chuột bàn phím Những ứng dụng Visual Basic đáp ứng lượng lớn kiện chuột bàn phím Ví dụ form, hộp ảnh, điều khiển ảnh phát vị trí trỏ chuột, định phím trái hay phím phải nhấn, đáp ứng tổ hợp phím chuột với phím Shift, Ctrl, hay Alt Sử dụng điều khiển phím, ta lập trình điều khiển form để đáp ứng hành động phím phiên dịch xử lý mã Ascii ký tự Thêm vào đó, ứng dụng Visual Basic hỗ trợ kiện rê thả tính naờng reõ vaứ thaỷ OLE Đồ án tốt nghiệp: Quản Lý Sinh Viên Laứm vieọc vụựi vaờn baỷn đồ họa Visual Basic cung cấp khả đồ họa văn phức tạp ứng dụng Những thuộc tính văn giúp ta nhấn mạnh khái niệm quan trọng chi tiết cần quan tâm Thêm vào đó, Visual Basic cung cấp khả đồ họa cho phép ta linh động thiết kế, bao hàm hình ảnh động cách hiển thị loạt hình ảnh liên tiếp Gỡ rối mã quản lý lỗi Đôi có lỗi xảy bên mã ứng dụng Những lỗi nghiêm trọng nguyên nhân ứng dụng không đáp ứng lệnh, thông thường yêu cầu người sử dụng khởi động lại ứng dụng, không lưu lại ta làm Quá trình tìm sửa lỗi gọi gỡ rối Visual Basic cung cấp nhiều công cụ giúp phân tích ứng dụng làm việc Những công cụ gỡ rối đặt biệt hữu ích việc tìm nguồn gốc lỗi, dùng công cụ để kiểm tra chương trình tìm hiểu ứng dụng khác làm việc Xử lý ổ đóa, thư mục file Khi lập trình Windows, quan trọng để có khả thêm, di chuyển, tạo xóa thư mục file, lấy thông tin xử lý ổ đóa Visual Basic cho phép xử lý ổ đóa, thư mục file hai phương pháp : qua phương htức cũ điều lệnh Open, Write#, qua tập hợp công cụ FSO (File System Object) Thiết kế cho việc thi hành tính tương thích Đồ án tốt nghiệp: Quản Lý Sinh Viên Visual Basic chia xẻ hầu hết tính ngôn ngữ Visual Basic cho ứng dụng, bao gồm Microsoft Office nhiều ứng dụng khác Visual Basic, VBScript, ngôn ngữ script Internet, tập hợp ngôn ngữ Visual Basic Phân phối ứng dụng Sau tạo ứng dụng Visual Basic, ta tự phân phối ứng dụng tạo Visual Basic đến dùng Microsoft Windows Ta phân phối ứng dụng đóa, CD, qua mạng, intranet Internet 1.4 Tóm tắt ngôn ngữ 1.4.1.Biến Biến dùng để lưu tạm thời giá trị tính toán trình xử lý chương trình Cách khai báo biến Visual Basic dùng cách khai báo biến chương trình sau : Dim As Ta không cần khai báo kiểu biến (tức bỏ mệnh đề As phía sau), trường hợp này, biến dùng để lưu giữ giá trị Quy tắc đặt tên biến Tên biến có chiều dài tối đa 255 ký tự Phải bắt đầu chữ Không đặt khoảng trống ký hiệu (+ - * /…) tên biến Không trùng với từ khóa ngôn ngữ Tránh đặt teõn truứng Đồ án tốt nghiệp: Quản Lý Sinh Viªn Phạm vi sử dụng biến Phạm vi sử dụng biến tùy thuộc cách ta khai báo chỗ ta đặt dòng lệnh khai báo biến Nếu ta khai báo phần General, biến dùng đoạn lệnh from from giải phóng khỏi nhớ Nếu ta khai báo biến phần viết lệnh cho kiện đối tượng (tức khai báo hai dòng Sub End Sub mã lệnh đó) biến tồn dùng phạm vi hai dòng Sub End Sub mà Biến gọi biến riêng hay biến nội Nếu ta dùng từ khóa Public thay cho Dim để khai báo biến , biến tồn suốt thời gian thực chương trình dùng đoạn lệnh chương trình Biến gọi biến chung hay biến toàn cục 1.4.2.Các toán tử Visual Basic 1.4.3 Cấu trúc tuyển cấu trúc lặp 1.4.3.1 Cấu trúc tuyển Cấu trúc tuyển If Cú pháp : If Then … ‘Nếu biểu thức luận lý True … ‘thì thực đoạn lệnh End If Cú pháp : If Then 10 §å án tốt nghiệp: Quản Lý Sinh Viên MsgBox "Tất hộp text không đợc để trống, hộp ghi bỏ qua, đề nghị bạn kiểm tra lại!", vbOKOnly + vbQuestion, "Thông Báo!" Me.MousePointer = Exit Sub End If str = "select * from sinhvien where masv= '" & Trim(Txtmasv) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = True Then rs.AddNew rs!masv = Txtmasv rs!malop = Txtmalop rs!hoten = Txthoten rs!diachi = Txtdiachi rs!quequan = Txtquequan rs!thuongtru = Txtthuongtru rs!dienthoai = Txtdienthoai rs!makhoa = Txtmakhoa rs!ngaysinh = Txtngaysinh rs!noisinh = Txtnoisinh rs!gioitinh = Txtgioitinh rs!dantoc = Txtdantoc rs!tongiao = txttongiao rs.Update rs.Close Else str = "update sinhvien set hoten='" & Trim(Txthoten) & "',malop='" & Trim(Txtmalop) & "'," str = str & "diachi='" & Txtdiachi & "',quequan = '" & Txtquequan & "'," 45 §å án tốt nghiệp: Quản Lý Sinh Viên str = str & "thuongtru='" & Txtthuongtru & "',dienthoai='" & Txtdienthoai & "'," str = str & "gioitinh='" & Txtgioitinh & "',tongiao='" & txttongiao & "'," str = str & "noisinh='" & Txtnoisinh & "',dantoc='" & Txtdantoc & "'," str = str & "makhoa='" & Txtmakhoa & "'," str = str & "ngaysinh='" & Txtngaysinh & "' where masv='" & Trim(Txtmasv) & "'" cn.Execute (str) End If khoa hienthi cmdnew.SetFocus Me.MousePointer = End Sub Private Sub suadulieu() mokhoa Txtmasv.Enabled = True Txthoten.Enabled = True Txtmasv.SetFocus End Sub Private Sub Txtdantoc_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txttongiao.SetFocus End Select End Sub Private Sub txtdienthoai_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 46 Đồ án tốt nghiệp: Quản Lý Sinh Viên If Txtdienthoai = "" Then MsgBox "Nếu sinh viên điện thoại bạn phải đánh số , ngợc lại bạn phải đánh số điện thoại nhân viên vào !", vbOKOnly + vbExclamation, "Thông báo!" Txtdienthoai.SetFocus Else cmdsave.SetFocus End If End Select End Sub Private Sub txtmasv_KeyPress(KeyAscii As Integer) Dim str Dim rs As New ADODB.Recordset Select Case KeyAscii Case 13 If Txtmasv = "" Then MsgBox "M· Sinh viên không đợc trống Đề nghị bạn nhập vào ! ", vbOKOnly + vbExclamation, "Thông báo!" Txtmasv.SetFocus Else str = "select * from sinhvien where masv='" & Trim(Txtmasv) & "'" rs.Open str, cn If rs.EOF = False Then MsgBox "Sinh viªn cã m· [ " & Txtmasv & " ] đà có ngời sử dụng Đề nghị bạn kiểm tra lại ! ", vbOKOnly + vbExclamation, "Thông b¸o!" Txtmasv.SetFocus Txtmasv = "" Else Txthoten.Enabled = True 47 Đồ án tốt nghiệp: Quản Lý Sinh Viên Txthoten.SetFocus End If End If End Select End Sub Private Sub txtngaysinh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 Txtdantoc.SetFocus End Select End Sub Private Sub txtnoisinh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Txtnoisinh = "" Then MsgBox "N¬i sinh sinh viên không đợc trống Đề nghị bạn phải nhập vào ! ", vbOKOnly + vbExclamation, "Thông báo!" Txtnoisinh.SetFocus Else cmdchonlop.SetFocus End If End Select End Sub Private Sub txtgioitinh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 Txtquequan.SetFocus End Select End Sub 48 Đồ án tốt nghiệp: Quản Lý Sinh Viªn Private Sub txtquequan_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Txtquequan = "" Then MsgBox "Quª quán sinh viên bắt buộc phỉ có Bạn không đợc để trống ", vbOKOnly + vbExclamation, "Thông báo!" Txtquequan.SetFocus Else Txtnoisinh.SetFocus End If End Select End Sub Private Sub txthoten_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Txthoten = "" Then MsgBox "Tên Sinh viên không đợc trống Đề nghị bạn nhập vào ! ", vbOKOnly + vbAbortRetryIgnore, "Thông báo!" Txthoten.SetFocus Else Txtngaysinh.SetFocus End If End Select End Sub Private Sub txtthuongtru_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Txtthuongtru = "" Then 49 §å án tốt nghiệp: Quản Lý Sinh Viên MsgBox "Địa thờng trú sinh viên không đợc trống Đề nghị bạn nhập vào! ", vbOKOnly + vbExclamation, "Thông báo!" Txtthuongtru.SetFocus Else Txtgioitinh.SetFocus End If End Select End Sub Private Sub txtdiachi_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Txtdiachi = "" Then MsgBox "Địa thờng trú sinh viên không đợc trống Đề nghị bạn nhập vào! ", vbOKOnly + vbExclamation, "Thông báo!" Txtthuongtru.SetFocus Else Txtthuongtru.SetFocus End If End Select End Sub Private Sub txtghichu_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cmdsave.SetFocus End Select End Sub Private Sub txttongiao_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 50 Đồ án tốt nghiệp: Quản Lý Sinh Viên Txtdiachi.SetFocus End Select End Sub 3Form cËp nhËt líp: Option Explicit Private flag As String Private Sub cmddel_Click() xoa_du_lieu End Sub Private Sub cmdin_Click() If de1.rsCommand1.State = Then de1.rsCommand1.Open End If de1.rsCommand1.Requery Danhsachlop.Show End Sub Private Sub cmdsave_Click() If flag "update" Then flag = "save" End If luu_du_lieu End Sub Private Sub cmdskip_Click() set_null lock_text End Sub Private Sub cmdthoat_Click() Unload Me End Sub 51 Đồ án tốt nghiệp: Quản Lý Sinh Viên Private Sub cmdupdate_Click() flag = "update" sua_du_lieu End Sub Private Sub cndnew_Click() un_lock_text set_null End Sub Private Sub Form_Load() lock_text display_listview End Sub Private Sub display_listview() Dim rs As New ADODB.Recordset Dim str Dim mltem As ListItem ivltem.ListItems.Clear str = "select * from lop order by malop asc" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mltem = ivltem.ListItems.Add(, , rs!malop) mltem.SubItems(1) = rs!tenlop rs.MoveNext Wend End If End Sub Private Sub ivltem_ItemClick(ByVal Item As MSComctlLib.ListItem) Txtmalop = Item.Text 52 Đồ án tốt nghiệp: Quản Lý Sinh Viên Txttenlop = Item.SubItems(1) End Sub Private Sub xoa_du_lieu() Dim str Dim phu If Trim(Txtmalop) = "" Then Exit Sub End If phu = MsgBox("Bạn có chắn xoá mà lớp không ? ", vbYesNo + vbQuestion, "Thông báo") If phu = vbYes Then str = "delete from lop where malop='" & Trim(Txtmalop) & "'" cn.Execute (str) End If set_null lock_text display_listview End Sub Private Sub set_null() Txtmalop = "" Txttenlop = "" End Sub Private Sub lock_text() Txtmalop.Enabled = False Txttenlop.Enabled = False cmdsave.Enabled = False cmdskip.Enabled = False cndnew.Enabled = True cmdupdate.Enabled = True 53 Đồ án tốt nghiệp: Quản Lý Sinh Viên cmddel.Enabled = True flag = "" End Sub Private Sub un_lock_text() Txtmalop.Enabled = True Txttenlop.Enabled = True Txtmalop.SetFocus cmdsave.Enabled = True cmdskip.Enabled = True cndnew.Enabled = False cmdupdate.Enabled = False cmddel.Enabled = False End Sub Private Sub sua_du_lieu() un_lock_text Txtmalop.SetFocus End Sub Private Sub luu_du_lieu() Dim rs As New ADODB.Recordset Dim str If Trim(Txtmalop) = "" Or Trim(Txttenlop) = "" Then MsgBox "Chó ý : Phải nhập đầy đủ liệu trớc lu", vbOKOnly + vbExclamation, "Thông báo" Exit Sub End If rs.Open " select * from lop where malop='" & Trim(Txtmalop) & "'", cn If rs.EOF = True Then str = "insert into lop values('" & Trim(Txtmalop) & "','" & Trim(Txttenlop) & "')" 54 Đồ án tốt nghiệp: Quản Lý Sinh Viên cn.Execute (str) Else If flag = "save" Then MsgBox "M· líp [" & Txtmalop & "] đà tồn Vui lòng kiểm tra lại", vbOKOnly + vbQuestion, "Thông báo" Me.MousePointer = Exit Sub End If str = "update lop set tenlop='" & Trim(Txttenlop) & "' where malop='" & Trim(Txtmalop) & "'" cn.Execute (str) End If lock_text display_listview cndnew.SetFocus Me.MousePointer = End Sub Private Sub txtmalop_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Txtmalop = "" Then MsgBox "M· lớp bắt buộc phải có Bạn không đợc để trống !", vbOKOnly + vbExclamation, "Báo để bạn nhớ" Txtmalop.SetFocus Else Txttenlop.SetFocus End If End Select End Sub 55 §å án tốt nghiệp: Quản Lý Sinh Viên Private Sub txttenlop_Click() If Txtmalop = "" Then MsgBox "M· m· líp b¾t buộc phải có Đề nghị bạn nhập vào ! ", vbOKOnly + vbExclamation, " Thông báo!" Txtmalop.SetFocus End If End Sub Private Sub txttenlop_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Txtmalop = "" Then MsgBox "M· líp bắt buộc phải có Bạn không đợc để trống !", vbOKOnly + vbExclamation, "Báo để bạn nhớ" Txtmalop.SetFocus Exit Sub Else If Txttenlop = "" Then MsgBox "Tªn líp ban bắt buộc phải có Bạn không đợc để trống !", vbOKOnly + vbExclamation, "Báo để bạn biết" Txttenlop.SetFocus Else cmdsave.SetFocus End If End If End Select End Sub 4/form tim kiÕm sinh viªn teo tªn: Private Sub cmdthoat_Click() Unload Me 56 Đồ án tốt nghiệp: Quản Lý Sinh Viªn End Sub Private Sub cmdtim_Click() Dim str Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim rs2 As New ADODB.Recordset Dim mitem As ListItem ivitem.ListItems.Clear If optttmp.Value = True Then str = "select * from sinhvien where masv='" & Trim(Txtmasv) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mitem = ivitem.ListItems.Add(, , rs!masv) mitem.SubItems(1) = rs!hoten mitem.SubItems(2) = rs!ngaysinh mitem.SubItems(5) = rs!gioitinh mitem.SubItems(6) = rs!thuongtru mitem.SubItems(7) = rs!noisinh mitem.SubItems(8) = rs!quequan mitem.SubItems(9) = rs!diachi mitem.SubItems(10) = rs!dantoc mitem.SubItems(11) = rs!tongiao mitem.SubItems(12) = rs!dienthoai str = "select tenlop from lop where malop = '" & rs!malop & "'" rs1.Open str, cn If rs1.EOF = False Then mitem.SubItems(3) = rs1!tenlop End If 57 Đồ án tốt nghiệp: Quản Lý Sinh Viªn rs1.Close str = "select tenkhoa from khoa where makhoa = '" & rs!makhoa & "'" rs2.Open str, cn If rs2.EOF = False Then mitem.SubItems(4) = rs2!tenkhoa End If rs2.Close rs.MoveNext Wend Txtmasv.SetFocus Txtmasv = "" Else MsgBox "M· Sinh viên Đề nghị bạn kiểm tra lại ", vbOKOnly + vbExclamation, "Thông báo!" Txtmasv.SetFocus Txtmasv = "" End If End If If opttttp.Value = True Then str = "select * from sinhvien where hoten ='" & Trim(txttensv) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mitem = ivitem.ListItems.Add(, , rs!masv) mitem.SubItems(1) = rs!hoten mitem.SubItems(2) = rs!ngaysinh mitem.SubItems(5) = rs!gioitinh mitem.SubItems(6) = rs!thuongtru mitem.SubItems(7) = rs!noisinh 58 Đồ án tốt nghiệp: Quản Lý Sinh Viên mitem.SubItems(8) = rs!quequan mitem.SubItems(9) = rs!diachi mitem.SubItems(10) = rs!dantoc mitem.SubItems(11) = rs!tongiao mitem.SubItems(12) = rs!dienthoai str = "select tenlop from lop where malop = '" & rs!malop & "'" rs1.Open str, cn If rs1.EOF = False Then mitem.SubItems(3) = rs1!tenlop End If rs1.Close str = "select tenkhoa from khoa where makhoa = '" & rs!makhoa & "'" rs2.Open str, cn If rs2.EOF = False Then mitem.SubItems(4) = rs2!tenkhoa End If rs2.Close rs.MoveNext Wend txttensv.SetFocus txttensv = "" Else MsgBox "Tªn sinh viªn danh sách Đề nghị bạn kiểm tra lại ", vbOKOnly + vbExclamation, "Thông báo!" txttensv.SetFocus txttensv = "" End If End If End Sub 59 ... sơ ngôn ngữ visual basic I/Tìm hiểu ngôn ngữ lập trình 1/Tổng quan ngôn ngữ lâp trình visual basic 2/Cấu trúc øng dơng cđa visual basic 3/ Chóng ta cã thĨ làm gi với visual basic 4/ Tóm tắt ngôn. .. Sinh Viên PHầN I : CƠ SỞ LÝ THUYẾT VỀ NGÔN NGỮ VISUAL BASIC 1Tìm hiểu ngôn ngữ lập trình Visual Basic 1.1.Tổng quan ngôn ngữ lập trình Visual Basic Visual Basic, đường nhanh đơn giản để tạo ứng... phần ? ?Basic? ?? nói đến ngôn ngữ ? ?BASIC? ?? (Beginners AllPurpose Symbolic Instruction Code) ngôn ngữ dùng nhiều nhà lập trình ngôn ngữ khác lịch sử máy tính Visual Basic phát triển dựa ngôn ngữ BASIC,
