【正文】 ate Sub MakeTotal() = () + () + () () + () + () + () + () If () 0 Then = FormatNumber(( / ), 2) Else = 0 End If End Sub 39。計(jì)算翻頁 MaxPage = 1 total = NowPage = 0 39。初始化客戶 ReDim arrclient(1, 0) strsql = SELECT * FROM CLIENT ORDER BY NAME Set rs = (strsql) If Not () Or () Then inum = 0 Do While Not ReDim Preserve arrclient(1, inum) arrclient(0, inum) = rs(ID) arrclient(1, inum) = rs(NAME) inum = inum + 1 Loop End If Call GotoPage(NowPage, arrTraffic) End If End Sub Private Sub GotoPage(ByVal pg As Integer, ByVal arr) 39。 MaxPage + 1 amp。初始化品名 strsql = SELECT * FROM PRODUCT Set rs = (strsql) If Not () Or () Then inum = 0 Do While Not (rs(NAME)) (inum) = rs(ID) inum = inum + 1 Loop End If 39。初始化收貨人 strsql = SELECT * FROM CLIENT ORDER BY NAME DESC Set rs = (strsql) If Not () Or () Then inum = 0 Do While Not (rs(NAME)) (inum) = rs(ID) inum = inum + 1 Loop End If 39。初始化貨物類型 (包裝 ) (0) = 0 (散裝 ) (1) = 1 39。初始化發(fā)貨人 strsql = SELECT * FROM CLIENT ORDER BY NAME Set rs = (strsql) If Not () Or () Then inum = 0 Do Whi。初始化發(fā)站 strsql = SELECT * FROM STATION ORDER BY NAME Set rs = (strsql) If Not () Or () Then inum = 0 Do While Not (rs(NAME)) (inum) = rs(ID) inum = inum + 1 Loop End If 39。調(diào)整位置 = 0 = 0 = * = * Dim inum As Integer Dim strsql As String Dim DB As New clsDataBase Dim rs As New 39。初始化到站 strsql = SELECT * FROM STATION ORDER BY NAME DESC Set rs = (strsql) If Not () Or () Then inum = 0 Do While Not (rs(NAME)) (inum) = rs(ID) inum = inum + 1 Loop End If 39。 NowPage + 1 amp。 total amp。初始化品名 ReDim arrProduct(1, 0) strsql = SELECT * FROM PRODUCT Set rs = (strsql) If Not () Or () Then inum = 0 Do While Not ReDim Preserve arrProduct(1, inum) arrProduct(0, inum) = rs(ID) arrProduct(1, inum) = rs(NAME) inum = inum + 1 Loop End If 39。查詢運(yùn)單 Dim inum As Integer Dim rs As New ReDim arrTraffic(8, 0) 39。初始化發(fā)貨人 strsql = SELECT * FROM CLIENT ORDER BY NAME Set rs = (strsql) If Not () Or () Then inum = 0 Do While Not (rs(NAME)) (inum) = rs(ID) inum = inum + 1 Loop End If If 1 Then = 0 Else = 1 End If 39。初始化貨物類型 (包裝 ) (0) = 0 (散裝 ) (1) = 1 = 0 39。 Set rs = (strsql) If Not ( Or ) Then If Trim(txtPassword) = (PASSWORD) Then trycount = 0 LoginSucceeded = True Else trycount = trycount + 1 MsgBox 無效的密碼，請重試 !, , 信息提示 SendKeys {Home}+{End} End If Else trycount = trycount + 1 MsgBox 無效的 密碼，請重試 !, , 信息提示 SendKeys {Home}+{End} End If End If Else MsgBox 非法用戶 !, , 信息提示 Unload Me End If End Sub MAINFORM Private Sub MDIForm_Load() = 歡迎使用物流管理系統(tǒng) = * = * = * = * End Sub Private Sub MDIForm_Unload(Cancel As Integer) 39。 附錄代碼清單 各個(gè)功能模塊具體代碼： FRMLOGIN Private Sub cmdCancel_Click() LoginSucceeded = False Unload Me End Sub Private Sub cmdOK_Click() If trycount = 5 Then If (Trim(txtUserName) = ) Or (Trim(txtPassword) = ) Then trycount = trycount + 1 MsgBox 用戶名密碼不能為空 !, , 信息提示 Else Dim strsql As String Dim rs As New strsql = SELECT PASSWORD FROM MYUSERS WHERE USERNAME = 39。老師認(rèn)真負(fù)責(zé)的工 作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我們受益匪淺。 總之，在這次的畢業(yè)設(shè)計(jì)中，使我深刻體會到要做好一個(gè)完整的事情，需要有系統(tǒng)的思維方式和方法，對待一個(gè)新的問題，要耐心、要善于運(yùn)用已有的資源來充實(shí)自己。經(jīng)過這次的實(shí)習(xí)使我能夠完整地做出了一個(gè)系統(tǒng)。物流是專門的一門課程，在現(xiàn)代的物流概念中已經(jīng)延伸為一門特殊的學(xué)問。 新建 FRMCHANGEPASSWORD 表單，用來修改用戶密碼。單條打印按鈕則彈出 word 文檔的單條管理記錄，可以供用戶打印單條信息。修改后點(diǎn)擊修改按鈕，就可以保存客戶的修改信 息了。 新建 FRMCLIENTADD 表單，用來新增加物流系統(tǒng)的客戶管理，在該表單中，可以輸入客戶的各種信息，包括姓名、性別、工作單位、聯(lián)系電話、手機(jī)號碼、傳真、聯(lián)系地址和備注等信息。 新建 FRMTRAFFIC 表單，查看運(yùn)單表單，用來查詢、瀏覽、修改和刪除所接受的物流業(yè)務(wù)。 新建立 MAINFORM 這個(gè)表單是主界面表單，是物流系統(tǒng)操作管理的主要界面。 系統(tǒng)管理模塊：在系統(tǒng)管理模塊中，可以對物流管理系統(tǒng)中的車站信息和品名信息進(jìn)行設(shè)置，包括新增加信息、修改信息和刪除信息，已經(jīng)對用戶密碼修改的設(shè)置功能。 數(shù)據(jù)庫設(shè)計(jì) 設(shè)計(jì)系統(tǒng)的數(shù)據(jù)庫，本系統(tǒng)共包括五張數(shù)據(jù)表。一個(gè)更高級的連接形式稱為自連接。 修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等。 APP 對象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些 APP 提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項(xiàng)