【正文】 的主要交易都是在此進(jìn)行。 （ 2）進(jìn)貨統(tǒng)計(jì)：包括今日進(jìn)貨統(tǒng)計(jì)、本月進(jìn)貨統(tǒng)計(jì)、本季度進(jìn)貨統(tǒng)計(jì)、本顧客 超 市 倉(cāng)庫(kù) 管理者 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 11 季度進(jìn)貨統(tǒng)計(jì)、本年度進(jìn)貨統(tǒng)計(jì)等。 （ 3）銷貨統(tǒng)計(jì)：包括今日銷售統(tǒng)計(jì)、本月銷售統(tǒng)計(jì)、本季度銷售統(tǒng)計(jì)、本年度銷售統(tǒng) 計(jì)等，其中每次銷售統(tǒng)計(jì)都是按生產(chǎn)廠商和銷售總金額統(tǒng)計(jì)顯示的。對(duì)于員工表管理員還可以對(duì)其進(jìn)行刪除或添加用戶操作。 (6) 其它窗體： 包括主窗體、登陸窗體、系統(tǒng)初始化窗體。它能操作其它來源的資料，包括許多流行的 PC 數(shù)據(jù)庫(kù)程序（如 dBASE， Paradox， Microsoft FoxPro）和服務(wù)器、小型積極大型機(jī)上的許多 SQL 數(shù)據(jù)庫(kù)。 ADO 技術(shù) Active Data Objects(ADO)微軟最新的數(shù)據(jù)庫(kù)訪問技術(shù)，它被設(shè)計(jì)用來同新的數(shù)據(jù)訪問層 OLE DB Provider 一起協(xié)同工作，以提高通用數(shù)據(jù)訪問(Universal Data Access).OLE DB 是一個(gè)低層的數(shù)據(jù)訪問接口，用它可以訪問各種數(shù) 據(jù)源，包括傳統(tǒng)的關(guān)系型數(shù)據(jù)庫(kù)，以及電子郵件系統(tǒng)及自定義的商業(yè)對(duì)象。 ADO 最重要的三個(gè)對(duì)象 是 :Connection, Command, Recordset。 (2) Command 對(duì)象 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 13 在建立 Connection 后 ,可以發(fā)出命令操作數(shù)據(jù)源 。 在 ADO 對(duì)象模型中 ,是在行中檢查和修改數(shù)據(jù)的最主要的方法 ,所有對(duì)數(shù)據(jù)的操作幾乎都是在 Recordset 對(duì)象中完成的 。 SQL 語(yǔ)言之所以能夠?yàn)橛脩艉蜆I(yè)界所接受，并成為國(guó)際標(biāo)準(zhǔn)，是因?yàn)樗且粋€(gè)綜合的、功能極強(qiáng)同時(shí)有簡(jiǎn)單易學(xué)的語(yǔ)言。 （ 2）高度非過程化 非關(guān)系數(shù)據(jù)模型的數(shù)據(jù)操縱語(yǔ)言是面向過程的語(yǔ)言，用其完成某項(xiàng)請(qǐng)求，必須指定存取路徑。例如查詢 所有平均成績(jī)?cè)?80 分以上的產(chǎn)品姓名，用戶必須一條一條地把滿足條件的產(chǎn)品記南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 14 錄找出來（通常要說明具體處理過程，即按照哪條路徑，如何循環(huán)等）。而在兩中不同的使用方式下， SQL語(yǔ)言的語(yǔ)法結(jié)構(gòu)基本上是一致的。 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 15 第三章 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)處理在信息系統(tǒng)的研究中一直是非常重要的主題，然而，近年來，隨著 World Wide Web(WWW)的猛增及 Inter 技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫(kù)技術(shù)之時(shí)成為最熱門技術(shù)之一。它們只是加重了數(shù)據(jù)庫(kù)技術(shù)的重要性 ， 理解用戶的需求 。經(jīng)典的數(shù)據(jù)庫(kù)應(yīng)用涉及諸如訂單、顧客、工作、員工、學(xué)生、電話之類的項(xiàng)，或其它數(shù)據(jù)量較大、需要密切關(guān)注的事務(wù)。存儲(chǔ)器的容量、存儲(chǔ)速 率直接影響到數(shù)據(jù)管理技術(shù)的發(fā)展。數(shù)據(jù)管理是指數(shù)據(jù)的收集、整理、組織、存儲(chǔ)、維護(hù)、檢索、傳送等操作，這部分操作是數(shù)據(jù)處理業(yè)務(wù)的基本環(huán)節(jié)，而且是任何數(shù)據(jù)處理業(yè)務(wù)中必不可少的共有部分。同時(shí)合理的數(shù)據(jù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。這 些就新建了一個(gè)數(shù)據(jù)庫(kù)文件。 在下面的對(duì)話框中選 ” 使用設(shè)計(jì)器創(chuàng)建表 ” ，上面還有三個(gè)按鈕，一個(gè)是打開，一個(gè)是設(shè)計(jì)，一個(gè)是新建，點(diǎn)擊設(shè)計(jì)，就可以開始設(shè)計(jì)數(shù)據(jù)表了。//創(chuàng)建 ADO 的實(shí)例// m_pConnectionOpen(Provider=。//調(diào)用 ExitConnect 函數(shù)斷開連接 // } } 上面提到的各種功能的實(shí)現(xiàn)都離不開數(shù)據(jù)庫(kù)的支持，因此數(shù)據(jù)庫(kù)設(shè)計(jì)作為本系統(tǒng)設(shè)計(jì)的一部分不可缺少。 GOODS 表中包括有商 品 ID、 商 品名稱、條形碼、商品價(jià)格等； GOODSPACK 表中包括有新增商品、贈(zèng)品、入庫(kù)、出庫(kù)等； STORAGE 表中包含商品下架、銷售數(shù)量等； STORAGEINFO 表中包含商品數(shù)量、商品單價(jià)、生產(chǎn)廠家等信息； TICKET 表中商品銷售額、銷售商品名字、日結(jié)算等； WORKER 表中包括有員工編號(hào)、員工姓名、員工密碼、員工電話、員工地址 ‘員工省份證好等。具體設(shè)置如表 32 所示。 字段名 數(shù)據(jù)類型 說明 退貨編號(hào) 文本 字段大小為 20 銷貨編號(hào) 文本 字段大小為 20 商品名稱 文本 字段大小為 20 生產(chǎn)廠商 文本 字段大小為 20 型號(hào) 文本 字段大小為 20 單價(jià) 貨幣 貨幣 數(shù)量 數(shù)字 長(zhǎng)整型 總金額 貨幣 貨幣 退貨年 數(shù)字 整型 退貨月 數(shù)字 整型 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 21 退貨日 數(shù)字 整型 業(yè)務(wù)員編號(hào) 文本 字段大小為 20 表 33 retreat 表 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 22 第四章 系統(tǒng)功能模塊實(shí)現(xiàn) 系統(tǒng)登錄模塊 用戶登錄模塊在本系統(tǒng)的首頁(yè)。 //{{AFX_DATA_MAP(CLogInDlg) DDX_Control(pDX, IDOK, m_OK)。 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 23 //}}AFX_DATA_MAP } BEGIN_MESSAGE_MAP(CLogInDlg, CDialog) END_MESSAGE_MAP() BOOL CLogInDlg::PreTranslateMessage(MSG* pMsg) //補(bǔ)獲對(duì)話窗的一個(gè)事件函數(shù) ,(pMsg:當(dāng)前截獲的一個(gè)事件的類型 )// { if(pMsgmessage == WM_LBUTTONDOWN )//判斷一個(gè)事件是否為鼠標(biāo)左鍵按下的事件 ,(是的進(jìn) 行處理 )// { CRect rect,rc。rc)。//獲取鼠標(biāo)按下的位置 // if((point))//判斷鼠標(biāo)按下的位置是否在確定按鈕上 // { UpdateData(TRUE)。//不為空，登錄次數(shù)加 1// ADOConn m_AdoConn。%s39。 = 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 24 ((_bstr_t)sql)。 //判斷是否成功的一個(gè)函數(shù) // CDialog::OnOK()。 ()。 m_WorkID = 。//直接讓對(duì)話框消失 // } } return CDialog::PreTranslateMessage(pMsg)。 UpdateData(true)。%s39。%s39。%s39。 (select * from GOODS where GoodsValue %s %.2f,m_opStr,value)。 = ((_bstr_t)sql)。 (i,0,(char *)(_bstr_t)GetCollect(GoodsID))。 MoveNext()。 ERROR_END: if(() == IDOK) { if(( == || == || == 0) ) { MessageBox(新增商品信息不完備，請(qǐng)檢查！ )。 CString sql。%s39。 ((_bstr_t)sql)。%s39。%s39。 } } } 員工信息管理模塊 此模塊有對(duì)員工的添加，修改，刪除等功能，能夠?qū)τ脩暨M(jìn)行合理的管理，界面如圖 43 所示。 CString sql。 switch(index) { case 0: (select * from WORKER where WorkerID = 39。 case 1: (select * from WORKER where Name = 39。 case 2: if(!(男 )) (select * from WORKER where Sex = 1)。%s39。 (select * from WORKER where Permissions = %d,intInfo)。,m_info)。,m_info)。,m_info)。 = ((_bstr_t)sql)。 (i,0,(char *)(_bstr_t)GetCollect(WorkerID))。 (i,4,(char *)(_bstr_t)GetCollect(Name))。 else (i,5,女 )。 (i,9,(char *)(_bstr_t)GetCollect(Address))。 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 31 圖 45倉(cāng)庫(kù)系統(tǒng)管理界面 基本函數(shù)如下： void CStorageDlg::OnInstorage() { CInOutDlg dlg。 } CString sql。%s39。 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 32 } else { (insert into STORAGE(GoodsID,GoodsLeftNum,GoodsSaleNum) \ values(39。 ()。 } CString ticketid。 (insert into STORAGEINFO(TicketID,GoodsID,Num,GoodsValue,InOrOut,Info,OpDate,OpTime)\ values(39。,%d,%.2f,%d,39。 } } void CStorageDlg::OnOutstorage() { CInOutDlg dlg。 } if(CheckExit(GoodsID,STORAGE)) { if(CheckNum(GoodsID,STORAGE,) 0) { 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 33 MessageBox(庫(kù)存不足，請(qǐng)核實(shí)出庫(kù)數(shù)量！ )。 ()。 ((_bstr_t)sql)。 ticketid = GetTicketID(time)。,39。,%s,%s),ticketid,m,0,\ (%Y%m%d),(%H:%M:%S))。 } } } void CStorageDlg::SetControl() { if(m_id == 0) { (2)。 (select * from GOODS )。 while(!adoEOF) 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 34 { (index,(char *)(_bstr_t) void CStorageDlg::OnId() { UpdateData(true)。 } void CStorageDlg::OnSale() { UpdateData(true)。 CString sql。 = ((_bstr_t)sql)。 return false。 CString sql。 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 35 = ((_bstr_t)sql)。 } else { ()。 (1,商品編號(hào) ,LVCFMT_LEFT,100,500)。 (5,時(shí)間 ,LVCFMT_LEFT,100,500)。 (0)。 (0)。 UpdateData(true)。 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 37 break。 case 2: table = STORAGEINFO。 if(utype) (select * from %s where %s = 39。%s39。 if(utype) (select * from %s where %s = 39。%s39。 (select * from %s where %s = %s AND InOrOut = %d,table,index,(%Y%m%d),InOrOut)。 ADOConn adoConn。 (i,0,(char *)(_bstr_t)GetCollect(TicketID))。 (i,4,(char *)(_bstr_t)GetCollect(OpDate))。 (i,5,(char *)(_bstr_t)GetCollect(SaleTime))。 } ()。改變測(cè)試方案來變換另一個(gè)角度進(jìn)行測(cè)試，發(fā)現(xiàn)錯(cuò)誤并記錄，修改代碼，測(cè)試條件使程序通過 多層分支，判別運(yùn)行結(jié)果從而完成模塊測(cè)試。 南昌航空大學(xué)科技學(xué)院學(xué)士學(xué)位論文 41 第六章 總 結(jié) 經(jīng)過幾月的怒力 ， 報(bào)告 基本完成。我不會(huì)忘記這難忘的 這幾 月 ， 課程報(bào)告 的制作給了我難忘的回憶。在整個(gè)過程中，我學(xué)到了新知識(shí)，增