《數(shù)據(jù)庫原理與應(yīng)用》課程設(shè)計報告?zhèn)}庫管理系統(tǒng)

《《數(shù)據(jù)庫原理與應(yīng)用》課程設(shè)計報告?zhèn)}庫管理系統(tǒng)》由會員分享，可在線閱讀，更多相關(guān)《《數(shù)據(jù)庫原理與應(yīng)用》課程設(shè)計報告?zhèn)}庫管理系統(tǒng)（18頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、 《數(shù)據(jù)庫原理與應(yīng)用》 課程設(shè)計 分析與設(shè)計報告 題 目 倉庫管理系統(tǒng) 專業(yè)班級 網(wǎng)絡(luò)0801 學 號 姓 名 指導老師 完成時間 2011.1.14 目 錄 1. 任務(wù)設(shè)計與要求……………………………………………………1 2. 需求分析……………………………………………………………2 3. 系統(tǒng)總體設(shè)計…………………………………

2、……………………3 4. 數(shù)據(jù)庫設(shè)計…………………………………………………………4 5. 運行結(jié)果與測試……………………………………………………5 6.參考資料……………………………………………………………16 一． 設(shè)計任務(wù)與要求 1.1任務(wù)設(shè)計與要求 隨著科學技術(shù)的不斷發(fā)展和完善，計算機逐漸地應(yīng)用與各個領(lǐng)域。當然，現(xiàn)代化的辦公也離不開計算機這門先進的技術(shù)地參與，從而實現(xiàn)高效率的辦公目的。著眼于現(xiàn)實生活中的倉庫管理系統(tǒng)，我們選擇了倉庫管理這個題目作為本次課程設(shè)計的主題，為的是能從實踐中真正的考量自己對課本知識的掌握程度和靈活應(yīng)用的能力，以便在

3、以后的工作中能夠游刃有余。 倉庫管理系統(tǒng)的主要任務(wù)就是能夠?qū)崿F(xiàn)對貨物信息的錄入、修改和查詢的功能，以及對貨物資料、庫存資料進行簡單的管理，并且能夠?qū)崿F(xiàn)倉庫出庫表、入庫表的打印等功能。我們通過vb編程建立數(shù)據(jù)庫，數(shù)據(jù)表，表單，視圖，報表等類，建立一個倉庫基本信息管理及查詢的系統(tǒng)。這樣做的意義，就是能夠為倉庫和管理者提供便捷的服務(wù)，以便創(chuàng)造更大的社會價值。 二.需求分析 通過與多個中小企業(yè)后勤倉庫負責人進行溝通，詳細了解了企業(yè)的需求，得到該系統(tǒng)需要具備的功能，具體如下。 1.系統(tǒng)管理 l 可以將管理操作員，如增加操作員，設(shè)置修改操作員密碼； l 可以備份數(shù)據(jù)庫； l 可以恢復工

4、資數(shù)據(jù)。 2.數(shù)據(jù)管理 l 可以新增入庫單； l 可以新增出庫單； l 可以對入庫單進行管理； l 可以對出庫單進行管理； 設(shè)置系統(tǒng)使用的輔助數(shù)據(jù)，如部門、職稱、職務(wù)等參照數(shù)據(jù)。 3.查詢統(tǒng)計 l 可以查詢在制定期間的庫存信息； l 可以對指定期間內(nèi)的單據(jù)進行查詢； l 可以統(tǒng)計在指定期間內(nèi)的貨物信息； l 可以對貨物在制定期間內(nèi)進行出入統(tǒng)計 4.打印票據(jù) l 可以打印出庫票據(jù)； l 可以打印入庫票據(jù)。 4.登記信息 l 可以登記貨物信息； l 可以登記倉庫信息； l 可以登記供應(yīng)商信息； l 可以等級入庫經(jīng)辦人； l 可以等級出庫經(jīng)辦人。

5、 3 系統(tǒng)總體設(shè)計 通過前面的需求分析，對功能要求和性能要求有了大概了解，下面應(yīng)該確定系統(tǒng)的最終目標及初步的功能結(jié)構(gòu)。 （1） 系統(tǒng)目標 根據(jù)需求分析的描述及與用戶的溝通，最終確定系統(tǒng)要實現(xiàn)的目標如下。 l 界面簡潔、框架清晰、美觀大方； l 領(lǐng)會、快速的填寫倉庫信息、入庫、出庫資料； l 對用戶輸入的數(shù)據(jù)，系統(tǒng)進行嚴格的數(shù)據(jù)檢驗，盡可能排除人為輸入錯誤； l 實現(xiàn)查詢統(tǒng)計功能，用來查詢統(tǒng)計員工工資數(shù)據(jù)； l 最大限度地實現(xiàn)系統(tǒng)的易維護性和易操作性； l 確保系統(tǒng)數(shù)據(jù)安全。 （2） 系統(tǒng)功能結(jié)構(gòu) 本系統(tǒng)主要包括倉庫基本信息管理，數(shù)據(jù)處理，貨物信息錄入、查詢、修

6、改，庫存信息的查詢統(tǒng)計，系統(tǒng)管理等部分其系統(tǒng)結(jié)構(gòu)如圖所示。 （3） 構(gòu)建開發(fā)環(huán)境 本項目開發(fā)環(huán)境如下： l Microsoft Visual Basic 6.0中文版； l Access數(shù)據(jù)庫。Access是運行在Windows系列平臺之上的具備了多媒體與開放性的數(shù)據(jù)庫系統(tǒng)。它的直觀性、易用性、開放性及功能強大的特點，使其成為目前最受歡迎的PC數(shù)據(jù)庫軟件。 （4） 系統(tǒng)特色介紹 本系統(tǒng)特色有： l 操作簡單，符合Windows的風格的操作界面，使用戶容易上手； l 減少數(shù)據(jù)重復錄入，大部分數(shù)據(jù)都只需錄入一次，即可在其他模塊中引用。如供應(yīng)商、貨物資料、庫存等

7、信息，都只需錄入一次。 （5） 處理流程 以“判斷能否錄入貨物信息”為例，可描述如下： l 處理過程：“判斷能否錄入貨物信息”； l 說明：根據(jù)貨物編號判斷是否屬于有效貨物； l 輸入：貨物編號、貨物貨物名稱、類別等有效信息； l 輸出：能否錄入貨物信息； l 處理：如果屬于有效貨物編號，即可錄入，否則不可錄入。 （6） 主要功能的原理 用戶管理主要采用MicrosoftVisualBasic6.0制作的登錄界面和Access制作的數(shù)據(jù)庫對員工的基本信息進行管理；應(yīng)用VB對用戶的添加、刪除、修改進行操作。 4.數(shù)據(jù)庫設(shè)計 4.1概念結(jié)構(gòu)設(shè)計 供應(yīng)商信息表：供應(yīng)商編號，供

8、應(yīng)商地址，供應(yīng)商名稱，電話，聯(lián)系人姓名，聯(lián)系人職稱 貨物信息表：貨物編號，貨物名稱，貨物數(shù)量，類別，最低限量，最高限量 種類表：類別編號，類別名稱 客戶信息表：客戶編號，客戶名稱，聯(lián)系人，客戶電話 倉庫信息表：倉庫編號，倉庫名稱，倉庫地址，用戶編號 用戶信息表：用戶名，用戶密碼，用戶權(quán)限 庫存信息表：庫存編號，貨物編號，庫存數(shù)量，倉庫編號 入庫單：入庫單編號，貨物編號，經(jīng)辦人編號，入庫時間，貨物數(shù)量，倉庫編號，供應(yīng)商編號 出庫單：出庫單編號，貨物編號，經(jīng)辦人編號，出庫時間，出庫單價，客戶編號，倉庫編號 4.2邏輯結(jié)構(gòu)設(shè)計 根據(jù)關(guān)系規(guī)范化理論和E-R轉(zhuǎn)換成關(guān)系模型的規(guī)則，整體

9、E-R圖可轉(zhuǎn)換得到下列關(guān)系模式： 供應(yīng)商（供應(yīng)商編號，供應(yīng)商地址，供應(yīng)商名稱，電話，聯(lián)系人姓名，聯(lián)系人職稱） 貨物（貨物編號，貨物名稱，貨物數(shù)量，類別，最低限量，最高限量） 種類（類別編號，類別名稱） 客戶（客戶編號，客戶名稱，聯(lián)系人，客戶電話） 倉庫（倉庫編號，倉庫名稱，倉庫地址，用戶編號） 用戶（用戶名，用戶密碼，用戶權(quán)限） 庫存（庫存編號，貨物編號，庫存數(shù)量，倉庫編號） 入庫單（入庫單編號，貨物編號，經(jīng)辦人編號，入庫時間，貨物數(shù)量，倉庫編號，供應(yīng)商編號） 出庫單（出庫單編號，貨物編號，經(jīng)辦人編號，出庫時間，出庫單價，客戶編號，倉庫編號） 4.3物理結(jié)構(gòu)設(shè)計 1.

10、供應(yīng)商信息表 列名 數(shù)據(jù)類型 長度 主鍵或外鍵 約束 中文名稱 Offerno varchar 20 主鍵 not null 供應(yīng)商編號 Offername varchar 30 not null 供應(yīng)商名稱 Address varchar 20 not null 供應(yīng)商地址 Tel varchar 20 Not null 電話 Partner varchar 50 Not null 聯(lián)系人姓名 Post varchar 20 Not null 聯(lián)系人職稱 2.客戶信息表 列名 數(shù)據(jù)類型 長

11、度 主鍵或外鍵 約束 中文名稱 Cno varchar 10 主鍵 Not null 客戶編號 Cname varchar 20 Not null 客戶名稱 Partner varchar 20 Not null 聯(lián)系人 Tel varchar 20 Not null 客戶電話 3.貨物信息表 列名 數(shù)據(jù)類型 長度 主鍵或外鍵 約束 中文名稱 Gno varchar 20 主鍵 Not null 貨物編號 Gname varchar 20 Not null 貨物名稱 Gnum varchar

12、 10 Not null 貨物數(shù)量 Gcla varchar 10 Not null 類別 Min varchar 20 Not null 最低限量 Max varchar 20 Not null 最高限量 4.倉庫信息表 列名 數(shù)據(jù)類型 長度 主鍵或外鍵 約束 中文名稱 Sno varchar 10 外鍵 Not nul 倉庫編號 Sname varchar 20 Not null 倉庫名稱 Sadd varcahr 30 Not null 倉庫地址 Uname varcahr 2

13、0 外鍵 Not null 用戶名 5.用戶信息表 列名 數(shù)據(jù)類型 長度 主鍵或外鍵 約束 中文名稱 Uname varchar 10 主鍵 Not null 用戶名 Upass varchar 20 Not null 用戶密碼 Uword varchar 10 Not null 用戶權(quán)限 6.種類信息表 列名 數(shù)據(jù)類型 長度 主鍵或外鍵 中文名稱 Clno varchar 20 主鍵 類別編號 Clname Varchar 10 類別名稱 7.入庫單信息表 列名 數(shù)據(jù)類型 長度 主鍵或外鍵

14、 中文名稱 Inputno varchar 20 主鍵 入庫單編號 Gno varchar 20 貨物編號 Passnerno varchar 10 經(jīng)辦人編號 Inputtime varchar 10 入庫時間 number varchar 10 貨物數(shù)量 Sno varchar 10 倉庫編號 Offerno varchar 10 供應(yīng)商編號 8.出庫單編號 列名 數(shù)據(jù)類型 長度 主鍵或外鍵 中文名稱 Outputno varchar 20 主鍵 出庫單編號 Gno varchar

15、 20 貨物編號 Passnerno varchar 10 經(jīng)辦人編號 Outputtime varchar 10 出庫時間 Cno varchar 10 客戶編號 Sno varchar 10 倉庫編號 5 運行結(jié)果和測試 （1）倉庫管理系統(tǒng)運行界面和對應(yīng)原代碼（上面為運行界面，對應(yīng)原代碼在下面）如以下各圖所示： 圖1. 登陸界面 Private Sub Form_Load() On Error Resume Next Adodc1.ConnectionStrin

16、g = DataConnectString Adodc1.RecordSource = "select * from 用戶管理 where 用戶名=username" Adodc1.Refresh End Sub Private Sub Modify_Click() If OldPas.Text <> UserPas Then MsgBox "原密碼錯誤!" Exit Sub End If If NewPas1.Text <> NewPas2.Text Then MsgBox "兩次密碼

17、不一致!" Exit Sub End If On Error Resume Next 查找用戶名 If Adodc1.Recordset.Fields("用戶名") = UserName Then 設(shè)置新密碼 Set adoRs = adoCon.Execute("UPDATE 用戶管理 SET 用戶密碼= " + NewPas1.Text + " where 用戶名=" + UserName + "") Adodc1.Refresh MsgBox "修改成功!

18、" End If Unload Me End Sub Private Sub NewPas1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 如果按下的是回車鍵，則光標落到文本框當中 NewPas2.SetFocus End If End Sub 圖2. 登記信息 圖3.單據(jù)管理 圖4.查詢統(tǒng)計 圖2.圖3.圖4的原代碼

19、如下所示： Private Sub 操作信息_Resize() Shape1.left = 0 Shape1.width = 操作信息.width Shape2.left = 0 Shape2.width = 操作信息.width End Sub Private Sub 查看庫存狀況_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub M庫存狀況_Cl

20、ick End Sub Private Sub 查看日志_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub If 權(quán)限類別(15) <> 0 Then M查看日志_Click End Sub Private Sub 查詢統(tǒng)計_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1

21、 Then Exit Sub End Sub Private Sub 創(chuàng)建新倉庫_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub If 權(quán)限類別(11) <> 0 Then M倉庫信息_Click End Sub Private Sub L單據(jù)查詢_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single

22、) If Button <> 1 Then Exit Sub If 權(quán)限類別(6) <> 0 Then M單據(jù)查詢_Click End Sub Private Sub 當前日期_Click() 表.Show vbModal End Sub Private Sub 登記新供應(yīng)商_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub If 權(quán)限類別(4) <> 0 Then M供應(yīng)商_Clic

23、k End Sub Private Sub 登記新貨物_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub If 權(quán)限類別(12) <> 0 Then M貨物信息_Click End Sub Private Sub 登記新客戶_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1

24、 Then Exit Sub If 權(quán)限類別(5) <> 0 Then M往來客戶_Click End Sub Private Sub 登記新職員_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub If 權(quán)限類別(10) <> 0 Then 職員信息.Show vbModal End Sub Private Sub 給作者寫信_MouseDown(Button As Integer, Shift

25、As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub ShellExecute 0, "", "mailto:smmhLiu@", "", "", 5 End Sub Private Sub 更換用戶登陸_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub frmLogin.Show vbModal End Sub P

26、rivate Sub L貨物出入統(tǒng)計_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub If 權(quán)限類別(6) <> 0 Then M貨物出入統(tǒng)計_Click End Sub Private Sub L庫存查詢_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit S

27、ub If 權(quán)限類別(6) <> 0 Then M庫存查詢_Click End Sub 圖6.庫存狀況 Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() Adodc1.ConnectionString = DataConnectString SQL = Adodc1.RecordSource Set DataGrid1.DataSource = Adodc1 Adodc1.Refresh

28、 Adodc1.Visible = False Adodc2.ConnectionString = DataConnectString Set DataCombo1.RowSource = Adodc2 DataCombo1.ListField = "倉庫名稱" Adodc2.Refresh Adodc2.Visible = False Adodc3.ConnectionString = DataConnectString Set DataGrid1.DataSource = Adodc1

29、 Adodc1.Refresh Adodc1.Visible = False initdatagrid1 End Sub 圖7.入庫單 rivate Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) On Error Resume Next Dim caption As String caption = DataGrid1.Columns(ColIndex).caption

30、If caption = "經(jīng)辦人" Then caption = "姓名" If caption = "金額" Then Exit Sub If caption = "備注" Then caption = "入庫單.備注" If caption = "編號" Then caption = "入庫單.編號" If caption = "供應(yīng)商" Then caption = "供應(yīng)商名稱" If caption = "存放倉庫" Then caption = "倉庫名稱" Adodc1.RecordSource = SQL

31、 + " order by " + caption order(ColIndex) = True - order(ColIndex) If order(ColIndex) = True Then Adodc1.RecordSource = Adodc1.RecordSource + " ASC" Else Adodc1.RecordSource = Adodc1.RecordSource + " DESC" End If SaveInit Adodc1.Refresh

32、 ResumeInit End Sub Private Sub Form_Load() Adodc1.ConnectionString = DataConnectString SQL = Adodc1.RecordSource Set DataGrid1.DataSource = Adodc1 Adodc1.Refresh initdatagrid1 通過權(quán)限來初始化控件性質(zhì) If 權(quán)限類別(0) = 0 Then B新增入庫單.Enabled = False If

33、 權(quán)限類別(1) = 0 Then DataGrid1.AllowUpdate = False If 權(quán)限類別(2) = 0 Then 退出入庫單.Enabled = False 刪除入庫單.Enabled = False End If If 權(quán)限類別(8) = 0 Then 打印入庫單.Enabled = False End Sub 圖8.出庫單 Private Sub DataGrid1_HeadClick(ByVal ColIndex As Int

34、eger) On Error Resume Next Dim caption As String caption = DataGrid1.Columns(ColIndex).caption If caption = "經(jīng)辦人" Then caption = "姓名" If caption = "金額" Then Exit Sub If caption = "備注" Then caption = "出庫單.備注" If caption = "編號" Then caption = "出庫單.編號"

35、 If caption = "客戶" Then caption = "客戶名稱" If caption = "存放倉庫" Then caption = "倉庫名稱" Adodc1.RecordSource = SQL + " order by " + caption order(ColIndex) = True - order(ColIndex) If order(ColIndex) = True Then Adodc1.RecordSource = Adodc1.RecordSource + " ASC"

36、 Else Adodc1.RecordSource = Adodc1.RecordSource + " DESC" End If SaveInit Adodc1.Refresh ResumeInit End Sub Private Sub Form_Load() Adodc1.ConnectionString = DataConnectString SQL = Adodc1.RecordSource Set DataGrid1.DataSource = Adodc1

37、 Adodc1.Refresh initdatagrid1 通過權(quán)限來初始化控件性質(zhì) If 權(quán)限類別(0) = 0 Then B新增出庫單.Enabled = False If 權(quán)限類別(1) = 0 Then DataGrid1.AllowUpdate = False If 權(quán)限類別(2) = 0 Then 退出出庫單.Enabled = False 刪除出庫單.Enabled = False End If If 權(quán)限類別(8) = 0 Then 打印

38、出庫單.Enabled = False End Sub 圖9.單據(jù)查詢 Private Sub Form_Load() On Error GoTo quit Adodc1.ConnectionString = DataConnectString Adodc1.Visible = False Adodc2.ConnectionString = DataConnectString Adodc2.Visible = False Adodc1.RecordSource = "s

39、elect 出庫單.編號,貨物信息.貨物名稱,貨物信息.貨物類別,貨物信息.貨物規(guī)格,職員信息.姓名 as 領(lǐng)走人,出庫單.出庫時間,出庫單.出庫單價,貨物信息.計量單位,出庫單.出庫數(shù)量,(出庫單.出庫單價*出庫單.出庫數(shù)量) as 金額,客戶.客戶名稱 as 部門,出庫單.定單狀況,出庫單.備注 as 工程名稱 from 出庫單,貨物信息,職員信息,客戶,倉庫 where 貨物信息.編號=出庫單.貨物編號 and 職員信息.編號=出庫單.經(jīng)辦人編號 and 客戶.編號=出庫單.經(jīng)辦人編號 and 倉庫.編號=出庫單.倉庫編號" Set DataGrid1.DataS

40、ource = Adodc1 Adodc1.Refresh 制單時間.Year = Year(Date) 制單時間.Month = Month(Date) 制單時間.Day = Day(Date) T制單時間.Text = "無限制" T貨物數(shù)量.Text = "無限制" T其它金額.Text = "無限制" quit: End Sub 圖10.供應(yīng)商信息 Private Sub DataGrid1_AfterDelete() 寫入系統(tǒng)日志

41、 fMainForm.WriteLog ("刪除供應(yīng)商") End Sub Private Sub DataGrid1_AfterUpdate() 寫入系統(tǒng)日志 fMainForm.WriteLog ("更新供應(yīng)商") End Sub 圖11.增加新貨物 Private Sub 增加新貨物_Click() If 貨物編號.Text = "" Then MsgBox "請?zhí)顚懾浳锞幪?", vbQuestion: Exit Sub If 貨物名稱.Text = "" Then

42、 MsgBox "請?zhí)顚懾浳锩Q!", vbQuestion: Exit Sub If 最低限量.Text = "" Then MsgBox "請?zhí)顚懽畹拖蘖?", vbQuestion: Exit Sub If 最高限量.Text = "" Then MsgBox "請?zhí)顚懽罡呦蘖?", vbQuestion: Exit Sub If 計量單位.Text = "" Then MsgBox "請?zhí)顚懹嬃繂挝?", vbQuestion: Exit Sub On Error Resume Next SaveInit

43、 Adodc2.Recordset.AddNew Adodc2.Recordset.Fields("編號") = 貨物編號.Text Adodc2.Recordset.Fields("貨物名稱") = 貨物名稱.Text Adodc2.Recordset.Fields("貨物類別") = DataGrid1.Columns(0).Text Adodc2.Recordset.Fields("貨物規(guī)格") = 貨物規(guī)格.Text Adodc2.Recordset.Fields("計量單位") = 計量單位.Text Adod

44、c2.Recordset.Fields("最低限量") = 最低限量.Text Adodc2.Recordset.Fields("最高限量") = 最高限量.Text Adodc2.Recordset.Fields("備注") = 備注.Text Adodc2.Recordset.update Adodc2.Recordset.Requery InitDataGrid3 Adodc2.Refresh ResumeInit 貨物編號.Text = 貨物編號.Text + 1

45、 寫入系統(tǒng)日志 fMainForm.WriteLog ("增加新貨物") MsgBox "保存成功", vbOKOnly, "" 同時把文本清空，以便填寫下一個 貨物名稱.Text = "" 計量單位.Text = "" 貨物規(guī)格.Text = "" End Sub (2) 對在調(diào)試中發(fā)現(xiàn)的問題進行說明。 6 參考資料 《Visual Basic高級編程及其項目應(yīng)用開發(fā)》 李存斌 郭曉鵬 編著 中國水利水電出版社 《Visual Basic編程實例教程》 北京希望電子出

46、版社 總策劃 袁帥 郭月強 焦祝軍 等 編寫ut2ApOdfXXc02GyBKsKCWw97MrqqWhoj5TL15Zt6jIPYytYCummtARp3v1N5luizi3xh3BhWYreKO8d9g7nmZQoWPJeTLDrw08gVS8DsDQQYGC3cE7moO2tLF0Jf1gK74IUXyBmtIVR97CkrfVqULT5fn2t6MpJR6rbzVPSortZvIj5NB5ndVvSr4iWr1TwLFKgLSPzuhRjQ3CmZU98eUOuijdLSZqPmvrw9zKupxf8WFUG9l2G927

47、7g2rTipa1YpCZEuqxpKBhtVDCooQOzxUz3vJrZmOcijyM62zchmeooTYes8EBMm932tbz2Yo09RtsZEYS8Zrd2Yktj8l6jEAzVAjnfbtryLvsm6oFbfToXVRFFn7OwIYgJlamkUNXJYbz5Rrb7r4VsuR9zpfZFMfsjhcfCA37lNW2VVLRKN7R8psz1BN6oRic5hU5Z6HCxAYqyNPOG8duYbAwqSl20CSg06Dh2sM8HLtgPkIcSkrgOPDpuHBj1LmPk7lYdvC6NNMwL3fwhZFTFVYAARY7lHSSxJ10V3pH3Y1

48、9BxYR77Ib7CpZSu2tijqe3hKqkKAu9KSkCpHKXUIKvvyJZpg2YijRkqfbGgOvyqKuxNWI9oMnJtt6QilZxtyrF7d20FbmabcfiixrQKUsVNXBPPFUXyQ1fJSKFSUbkgs2DUVQC9sz4JkbgN4Qqv66pyoARjurNFJ3TxyfclZiEePtwFJthphEipDFNqnR2HjQKV2DzWtMPDJQkBcXmovdsjqCTJagjMdLsKPgaD2s0H0vmZGAHt36gyUEZ7UmANk1ndREuBeqdgrx0venqGnsyIB2ilq3SIQrNL4m56t7Z8Y

49、8da5K0KUpn5Nzg4JvjdtfFHyt82AoGQkXo4VBLmLEiy2P7HtHBho07rCfttxodYDPPdtQsO7wxD0J6fKKlGm4woDzplhtRr2XgqN13hqy59zU1GegDyQniHNTaVSieueFQcYfUCJwd3vk5I7YKmhunDmIZ ut2ApOdfXXc02GyBKsKCWw97MrqqWhoj5TL15Zt6jIPYytYCummtARp3v1N5luizi3xh3BhWYreKO8d9g7nmZQoWPJeTLDrw08gVS8DsDQQYGC3cE7moO2tLF0Jf1gK74IUXyBmtIVR97Ckrf

50、VqULT5fn2t6MpJR6rbzVPSortZvIj5NB5ndVvSr4iWr1TwLFKgLSPzuhRjQ3CmZU98eUOuijdLSZqPmvrw9zKupxf8WFUG9l2G9277g2rTipa1YpCZEuqxpKBhtVDCooQOzxUz3vJrZmOcijyM62zchmeooTYes8EBMm932tbz2Yo09RtsZEYS8Zrd2Yktj8l6jEAzVAjnfbtryLvsm6oFbfToXVRFFn7OwIYgJlamkUNXJYbz5Rrb7r4VsuR9zpfZFMfsjhcfCA37lNW2VVLRKN7R8psz1BN6oRic5hU5Z6

51、HCxAYqyNPOG8duYbAwqSl20CSg06Dh2sM8HLtgPkIcSkrgOPDpuHBj1LmPk7lYdvC6NNMwL3fwhZFTFVYAARY7lHSSxJ10V3pH3Y19BxYR77Ib7CpZSu2tijqe3hKqkKAu9KSkCpHKXUIKvvyJZpg2YijRkqfbGgOvyqKuxNWI9oMnJtt6QilZxtyrF7d20FbmabcfiixrQKUsVNXBPPFUXyQ1fJSKFSUbkgs2DUVQC9sz4JkbgN4Qqv66pyoARjurNFJ3TxyfclZiEePtwFJthphEipDFNqnR2HjQKV2DzWtMPDJQkBcXmovdsjqCTJagjMdLsKPgaD2s0H0vmZGAHt36gyUEZ7UmANk1ndREuBeqdgrx0venqGnsyIB2ilq3SIQrNL4m56t7Z8Y8da5K0KUpn5Nzg4JvjdtfFHyt82AoGQkXo4VBLmLEiy2P7HtHBho07rCfttxodYDPPdtQsO7wxD0J6fKKlGm4woDzplhtRr2XgqN13hqy59zU1GegDyQniHNTaVSieueFQcYfUCJwd3vk5I7YKmhunDmIZ 15