【導(dǎo)讀】當(dāng)今社會(huì)是一個(gè)信息社會(huì)也是一個(gè)知識(shí)經(jīng)濟(jì)的時(shí)代。自從世界上第一臺(tái)計(jì)算?？梢?，世界已進(jìn)入了在計(jì)算機(jī)信息管理領(lǐng)域中激烈競爭的時(shí)代，應(yīng)用計(jì)算機(jī)。已經(jīng)是很普遍的事了，如同我們離不開的自行車、汽車一樣。我們應(yīng)該承認(rèn)，誰。各種競爭中立于不敗之地。用統(tǒng)一標(biāo)準(zhǔn)處理和提供信息，排除使用前后矛盾的不完整的數(shù)據(jù)。利用指定的數(shù)據(jù)關(guān)系式分析數(shù)據(jù)，客觀預(yù)測未來。向各級(jí)管理機(jī)構(gòu)提供不同詳細(xì)程度的報(bào)告，縮短分析和解釋時(shí)間。者選擇最佳的實(shí)施方案，以提高企業(yè)的經(jīng)濟(jì)效益。主要是預(yù)估費(fèi)用支出和對項(xiàng)目的經(jīng)濟(jì)效益進(jìn)行評(píng)價(jià)。用數(shù)據(jù)字典描述數(shù)據(jù)庫的設(shè)計(jì)，便于維護(hù)和修改。數(shù)據(jù)庫設(shè)計(jì)時(shí)需要綜合企業(yè)各個(gè)部門的存。關(guān)系型數(shù)據(jù)庫要盡量按關(guān)系規(guī)范化要求進(jìn)行數(shù)據(jù)庫設(shè)計(jì)，但為使效率高，規(guī)范化程度應(yīng)根據(jù)應(yīng)用環(huán)境和條件來決定。限，確保數(shù)據(jù)安全。這個(gè)去掉重復(fù)項(xiàng)的過程就稱之為規(guī)范化處理。于主關(guān)鍵字，或稱該數(shù)據(jù)元素唯一地被主關(guān)鍵字所標(biāo)識(shí)。

　　

【正文】 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。清除原有 With lsvTraffic . , , 序號(hào) , 600 . , , 日期 , 1200 . , , 品名 , 1200 . , , 車號(hào) , 1200 . , , 發(fā)站 , 1200 . , , 到站 , 1200 . , , 發(fā)貨人 , 1200 . , , 重量 , 1200 . , , 運(yùn)費(fèi) , 1200 .GridLines = True .(1).Alignment = lvwColumnLeft .(2).Alignment = lvwColumnCenter .(3).Alignment = lvwColumnCenter .(4).Alignment = lvwColumnCenter .(5).Alignment = lvwColumnCenter .(6).Alignment = lvwColumnCenter .(7).Alignment = lvwColumnCenter .(8).Alignment = lvwColumnCenter .(9).Alignment = lvwColumnCenter End With Dim iq As Integer Dim ia As Integer For iq = 0 To 49 Set Item = (, , ) If 50 * pg + iq = UBound(arr, 2) Then = (arr(0, 50 * pg + iq)) = (50 * pg + iq + 1) (1) = (arr(2, 50 * pg + iq)) For ia = 0 To UBound(arrProduct, 2) If arrProduct(0, ia) = (arr(3, 50 * pg + iq)) Then (2) = arrProduct(1, ia) End If Next (3) = (arr(1, 50 * pg + iq)) For ia = 0 To UBound(arrstation, 2) If arrstation(0, ia) = (arr(4, 50 * pg + iq)) Then (4) = arrstation(1, ia) End If Next For ia = 0 To UBound(arrstation, 2) If arrstation(0, ia) = (arr(5, 50 * pg + iq)) Then (5) = arrstation(1, ia) End If Next For ia = 0 To UBound(arrclient, 2) If arrclient(0, ia) = (arr(6, 50 * pg + iq)) Then (6) = arrclient(1, ia) End If Next (7) = (arr(7, 50 * pg + iq)) (8) = (arr(8, 50 * pg + iq)) End If Next If pg 0 Then = True Else = False End If If pg MaxPage Then = True Else = False End If = 共 amp。 total amp。 條記錄 共 amp。 MaxPage + 1 amp。 頁 當(dāng)前第 amp。 NowPage + 1 amp。 頁 End Sub FRMQUERY Private Sub Form_Load() = 0 = 0 = * = * 39。初始化品名 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。初始化發(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。初始化到站 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。初始化發(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 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。初始化時(shí)間 = DateAdd(m, 3, Date) = Date End Sub FRMTRAFFICUPDATE Private Sub Form_Load() 39。調(diào)整位置 = 0 = 0 = * = * Dim inum As Integer Dim strsql As String Dim DB As New clsDataBase Dim rs As New 39。初始化車類型 (高邊 ) (0) = 0 (蓬車 ) (1) = 1 39。初始化貨物類型 (包裝 ) (0) = 0 (散裝 ) (1) = 1 39。初始化品名 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。初始化發(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。初始化到站 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。初始化發(fā)貨人 strsql = SELECT * FROM CLIENT ORDER BY NAME Set rs = (strsql) If Not () Or () Then inum = 0 Do Whi