... Invalid Data then GoodData = False GoodData = True End Function Private Sub CmdUpdate_Click() ' Verify all data, if Bad then not Update If Not GoodData Then Exit Sub ' Assign record fields tothe appropriate ... List1.Clear ' Clear List1 ' We use List2 to contain the Primary Key ISBN corresponding tothe books in List1 List2.Clear ' Clear List2 With SrchRS ' Iterate through the Recordset until EOF Do While Not ... ' Move to next record ' Display record details if has not gone past the last record If Not myRS.EOF Then Displayrecord ' display details of current record Else myRS.MoveLast ' Move back to last...
... event to be handled by main form RaiseEvent MoveComplete End Sub Và Form ta phải declare (object clsTitles) PrimaryCLS với WithEvents: Private WithEvents PrimaryCLS As clsTitles Trong Form, Event ... Sub Form_ Load() ' Instantiate an Object of class clsTitles Set PrimaryCLS = New clsTitles Dim oText As TextBox ' Iterate through each textbox in the array txtFields 'Bind the text boxes tothe ... Next Khi Data Form Wizard chấm dứt, generate form frmADODataForm Bạn remove Form1 dùng Menu Command Project | ADODataControl Properties để đổi Startup Object thành frmADODataForm Thế tạm xong...
... máy theo link http://dl.google.com/android/ADT-0.9.7.zip (bản 0.9.7 ứng với Android 2.2), chọn Archive browse tới file (lưu ý không giải nén) -> OK -> Check vào phần ô Name (sẽ dòng Developer Tools) ... 2.Tích hợp Android SDK vào Eclipse: B1: Tải Eclipse bạn chưa có Mọi người phân vân tải cho phù hợp, theo ý kiến dùng sau: Eclipse for Java Developers, Eclipse for Java and Report Developers (mình ... phần Javadoc mô tả hoạt động phương thức lớp (phần chắn thiếu rồi), Sample đoạn code mẫu, SDK Platform ứng với phiên hệ điều hành (2.2 - API level 8, 2.1 - API level 7, ), Google API để phát triển...
... Chương trình thiết kết theo cách từ lên (bottom-up) Object Oriented Programing– Information Systems Department 11 1.5 Lập trình hướng đối tượng Object Oriented Programing– Information Systems Department ... thông tin gồm: họ tên, ngày sinh, gt, to n, lý, hóa, đtb Viết hàm/thủ tục nhập danh sách, in danh sách, xếp theo họ tên, đtb Object Oriented Programing– Information Systems Department 28 Qui cách ... chương trình con: Độc lập với có liệu riêng Trao đổi qua: tham số biến to n cục Object Oriented Programing– Information Systems Department 1.2 Lập trình cấu trúc (tiếp) Xuất khái niệm trừu...
... event to be handled by main form RaiseEvent MoveComplete End Sub Và Form ta phải declare (object clsTitles) PrimaryCLS với WithEvents: Private WithEvents PrimaryCLS As clsTitles Trong Form, Event ... Sub Form_ Load() ' Instantiate an Object of class clsTitles Set PrimaryCLS = New clsTitles Dim oText As TextBox ' Iterate through each textbox in the array txtFields 'Bind the text boxes tothe ... click Next Khi Data Form Wizard chấm dứt, generate form frmADODataForm Bạn remove Form1 dùng Menu Command Project | ADODataControl Properties để đổi Startup Object thành frmADODataForm Thế tạm xong...
... Invalid Data then GoodData = False GoodData = True End Function Private Sub CmdUpdate_Click() ' Verify all data, if Bad then not Update If Not GoodData Then Exit Sub ' Assign record fields tothe appropriate ... List1.Clear ' Clear List1 ' We use List2 to contain the Primary Key ISBN corresponding tothe books in List1 List2.Clear ' Clear List2 With SrchRS ' Iterate through the Recordset until EOF Do While Not ... ' Move to next record ' Display record details if has not gone past the last record If Not myRS.EOF Then Displayrecord ' display details of current record Else myRS.MoveLast ' Move back to last...
... Invalid Data then GoodData = False GoodData = True End Function Private Sub CmdUpdate_Click() ' Verify all data, if Bad then not Update If Not GoodData Then Exit Sub ' Assign record fields tothe appropriate ... List1.Clear ' Clear List1 ' We use List2 to contain the Primary Key ISBN corresponding tothe books in List1 List2.Clear ' Clear List2 With SrchRS ' Iterate through the Recordset until EOF Do While Not ... ' Move to next record ' Display record details if has not gone past the last record If Not myRS.EOF Then Displayrecord ' display details of current record Else myRS.MoveLast ' Move back to last...
... $your_name"; } //this portion will probaby run the first time to //this page elseif(empty($your_name) && !isset($submit)) { echo " "; //if theform has been submitted, this portion will //run and make an assignment to $your_name } elseif (isset($submit) && empty($your_name)) ... thông thường để khách nhập thông tin riêng thông qua form HTML Trong phần phụ lục A có trình bày chi tiết tạo form HTML Nếu bạn chưa biết cách tạo form đọc phần phụ lục Bạn tạo trang sign.php chứa...
... MsgBox Tong = & Tong, VbOkOnly, Ket qua -VD3: MsgBox A = & A & VbCrlf & B = & B, VbInformation, Ket qua Saturday, September 1, 2012 Access2000 - Modules 11 c) Ví dụ chương trình vào, liệu Bàito n: ... B As Double, Tong As Double, Tich As Double Sub Tong_Tich() A = InputBox( Nhap A =, Nhap lieu, 0) B = InputBox( Nhap B =, Nhap lieu, 0) Tong = A + B Tich = A * B MsgBox Tong = & Tong & vbCrLf ... Xử lý, tính to n biến B3: In kết VD: Chương trình vào hai số A, B từ bàn phím sau tính Tổng Tich - A, B hai biến có kiểu số thực, Tong, Tich hai biến để lưu kết trình tính to n - Tong = A + B,...
... Hàm nâng cao (phần 1) 24 VC & BB Bài tập thực hành Bài 1: Viết chương trình có tên TinhToan cho gõ: TinhToan 2912 – 1706 xuất hình 1206 (có thể thay +, *, /) Bài 2: Viết chương trình quản lý ... số mặc định Ví dụ Viết hàm Tong để tính tổng số x, y, z, t int Tong(int x, int y, int z, int t) { return x + y + z + t; } Tính tổng số 2912, 1706, 1506, 1904 Tong(2912, 1706, 1506, 1904); ... đối số mặc định, phải truyền đối số thay cho đối số mặc định trước int Tong(int x, int y = 0, int z = 0); int Tong(1, 5); int Tong(1, 0, 5); NMLT - Hàm nâng cao (phần 1) 10 VC & BB Hàm có đối số...
... (&&, ||, !) Gồm có hai to n hạng Có thể thay đổi to n hạng vế trái Có thể trả kết cho phép to n To n tử To n tử tăng giảm (++, – –), to n tử đảo dấu ( –) Chỉ có to n hạng NMLT - Hàm nâng ... Các hàm sau int Tong(int { return } int Tong(int { return } int Tong(int { return } a, int b) // int Tong(int, int) a + b; b, int a) // int Tong(int, int) a + b; x, int y) // int Tong(int, int) ... operator++(ps) PHANSO c2 = a++; // operator++(ps, 0) NMLT - Hàm nâng cao (phần 2) 27 VC & BB Nạp chồng to n tử To n tử To n tử đảo dấu – typedef struct {int tu, mau;} PHANSO; PHANSO operator–(PHANSO...
... (IB0) cổng (QB1), đợc gọi byte: 0 1 1 3/ Word: (ví dụ MW0= MB0 + MB1) Một Word gồm có Byte nh Word có độ dài 16 bits 0 1 1 0 1 1 Byte Byte 4/ Doppelword: (ví dụ MD0 = MW0 + MW2): có độ dài từ ... ý tự Ví dụ: B#16#14 nghĩa số nguyên 14 viết theo hệ đếm số 16 có độ dài byte 3/ WORD: gồm byte, để biểu diễn số nguyên dơng từ đến 65535 (216 1) 4/DWORD: Là từ kép có giá trị là: đến 232-1 5/ ... 9/TOD: Biểu diễn giá trị tức thời tính theo Giờ/phút/giây Ví dụ: TOD#5:30:00 lệnh khai báo giá trị thời gian ngày 30 phút 10/ DATE: Biểu diễn thời gian tính theo năm / ngày / tháng Ví dụ: DATE#2003-6-12...
... -'Match Total of floor If Oper2 Then If Oper2 = Then If rs!toffloor Value2 Then FFloorTot = True Else FFloorTot = False End If End If If Oper2 = Then If rs!toffloor = Value2 Then FFloorTot ... Else FFloorTot = False End If End If If Oper2 = Then If rs!toffloor > Value2 Then FFloorTot = True Else FFloorTot = False End If End If If Oper2 = Then If rs!toffloor >= Value2 Then FFloorTot = True ... FFloorTot = False End If 45 End If If Oper2 = Then If rs!toffloor < Value2 Then FFloorTot = True Else FFloorTot = False End If End If If Oper2 = Then If rs!toffloor
... assigns to $r Increments $x and assigns $x to $r Assigns $x to $r and then increments $x Adds $x to $r and then assigns to $r Decrements $x and assigns $x to $r Assigns $x to $r and then decrements ... Adds $x to $y and assigns the result to $r Subtracts $y from $x and assigns the result to $r Multiplies $y and $x and assigns the result to $r Divides $x by $y and assigns the result to $r Modulo; ... II.2.2.1 ThẻFORM Dòng bắt đầu form: ThẻForm khởi đầu form Tài liệu chứa nhiều forms, forms lồng vào nhau, form không đợc phép đặt form...
... cho subform muốn tham chiếu Mainform) b) Phương thức: • Setfocus: dùng để chọn form hành • Requery: dùng để tái truy vấn liệu nguồn form • Recalc: dùng để tính to n lại control tính to n Form 3.5.3 ... hợp ( TH ) thuộc tính đối tượng control subform Cú pháp < Tên TH > ! < Tên TP > Ví dụ Forms!BT1 Me.txtA.enabled = true Forms!Fr1!Fr1_sub!txtDT TT subform . = !
... RadioButton chọn Các thuộc tính AccessKey: Enables you to specify a key that navigates tothe RadioButton control AutoPostBack: Enables you to post theform containing the RadioButton back tothe ... you to group RadioButton controls TabIndex: Enables you to specify the tab order of the RadioButton control Text: Enables you to label the RadioButton control TextAlign: Enablesyou to align the ... server automatically when the radio button is checked or unchecked Checked: Enables you to get or set whether the RadioButton control is checked Enabled: Enables you to disable the RadioButton GroupName:...
... ca loi lnh ny Tip theo l cỏc vớ d: Vớ d 1: Tớnh tng cỏc s t n 50, giỏ tr c lu vo bin tong Dim i As Byte Dim tong As Integer tong = For i = To 50 tong = tong +i Next Msgbox tong Vớ d 2: Tớnh tng ... tng cỏc s chia ht cho t n 50, giỏ tr c lu vo bin tong Dim i As Byte Dim tong As Integer tong = For i = To 50 Step tong = tong +i Next Msgbox tong Lnh For vớ d ny ch khỏc lnh For vớ d ch Step ... Integer Dim uoc As Integer Dim nguyento As Boolean nguyento = True For uoc = To Int(so / 2) If so Mod uoc = Then nguyento = False Exit For End If Next If nguyento Then Msgbox "l nguyờn t" Else Msgbox...