【正文】
需要添加的其它注冊(cè)人信息,此代碼能將信息 直接錄入數(shù)據(jù)庫(kù)oper表中,過(guò)程如下 (用戶名) = Trim(Text1(0).Text) (口令) = Val(Trim(Text1(1).Text)) (用戶類型) = Trim() recs = recs + 1 Else cond = 級(jí)別=39。 + Trim(Text1(0).Text) + 39。 39。每次從頭開(kāi)始查找 (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è)事件過(guò)程load和activate,它們的執(zhí)行過(guò)程是,在啟動(dòng)窗體時(shí)先執(zhí)行l(wèi)oad(盡執(zhí)行一次)事件過(guò)程,然后執(zhí)行activate事件過(guò)程。edkh窗體中,load事件過(guò)程用于設(shè)置全局變量和初始化工作,而activate事件過(guò)程中包含數(shù)據(jù)刷新語(yǔ)句。七.課程設(shè)計(jì)的考核方式及評(píng)分方法 (略).(.....)成立于2004年,專注于企業(yè)管理培訓(xùn)。提供60萬(wàn)企業(yè)管理資料下載,詳情查看:...../提供5萬(wàn)集管理視頻課程下載,詳情查看:...../zz/提供2萬(wàn)GB高清管理視頻課程硬盤(pán)拷貝,詳情查看:...../shop/2萬(wàn)GB高清管理視頻課程目錄下載:...../高清課程可提供免費(fèi)體驗(yàn),如有需要請(qǐng)于我們聯(lián)系。咨詢電話:020.值班手機(jī):.網(wǎng)站網(wǎng)址:....9 /