【導(dǎo)讀】題目小型商店進(jìn)銷存管理系統(tǒng)的。學(xué)院信息科學(xué)技術(shù)學(xué)院。專業(yè)信息管理與信息系統(tǒng)。甘肅農(nóng)業(yè)大學(xué)教務(wù)處制

　　

【正文】 永雷 . 實(shí)用軟件工程 [M].北京：清華大學(xué)出版社 , 1997. [8]JeffreyHammond, SupportAbout to Disappear[J].Redmonddeveloper news,2020 [9]Yunhua Wu ,Fajun Investigation of Vitamin B6 at a Glassy Carbon Electrode and Its Application in Determination[J].Bulletin of The Korean Chemical Society ,2020 . . 致謝 在完成畢業(yè)論文期間，李老師從始至終對(duì)我進(jìn)行了細(xì)心的指導(dǎo)，她認(rèn)真負(fù)責(zé)的工作作風(fēng)、平易近人的品格、嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度和誨人不倦的學(xué)者風(fēng)范，使我深受教益，也給我留下了深刻的印象。值此論文完稿之際，我謹(jǐn)向李老師表示我最衷心的感謝和深深地敬意。 最后，再次對(duì)關(guān)心、幫助我的老師和同學(xué)們表示衷心地感謝！ . . 附錄 ： 例程 Connecttodatebase 的實(shí)現(xiàn) 39。連接到數(shù)據(jù)庫 Public Function ConnectToDatabase(ByRef szErrMsg As String) As Boolean On Error GoTo ErrHandler Set g_Conn = New Connection 39。設(shè)置服務(wù)器名稱，數(shù)據(jù)庫名稱，登錄名（此時(shí)假設(shè)密碼為空） Dim ServerName As String, DBName As String, UserName As String, strPassword As String 39。連接 Sql Server 的連接字符串設(shè)置 ServerName = (LOCAL) DBName = BuySaleStorage UserName = sa strPassword = 39。連接到 SQL Server 數(shù)據(jù)庫 With g_Conn .CursorLocation = adUseClient .CommandTimeout = 100 .ConnectionString = Provider=。Persist Security Info=True amp。 _ 。User ID= amp。 UserName amp。 。Initial Catalog= amp。 DBName amp。 _ 。Data Source= amp。 ServerName amp。 。pwd= amp。 strPassword .Open End With 39。函數(shù)返回值 ConnectToDatabase = True Exit Function ErrHandler: ConnectToDatabase = False szErrMsg = 39。MsgBox , vbInformation . . End Function 例程 Query 的方法實(shí)現(xiàn) Public Function Query(Optional lngID As Long = 1, Optional GoodsName As String = , _ Optional BeginningDate As Date = 1/1/1900, Optional EndingDate As Date = 1/1/1900) As clsBuys 39。參數(shù)說明： lngID 為進(jìn)貨編號(hào)， GoodsName 為商品名稱， BeginningDate 和 EndingDate為進(jìn)貨時(shí)間范圍 On Error Resume Next Dim rs As Recordset 39。查詢返回的記錄集 Dim obj As clsBuy 39。進(jìn)貨對(duì)象 Dim index As Long 39。要生成的集合索引 Dim strSQL As String 39。SQL 字符串 39。構(gòu)造 SQL 語句 strSQL = SELECT * FROM fn_BuyQuery If lngID = 1 Then strSQL = strSQL amp。 (NULL Else strSQL = strSQL amp。 ( amp。 lngID End If If GoodsName = Or BeginningDate = 1/1/1900 Or EndingDate = 1/1/1900 Then strSQL = strSQL amp。 ,NULL,NULL,NULL Else strSQL = strSQL amp。 ,39。 amp。 GoodsName amp。 39。, 39。 amp。 BeginningDate amp。 39。, 39。 amp。 EndingDate amp。 39。 End If strSQL = strSQL amp。 ) 39。清空當(dāng)前集合 39。執(zhí)行查詢并返回查詢結(jié) 果 Set rs = (strSQL) 39。往集合中添加查詢結(jié)果 For index = 1 To Set obj = New clsBuy 39。為單個(gè)對(duì)象的屬性賦值 With obj .ID = rs(BuyID).Value .GoodsID = rs(GoodsID).Value .GoodsName = Trim(rs(GoodsName).Value) .UnitName = Trim(rs(UnitName).Value) .UnitPrice = rs(UnitPrice).Value .Amount = rs(Amount).Value . . .TotalPrice = rs(TotalPrice).Value .Deliverer = Trim(rs(Deliverer).Value) .Transactor = Trim(rs(Transactor).Value) .RegistrarID = rs(RegistrarID).Value .RegistrarName = GetValueByID(UserInfo, UserID, .RegistrarID, TrueName) .RegDate = rs(RegDate).Value .TypeID = rs(TypeID).Value .TypeName = GetValueByID(GoodsType, TypeID, .TypeID, TypeName) .SupplierID = rs(SupplierID).Value .SupplierName = GetValueByID(Supplier, SupplierID, .SupplierID, SupplierName) .Remark = Trim(rs(Remark).Value) End With 39。添加單個(gè)對(duì)象到集合中 obj 39。釋放對(duì)象 Set obj = Nothing Next index 39。釋放查詢結(jié)果集 Set rs = Nothing 39。函數(shù)返回值 Set Query = Me End Function 例程 Statistic 方法的實(shí)現(xiàn) 39。統(tǒng)計(jì)各種商品的進(jìn)貨次數(shù)和進(jìn)貨總價(jià)格，返回一個(gè)集合類 Public Function Statistic() As clsBuys On Error Resume Next Dim rs As Recordset 39。查詢返回的記錄集 Dim obj As clsBuy 39。進(jìn)貨對(duì)象 Dim index As Long 39。要生成的集合索引 Dim strSQL As String 39。SQL 字符串 39。構(gòu)造 SQL 語句 strSQL = SELECT * FROM fn_BuyStatistic() 39。清空當(dāng)前集合 39。執(zhí)行查詢并返回查詢結(jié)果 Set rs = (strSQL) For index = 1 To Set obj = New clsBuy . . 39。為單個(gè)對(duì)象的屬性賦值 With obj 39。此時(shí) ID 屬性是商品編號(hào) ,而非 sale 表中的銷售編號(hào) .ID = rs(GoodsID).Value .GoodsName = Trim(rs(GoodsName).Value) .TypeName = GetValueByID(GoodsType, TypeID, rs(TypeID).Value, TypeName) .UnitName = Trim(rs(UnitName).Value) .AverageBuyPrice = rs(AverageBuyPrice).Value .TotalBuyTimes = rs(TotalBuyTimes).Value .TotalBuyAmount = rs(TotalBuyAmount).Value .GrossBuyPrice = rs(GrossBuyPrice).Value End With 39。添加單個(gè)對(duì)象到集合中 obj 39。釋放對(duì)象 Set obj = Nothing Next index 39。釋放查詢結(jié)果集 Set rs = Nothing 39。函數(shù)返回值 Set Statistic = Me End Function 例程 登錄界面程序設(shè)計(jì) Private Sub cmdOK_Click() Dim User As New clsUser 39。用戶對(duì)象 Dim Result As gxcLoginResult 39。登錄結(jié)果（ gxcLoginResult 枚舉類型） 39。用戶登錄并返回登錄結(jié)果 Result = (Trim(txt(0)), txt(1), UserID, TrueName, UserType) 39。合法用戶 If Result = ValidUser Then Unload Me 39。用戶名錯(cuò)誤 ElseIf Result = WrongUserName Then MsgBox 用戶名錯(cuò)誤！ , vbInformation txt(0).SetFocus 39。密碼錯(cuò)誤 ElseIf Result = WrongPassword Then MsgBox 密碼錯(cuò)誤！ , vbInformation txt(1).SetFocus . . ElseIf Result = DBError Then MsgBox 數(shù)據(jù)庫連接錯(cuò)誤！ , vbExclamation End If End Sub