【文章內容簡介】 20電子郵件banknamevarchar20開戶行banknomvarchar30銀行賬號qtbzvarchar50備注貨物入庫表（Intostg）字段名數(shù)據(jù)類型字段長度允許空備注intonomvarchar20否入庫編號gdsnomvarchar50貨物編號gdsnamevarchar20貨物名稱jbrnamevarchar20經辦人rkdatevarchar20入庫日期rkpricfloat8單價rkshulfloat8數(shù)量gysnamevarchar50供應商名稱stgnamevarchar50存儲倉庫ddstagevarchar50存儲狀態(tài)elspricfloat8其他價格beizhuvarchar50備注貨物出庫表（Outstg）字段名數(shù)據(jù)類型字段長度允許空備注outnomvarchar20否出庫編號ordernomvarchar50其他編號gdsnomvarchar50貨物編號gdsnamevarchar20貨物名稱jbrnamevarchar20經辦人ckdatevarchar20出庫日期ckpricfloat8單價ckshulfloat8數(shù)量cstnamevarchar50客戶名稱stgnamevarchar50出庫倉庫ddstagevarchar50存儲狀態(tài)elspricfloat8其他價格beizhuvarchar50備注3 窗體及源代碼本應用程序由23個窗體組成，主要的分別是：主窗體，登錄窗體，入庫窗體，出庫窗體，庫存匯總，打印及查詢等窗體組成。通過運行程序首先進入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進入主窗體，在主窗體上有8個菜單項(菜單顯示了系統(tǒng)的所有功能)，分別對應各自的功能模塊窗體，包括重新登錄，基礎數(shù)據(jù)，入庫管理，出庫管理，倉庫管理，客戶管理，系統(tǒng)管理，幫助。需要哪個功能（窗體）就點哪個菜單，相對應的窗體會自動彈出。下面圖示為系統(tǒng)主窗體： 后面將逐一對介紹窗體界面及功能以及重要部分的源代碼。1 系統(tǒng)登錄源代碼功能說明 本窗口包含三個功能按鈕，輸入用戶名和密碼點擊“確定”登錄系統(tǒng)，點擊“取消”重新輸入可重新輸入用戶名和密碼，點擊“修改密碼”會打開“密碼修改”窗口，輸入一次舊密碼和兩次重復的新密碼完成密碼修改。窗口界面源代碼Private find_str As StringPrivate Sub cmdCancel_Click() 39。設置全局變量為 false 39。不提示失敗的登錄 If MsgBox(確定要取消登錄本系統(tǒng)嗎？, vbYesNo, 系統(tǒng)提示) = vbYes Then Unload Me End End IfEnd SubPrivate Sub cmdOK_Click() 39。On Local Error Resume Next Dim dl_str As String Dim dl As Dim Conn As Dim txtpwdstr As String Dim sqlpwdstr As String If = Then MsgBox 用戶名不能為空！ Exit Sub End If dl_str = SELECT [user], [Key].* From [Key] WHERE ([user] = 39。 amp。 amp。 39。) Set Conn = New = Provider=。Persist Security Info=False。User ID=39。 amp。 UserIdString amp。 39。Password=39。 amp。 UserPwdString amp。 39。Initial Catalog=39。 amp。 DbString amp。 39。Data Source=39。 amp。 DsString amp。 39。 Set dl = New dl_str, Conn, adOpenDynamic, adLockOptimistic If And Then MsgBox 用戶名不存在！, vbCritical, 警告 Exit Sub End If 39。檢查密碼 39。MsgBox pwdtext= amp。 amp。 { }password= amp。 (password).Value If CStr() = CStr((password).Value) Then 39。passUser = JbrNameStr = 39。作為默認的經辦人 Unload Me = 0 = 0 Else MsgBox 用戶名和密碼錯誤，請核對后再試！, vbCritical, 錯誤 = End IfEnd SubPrivate Sub Form_Load() 39。生成SQL的相關設置函數(shù) Link_SQL 39。On Local Error Resume Next 39。SysTemChuShiHua 39。系統(tǒng)初始化 find_str = SELECT * FROM [key] Set n1 = New = Provider=。Persist Security Info=False。User ID=39。 amp。 UserIdString amp。 39。Password=39。 amp。 UserPwdString amp。 39。Initial Catalog=39。 amp。 DbString amp。 39。Data Source=39。 amp。 DsString amp。 39。 Set rscourse = New find_str, n1, adOpenDynamic, adLockOptimistic = (user).Value (user).Value Do While Not If Then Exit Sub = (user).Value (user).Value If And Then MsgBox 沒有用戶，請創(chuàng)建一個，然后再試！, vbInformation, 系統(tǒng)提示 End End If LoopEnd Sub2 供應商信息源碼功能說明完成供應商信息的添加、修改、刪除功能，另外，在“新增入庫單窗”口的供應商欄目雙擊，可以快速查找和導入，方便入庫操作。窗口界面源代碼Private rscourse As Private n1 As Private selectStr As StringPrivate Sub Form_Load()On Local Error Resume NextLink_SQL 39。取出用于連接SQL的參數(shù) SetStgbt 39。顯示網格標題 find_str = SELECT * FROM Suppler ORDER BY gysnom Set n1 = New = Provider=。Persist Security Info=False。User ID=39。 amp。 UserIdString amp。 39。Initial Catalog=39。 amp。 DbString amp。 39。Data Source=39。 amp。 DsString amp。 39。 Set rscourse = New find_str, n1, adOpenDynamic, adLockOptimistic If And Then Exit Sub End If 39。從數(shù)據(jù)庫讀取數(shù)據(jù) With grdgysinfo ro = .Rows 1 .Rows = .Rows + 1 ro = .Rows 1 .TextMatrix(ro, 0) = (gysnom).Value .TextMatrix(ro, 1) = (gysname).Value .TextMatrix(ro, 2) = (lxrname).Value .TextMatrix(ro, 3) = (lxrzc).Value .TextMatrix(ro, 4) = (lxradr).Value .TextMatrix(ro, 5) = (lxrcity).Value .TextMatrix(ro, 6) = (postcode).Value .TextMatrix(ro, 7) = (telephone).Value .TextMatrix(ro, 8) = (faxnom).Value .TextMatrix(ro, 9) = ().Value .TextMatrix(ro, 10) = (bankname).Value .TextMatrix(ro, 11) = (banknom).Value .TextMatrix(ro, 12) = (ywbz).Value Do While Not If Then Exit Sub .Rows = .Rows + 1 ro = .Rows 1 If Then Exit Sub .TextMatrix(ro, 0) = (gysnom).Value .TextMatrix(ro, 1) = (gysname).Value .TextMatrix(ro, 2) = (lxrname).Value .TextMatrix(ro, 3) = (lxrzc).Value .TextMatrix(ro, 4) = (lxradr).Value .TextMatrix(ro, 5) = (lxrcity).Value .TextMatrix(ro, 6) = (postcode).Value .TextMatrix(ro, 7) = (telephone).Value .TextMatrix(ro, 8) = (faxnom).Value .TextMatrix(ro, 9) = ().Value .TextMatrix(ro, 10) = (bankname).Value .TextMatrix(ro, 11) = (banknom).Value .TextMatrix(ro, 12) = (ywbz).Value Loop End WithEnd SubPrivate Sub 刪除供應商_Click()On Local Error Resume NextDim mySql As String If MsgBox(您確定要刪除 amp。 selectStr amp。 的信息嗎？, vbYesNo, 提示信息：) = vbYes Then mySql = DELETE FROM Suppler WHERE gysname=39。 amp。 selectStr amp。 39。 mySql MsgBox 刪除成功！ Unload Me = 50 = 2300 Else Exit Sub End IfEnd SubPrivate Sub 退出_Click() Unload Me End SubPrivate Sub 新增供應商_Click()On Local Error Resume Next Dim