vb課程設(shè)計(jì)報(bào)告-倉(cāng)庫(kù)管理系統(tǒng)

VB程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告姓名：班級(jí)：學(xué)號(hào)：專業(yè)：軟件工程指導(dǎo)老師：2010年5月13日目錄實(shí)驗(yàn)題目………………………3實(shí)驗(yàn)要求………………………3設(shè)計(jì)思路………………………3實(shí)驗(yàn)流程圖………………………3源程序清單………………………4運(yùn)行界面………………………6存在問(wèn)題………………………6解決思路………………………6心得………………………6教師評(píng)語(yǔ)………………………6評(píng)分………………………6內(nèi)容摘要：倉(cāng)庫(kù)管理系統(tǒng)要實(shí)現(xiàn)注冊(cè)登錄功能，注冊(cè)模塊應(yīng)連接數(shù)據(jù)庫(kù)，在登錄時(shí)要進(jìn)入數(shù)據(jù)庫(kù)判斷是否存在注冊(cè)用戶;進(jìn)入主功能界面后，有一個(gè)主界面，可實(shí)現(xiàn)四個(gè)小窗體的互相轉(zhuǎn)換；四個(gè)小窗體即分別實(shí)現(xiàn)了四個(gè)功能。實(shí)驗(yàn)題目：倉(cāng)庫(kù)管理系統(tǒng)實(shí)驗(yàn)要求：倉(cāng)庫(kù)管理系統(tǒng)要求實(shí)現(xiàn)注冊(cè)登陸功能，對(duì)倉(cāng)庫(kù)信息的添加、刪除和修改，入庫(kù)和出庫(kù)的登記和查詢操作等。設(shè)計(jì)思路：把整個(gè)系統(tǒng)分為注冊(cè)、登錄、出入庫(kù)登記、修改、刪除、查詢等六個(gè)模塊；其中注冊(cè)模塊連接數(shù)據(jù)庫(kù)，登錄模塊應(yīng)進(jìn)入數(shù)據(jù)庫(kù)進(jìn)行判斷是否存在注冊(cè)用戶，方可進(jìn)入主功能界面；出入庫(kù)登記、修改、刪除、查詢等四個(gè)模塊分別用四個(gè)小窗體加載在一個(gè)主窗體上；并能實(shí)現(xiàn)窗體的轉(zhuǎn)換；出入庫(kù)登記、修改、刪除、查詢四個(gè)模塊中都要用到數(shù)據(jù)庫(kù)知識(shí)；另外還有如何連接的問(wèn)題。涉及到的界面有：進(jìn)入主界面、注冊(cè)界面、登陸界面、主功能界面。實(shí)驗(yàn)流程圖：進(jìn)入主窗體注冊(cè)窗體返回登錄窗體主功能窗體結(jié)束查詢 刪除 修改 出入庫(kù)登記 結(jié)束查詢 刪除 修改 出入庫(kù)登記 源程序清單：1.進(jìn)入主界面：PrivateSubCommand1_Click()frmLogin.ShowForm1.HideEndSubPrivateSubCommand2_Click()Form2.ShowForm1.HideEndSubPrivateSubCommand3_Click()EndEndSub2.注冊(cè)界面：PrivateSubCommand1_Click()IfText2.Text=Text3.TextThenData1.RefreshData1.Recordset.AddNewMsgBox"注冊(cè)成功"Text1.Text=""Text2.Text=""Text3.Text=""ElseMsgBox"密碼不一致，請(qǐng)重新輸入"Text1.Text=""Text2.Text=""Text3.Text=""EndIfEndSubPrivateSubCommand2_Click()Form2.HideForm1.ShowEndSubPrivateSubForm_Load()Data1.Visible=FalseCommand1.Enabled=FalseEndSubPrivateSubText3_Change()IfText3.Text=""ThenCommand1.Enabled=FalseElseCommand1.Enabled=TrueEndIfEndSub3.登錄界面：PrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLongPublicOKAsBooleanPrivateSubForm_Load()Data1.Visible=FalseDimsBufferAsStringDimlSizeAsLongsBuffer=Space$(255)lSize=Len(sBuffer)CallGetUserName(sBuffer,lSize)IflSize>0ThentxtUserName.Text=Left$(sBuffer,lSize)ElsetxtUserName.Text=vbNullStringEndIf'初始化數(shù)據(jù)連接'Data1.DatabaseName=DataPath'Data2.RecordSource="用戶管理"EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()'ToDo:創(chuàng)建測(cè)試密碼是否正確OnErrorResumeNext'檢查正確密碼DimsuccessAsBooleansuccess=FalseDimfitAsString'查找用戶名fit="用戶名='"fit=fit+txtUserName.Text+"'"Data1.Recordset.FindFirstfit'找不到該用戶IfData1.Recordset.NoMatchThensuccess=FalseMsgBox"該用戶不存在!",vbCriticalExitSubElse'找到該用戶，但密碼錯(cuò)誤OnErrorGoToenterDimOldPasAsStringOldPas=Data1.Recordset.Fields("用戶密碼").ValueIfOldPas=txtPassword.TextThenenter:success=TrueForm3.Show'以下三個(gè)變量保存以備后用UserName=txtUserName.Text'用戶名UserPas=txtPassword.Text'密碼'Purview=Data1.Recordset.Fields("用戶權(quán)限").Value'權(quán)限Elsesuccess=FalseEndIfEndIf'如果登陸失敗Ifsuccess=FalseThenMsgBox"密碼錯(cuò)誤，再試一次！",vbExclamation,"登錄"txtPassword.SetFocustxtPassword.SelStart=0txtPassword.SelLength=Len(txtPassword.Text)ExitSubElseOK=TrueMe.HideEndIfEndSub4.主功能界面：PrivateSubCommand1_Click()Data1.Recordset.AddNewText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""'MsgBox"操作成功"EndSubPrivateSubCommand11_Click()Text26.Text=""Text27.Text=""EndSubPrivateSubCommand2_Click()DataGrid1.RefreshDataGrid2.RefreshDataGrid3.RefreshData1.RefreshData1.UpdateRecordMsgBox"添加成功！",vbOKOnly,"提示"Adodc1.RefreshAdodc2.RefreshAdodc3.RefreshEndSubPrivateSubCommand3_Click()Data1.Recordset.AddNewText5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""EndSubPrivateSubCommand4_Click()DataGrid1.RefreshDataGrid2.RefreshDataGrid3.RefreshData1.RefreshData1.UpdateRecordMsgBox"添加成功！",vbOKOnly,"提示"Adodc1.RefreshAdodc2.RefreshAdodc3.RefreshEndSubPrivateSubCommand5_Click()Data3.Recordset.EditData3.UpdateRecordData1.RefreshMsgBox"確認(rèn)修改？"MsgBox"修改成功！"Adodc1.RefreshAdodc2.RefreshAdodc3.RefreshEndSubPrivateSubCommand6_Click()Data3.Recordset.MovePreviousEndSubPrivateSubCommand7_Click()Data3.Recordset.MoveNextEndSubPrivateSubCommand8_Click()Data4.Recordset.MovePreviousEndSubPrivateSubCommand9_Click()Data4.Recordset.MoveNextEndSubPrivateSubCommand10_Click()Data4.Recordset.DeleteMsgBox"確認(rèn)刪除？",vbOKCancel,"提示！"Data4.RefreshAdodc1.RefreshAdodc2.RefreshAdodc3.RefreshEndSubPrivateSubCommand12_Click()Dimt1AsString,t2AsStringIfOption1.ValueThent1=Text26.TextAdodc3.RecordSource="select*from產(chǎn)品信息where編號(hào)='"+t1+"'"Adodc3.RefreshElset2=Text27.TextAdodc3.RecordSource="select*from產(chǎn)品信息where品名='"+t2+"'"Adodc3.RefreshEndIfEndSubPrivateSubForm_Load()Adodc1.Visible=FalseAdodc2.Visible=FalseAdodc3.Visible=FalseData1.Visible=FalseData2.Visible=FalseData3.Visible=FalseData4.Visible=FalseEndSub運(yùn)行界面：進(jìn)入主界面：注冊(cè)界面：登陸界面：出入庫(kù)登記界面：修改界面：刪除界面：查詢界面：存在問(wèn)題：