Access公司貨物采購與銷售管理系統(tǒng)說明書

1、精選優(yōu)質(zhì)文檔-傾情為你奉上公司貨物采購與銷售管理系統(tǒng)設(shè)計(jì)說明書一、引言公司貨物采購與銷售管理系統(tǒng)從功能來說，主要是實(shí)現(xiàn)對公司貨物的信息化管理系統(tǒng)。專門為公司職工設(shè)計(jì)使用，主要用于職工個(gè)人信息查詢，了解公司貨物進(jìn)出貨情況及庫存狀況，有利于提高公司職工工作效率，從而增加公司收益。二、系統(tǒng)功能1.職工可以憑自己的職工編號和密碼登錄公司貨物采購與銷售管理系統(tǒng)。2職工登陸后，可以查詢自己的個(gè)人信息及工資情況。3.在系統(tǒng)首頁可以便捷地了解公司貨物運(yùn)轉(zhuǎn)及管理情況。4.職工可以自行修改個(gè)人登錄密碼。5. 公司貨物采購與銷售管理系統(tǒng)擁有豐富的查詢信息，內(nèi)容詳細(xì)，界面美觀。三、數(shù)據(jù)表設(shè)計(jì)1、創(chuàng)建表如下： 2、設(shè)計(jì)

2、表間的關(guān)系在Access中要想管理和使用好表格中的數(shù)據(jù)，就必須建立表與表之間的關(guān)系，只有這樣才能將不同表中的數(shù)據(jù)連接在一起，并為建立查詢、創(chuàng)建窗體打下良好的基礎(chǔ)。（1） 單擊“工具”菜單，選擇“關(guān)系”菜單項(xiàng)，或直接單擊快捷鍵。（2） 在“顯示表”對話框中，單擊需創(chuàng)建關(guān)系的表添加到“關(guān)系”窗口中。（3） 選定“課級表”中的“班級號”字段，然后按住鼠標(biāo)將去拖到“學(xué)生表”中的“班級號”上。在出現(xiàn)的對話框中，選中“實(shí)施參照完整性”選項(xiàng)，然后單擊“創(chuàng)建”。用同樣的方法創(chuàng)建其他表之間的關(guān)系，其最終的關(guān)系圖如下：四、關(guān)鍵技術(shù)說明1.登錄界面窗體的判斷代碼：Private Sub 登錄_Click()'

3、;判斷是否輸入密碼，若否給出提示If IsNull(Me!密碼) ThenIf MsgBox("您沒有輸入密碼！", vbOKOnly, "請確定") = vbOK ThenMe!密碼.SetFocusExit SubEnd IfEnd If'判斷學(xué)號或教師號是否存在，若不存在給出提示；若存在，繼續(xù)判斷密碼是否正確，若不正確，給出提示；若正確，進(jìn)入系統(tǒng)。Dim SQLstring As StringDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetSQLstring = "sele

4、ct * from 登錄用戶 where 職工編號='" + Me!用戶名 + "'"rs.Open SQLstring, CurrentProject.Connection, adOpenKeyset, adLockOptimisticIf rs.RecordCount = 0 ThenIf MsgBox("用戶名不存在或選擇類型錯(cuò)誤", vbOKOnly, "請確定") = vbOK ThenMe!用戶名.SetFocusExit SubEnd IfEnd Ifrs.MoveFirstIf StrComp

5、(rs("密碼"), Me!密碼, vbBinaryCompare) <> 0 ThenIf MsgBox("密碼錯(cuò)誤", vbOKOnly, "請確定") = vbOK ThenMe!密碼.SetFocusExit SubEnd IfEnd Ifusername = Trim(rs("姓名")usersno = rs("職工編號")DoCmd.OpenForm "主窗體"DoCmd.Close acForm, "登錄界面"End SubPri

6、vate Sub 退出_Click()If MsgBox("您確定需要退出公司貨物采購與銷售管理系統(tǒng)嗎", vbOKCancel, "請確定") = vbOK Then DoCmd.QuitEnd Sub2.模塊定義全局變量的運(yùn)用代碼：Public username As StringPublic usersno As StringPublic selectinsertcoursecno As StringFunction SQLusersno()SQLusersno = usersnoEnd Function3.設(shè)計(jì)修改密碼的窗體：Private Su

7、b 修改密碼_Click()If IsNull(Me!原密碼文本框) ThenMsgBox "請輸入原來的密碼!", vbOKOnly, "請確定"Me!原密碼文本框.SetFocusExit SubEnd IfIf IsNull(Me!新密碼1文本框) ThenMsgBox "請輸入新密碼!", vbOKOnly, "請確定"Me!新密碼1文本框.SetFocusExit SubEnd IfIf IsNull(Me!新密碼2文本框) ThenMsgBox "請?jiān)俅屋斎胄旅艽a!", vbOKOn

8、ly, "請確定"Me!新密碼2文本框.SetFocusExit SubEnd IfIf StrComp(Me!新密碼1文本框, Me!新密碼2文本框, vbBinaryCompare) <> 0 ThenMsgBox "你兩次輸入的新密碼不一致!", vbOKOnly, "請確定"Me!新密碼1文本框.SetFocusExit SubEnd IfDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim SQLstring As StringSQLstring = &

9、quot;select * from 登錄用戶 where 職工編號='" + usersno + "'"rs.Open SQLstring, CurrentProject.Connection, adOpenKeyset, adLockOptimisticrs.MoveFirstIf StrComp(rs("密碼"), Me!原密碼文本框, vbBinaryCompare) <> 0 ThenMsgBox "你輸入的原密碼錯(cuò)誤!", vbOKOnly, "警告!"Me!原密碼

10、文本框.SetFocusExit SubEnd IfSet rs = NothingDim updatesqlstring As Stringupdatesqlstring = "update 登錄用戶 set 密碼='" + Me!新密碼1文本框 + "' where 職工編號='" + usersno + "'"DoCmd.SetWarnings FalseDoCmd.RunSQL updatesqlstringMsgBox "密碼修改成功!", vbOKOnly, "恭喜!"Me!原密碼文本框 = ""Me!新密碼1文本框 = ""Me!新密碼2文本框 = ""End Sub五窗體設(shè)計(jì)1.登陸窗體，職工