វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute itemcost(20) = Val(txtStrawberryShake.Text) * Price_Strawberry itemcost(21) = Val(TxtChocolateMilkShake.Text) * Price_ChocolateMilkShake Dim icost, ichange, iSubTotal1, iSubTotal2, iSubTotal3 As Double Dim iSubTotal4, iSubTotal As Double If (cboPaymentMethod.Text = \"Cash\") Then iSubTotal1 = itemcost(0) + itemcost(1) + itemcost(2) + itemcost(3) + itemcost(4) + itemcost(5) iSubTotal2 = itemcost(6) + itemcost(7) + itemcost(8) + itemcost(9) + itemcost(10) + itemcost(11) iSubTotal3 = itemcost(12) + itemcost(13) + itemcost(14) + itemcost(15) + itemcost(16) + itemcost(17) iSubTotal4 = itemcost(18) + itemcost(19) + itemcost(20) + itemcost(21) iSubTotal = iSubTotal1 + iSubTotal2 + iSubTotal3 + iSubTotal4 lblSubTotal.Caption = iSubTotal iTax = (iSubTotal * Tax_Rate) / 100 lblTax.Caption = iTax iTotal = iTax + iSubTotal lblTotal.Caption = iTotal ichange = Val(txtPaymentMethod.Text) icost = ichange - (iTax + iSubTotal) lblChange.Caption = icost lblChange.Caption = Format(lblChange.Caption, \"$#,##0.00\") lblTax.Caption = Format(lblTax.Caption, \"$#,##0.00\") lblSubTotal.Caption = Format(lblSubTotal.Caption, \"$#,##0.00\") កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 51 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute lblTotal.Caption = Format(lblTotal.Caption, \"$#,##0.00\") ElseIf (cboPaymentMethod.Text = \"Master Card\" Or cboPaymentMethod.Text = \"Visa Card\" Or cboPaymentMethod.Text = \"Debit Card\") Then iSubTotal1 = itemcost(0) + itemcost(1) + itemcost(2) + itemcost(3) + itemcost(4) + itemcost(5) iSubTotal2 = itemcost(6) + itemcost(7) + itemcost(8) + itemcost(9) + itemcost(10) + itemcost(11) iSubTotal3 = itemcost(12) + itemcost(13) + itemcost(14) + itemcost(15) + itemcost(16) + itemcost(17) iSubTotal4 = itemcost(18) + itemcost(19) + itemcost(20) + itemcost(21) + itemcost(4) + itemcost(5) iSubTotal = iSubTotal1 + iSubTotal2 + iSubTotal3 + iSubTotal4 lblSubTotal.Caption = iSubTotal iTax = (iSubTotal * Tax_Rate) / 100 lblTax.Caption = iTax iTotal = iTax + iSubTotal lblTotal.Caption = iTotal ichange = Val(txtPaymentMethod.Text) icost = ichange - (iTax + iSubTotal) lblChange.Caption = icost lblTax.Caption = Format(lblTax.Caption, \"$#,##0.00\") lblSubTotal.Caption = Format(lblSubTotal.Caption, \"$#,##0.00\") lblTotal.Caption = Format(lblTotal.Caption, \"$#,##0.00\") Else Dim answer កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 52 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute answer = MsgBox(\"You must select a Payment Method\", vbInformation, \"Fast Food\") End If txtPaymentMethod.Text = Format(txtPaymentMethod, \"$#,##0.00\") End Sub ៦. សរនសរក្ូែក្ុងន Button Add Private Sub CmdAdd_Click() Dim wks As Worksheet Dim AddNew As Range Set wks = Sheet1 Set AddNew = wks.Range(\"A65356\").End(xlUp).Offset(1, 0) AddNew.Offset(0, 0).Value = txtName.Text AddNew.Offset(0, 1).Value = txtSex.Text AddNew.Offset(0, 2).Value = txtAddress.Text AddNew.Offset(0, 3).Value = txtPhone.Text AddNew.Offset(0, 4).Value = txtEmail.Text AddNew.Offset(0, 5).Value = lblDate.Caption AddNew.Offset(0, 6).Value = lblTime.Caption AddNew.Offset(0, 7).Value = lblRefNo.Caption AddNew.Offset(0, 8).Value = lblTax.Caption AddNew.Offset(0, 9).Value = lblSubTotal.Caption AddNew.Offset(0, 10).Value = lblTotal.Caption AddNew.Offset(0, 11).Value = lblChange.Caption កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 53 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute End Sub ៧. សរនសរក្ូែក្ុងន Button Reset Private Sub CmdReset_Click() lblThanks.Visible = False Dim iControl As Control For Each iControl In Me.Controls If iControl.Name Like \"txt*\" Then iControl = vbNullString Next Dim kControl As Control For Each kControl In Me.Controls If kControl.Name Like \"chk*\" Then kControl = vbNull = True Next lblTax.Caption = \"\" lblTotal.Caption = \"\" lblSubTotal.Caption = \"\" lblChange.Caption = \"\" cboPaymentMethod.Text = \"\" txtPaymentMethod.Text = \"\" chkFries.Value = False chkSalad.Value = False chkHamburge.Value = False chkOnionRings.Value = False chkChickenSalad.Value = False កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 54 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute chkFishSandwich.Value = False chkCheeseSandwich.Value = False chkHashBrown.Value = False chkToastedBagel.Value = False chkPineappleStick.Value = False chkChocolateMuffin.Value = False chkChickenSandwich.Value = False chkPancakesSyrup.Value = False chkTea.Value = False chkCola.Value = False chkCoffee.Value = False chkOrange.Value = False chkBottleWater.Value = False chkVanillaCone.Value = False chkVanillaShake.Value = False chkStrawberryShake.Value = False chkChocolateMilkShake.Value = False txtFries.Text = \"0\" txtToastedBagel.Text = \"0\" txtSalad.Text = \"0\" txtHamburge.Text = \"0\" txtOnionRings.Text = \"0\" txtChickenSalad.Text = \"0\" កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 55 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute txtFishSandwich.Text = \"0\" txtCheeseSandwich.Text = \"0\" txtChickenSandwich.Text = \"0\" txtHashBrown.Text = \"0\" txtPineappleStick.Text = \"0\" txtChocolateMuffin.Text = \"0\" txtPancakesSyrup.Text = \"0\" txtTea.Text = \"0\" txtCola.Text = \"0\" txtCoffee.Text = \"0\" txtOrange.Text = \"0\" txtBottleWater.Text = \"0\" txtVanillaCone.Text = \"0\" TxtVanillaShake.Text = \"0\" txtStrawberryShake.Text = \"0\" TxtChocolateMilkShake.Text = \"0\" txtName.Text = \"\" txtSex.Text = \"\" txtPhone.Text = \"\" txtAddress.Text = \"\" txtEmail.Text = \"@gmail.com\" txtEmail.ForeColor = &H80000006 lblDate.Caption = \"\" កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 56 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute lblTime.Caption = \"\" lblRefNo.Caption = \"\" txtName.SetFocus End Sub ៨. សរនសរក្ូែក្ុងន User Form +User Form ជា Activate Private Sub UserForm_Activate() txtName.SetFocus cboPaymentMethod.AddItem (\"\") cboPaymentMethod.AddItem (\"Cash\") cboPaymentMethod.AddItem (\"Master Card\") cboPaymentMethod.AddItem (\"Debit Card\") cboPaymentMethod.AddItem (\"Visa Card\") lblThanks.Visible = False End Sub +User Form ជា Initialize Private Sub UserForm_Initialize() whitewine = 18 Redwine = 15 Otherwine = 16 If txtEmail = Null Then txtEmail = \"@gmail.com\" End If កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 57 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute End Sub ៩. សរនសរក្ូែក្ុងន Text Box TxtSex Private Sub TxtSex_Change() On Error Resume Next If txtSex = \"f\" Then txtSex = \"Female\" ElseIf txtSex = \"m\" Then txtSex = \"Male\" End If If txtSex = \"M\" Then txtSex = \"Male\" ElseIf txtSex = \"F\" Then txtSex = \"Female\" End If End Sub ១០. សរនសរក្ូែក្ុងន Text Box TxtName Private Sub TxtName_Change() If IsNumeric(txtName.Value) Then txtName.Text = \"\" End If End Sub ១១. សរនសរក្ូែក្ុងន Text Box TxtPhone Private Sub TxtPhone_Change() កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 58 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute If Not IsNumeric(txtPhone.Value) Then txtPhone.Text = \"\" End If End Sub ១២. សរនសរក្ូែក្ុងន Text Box TxtEmail Private Sub TxtEmail_Enter() On Error Resume Next txtEmail.Text = \"\" txtEmail.ForeColor = &H80000012 End Sub Private Sub TxtEmail_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtEmail.Text = \"\" txtEmail.ForeColor = &H80000012 End Sub ១៣. សរនសរក្ូែក្ុងន Check Box ងំ អ្ស់ +Check Box chkcheeseSandwich Private Sub chkCheeseSandwich_Click() If (chkCheeseSandwich.Value = True) Then txtCheeseSandwich.Enabled = True End If If (chkCheeseSandwich.Value = False) Then txtCheeseSandwich.Enabled = False txtCheeseSandwich.Text = \"0\" កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 59 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute End If End Sub Private Sub chkChichenSandwich_Click() If (chkChichenSandwich.Value = True) Then txtChickenSandwich.Enabled = True End If If (chkChichenSandwich.Value = False) Then txtChickenSandwich.Enabled = False txtChickenSandwich.Text = \"0\" End If End Sub Private Sub chkChickenSalad_Click() If (chkChickenSalad.Value = True) Then txtChickenSalad.Enabled = True End If If (chkChickenSalad.Value = False) Then txtChickenSalad.Enabled = False txtChickenSalad.Text = \"0\" End If End Sub Private Sub chkChickenSandwich_Click() កកសរំ ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 60 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute If (chkChickenSandwich.Value = True) Then txtChickenSandwich.Enabled = True End If If (chkChickenSandwich.Value = False) Then txtChickenSandwich.Enabled = False txtChickenSandwich.Text = \"0\" End If End Sub +Check Box chkChocolateMilkShake Private Sub chkChocolateMilkShake_Click() If (chkChocolateMilkShake.Value = True) Then TxtChocolateMilkShake.Enabled = True End If If (chkChocolateMilkShake.Value = False) Then TxtChocolateMilkShake.Enabled = False TxtChocolateMilkShake.Text = \"0\" End If End Sub +Check Box chkChocolateMuffin Private Sub chkChocolateMuffin_Click() If (chkChocolateMuffin.Value = True) Then txtChocolateMuffin.Enabled = True End If កកសរំ ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 61 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute If (chkChocolateMuffin.Value = False) Then txtChocolateMuffin.Enabled = False txtChocolateMuffin.Text = \"0\" End If End Sub +Check Box chkCoffe Private Sub chkCoffee_Click() If (chkCoffee.Value = True) Then txtCoffee.Enabled = True End If If (chkCoffee.Value = False) Then txtCoffee.Enabled = False txtCoffee.Text = \"0\" End If End Sub Private Sub chkCola_Click() If (chkCola.Value = True) Then txtCola.Enabled = True End If If (chkCola.Value = False) Then txtCola.Enabled = False txtCola.Text = \"0\" End If កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 62 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute End Sub +Check Box chkFishSandwich Private Sub chkFishSandwich_Click() If (chkFishSandwich.Value = True) Then txtFishSandwich.Enabled = True End If If (chkFishSandwich.Value = False) Then txtFishSandwich.Enabled = False txtFishSandwich.Text = \"0\" End If End Sub +Check Box chkFries Private Sub chkFries_Click() If (chkFries.Value = True) Then txtFries.Enabled = True End If If (chkFries.Value = False) Then txtFries.Enabled = False txtFries.Text = \"0\" End If End Sub +Check Box chkHamburger កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 63 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute Private Sub chkHamburger_Click() If (chkHamburger.Value = True) Then txtHamburge.Enabled = True End If If (chkHamburger.Value = False) Then txtHamburge.Enabled = False txtHamburge.Text = \"0\" End If End Sub Private Sub chkHamburge_Click() If (chkHamburge.Value = True) Then txtHamburge.Enabled = True End If If (chkHamburge.Value = False) Then txtHamburge.Enabled = False txtHamburge.Text = \"0\" End If End Sub +Check Box chkHashBrown Private Sub chkHashBrown_Click() If (chkHashBrown.Value = True) Then txtHashBrown.Enabled = True កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 64 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute End If If (chkHashBrown.Value = False) Then txtHashBrown.Enabled = False txtHashBrown.Text = \"0\" End If End Sub +Check Box chkOnioRings Private Sub chkOnioRings_Click() If (chkOnioRings.Value = True) Then txtOnionRings.Enabled = True End If If (chkOnioRings.Value = False) Then txtOnionRings.Enabled = False txtOnionRings.Text = \"0\" End If End Sub Private Sub chkOnionRings_Click() If (chkOnionRings.Value = True) Then txtOnionRings.Enabled = True End If If (chkOnionRings.Value = False) Then txtOnionRings.Enabled = False កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 65 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute txtOnionRings.Text = \"0\" End If End Sub +Check Box chkOrange Private Sub chkOrange_Click() If (chkOrange.Value = True) Then txtOrange.Enabled = True End If If (chkOrange.Value = False) Then txtOrange.Enabled = False txtOrange.Text = \"0\" End If End Sub Private Sub chkPancakesSyrp_Click() If (chkPancakesSyrp.Value = True) Then txtPancakesSyrup.Enabled = True End If If (chkPancakesSyrp.Value = False) Then txtPancakesSyrup.Enabled = False txtPancakesSyrup.Text = \"0\" End If End Sub +Check Box chkPancakesSyrup កកសរំ ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 66 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute Private Sub chkPancakesSyrup_Click() If (chkPancakesSyrup.Value = True) Then txtPancakesSyrup.Enabled = True End If If (chkPancakesSyrup.Value = False) Then txtPancakesSyrup.Enabled = False txtPancakesSyrup.Text = \"0\" End If End Sub +Check Box chkPineappleStick Private Sub chkPineappleStick_Click() If (chkPineappleStick.Value = True) Then txtPineappleStick.Enabled = True End If If (chkPineappleStick.Value = False) Then txtPineappleStick.Enabled = False txtPineappleStick.Text = \"0\" End If End Sub +Check Box chkSalad Private Sub chkSalad_Click() If (chkSalad.Value = True) Then txtSalad.Enabled = True កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 67 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute End If If (chkSalad.Value = False) Then txtSalad.Enabled = False txtSalad.Text = \"0\" End If End Sub +Check Box chStrawberry Private Sub chkStrawberry_Click() If (chkStrawberry.Value = True) Then txtStrawberryShake.Enabled = True End If If (chkStrawberry.Value = False) Then txtStrawberryShake.Enabled = False txtStrawberryShake.Text = \"0\" End If End Sub +Check Box chkStrawberryShake Private Sub chkStrawberryShake_Click() If (chkStrawberryShake.Value = True) Then txtStrawberryShake.Enabled = True End If If (chkStrawberryShake.Value = False) Then txtStrawberryShake.Enabled = False កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 68 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute txtStrawberryShake.Text = \"0\" End If End Sub +Check Box chkTea Private Sub chkTea_Click() If (chkTea.Value = True) Then txtTea.Enabled = True End If If (chkTea.Value = False) Then txtTea.Enabled = False txtTea.Text = \"0\" End If End Sub +Check Box chkToastedBagel Private Sub chkToastedBagel_Click() If (chkToastedBagel.Value = True) Then txtToastedBagel.Enabled = True End If If (chkToastedBagel.Value = False) Then txtToastedBagel.Enabled = False txtToastedBagel.Text = \"0\" End If End Sub កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 69 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute +Check Box chkVanillaCone Private Sub chkVanillaCone_Click() If (chkVanillaCone.Value = True) Then txtVanillaCone.Enabled = True End If If (chkVanillaCone.Value = False) Then txtVanillaCone.Enabled = False txtVanillaCone.Text = \"0\" End If End Sub +Check chkVanillaShake Private Sub chkVanillaShake_Click() If (chkVanillaShake.Value = True) Then TxtVanillaShake.Enabled = True End If If (chkVanillaShake.Value = False) Then TxtVanillaShake.Enabled = False TxtVanillaShake.Text = \"0\" End If End Sub +Check Box chkBottleWatter Private Sub chkBottleWatter_Click() If (chkBottleWatter.Value = True) Then txtBottleWater.Enabled = True កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 70 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute End If If (chkBottleWatter.Value = False) Then txtBottleWater.Enabled = False txtBottleWater.Text = \"0\" End If End Sub Private Sub chkBottleWater_Click() If (chkBottleWater.Value = True) Then txtBottleWater.Enabled = True End If If (chkBottleWater.Value = False) Then txtBottleWater.Enabled = False txtBottleWater.Text = \"0\" End If End Sub ១៤. សរនសរក្ូែក្ុងន Text Box ែូចខាងនរកាម្៖ +ក្ូែក្ុងន Text Box TxtCheeseSadwich Private Sub TxtCheeseSandwich_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtCheeseSandwich.Text = \"\" txtCheeseSandwich.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtChickenSalad Private Sub TxtChickenSalad_AfterUpdate() If (txtChickenSalad.Text = \"\") Then កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 71 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute txtChickenSalad.Text = \"0\" End If End Sub Private Sub TxtChickenSalad_Change() If Not IsNumeric(txtChickenSalad.Value) Then txtChickenSalad.Text = \"\" End If End Sub Private Sub TxtChickenSalad_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtChickenSalad.Text = \"\" txtChickenSalad.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtCheckenSandwich Private Sub TxtChickenSandwich_AfterUpdate() If (txtChickenSandwich.Text = \"\") Then txtChickenSandwich.Text = \"0\" End If End Sub Private Sub TxtChickenSandwich_Change() If Not IsNumeric(txtChickenSandwich.Value) Then txtChickenSandwich.Text = \"\" កកសរំ ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 72 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute End If End Sub Private Sub TxtChickenSandwich_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtChickenSandwich.Text = \"\" txtChickenSandwich.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtChocolateMiilkShake Private Sub TxtChocolateMilkShake_AfterUpdate() If (TxtChocolateMilkShake.Text = \"\") Then TxtChocolateMilkShake.Text = \"0\" End If End Sub Private Sub TxtChocolateMilkShake_Change() If Not IsNumeric(TxtChocolateMilkShake.Value) Then TxtChocolateMilkShake.Text = \"\" End If End Sub Private Sub TxtChocolateMilkShake_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TxtChocolateMilkShake.Text = \"\" TxtChocolateMilkShake.SetFocus កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 73 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute End Sub +ក្ូែក្ុងន Text Box TxtChocolateMuffin Private Sub TxtChocolateMuffin_AfterUpdate() If (txtChocolateMuffin.Text = \"\") Then txtChocolateMuffin.Text = \"0\" End If End Sub Private Sub TxtChocolateMuffin_Change() If Not IsNumeric(txtChocolateMuffin.Value) Then txtChocolateMuffin.Text = \"\" End If End Sub Private Sub TxtChocolateMuffin_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtChocolateMuffin.Text = \"\" txtChocolateMuffin.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtCoffee Private Sub TxtCoffee_AfterUpdate() If (txtCoffee.Text = \"\") Then txtCoffee.Text = \"0\" កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 74 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute End If End Sub Private Sub TxtCoffee_Change() If Not IsNumeric(txtCoffee.Value) Then txtCoffee.Text = \"\" End If End Sub Private Sub TxtCoffee_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtCoffee.Text = \"\" txtCoffee.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtCola Private Sub TxtCola_AfterUpdate() If (txtCola.Text = \"\") Then txtCola.Text = \"0\" End If End Sub Private Sub TxtCola_Change() If Not IsNumeric(txtCola.Value) Then txtCola.Text = \"\" End If End Sub កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 75 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute Private Sub TxtCola_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtCola.Text = \"\" txtCola.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtFishSandwich Private Sub TxtFishSandwich_AfterUpdate() If (txtFishSandwich.Text = \"\") Then txtFishSandwich.Text = \"0\" End If End Sub Private Sub TxtFishSandwich_Change() If Not IsNumeric(txtFishSandwich.Value) Then txtFishSandwich.Text = \"\" End If End Sub Private Sub TxtFishSandwich_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtFishSandwich.Text = \"\" txtFishSandwich.SetFocus End Sub កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 76 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute Private Sub TxtFries_AfterUpdate() If (txtFries.Text = \"\") Then txtFries.Text = \"0\" End If End Sub +ក្ូែក្ុងន Text Box TxtFries Private Sub TxtFries_Change() If Not IsNumeric(txtFries.Value) Then txtFries.Text = \"\" End If End Sub Private Sub TxtFries_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtFries.Text = \"\" txtFries.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtHamburge Private Sub TxtHamburge_AfterUpdate() If (txtHamburge.Text = \"\") Then txtHamburge.Text = \"0\" End If End Sub កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 77 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute Private Sub TxtHamburge_Change() If Not IsNumeric(txtHamburge.Value) Then txtHamburge.Text = \"\" End If End Sub Private Sub TxtHamburge_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtHamburge.Text = \"\" txtHamburge.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtHashBrown Private Sub TxtHashBrown_AfterUpdate() If (txtHashBrown.Text = \"\") Then txtHashBrown.Text = \"0\" End If End Sub Private Sub TxtHashBrown_Change() If Not IsNumeric(txtHashBrown.Value) Then txtHashBrown.Text = \"\" End If End Sub កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 78 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute Private Sub TxtHashBrown_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtHashBrown.Text = \"\" txtHashBrown.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtOnionRings Private Sub TxtOnionRings_AfterUpdate() If (txtOnionRings.Text = \"\") Then txtOnionRings.Text = \"0\" End If End Sub Private Sub TxtOnionRings_Change() If Not IsNumeric(txtOnionRings.Value) Then txtOnionRings.Text = \"\" End If End Sub Private Sub TxtOnionRings_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtOnionRings.Text = \"\" txtOnionRings.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtOrange Private Sub TxtOrange_AfterUpdate() កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 79 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute If (txtOrange.Text = \"\") Then txtOrange.Text = \"0\" End If End Sub Private Sub TxtOrange_Change() If Not IsNumeric(txtOrange.Value) Then txtOrange.Text = \"\" End If End Sub Private Sub TxtOrange_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtOrange.Text = \"\" txtOrange.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtPancakesSyrup Private Sub TxtPancakesSyrup_AfterUpdate() If (txtPancakesSyrup.Text = \"\") Then txtPancakesSyrup.Text = \"0\" End If End Sub Private Sub TxtPancakesSyrup_Change() កកសរំ ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 80 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute If Not IsNumeric(txtPancakesSyrup.Value) Then txtPancakesSyrup.Text = \"\" End If End Sub Private Sub TxtPancakesSyrup_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtPancakesSyrup.Text = \"\" txtPancakesSyrup.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtPaymentMethod Private Sub TxtPaymentMethod_Change() If Not IsNumeric(txtPaymentMethod.Value) Then txtPaymentMethod.Text = \"\" End If End Sub +ក្ូែក្ុងន Text Box TxtPineappleStick Private Sub TxtPineappleStick_AfterUpdate() If (txtPineappleStick.Text = \"\") Then txtPineappleStick.Text = \"0\" End If End Sub Private Sub TxtPineappleStick_Change() កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 81 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute If Not IsNumeric(txtPineappleStick.Value) Then txtPineappleStick.Text = \"\" End If End Sub Private Sub TxtPineappleStick_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtPineappleStick.Text = \"\" txtPineappleStick.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtSalad Private Sub TxtSalad_AfterUpdate() If (txtSalad.Text = \"\") Then txtSalad.Text = \"0\" End If End Sub Private Sub TxtSalad_Change() If Not IsNumeric(txtSalad.Value) Then txtSalad.Text = \"\" End If End Sub Private Sub TxtSalad_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtSalad.Text = \"\" កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 82 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute txtSalad.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtStrawberryShake Private Sub TxtStrawberryShake_AfterUpdate() If (txtStrawberryShake.Text = \"\") Then txtStrawberryShake.Text = \"0\" End If End Sub Private Sub TxtStrawberryShake_Change() If Not IsNumeric(txtStrawberryShake.Value) Then txtStrawberryShake.Text = \"\" End If End Sub Private Sub TxtStrawberryShake_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtStrawberryShake.Text = \"\" txtStrawberryShake.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtTea Private Sub TxtTea_AfterUpdate() If (txtTea.Text = \"\") Then txtTea.Text = \"0\" End If កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 83 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute End Sub Private Sub TxtTea_Change() If Not IsNumeric(txtTea.Value) Then txtTea.Text = \"\" End If End Sub Private Sub TxtTea_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtTea.Text = \"\" txtTea.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtToastedBagel Private Sub TxtToastedBagel_AfterUpdate() If (txtToastedBagel.Text = \"\") Then txtToastedBagel.Text = \"0\" End If End Sub Private Sub TxtToastedBagel_Change() If Not IsNumeric(txtToastedBagel.Value) Then txtToastedBagel.Text = \"\" End If End Sub កកសរំ ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 84 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute Private Sub TxtToastedBagel_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtToastedBagel.Text = \"\" txtToastedBagel.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtVanillaCone Private Sub TxtVanillaCone_AfterUpdate() If (txtVanillaCone.Text = \"\") Then txtVanillaCone.Text = \"0\" End If End Sub Private Sub TxtVanillaCone_Change() If Not IsNumeric(txtVanillaCone.Value) Then txtVanillaCone.Text = \"\" End If End Sub Private Sub TxtVanillaCone_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtVanillaCone.Text = \"\" txtVanillaCone.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtVanillaShake Private Sub TxtVanillaShake_AfterUpdate() កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 85 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute If (TxtVanillaShake.Text = \"\") Then TxtVanillaShake.Text = \"0\" End If End Sub Private Sub TxtVanillaShake_Change() If Not IsNumeric(TxtVanillaShake.Value) Then TxtVanillaShake.Text = \"\" End If End Sub Private Sub TxtVanillaShake_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TxtVanillaShake.Text = \"\" TxtVanillaShake.SetFocus End Sub +ក្ូែក្ុងន Text Box TxtQTY1 Private Sub TxtQTY1_Change() If Not IsNumeric(txtQTY1.Value) Then txtQTY1.Text = \"\" End If End Sub Private Sub TxtQty1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtQTY1.Text = \"\" កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 86 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute End Sub +ក្ូែក្ុងន Text Box TxtQTY2 Private Sub TxtQTY2_Change() If Not IsNumeric(txtQTY2.Value) Then txtQTY2.Text = \"\" End If End Sub Private Sub TxtQty2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtQTY2.Text = \"\" End Sub +ក្ូែក្ុងន Text Box TxtQTY3 Private Sub TxtQTY3_Change() If Not IsNumeric(txtQTY3.Value) Then txtQTY3.Text = \"\" End If End Sub Private Sub TxtQty3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) txtQTY3.Text = \"\" End Sub កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 87 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute ចូរសរនសរក្ម្មវធិ ីម្ួយតែលម្គនន្ម ោះថា FormStudent System ម្គនរូបរាងែូចខាងនរកាម្៖ កកសរំ ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 88 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute ក្ំណែស់ ម្គា ល៖់ នៅនពលUser ម្ិន នច់ ុចបូែុង ចុោះន្ម ោះ label (បញ្ូច លបាននជាេជយ័ ) and label(នរៀបនរៀងនោយ…) ម្និ អាចនលាែបង្ហា ញបាននទ។ ក្តនាងនេទ នងិ នរជសី នរសី ថាន ក្ស់ ិក្ារ ក្រម្ិែសិក្ារ នវនសិក្ារ រែវូ នរបីបូែុងបញ្ញា រ។ កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 89 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
Search
