【正文】 set dele on else locate all for yhm=alltrim() if .() nAnswer=messagebox(39。,0,39。) return endif sele pass dele all for len(alltrim(yhm))=0 if xgbzhi set dele on go rec dele locate all for alltrim(yhm)=alltrim() if .() nAnswer=messagebox(39。,0,39。 alltrim()!=系統(tǒng)管理員 nAnswer=messagebox(39。警告！ 39。用戶名、用戶密碼不能為空值！請再仔細檢查一下！ 39。警告！ 39。你還沒有選擇要修改的注冊用戶記錄！請選定一個要修改的用戶！ 39。警告！ 39。你還沒有選擇要刪除的注冊用戶記錄！請選定一個要刪除的用戶！ 39。) use return Endif ②“退出系統(tǒng)”的過程代碼： ans=messagebox(確信要退出系統(tǒng)嗎？ ,4,確認信息 ) if ans=6 close all clear event quit else return 13 Endif （ 2）“信息操作管理”子菜單編輯為“客戶信息管理”和“供應商信 息管理” ①“客戶信息管理”的過程代碼 : use kehuxinxi pack use do form kehu ②“供應商信息管理”的過程代碼 : use gongyingshang pack use do form gys （ 3）“藥品管理”子菜單編輯為“藥品入庫管理”和“藥品出庫管理” ①“藥品入庫管理”的過程代碼： use rukuxinxi pack use do form yprk ② “藥品出庫管理”的過程代碼： use chukuxinxi pack use do form ypck （ 4）“記錄查詢”子菜單編輯為“藥品入庫查詢”和“藥品出庫查詢” ①“藥品入庫查詢”的過程代碼： use rukuxinxi pack use do form rkjl ②“藥品出庫查詢”的過程代碼： use chukuxinxi pack use do form ckjl (5)“其他”子菜單編輯為“備忘錄” ①“備忘錄”的過程代碼： use beiwangluxinxi pack use do form bwl 14 四、 程序設計 本系統(tǒng)除去主表單設計外，內(nèi)容表單分別有密碼管理表單、客戶信息表單、供應商表單、藥品入庫表單、藥品出庫表單、入庫記錄查詢表單、出庫記錄查詢表單、備忘錄表單等 8 個項目表單。,0,39。“ Timer”代碼如下： if ca255 ca=ca+1 else ca=90 endif if cb255 cb=cb+1 else cb=180 endif if cc255 cc=cc+1 else cc=1 endif If =rgb(ca,cb,cc) =199 =+10 Else =rgb(ca,cb,cc) =+10 EndIf If =394 12 = = 10 Else = 10 EndIf （三）系統(tǒng)菜單的設計 （ 1）“系統(tǒng)管理”子菜單編輯為“密碼管理”、“ \”“退出系統(tǒng)” ①“密碼管理”的過程代碼： set dele on dele all for len(alltrim(yhm))=0 loca all for alltrim(yhm)=alltrim(yhname) if alltrim(yhlx)=系統(tǒng)管理員 use do form mmgl else nAnswer=messagebox(39。真遺憾 39。密碼不正確，請你再好好想想！ 39。amp。真遺憾 39。你不是合法注冊用戶！ 39。amp。amp。amp。amp。amp。graphics\pic。data。reports。bwl Set path to forms。就可在新彈出的程序代碼編輯窗口中輸入程序的以下代碼內(nèi)容，保存即可。 用戶密碼表客戶 銷售部 銷售訂單 倉庫 提貨單 財務部 付款單 結(jié)算管理 發(fā)票 采購部 供應商 入庫單 入庫處理 存檔 存檔 采購訂單 發(fā)貨單 庫存狀態(tài) 缺貨單 發(fā)貨處理 領藥單 倉庫存檔 入庫單 6 （ pass） 數(shù)據(jù)庫 7 個表的結(jié)構分別如下： 藥品信息表 客戶信息表 字段名 字段類型 寬度 標題 bh 整型 4 編號 xm 字符型 8 姓名 dh 字符型 20 電話 dzh 字符型 20 地址 yx 字符型 24 郵箱 zhl 字符型 8 質(zhì)量 供應商表 字段名 字段類型 寬度 標題 ypbh 字符型 4 藥品編號 ypmch 字符型 16 藥品名稱 jj 貨幣型 8 進 價 shj 貨幣型 8 售價 pfj 貨幣型 8 批發(fā)價 zhl 字符型 8 質(zhì)量 shl 整型 4 數(shù)量 jyy 字符型 8 檢驗員 yply 字符型 14 藥品來源 lxr 字符型 8 聯(lián)系人 yxrq 日期型 8 有效日期 jhrq 日期時間型 8 進貨日期 字段 名 字段類型 寬度 標題 bh 字符型 4 編號 gsmch 字符型 16 公司名稱 dh 字符型 30 電話 dzh 字符型 30 地址 wzh 字符型 24 網(wǎng)址 jyyl 字符型 20 經(jīng)營藥類 7 備忘錄信息表 字段名 字段類型 寬度 標題 xh 字符型 4 序號 nr 字符型 254 內(nèi)容 zdsj 字符型 30 電話 dzh 日期型 8 制定時間 zdr 字符型 10 制定人 藥品入庫信息表 字段名 字段類型 寬度 標題 ypbh 字符型 4 藥品編號 ypmch 字符型 16 藥品名稱 jj 貨幣型 8 進價 shj 貨幣型 8 售價 pfj 貨幣型 8 批發(fā)價 zhl 字符型 8 質(zhì)量 shl 整型 4 數(shù)量 jyy 字符型 8 檢驗員 yply 字符型 14 藥品來源 lxr 字符型 8 聯(lián)系人 jhrq 日期時間型 8 進貨日期 藥品出庫信息表 字段名 字段類型 寬度 標題 ypbh 字符型 4 藥品編號 ypmch 字符型 16 藥品名稱 shj 貨幣型 8 售價 shl 數(shù)值型 6 數(shù)量 khlb 字 符型 6 客戶類別 khmch 字符型 1 客戶名稱 yfje 貨幣型 8 應付金額 shfe 貨幣型 8 實付金額 zhb 貨幣型 8 找補 xshrq 日期時間型 8 銷售日期 用戶密碼表 字段名 字段類型 寬度 標題 yhm 字符型 10 用戶名 yhmm 字符型 10 用戶密碼 yhlx 字符型 10 用戶類型 選擇系統(tǒng)菜單中“數(shù)據(jù)庫”菜單下的“新建表 ?” 選項建立新的數(shù)據(jù)庫后，“新建表”對話框中單擊“新建表”按鈕，按照如上分別建立這 7 個數(shù)據(jù)表。比如系統(tǒng)需要使用和處理哪些數(shù)據(jù)，這些數(shù)據(jù)組織成幾個表才方便程序的設計和用戶的使用，每個表需要設計哪些字段合適，每個字段應該定義成什么數(shù)據(jù)類 型，需要建立哪些索引才便于操作等等。 2021 年 6 月 9 號至 10號：系統(tǒng)程序的檢驗，完 成課程設計報告，并檢查相 4 關系統(tǒng)。 2021 年 6 月 6 日：到圖書館查閱資料，確定主題，并進行討論。 組員： xx，負責部分表單設計，制作表格等工作。 文秘： xxx，負責課程設計報告，指導成員工作，負責打印等工作。系統(tǒng)應具備數(shù)據(jù)庫維護功能，及時根據(jù)用戶的需求進行數(shù)據(jù)的查詢、添加、刪除、修改等操作。以下是企業(yè)微觀營銷環(huán)境主要內(nèi)容。 ④ 便利供應部