物流運(yùn)輸管理系統(tǒng)-論文

《物流運(yùn)輸管理系統(tǒng)-論文》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。

1、物流運(yùn)輸管理系統(tǒng)?論文物流運(yùn)輸管理系統(tǒng)4.1用戶登陸表單新建立FRMLOGIN表單是用來(lái)確定進(jìn)入系統(tǒng)的身份驗(yàn)證用戶輸入密碼后，經(jīng)過(guò)系統(tǒng)確認(rèn)后，方可以進(jìn)人系統(tǒng)，否則進(jìn)入不了系統(tǒng)。防止無(wú)另的人員進(jìn)入系統(tǒng)中，違規(guī)操作業(yè)務(wù)。登陸窗體的控件及屬性取值如下:控件屬性屬性取值LabelNameLabelCaption密碼TextNametxtitemcommandbuttonNamecmdOkCaption確定commandbuttonNamecmdExitCaption取消代碼如下：//對(duì)押下“取消”鍵的處理//登

2、陸失敗PrivateSubcmdCancel_Click()LoginSucceeded二FalseEndSubPrivateSubcmdOK_Click()//對(duì)押下“確定”鍵的處理Iftrycount＜二5Then//如果輸入用戶名密碼出錯(cuò)次數(shù)小于5If(Trim(txtUserName)="")Or(Trim(txtPassword)="")Then//如果用戶名和密碼都為空trycount二trycount+1//出錯(cuò)次數(shù)加1MsgBox”用戶名密碼不能為空!”，，”信息提示”//輸出用戶密碼不

3、能為空的提示ElseDimstrsqlAsString//定義string類型的變量strsqlDimrsAsNewADODB.Recordset//定義一個(gè)ADO記錄集rsstrsql二”SELECTPASSWORDFROMMYUSERSWHEREUSERNAME二,n&Trim(txtUserName)&/*給變量strsql賦值，為"SELECTPASSWORDFROMMYUSERSWHEREUSERNAME二txlUserName*/Setrs二sys.DB.OpenRecordSet(strs

4、ql)//sys.DB.OpenRecordSet(strsql)向accass執(zhí)行查詢.執(zhí)行語(yǔ)句為strsql的值,rs為//返回結(jié)果IfNot(rs.BOFOrrs.EOF)Then//如果查詢有結(jié)果IfTrim(txtPassword)=rs.Fields("PASSWORD")Then//對(duì)密碼進(jìn)行判斷，如果密碼正確trycount二0/出錯(cuò)的次數(shù)賦值為0LoginSucceeded=True//登陸成功Me.Hide//隱藏登陸框MainForm.Show//主窗口顯示Elsetrycount

5、二trycount+1//否則出錯(cuò)次數(shù)加1MsgBox”無(wú)效的密碼，請(qǐng)重試!”，，”信息提示”//彈出提示框提示信息：無(wú)效的密碼，請(qǐng)重試！txtPassword.SetFocus//focus落在密碼處SendKeys”{Home}+{End}”//發(fā)送HOME和END鍵EndIf是不是與上面的那段重復(fù)了呀？Elsetrycount=trycount+1MsgBox”無(wú)效的密碼，請(qǐng)重試!”，，”信息提示”txtPassword.SetFocusSendKeys"{Home}+{End}"EndIf/%!

6、f/?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,/EndIfElseMsgBox”非法用戶！”，，”信息提示”//彈出提示框提示：非法用戶！UnloadMe//當(dāng)前窗口矢閉EndIfEndSub4?2物流系統(tǒng)操作管理表單新建立MAINFORM這個(gè)表單是主界面表單，是物流系統(tǒng)操作管理的主要界面。在這個(gè)界面中，用戶可以進(jìn)行系統(tǒng)的所有操作，通過(guò)主界面上端的菜單選擇進(jìn)入各個(gè)模塊。包括運(yùn)單增加、客戶管理、結(jié)算管理、系統(tǒng)管理和退出系統(tǒng)。代碼如下：*********1殳置窗口的寬度

7、禾口高度******************************PrivateSubMDIForm_Load()MainForm.Caption二”歡迎使用物流管理系統(tǒng)”MainForm.Left=Screen.Width*0.1MainForm.Top二Screen.Height*0.1MainForm.Width=Screen.Width*0.8MainForm.Height=Screen.Height*0.8EndSub********************閉所有的窗PrivateSubMD

8、IForm_Un1oad(Cance1AsInteger)'尖閉所冇窗體UnloadfrmBi1IManagcUnloadfrmChangePasswordUnloadfrmClientUnloadfrmClicntAddUnloadfrmClientUpdateUnloadfrmLoginUnloadfrmProductUnloadfrmQueryUnloadfrmRcportUnloadfrmStationUnloadfrmTraffi