vb課程設(shè)計報告-倉庫管理系統(tǒng)

VB程序設(shè)計實驗報告姓名：班級：學(xué)號：專業(yè)：軟件工程指導(dǎo)老師：2010年5月13日目錄實驗題目………………………3實驗要求………………………3設(shè)計思路………………………3實驗流程圖………………………3源程序清單………………………4運(yùn)行界面………………………6存在問題………………………6解決思路………………………6心得………………………6教師評語………………………6評分………………………6內(nèi)容摘要：倉庫管理系統(tǒng)要實現(xiàn)注冊登錄功能，注冊模塊應(yīng)連接數(shù)據(jù)庫，在登錄時要進(jìn)入數(shù)據(jù)庫判斷是否存在注冊用戶;進(jìn)入主功能界面后，有一個主界面，可實現(xiàn)四個小窗體的互相轉(zhuǎn)換；四個小窗體即分別實現(xiàn)了四個功能。實驗題目：倉庫管理系統(tǒng)實驗要求：倉庫管理系統(tǒng)要求實現(xiàn)注冊登陸功能，對倉庫信息的添加、刪除和修改，入庫和出庫的登記和查詢操作等。設(shè)計思路：把整個系統(tǒng)分為注冊、登錄、出入庫登記、修改、刪除、查詢等六個模塊；其中注冊模塊連接數(shù)據(jù)庫，登錄模塊應(yīng)進(jìn)入數(shù)據(jù)庫進(jìn)行判斷是否存在注冊用戶，方可進(jìn)入主功能界面；出入庫登記、修改、刪除、查詢等四個模塊分別用四個小窗體加載在一個主窗體上；并能實現(xiàn)窗體的轉(zhuǎn)換；出入庫登記、修改、刪除、查詢四個模塊中都要用到數(shù)據(jù)庫知識；另外還有如何連接的問題。涉及到的界面有：進(jìn)入主界面、注冊界面、登陸界面、主功能界面。實驗流程圖：進(jìn)入主窗體注冊窗體返回登錄窗體主功能窗體結(jié)束查詢 刪除 修改 出入庫登記 結(jié)束查詢 刪除 修改 出入庫登記 源程序清單：1.進(jìn)入主界面：PrivateSubCommand1_Click()frmLogin.ShowForm1.HideEndSubPrivateSubCommand2_Click()Form2.ShowForm1.HideEndSubPrivateSubCommand3_Click()EndEndSub2.注冊界面：PrivateSubCommand1_Click()IfText2.Text=Text3.TextThenData1.RefreshData1.Recordset.AddNewMsgBox"注冊成功"Text1.Text=""Text2.Text=""Text3.Text=""ElseMsgBox"密碼不一致，請重新輸入"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)建測試密碼是否正確OnErrorResumeNext'檢查正確密碼DimsuccessAsBooleansuccess=FalseDimfitAsString'查找用戶名fit="用戶名='"fit=fit+txtUserName.Text+"'"Data1.Recordset.FindFirstfit'找不到該用戶IfData1.Recordset.NoMatchThensuccess=FalseMsgBox"該用戶不存在!",vbCriticalExitSubElse'找到該用戶，但密碼錯誤OnErrorGoToenterDimOldPasAsStringOldPas=Data1.Recordset.Fields("用戶密碼").ValueIfOldPas=txtPassword.TextThenenter:success=TrueForm3.Show'以下三個變量保存以備后用UserName=txtUserName.Text'用戶名UserPas=txtPassword.Text'密碼'Purview=Data1.Recordset.Fields("用戶權(quán)限").Value'權(quán)限Elsesuccess=FalseEndIfEndIf'如果登陸失敗Ifsuccess=FalseThenMsgBox"密碼錯誤，再試一次！",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編號='"+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)入主界面：注冊界面：登陸界面：出入庫登記界面：修改界面：刪除界面：查詢界面：存在問題：