110 likes | 275 Views
ฟอร์มระบบพิมพ์รายงานข้อมูลลูกค้า. 1. 3. 4. 2. 5. 6. 1. เฟรมข้อมูลรายงานลูกค้า. ถัดไป. เฟรมข้อมูลรถยนต์ปรับสีตัวอักษรที่ Forecolor. เมนูหลัก. 2. คลิกปุ่ม Label ใส่ข้อความกรุณาป้อนรหัส. เมนูหลัก. 3. คลิกปุ่ม Textbox. เมนูหลัก. คลิกปุ่ม command Button. 4.
E N D
ฟอร์มระบบพิมพ์รายงานข้อมูลลูกค้าฟอร์มระบบพิมพ์รายงานข้อมูลลูกค้า 1 3 4 2 5 6
1 เฟรมข้อมูลรายงานลูกค้า ถัดไป
เฟรมข้อมูลรถยนต์ปรับสีตัวอักษรที่ Forecolor เมนูหลัก
2 คลิกปุ่ม Label ใส่ข้อความกรุณาป้อนรหัส เมนูหลัก
3 คลิกปุ่ม Textbox เมนูหลัก
คลิกปุ่ม command Button 4 Private Sub Command1_Click() Dim Bookmark1 As Variant Dim strCriteria As String If Text1.Text = "" Then MsgBox“กรอกข้อมูลรหัสให้ถูกต้อง" Text1.SetFocus Exit Sub End If strCriteria = "Cus_ID = '" & Text1.Text & "'" With Adodc1 If DataEnvironment1.rscmdCustomer.State = 1 Then DataEnvironment1.rscmdCustomer.Close DataEnvironment1.rscmdCustomer.Open (" Select * from Customer where Cus_ID='" & Text1 & "'") DataReport2.Show End With End Sub เมนูหลัก
คลิกปุ่ม command Button 5 Private Sub Command2_Click() DataReport2.Show End Sub ถัดไป
Datareportรายงานข้อมูลลูกค้าDatareportรายงานข้อมูลลูกค้า เมนูหลัก
คลิกปุ่ม command Button 6 Private Sub Command3_Click() Main.Show Unload Me End Sub เมนูหลัก
9 ภาคเรียนที่ 2 ปีการศึกษา 2555วิชาการเขียนโปรแกรมบนระบบปฏิบัติการ GUI Source Code โปรแกรม Visual Basic 6.0 ระบบรายงานข้อมูลลูกค้า โดย นางสาวปิลันธณา ผสารพันธ์ 5322010139 นางสาวจิรลัคน์ จันทร์แก้ว 5322010129