【正文】
t) 39。額定座位 39。根據(jù)變量Modify決定是插入新數(shù)據(jù),還是修改已有的數(shù)據(jù) If Modify = False Then .Insert 39。插入新數(shù)據(jù) Else 39。修改 .Update (nId) 39。修改已有的數(shù)據(jù)End IfEnd With Unload Me 39。關(guān)閉窗口 票價管理模塊代碼實現(xiàn) 票價管理部分代碼如下(信息添加過程):Private Sub Cmd_Add_Click() 39。初始化FrmDiscountEdit信息 = = = = = False = OriTerminalID RefreshDataEnd Sub(編輯窗體代碼):Private Sub Cmd_OK_Click() If Trim(txtUserName) = Then MsgBox 請輸入用戶名 Exit Sub End If If Len(txtPass) 5 Then MsgBox 密碼長度不能小于5 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認密碼不相同,請重新確認 = 0 = Len(txtPass2) Exit Sub End If 39。判斷是否存在同名用戶 With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(Trim(txtUserName)) = True Then MsgBox 用戶名已存在,請重新輸入 = 0 = Len(txtUserName) Exit Sub End If模塊中的程序代碼如下:Public adoCon As New Public adors As New 39。連接數(shù)據(jù)庫Public Sub main() Set adoCon = New = Provider=。Data Source= amp。 amp。 \ amp。 。Persist Security Info=False End Sub 界面設(shè)計系統(tǒng)主界面設(shè)計如下,主界面頂端顯示不同管理模塊,點擊則進入相應(yīng)界面。下端顯示系統(tǒng)當(dāng)前所處日期和時間。圖14 系統(tǒng)主界面設(shè)計設(shè)計總結(jié)通過設(shè)計車站售票系統(tǒng),讓我們這學(xué)期所學(xué)的課程得到鞏固和良好的吸收,我們對系統(tǒng)設(shè)計的理解得到進一步提高,完善了一些把握不準(zhǔn)確的知識點,加強了對團隊合作的理解明白了團隊合作的重要性,將這學(xué)期所學(xué)的知識應(yīng)用到實踐中去,也從中了解到了自己的不足(譬如。數(shù)據(jù)庫設(shè)計的完善問題,細節(jié)沒得到足夠重視等)。相信吃一墊長一智,我們會更加努力,在以后的學(xué)習(xí)和工作中吸取教訓(xùn),讓自己做的更好!當(dāng)然,這次我們設(shè)計的系統(tǒng)還是存在著許多的問題,比如說該系統(tǒng)的帳戶管理員的問題,都需要我們在以后的學(xué)習(xí)中進一步完善。參考文獻[1]高春艷,李俊民. Visual Basic信息系統(tǒng)開發(fā)案例精選 [M].北京:機械工業(yè)出版社, 2005[2]林卓然. Visual Basic程序設(shè)計教程 [M].北京:電子工業(yè)出版社,2004[3] [M].浙江:浙江大學(xué)出版社,2007[4]嚴輝,——SQL SERVER [M].北京:清華大學(xué)出版社,2007