畢業(yè)設(shè)計論文—物流管理信息系統(tǒng)(編輯修改稿)
2025-01-06 13:49 本頁面
【文章內(nèi)容簡介】 員管理，密碼修改）；該模塊可以注冊新用戶，刪除現(xiàn)有的用戶，現(xiàn)有用戶密碼的修改。 （ 5）退出系統(tǒng) 后臺數(shù)據(jù)庫的表設(shè)計如表 至表 ： 表 tb_enter(用戶信息表 ) 字段名 數(shù)據(jù)類型 字段大小 操作員姓名 文本 20 職務(wù) 文本 20 密碼 文本 20 表 tb_KCXX(庫存信息表 ) 字段名 數(shù)據(jù)類型 字段大小 庫存編號 數(shù)字 長整型 貨品編號 文本 30 貨品名稱 文本 50 貨品規(guī)格 文本 30 記量單位 文本 20 數(shù)量 數(shù)字 長整型 單價 貨幣 入庫日期 日期∕時間 備注 備注 系統(tǒng)登錄 貨品管理 貨品查詢 數(shù)據(jù)報表 系統(tǒng)維護 倉庫管理系統(tǒng) 退出系統(tǒng) 指導(dǎo)老師：李湘華 學(xué)生：鄒靈蓉 表 tb_OUT(貨品出庫數(shù)據(jù)表 ) 字段名 數(shù)據(jù)類型 字段大小 出庫編號 文本 30 貨品編號 文本 50 貨品名稱 文本 30 計量單位 文本 20 數(shù)量 數(shù)字 長整型 單價 貨幣 金額 貨幣 出庫日期 日期∕時間 提貨單位 文本 50 提貨人 文本 20 經(jīng)手人 文本 20 備注 備注 表 tb_IN(貨品入庫數(shù)據(jù)表 ) 字段名 數(shù)據(jù)類型 字段大小 貨品編號 文本 30 貨品名稱 文本 50 貨品規(guī)格 文本 30 計量單位 文本 20 數(shù)量 數(shù)字 長整型 單價 貨幣 金額 貨幣 入庫日期 日期∕時間 經(jīng)手人 文本 20 備注 備注 表 tb_kcpd(貨品盤點表 ) 字段名 數(shù)據(jù)類型 字段大小 盤點編號 數(shù)字 長整型 盤點貨品 文本 50 貨品規(guī)格 文本 30 計量單位 文本 20 數(shù)量 數(shù)字 長整型 盤點日期 日期∕時間 盤點員 文本 20 貨品有無異常 文本 20 指導(dǎo)老師：李湘華 學(xué)生：鄒靈蓉 5 系統(tǒng)設(shè)計 圖 系統(tǒng)登錄界面 （ 1） 功能分析 這是用戶登錄系統(tǒng)的入口，用戶輸入用戶名及密碼，如果密碼正確，點擊登錄按鈕，則成功登錄，進入倉庫管理系統(tǒng)主界面（如圖 ）；如果用戶名輸入錯誤， Msgbox 則會提醒“對不起，沒有此用戶的信息”；如果密碼錯誤， Msgbox則會提醒“密碼不正確，請您確認后重新輸入”（如圖 ）； 圖 倉庫管理系統(tǒng)主界面 指導(dǎo)老師：李湘華 學(xué)生：鄒靈蓉 圖 （ 1）實現(xiàn)代碼： Private Sub Command1_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。 運用 API 函數(shù)SetWindowPos，來實現(xiàn)取消窗體置前的功能 On Error Resume Next Dim MPassword As String If = mr And = mingrisoft Then 39。判斷是否使用的是超級口令登錄 (2).Text = 當前操作員： mr Name1 = Unload Me Else = select * from tb_enter where M_Name =39。 amp。 amp。 39。 If 0 Then MPassword = (M_Password) If = MPassword Then 39。判斷數(shù)據(jù)的密碼是否正確 (2).Text = 當前操作員： + (M_Name) Name1 = 39。添加登錄日志 Open ( amp。 \系統(tǒng)日志 .ini) For Input As 1 Do While Not EOF(1) Line Input 1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) 指導(dǎo)老師：李湘華 學(xué)生：鄒靈蓉 Loop Close 1 TStr = TStr + + Name1 + + Format(Now, yyyymmdd hh:mm:ss) + + 系統(tǒng)登錄 + Chr(13) + Chr(10) Open ( amp。 \系統(tǒng)日志 .ini) For Output As 1 Print 1, TStr Close 1 Unload Me Else MsgBox 密碼不正確 ,請您確認后重新輸入 , , 庫存管理系統(tǒng) = End If Else MsgBox 對不起 沒有此用戶的信息 , , 倉儲信息管理系統(tǒng) = = End If End If End Sub 貨品管理模塊 在貨品管理模塊中，貨品入庫，貨品出庫和貨品盤點三個模塊是相似的模塊，有著相似的操作過程。以貨品入庫做為說明，實現(xiàn)代碼： Private Sub Cmd_Add_Click() For i = 0 To 5 39。單擊“添加”按鈕之后，清空文本框中的內(nèi)容 Text1(i).Text = Next i = select * from tb_in order by ID If 0 Then 39。將數(shù)據(jù)庫記錄移向最后一條 StrNum = Val((ID)) + 1 39。將入庫編號加 1 Select Case Len(Trim(StrNum)) 39。位數(shù)不足則補 0 Case 1 StrTemp = 00000 Case 2 StrTemp = 0000 Case 3 指導(dǎo)老師：李湘華 學(xué)生：鄒靈蓉 S
公司管理相關(guān)推薦
鄂ICP備17016276號-1