數(shù)據(jù)庫課程設(shè)計(jì)—物資管理系統(tǒng)-預(yù)覽頁
【正文】 仔細(xì)分析物資管理信息系統(tǒng)需求的基礎(chǔ)上。l 物資余額信息，包括的數(shù)據(jù)項(xiàng)有：物資編號、物資名稱、規(guī)格型號、類別、計(jì)量單位、數(shù)量、金額、倉庫等。物資基本信息實(shí)體計(jì)量單位物資編號類別物資名稱規(guī)格型號 物資基本信息實(shí)體ER圖物資入庫信息實(shí)體保管人物資基本信息經(jīng)辦人入庫時(shí)間 物資入庫信息實(shí)體ER圖物資領(lǐng)用信息實(shí)體領(lǐng)用人物資基本信息經(jīng)辦人領(lǐng)用時(shí)間 物資出庫信息實(shí)體ER圖物資出庫信息實(shí)體倉庫物資基本信息數(shù)量金額 物資余額信息實(shí)體ER圖在找出所有實(shí)體的基礎(chǔ)上，需要進(jìn)一步的分析各個(gè)實(shí)體之間的關(guān)系，經(jīng)過分析可以的得到所有實(shí)體的E—R圖；—R圖來說明這些實(shí)體之間的關(guān)系：庫存信息出庫信息領(lǐng)用入庫信息登 記 物質(zhì)管理信息的E—R圖、邏輯數(shù)據(jù)庫設(shè)計(jì) 通過對數(shù)據(jù)庫概念模型的設(shè)計(jì)，確定以下是該系統(tǒng)需建立的幾個(gè)表格。 建立概念數(shù)據(jù)庫模型根據(jù)前面的概念和邏輯模型設(shè)計(jì)，我們在PowerDesigner12中建立 ConceptualDataModel_1，： 概念數(shù)據(jù)可模型 將概念模型轉(zhuǎn)換成物理模型概念模型建好后，在PowerDesigner12的T ools選項(xiàng)中選擇Generate new Physical Data Model，將概念模型轉(zhuǎn)換成物理模型，如圖所示： 物理數(shù)據(jù)庫模型 生成數(shù)據(jù)庫代碼 建好物理模型后，在Database選擇Generate Database，生成數(shù)據(jù)庫代碼，以下是建立數(shù)據(jù)庫及其表格的代碼（1)建數(shù)據(jù)庫use mastergoif exists (select * from where name = 39。) and OBJECTPROPERTY(id, N39。) and OBJECTPROPERTY(id, N39。) and OBJECTPROPERTY(id, N39。) and OBJECTPROPERTY(id, N39。系統(tǒng)功能分析是在系統(tǒng)開發(fā)總體任務(wù)的基礎(chǔ)上進(jìn)行的，本系統(tǒng)中需要的的主要功能有：u 添加用戶；u 刪除用戶；u 修改用戶密碼；u 瀏覽物質(zhì)信息；u 添加物質(zhì)信息；u 刪除物質(zhì)信息u 物質(zhì)剩余信息查詢；對上述各項(xiàng)功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計(jì)的要求。 添加物質(zhì)信息每個(gè)關(guān)于物質(zhì)信息是我模塊都可以進(jìn)行添加信息的操作， 添加界面 添加信息 添加成功提示其余的添加操作與上述的操作類似，這里不再贅述。點(diǎn)擊“取消”，則操作被撤銷，點(diǎn)擊退出，則返回主界面。所以我們要借助軟件工程的思想——對軟件開發(fā)過程進(jìn)行控制。，對一個(gè)功能模塊的設(shè)計(jì)，要想出兩種或兩種以上方案，這樣可以進(jìn)行比較，從而獲得更佳的設(shè)計(jì)方案，設(shè)計(jì)開發(fā)過程中一定要吸取經(jīng)驗(yàn)教訓(xùn)，避免返工。另外，在整個(gè)開發(fā)的過程中，時(shí)間也比較倉促。 Mycon用于數(shù)據(jù)庫連接Public MyRs As New 39。 變量i用于累計(jì)連接的錯(cuò)誤次數(shù)Private Sub Command1_Click() 39。 出錯(cuò)則轉(zhuǎn)向ErrorHandler處執(zhí)行 = Driver={SQL Server}。 關(guān)閉當(dāng)前窗口 39。 如果連接錯(cuò)誤次數(shù)不超過2兩次 MsgBox 連接失敗，請重試用戶名或密碼, vbExclamation, 注意 Else 39。 回到主封面End SubPrivate Sub Image1_Click()End SubPrivate Sub Form_Load()End SubPrivate Sub Text1_GotFocus() 39。 將焦點(diǎn)切換到密碼框 End IfEnd SubPrivate Sub Text2_GotFocus() 39。 如果用戶名為空，則給出提示 MsgBox 請輸入用戶名, vbExclamation, 注意 39。Database=MMS Unload Me 39。 打開物資基本信息表 = 按表格瀏覽物資表 1 39。 strSql用于保存查詢字符串 = True 39。 設(shè)置顯示物資名稱的文字提示無效 strSql = SELECT DISTINCT wzid FROM material If = adStateOpen Then 39。設(shè)置Form16的顯示物資編號的組合框的數(shù)據(jù)源為MyRS1 = wzid 39。 設(shè)置顯示物資編號的文字提示有效 = True 39。 If = adStateOpen Then 39。設(shè)置Form16的顯示物資名稱的組合框的數(shù)據(jù)源為MyRS1 = wzname 39。 關(guān)閉記錄集MyRS End If material, Mycon, adOpenKeyset, adLockBatchOptimistic, adCmdTable 1End Sub添加物資基本信息代碼Private Sub Command1_Click() Dim strInsert As String strInsert = INSERT INTO material VALUES(39。,39。,39。,39。,39。) On Error GoTo errhandle 39。 提交事務(wù) MsgBox 添加成功 39。 撤銷事務(wù)End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()End Sub刪除物資基本信息代碼Private Sub Command1_Click() Dim strDelete As String, StudName As String If Trim() And Trim() = Then strDelete = DELETE material WHERE wzid LIKE 39。 ElseIf Trim() = And Trim() Then strDelete = DELETE material WHERE wzname LIKE 39。 Else Exit Sub End If strDelete a = MsgBox(確定要?jiǎng)h除指定的物資基本信息嗎?, vbOKCancel + vbExclamation, 注意) If a = vbOK Then MsgBox 指定的物資基本信息已經(jīng)從數(shù)據(jù)庫中刪除, vbInformation, 注意 Else MsgBox 刪除被撤消, vbExclamation, 注意 End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()End Sub修改物資基本信息代碼Private Sub Command1_Click() 39。% amp。 執(zhí)行統(tǒng)計(jì) Set MyRs = (strSql)
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1