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