【正文】 r10司機(jī)char10載重量char5負(fù)責(zé)區(qū)域char10聯(lián)系方式char11備注varchar50√ 退貨管理表列名數(shù)據(jù)類型長度允許空退貨單編號(hào)char8貨物編號(hào)char8客戶編號(hào)char8數(shù)量char10退貨時(shí)間datetime8操作員char10備注varchar50√ 駕駛員信息表列名數(shù)據(jù)類型長度允許空編號(hào)char8姓名char10年齡char8駕齡char8聯(lián)系方式char11備注varchar50√5物流配送中心管理信息系統(tǒng)的實(shí)現(xiàn) ，主要采用菜單控制的方式，通過主界面上的各個(gè)菜單項(xiàng)調(diào)用相應(yīng)的界面，再在這些界面中實(shí)現(xiàn)系統(tǒng)的各項(xiàng)功能。 運(yùn)行程序后，最先顯示的是登錄界面，輸入正確的用戶名及密碼后才能進(jìn)入系統(tǒng)。 amp。 39。 主界面中包含有各種菜單及一些快捷按鈕，通過點(diǎn)擊菜單的各個(gè)選項(xiàng)或點(diǎn)擊菜單下方的按鈕來調(diào)用其他的界面。server=ADMINIS63D99FD。pwd=sa。 amp。 39。PersistSecurityInfo=false。InitialCatalog=master。userid=sa。管理信息系統(tǒng)39。 sn(spid) Loop Else Exit Sub End IfLoad frmdbbackup = 數(shù)據(jù)庫備份文件(*.dat)pfpath = restore database 管理信息系統(tǒng) from disk=39。 pfpath amp。 with replaceIf = 0 Then MsgBox 數(shù)據(jù)庫恢復(fù)成功, vbInformation, 提示 Unload frmdbbackup Exit SubElse MsgBox 數(shù)據(jù)庫恢復(fù)失敗，請(qǐng)檢查數(shù)據(jù)庫是否正在打開, 26, 提示End IfEnd SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 2 = 管理信息系統(tǒng)End SubPrivate Sub mnucggl_Click(Index As Integer)Load frmcaigouEnd SubPrivate Sub mnuckgl_Click(Index As Integer)Load frmoutEnd SubPrivate Sub mnuclxxgl_Click(Index As Integer)Load frmcarinfroglEnd SubPrivate Sub mnuclztcx_Click(Index As Integer)Load frmcarsearchEnd SubPrivate Sub mnuddgl_Click(Index As Integer)Load frmorderEnd SubPrivate Sub mnudriver_Click(Index As Integer)Load frmdriverEnd SubPrivate Sub mnugysgl_Click(Index As Integer)Load frmsupplytableEnd SubPrivate Sub mnukczt_Click(Index As Integer)Load frmkucunstyleEnd SubPrivate Sub mnukcztgl_Click(Index As Integer)Load frmkucunstyleEnd SubPrivate Sub mnukhgl_Click(Index As Integer)Load frmcustomerEnd SubPrivate Sub mnurkgl_Click(Index As Integer)Load frmenterEnd SubPrivate Sub mnuthgl_Click(Index As Integer)Load frmreturnEnd SubPrivate Sub selectout_Click()Load FrmselectoutEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 1 Load frmenter Case 2 Load frmout Case 3 Load frmcarsearch Case 4 Load frmordersearch Case 5 Load frmkucunxinxi Case 6 Load frmsupplytable Case 7 Load frmcustomer Case 8 Load frmchangepwd Case 9 Unload MeEnd SelectEnd Sub 通過點(diǎn)擊采購入庫管理菜單中的供應(yīng)商管理選項(xiàng)。 供應(yīng)商管理供應(yīng)商管理界面的程序如下：Sub refreshform() Dim str2 As String str2 = select * from 供應(yīng)商 = str2 End SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 2End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 1 Load frmsupplysearch Case 2 Load frmsupplyedit Case 3 Dim i As Integer, r As Integer, c As Integer Dim newxls As Dim newbook As Dim newsheet As Set newxls = CreateObject() Set newbook = Set newsheet = (1) If 0 Then For i = 0 To 1 (1, i+ 1) = (i).Caption Next i Do Until r = For c = 0 To 1 = c (r + 1, c + 1) = (c) Next c Loop Dim myval As Long Dim mystr As String myval = MsgBox(是否保存該Excel表?, vbYesNo, 提示窗口) If myval = vbYes Then With CommonDialog1 .Filter = Excel文件(*.xls) .DialogTitle = 保存 .ShowSave End With End If Dim strname As String strname = If Len(strname) 0 Then strname End If On Error GoTo ErrSaveErrSave: Exit Sub MsgBox , , 提示窗口 End If Case 4 Dim str As String str = select * from 供應(yīng)商 = str If And Then GoTo line1 End If Dim k, m As Integer k = 0 Do While = False k = k + 1 Loop For m = 1 To k Nextline1: Dim strconn As String Dim As Set = New = 電子表格文件(.xls) |*.xls = 請(qǐng)選擇要導(dǎo)入的文件 If = 32755 Then Unload Me End Ifstrtemp=[odbc。Server=(local)。UID=sa。Data Source= amp。 。 strtemp amp。通過選擇查詢條件及輸入查詢信息，最終的查詢結(jié)果將在下方的列表框中顯示出來。 amp。 amp。 39。該界面中可以實(shí)現(xiàn)對(duì)數(shù)據(jù)庫中的供應(yīng)商信息的增加、保存、修改和刪除。通過該界面可以對(duì)數(shù)據(jù)庫中的信息實(shí)現(xiàn)編輯、查詢、導(dǎo)入及導(dǎo)出和瀏覽。Driver={SQL Server} 。Database=管理信息系統(tǒng)。PWD=sa] strconn = Provider =。 amp。 Extended Properties=Excel strconn strSql = insert into amp。 .車輛信息表 select * from [sheet1$] strSql, lngRecsAff, adExecuteNoRecords MsgBox 成功導(dǎo)入到SQL 數(shù)據(jù)庫中！, vbExclamation + vbOKOnly Set = Nothing Call refreshformCase 7 Call refreshform2 Case 8 If Then End If Call refreshform2 Case 9 If Then End If Call refreshform2 Case 10