intTypePromotion=1
zunia.vn Tuyển sinh 2024 dành cho Gen-Z zunia.vn zunia.vn
ADSENSE
 » 
 » 

Giáo trình phân tích ứng dụng những kỹ năng để xử lý lỗi bằng lệnh On error goto p2

Chia sẻ: Gsag Gsdgdf | Ngày: | Loại File: PDF | Số trang:5

Thêm vào BST
Báo xấu
78
lượt xem 3
download
 
  Download Vui lòng tải xuống để xem tài liệu đầy đủ

Tham khảo tài liệu 'giáo trình phân tích ứng dụng những kỹ năng để xử lý lỗi bằng lệnh on error goto p2', công nghệ thông tin, tin học văn phòng phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Giáo trình phân tích ứng dụng những kỹ năng để xử lý lỗi bằng lệnh On error goto p2

  1. h a n g e Vi h a n g e Vi XC XC e e F- F- w w PD PD er er . ! ! ® W W Giáo trình Microsoft Access 2000 Copyright Nguyễn Sơn Hải O O N N y y bu bu to to k k lic lic C C w w m m w w w w o o .c .c .d o .d o c u -tr a c k c u -tr a c k Và mã lệnh cho form như sau: '--------------------------------------------------------- 'Hàm xác định USCNN của 2 số nguyên (thuật toán Ơ-cơ-lít) ' Function usc(a, b As Integer) As Integer Dim a1, b1 As Integer a1 = a b1 = b While a1 b1 If a1 > b1 Then a1 = a1 - b1 Else b1 = b1 - a1 End If Wend usc = a1 End Function '------------------------------- 'Mã lệnh cho nút Tính toán ' Private Sub cmdTinhToan_Click() txtUSC = usc(txtA, txtB) txtBSC = txtA * txtB / usc(txtA, txtB) End Sub '------------------------------ 'Mã lệnh cho nút ĐÓng ' Private Sub cmdClose_Click() DoCmd.Close End Sub Bài toán 3: Nhập vào 3 hệ số A, B, C của phương trình bậc hai Ax2 + Bx+C =0 và cho biết nghiệm phương trình đó: Thiết kế form như sau: Trang 159
  2. h a n g e Vi h a n g e Vi XC XC e e F- F- w w PD PD er er . Giáo trình Microsoft Access 2000 ! ! ® W W Copyright Nguyễn Sơn Hải O O N N y y bu bu to to k k lic lic C C w w m m w w w w o o .c .c .d o .d o c u -tr a c k c u -tr a c k Thiết lập thuộc tính cho các đối tượng như sau: Form Caption: Giải phương trình bậc 2 Default view: Single Form Scroll bar: Neither Record selector: No Navigation Buttons: No Diving line: No Ô nhập số cần kiểm tra Ô Thuộc tính Name A: txtA B: txtB C: txtC Nút Tính toán Name: cmdGPTB2 Caption: Giải phương trình Nút Đóng Name: cmdClose Caption: Đóng Trang 160
  3. h a n g e Vi h a n g e Vi XC XC e e F- F- w w PD PD er er ! ! ® . Giáo trình Microsoft Access 2000 W W Copyright Nguyễn Sơn Hải O O N N y y bu bu to to k k lic lic C C w w m m w w w w o o .c .c .d o .d o c u -tr a c k c u -tr a c k Và mã lệnh cho form như sau: '-------------------------------------- 'Mã lệnh cho nút Giải phương trình ' Private Sub cmdChanLe_Click() Dim delta, x, x1, x2 As Double Dim kqua As String delta = txtB * txtB - 4 * txtA * txtC If delta = 0 Then x = -txtB / (2 * txtA) kq = "Nghiệm kép: x1 = x2 = " + Trim(Str(x)) Else If dleta > 0 Then x1 = (-txtB + Sqr(delta)) / (2 * txtA) x1 = (-txtB - Sqr(delta)) / (2 * txtA) kqua = "Có 2 nghiệm phân biệt:" + Chr(13) _ + " X1 = " + Trim(Str(x1)) + Chr(13) _ + " X2 = " + Trim(Str(x2)) Else kqua = "Phương trình vô nghiệm" End If End If MsgBox kqua End Sub '------------------------------------------ 'Lệnh cho nút Đóng ' Private Sub cmdClose_Click() DoCmd.Close End Sub Trang 161
  4. h a n g e Vi h a n g e Vi XC XC e e F- F- w w . PD PD er er ! ! ® W W Giáo trình Microsoft Access 2000 Copyright Nguyễn Sơn Hải O O N N y y bu bu to to k k lic lic C C w w m m w w w w o o .c .c .d o .d o c u -tr a c k c u -tr a c k 7 CHƯƠNG LẬP TRÌNH CƠ SỞ DỮ LIỆU Access không những là một hệ quản trị CSDL mạnh mà còn cung cấp những công cụ mạnh cho phép phát triển một CSDL đơn thuần thành một sản phẩm đóng gói thương mại. Chúng ta đã được học Queries, Forms, Report – đó là những công cụ khá mạnh và dễ học dùng để xây dựng các truy vấn, biểu mẫu và báo cáo in ấn trong Access. Chương 7 đã được làm quen với ngôn ngữ VBA- một ngôn ngữ lập trình trực quan, hướng đối tượng trong các ứng dụng Microsoft Office nói chung cũng như trên Access. Đó là cơ sở quan trọng để trong chương này chúng ta tìm hiểu những kỹ thuật lập trình CSDL bằng VBA- có thể nói là một mức chuyên sâu tiếp theo những gì đã học VBA căn bản. Các chủ đề sẽ được bàn đến trong chương này bao gồm: Lớp đối tượng truy cập dữ liệu (DAO- Data Access Objects); Bài toán tìm kiếm; Bài toán đặt lọc; Một số bài toán khác. Trang 162
  5. h a n g e Vi h a n g e Vi XC XC e e F- F- w w . PD PD er er ! ! ® W W Giáo trình Microsoft Access 2000 Copyright Nguyễn Sơn Hải O O N N y y bu bu to to k k lic lic C C w w m m w w w w o o .c .c .d o .d o c u -tr a c k c u -tr a c k 1. Kỹ thuật DAO DAO (Data Access Objects – Các đối tượng truy xuất dữ liệu) là tập hợp bao gồm lớp các đối tượng có thể dùng để lập trình truy cập và xử lý dữ liệu trong các hệ CSDL. Ở đây CSDL Access, ngôn ngữ lập trình VBA. DAO được phát triển khá sớm, gần đây nhất là phiên bản DAO 3.5 và 3.51- nó có thể thực hiện tốt được trên các phiên bản Access từ 97 trở về trước. Với Access 2000, XP phải dùng phiên bản DAO 3.6. Với phiên bản mới này, DAO 3.6 sử dụng nền Microsoft Jet 4.0. Vì vậy, có thể làm việc được trên nền Unicode dễ dàng. Để nạp thư viện DAO3.6 vào làm việc, hãy thực hiện như sau: Bước 1: Mở cửa sổ lập trình VBA; Bước 2: Chọn thực đơn Tools | References .. Hộp thoại sau xuất hiện: Hãy chọn (tích) mục Microsoft DAO 3.6 Object Libraly trên danh sách Available References; chọn xong, nhấn OK để đóng lại. Trang 163
ADSENSE

CÓ THỂ BẠN MUỐN DOWNLOAD

THÔNG TIN
TRỢ GIÚP
HỖ TRỢ KHÁCH HÀNG
Theo dõi chúng tôi

Chịu trách nhiệm nội dung:

Nguyễn Công Hà - Giám đốc Công ty TNHH TÀI LIỆU TRỰC TUYẾN VI NA

LIÊN HỆ

Địa chỉ: P402, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM

Hotline: 093 303 0098

Email: support@tailieu.vn

Giấy phép Mạng Xã Hội số: 670/GP-BTTTT cấp ngày 30/11/2015 Copyright © 2022-2032 TaiLieu.VN. All rights reserved.

 

Đồng bộ tài khoản
2=>2