【正文】 ring Dim strArray() As String 表 11 出庫(kù)登記 _h 表 12 出庫(kù)登記 _d Set con = New 39。調(diào)入數(shù)據(jù)備份 Load main_sjbf = False End Sub Private Sub a6_Click() 39。 / amp。 SELECT * FROM [用戶 ] where userID=39。39。39。39。39。39。39。39。39。39。39。39。判斷用戶名稱(chēng)是否為空 MsgBox 請(qǐng)輸入用戶名稱(chēng) !, vbOKOnly + vbExclamation, 警告 Exit Sub Else sql = select * from 用戶 where UserID=39。添加用戶 sql = insert into 用戶 (UserID,UserPWD) values(39。) transactSQL (sql) MsgBox 添加成功！ , vbOKOnly + vbExclamation, 添加結(jié)果 39。 39。設(shè)置表頭 (0, 0) = 貨物編碼 (0, 1) = 貨物名稱(chēng) (0, 2) = 類(lèi)別 (0, 3) = 型號(hào) (0, 4) = 單位 (0, 5) = 倉(cāng)庫(kù)編碼 (0, 6) = 存放倉(cāng)庫(kù) (0, 7) = 入庫(kù)計(jì)劃單價(jià) (0, 8) = 出庫(kù)計(jì)劃單價(jià) (0, 9) = 原始倉(cāng)庫(kù) (0, 10) = 默認(rèn)貨位 (0, 11) = 警戒底線倉(cāng)庫(kù) (0, 12) = 警戒高線倉(cāng)庫(kù) For i = 0 To 12 39。為這個(gè) recordset 顯示當(dāng)前記錄位置 = Record: amp。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。 CStr() End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。驗(yàn)證代碼置于此處 39。設(shè)置每列寬度 (i) = 1400 Next i (12) = 2021 Set rs = transactSQL(sql) If = False Then 39。 sql = sql amp。判斷是否輸入舊密碼 MsgBox 請(qǐng)輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。 UserName sql = sql amp。 UserName amp。39。39。39。39。39。39。39。39。39。39。39。, my, adOpenKeyset, adLockOptimistic If = True And = True Then MsgBox 查無(wú)此人 , , 登陸信息 Else If myrs(userPWD) = denlu_pass Then 39。調(diào)入 入庫(kù)登記 c1_Click Case Is = ck 39。 / amp。創(chuàng)建記錄集 On Error GoTo TransactSQL_Error strConnection = Provider=。 ● 入庫(kù)登記統(tǒng)計(jì)表 入庫(kù)登記 _合計(jì) ● 貨物入庫(kù)年度統(tǒng)計(jì)表 入庫(kù)登記 _n ● 供貨單位年度供貨金額統(tǒng)計(jì)表 入庫(kù)登記 _w ● 倉(cāng)庫(kù)匯總表 倉(cāng)庫(kù) ● 出庫(kù)登記統(tǒng)計(jì)表 出庫(kù)登記 _合計(jì) ● 貨物出庫(kù)年度統(tǒng)計(jì)表 出庫(kù)登記 _h ● 收貨單位年度收貨金額統(tǒng)計(jì)表 出庫(kù)登記 _d 入庫(kù)登記 _合計(jì)表與出庫(kù)登記 _合計(jì)分別是以入庫(kù)登記表和出庫(kù)登記表為基礎(chǔ)的，所以此處不再描述；倉(cāng)庫(kù)匯總表主要由出庫(kù)表和入庫(kù)表建立關(guān)系獲得。 ， 選用具有大型數(shù)據(jù)庫(kù)安全機(jī)制的 數(shù)據(jù)庫(kù)系統(tǒng) ，提供各種級(jí)別的數(shù)據(jù)保護(hù)和權(quán)限控制方式，確保數(shù)據(jù)的安全可靠。 倉(cāng)庫(kù)貨物的信息量大，數(shù)據(jù)安全性和保密性要求高。 存在的問(wèn)題 雖然知道這個(gè)系統(tǒng)的主要模塊是什么，但是要實(shí)現(xiàn)這些模塊的功能還需要知道該怎么樣才能實(shí)現(xiàn)各個(gè)模塊的功能。 數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。這里用到了 Setect Statement) 以后如果需要這樣的查詢，只需要引用查詢名 ”monthquery”即可。 MSChart控件支持一下特性： 真三維表示； 支持所有主要的圖表類(lèi)型； 數(shù)據(jù)網(wǎng)絡(luò)成員支持隨機(jī) 數(shù)據(jù)，數(shù)據(jù)數(shù)組。 DataList控件 /DataCombo控件 DataList 控件是一個(gè)數(shù)據(jù)綁定列表框，它可以自動(dòng)地由一個(gè)附加數(shù)據(jù)源中的一個(gè)字段充填，并且可選擇地更新另一個(gè)數(shù)據(jù)源中一個(gè)相關(guān)表的一個(gè)字段。這些與 Data控件結(jié)合使用的控件，可以稱(chēng)之為“數(shù)據(jù)覺(jué)察控件”。這些控件包括： ● Data控件； ● ADO Data控件； ● DataList控件 /DataCombo控件； ● DataGrid控件； ● MSChart控件。當(dāng)窗體或控件上發(fā)生一個(gè)事件時(shí)， VB 立即把控制權(quán)交給程序員。 SQL語(yǔ)句 SQL語(yǔ)句概括起來(lái)可以分為數(shù)據(jù)操作語(yǔ)言，數(shù)據(jù)定義語(yǔ)言和數(shù)據(jù)控制語(yǔ)言幾大組，它們用于對(duì)數(shù)據(jù)庫(kù)數(shù)據(jù)的查詢，修改和更新， 是一種完備的數(shù)據(jù)處理語(yǔ)言。 ANSI 即 美國(guó)國(guó)家標(biāo)準(zhǔn)學(xué)會(huì)稱(chēng)， SQL 是關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的標(biāo)準(zhǔn)語(yǔ)言。 （ 2） 數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫(kù)中數(shù)據(jù)表的結(jié)構(gòu)，數(shù)據(jù)表的邏輯結(jié)構(gòu)包括：屬性名稱(chēng)、類(lèi)型、表示形式、缺省值、校驗(yàn)規(guī)則、是否關(guān)鍵字、可否為空等。產(chǎn)品保障信息網(wǎng)是實(shí)現(xiàn)物資儲(chǔ)運(yùn)全 過(guò)程可視化的前提。 現(xiàn)在對(duì)這類(lèi)系統(tǒng)的開(kāi)發(fā)與研究很有實(shí)用性的，基本上能滿足各企業(yè)的自身特點(diǎn)，對(duì)倉(cāng)庫(kù)的管理，同時(shí)，這類(lèi)系統(tǒng)在不斷地深入與發(fā)展，從而適用更多的企業(yè)，但是都沒(méi)有針對(duì)大眾的廣泛應(yīng)用，只能運(yùn)用某個(gè)企業(yè)或單位，所以這一點(diǎn)還有待于進(jìn)一步開(kāi)發(fā)與實(shí)踐。利用計(jì)算機(jī)能夠進(jìn)行信息管理，進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。 設(shè)計(jì)子系統(tǒng)有一個(gè)方便數(shù)據(jù)庫(kù)及其應(yīng)用創(chuàng)建的工具集。對(duì)數(shù)據(jù)庫(kù)的一切操作，都是通過(guò) DBMS進(jìn)行的。如果沒(méi)有索 引，則必須搜索整個(gè)源表；但有了索引之后，可以找到索引條目，并使用它來(lái)挑選所有合適的行。并非所有的關(guān)系都同樣符合要求，有些關(guān)系比其它關(guān)系更結(jié)構(gòu)化一些。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫(kù)并且功能完備、高效能。它是一個(gè)以計(jì)算機(jī)為工具，具有數(shù)據(jù)處理、預(yù)測(cè)、控制和輔助決策功能的信息系統(tǒng)。達(dá)到了數(shù)據(jù)的一致性和安全性，且應(yīng)用程序功能完備，符合了貨物進(jìn)出庫(kù)管理系統(tǒng)作 為 典型的信息管理系統(tǒng) (MIS)的要求。 使用計(jì) 算機(jī)對(duì)產(chǎn)品倉(cāng)庫(kù)信息進(jìn)行管理，具有著人工管理無(wú)法比擬的優(yōu)點(diǎn)，它檢索迅速、查找方便、存儲(chǔ)量大、保密性好、成本低等，可減少更多的人力物力和財(cái)力，這些都能夠極大地提高貨物倉(cāng)庫(kù)的管理效率，也是企業(yè)倉(cāng)庫(kù)管理科學(xué)化、正規(guī)化，與世界接軌的重要條件。 管理信息系統(tǒng)的基本結(jié)構(gòu)可以概括為四大部件，即信息源、信息處理器 、信息用戶和信息管理者。 數(shù)據(jù)庫(kù)由 DBMS（數(shù)據(jù)庫(kù)管理系統(tǒng)）處理， DBMS 則由開(kāi)發(fā)人員和用戶通過(guò)應(yīng)用程序直接或間接地使用。這些系統(tǒng)表存儲(chǔ)了數(shù)據(jù)庫(kù)中表的情況，每一個(gè)表中有多少列， 哪 一列是主關(guān)鍵 字，各 列的數(shù)據(jù)類(lèi)型的描述，它也存儲(chǔ)索引、關(guān)鍵字、規(guī)則和數(shù)據(jù)庫(kù)結(jié)構(gòu)的其他部分。 四、應(yīng)用元數(shù)據(jù) 存儲(chǔ)在數(shù)據(jù)庫(kù)中的第四種數(shù)據(jù)是應(yīng)用元數(shù)據(jù)，它用來(lái)存儲(chǔ)用戶窗體、報(bào)表、查詢和其他形式的查詢組件。關(guān)系模型主要是用二維表格結(jié)構(gòu)表達(dá)實(shí)體集，用外鍵表示實(shí)體間聯(lián)系。 運(yùn)行子系統(tǒng)處理用設(shè)計(jì)子系統(tǒng)開(kāi)發(fā)的應(yīng)用組件。以前倉(cāng)庫(kù)進(jìn)行信息管理的方式主要是基于文本、表格等紙介質(zhì)的手工處理，對(duì)管理者的管理權(quán)限等不受約束，這樣容易引起資料外泄。 技術(shù)應(yīng)用于倉(cāng)庫(kù)管理是實(shí)現(xiàn)倉(cāng)庫(kù)管理自動(dòng)化的有效途徑 倉(cāng)庫(kù)品種多，數(shù)量大。但據(jù)抽樣調(diào)查，這些軟件的主要作用體現(xiàn)在提高效率和規(guī)范管理方面，而對(duì)企業(yè)業(yè)務(wù)流程優(yōu)化和直接效益相關(guān)不高，倉(cāng)儲(chǔ)管理部門(mén)需要一套成本低、性能高、方便使用、功能完善的綜合倉(cāng)庫(kù)管理信息系統(tǒng)來(lái)提供幫助。 （ 3） 存儲(chǔ)設(shè)備和存儲(chǔ)空間組織：確定數(shù)據(jù)的存放地點(diǎn)、存儲(chǔ)路徑、存 儲(chǔ)設(shè)備等，備份方案，對(duì)多版本如何保證一致性和數(shù)據(jù)的完整性。標(biāo)準(zhǔn)的 SQL 命令，比如 Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成絕大多數(shù)數(shù)據(jù)庫(kù)的操作。至今以升級(jí)到了 。 利用 VB 的可視性特點(diǎn)，可方便的設(shè)計(jì)了程序的窗體界面，并在各個(gè)窗體中的合適位置繪制所需的每種控件。它使用 Recordset對(duì)象提供對(duì)存儲(chǔ)在數(shù)據(jù)庫(kù)中數(shù)據(jù)的訪問(wèn)。 當(dāng)與 Data控件相連接時(shí)， DataList、 DataCombo、 DataGrid 和 MSHFlexGrid控件都能管理記錄集合。這 時(shí)就要借助于 DaatGrid控件。 假定“ Orders”是數(shù)據(jù)庫(kù)文件中地一張表格，則 x=Dsum(“[Feight]”,”O(jiān)rder”.”[ship country]=?UK?”) SQL訪問(wèn)多個(gè)記錄地方法 在進(jìn)信息查詢和統(tǒng)計(jì)地過(guò)程中， 我們往往需要從記錄集中根據(jù)待定的條件提取其中的一部分記錄信息。 計(jì)算機(jī)通過(guò)增加了條件的 monthquery查詢組成了新的記錄集。另外， Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。 怎么樣解決方案 通過(guò)總體設(shè)計(jì)來(lái)規(guī)劃整個(gè)系統(tǒng)的結(jié)構(gòu)和流程 需求分析 本套應(yīng)用程序名稱(chēng)為“貨物進(jìn)出庫(kù)管理系統(tǒng)”，主要用于倉(cāng)庫(kù)貨物信息的管理，系統(tǒng)包括倉(cāng)庫(kù)管理、入庫(kù)、出庫(kù)、一些統(tǒng)計(jì)查詢和報(bào)表等幾部分組成。 報(bào)表是一個(gè)數(shù)據(jù)庫(kù)中最重要的功能之一，有了報(bào)表才能清楚地知道貨物的出入庫(kù)情況，在數(shù)據(jù)報(bào)表功能中包括出庫(kù)報(bào)表，倉(cāng)庫(kù)報(bào)表及經(jīng)辦人員報(bào)表等一些基本信息的打印，方便簡(jiǎn)潔。易懂易會(huì)。需要哪個(gè)功能的時(shí)候就點(diǎn)哪個(gè)菜單 ，相對(duì)應(yīng)的窗體會(huì)自動(dòng)彈出。返回記錄集 iflag = 1 Else sql 39。 date2 = amp。調(diào)入組合查詢 j4_Click Case Is = sjbf 39。39。39。39。39。39。39。39。39。39。39。39。39。判斷是否已經(jīng)存在用戶 MsgBox 這個(gè)用戶已經(jīng)存在！請(qǐng)重新輸入用戶名稱(chēng)！ , vbOKOnly + vbExclamation, 警告 = = = Exit Sub Else If Trim() Trim() Then 39。 amp。修改密碼 sql = update 用戶 set UserPWD = 39。 transactSQL (sql) MsgBox 密碼已經(jīng)修改！ , vbOKOnly + vbExclamation, 修改結(jié)果 Unload Me End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = End Sub 對(duì)于貨物信息的瀏覽，主要采用了 MSFlexGrid 控件，它是一種 Active 控件，該控件提供了表格式界面，處理數(shù)據(jù)相當(dāng)靈活，具有只讀數(shù)據(jù)綁定、對(duì) 表格數(shù)據(jù)進(jìn)行顯示和操作、數(shù)據(jù)分組排序、 Data 控件賦值、文本自動(dòng)換行等功能。想要忽略錯(cuò)誤，注釋掉下一行 39。錯(cuò)誤處理程序代碼置于此處 39