客戶信息管理系統(tǒng)課程設(shè)計(jì)(參考版)
2025-04-11 22:34本頁(yè)面
【正文】 咨詢電話：020.值班手機(jī)：.網(wǎng)站網(wǎng)址：....9 / 9。七．課程設(shè)計(jì)的考核方式及評(píng)分方法 （略）.（.....）成立于2004年，專注于企業(yè)管理培訓(xùn)。每次從頭開始查找 (cond) If Not () And n Then MsgBox 存在完全相同的記錄, vbOKOnly, 信息提示 (n 1) Text1(0).SetFocus Exit Sub End If (n 1) (用戶名) = Trim(Text1(0).Text) (口令) = Val(Trim(Text1(1).Text)) (用戶類型) = Trim() End If Unload Me End Sub Private Sub mand2_click() Unload Me End Sub其它事件設(shè)計(jì)窗體上有兩個(gè)事件過程load和activate，它們的執(zhí)行過程是，在啟動(dòng)窗體時(shí)先執(zhí)行l(wèi)oad（盡執(zhí)行一次）事件過程，然后執(zhí)行activate事件過程。 + Trim(Text1(0).Text) + 39。 39。源記錄個(gè)數(shù)大于零 cond = 級(jí)別=39。 End If 此為將性別作查詢條件進(jìn)行查找End IfEnd Sub 此外還有很多其它條件的輸入，這里就不再列舉系統(tǒng)用戶設(shè)計(jì)主要代碼如下：Private Sub Command1_Click() If Trim(Text1(0).Text) = Or Trim(Text1(1).Text) = Or Trim() = Then MsgBox 數(shù)據(jù)項(xiàng)不全，請(qǐng)重新設(shè)置, vbOKOnly, 信息提示 Text1(0). Exit Sub End If If flag = i Then 39。 Else str = str + and 性別=39。 End IfElseIf = True Then If str = Then
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1