【正文】 unction ‘錯誤信息ExecuteSQL_Error: MsgString = 查詢錯誤: amp。get RecordCount‘返回記錄集對象Set ExecuteSQL = rst‘返回查詢信息 MsgString = 查詢到 amp。 _ query successful Else ‘創(chuàng)建一個數(shù)據(jù)集對象Set rst = New ‘執(zhí)行查詢語句 Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic39。添加函數(shù)Execute SQL,代碼如下： ‘傳遞參數(shù)為查詢語句和查詢信息，返回以數(shù)據(jù)集對象形式保存的查詢結果Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。在項目資源管理器中為項目添加一個Module,。在Visual Basic中可以用公用模塊來存放整個工程項目的函數(shù)、過程和全局變量等。創(chuàng)建好的窗體如圖所示：圖6..1物資管理系統(tǒng)主窗體在主窗體中加入狀態(tài)欄控件，可以實時反映系統(tǒng)中的各個狀態(tài)的變化。 這個項目使用多文擋界面，單擊工具欄中的ADD MDI Form按鈕，產(chǎn)生一個窗體。, size=1, Filegrowth=10%, maxsize=5)CREATE TABLE [dbo].[material] ( [wzid] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL , [wzname] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL , [wzspec] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL , [wzkind] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [wzunit] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GOCREATE TABLE [dbo].[msave] ( [rkno] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , [rkid] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL , [rkname] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [rkspec] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [rkkind] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [rkunit] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [rkaccount] [numeric](5, 0) NOT NULL , [rkprice] [numeric](8, 2) NOT NULL , [rkvalue] [numeric](10, 2) NOT NULL , [rkdate] [datetime] NOT NULL , [rkdeal_person] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [rksave_person] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [rkbase] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [rkmemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]GOCREATE TABLE [dbo].[msurplus] ( [yeid] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL , [yename] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL , [yespec] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [yekind] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [yeunit] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [yeaccount] [numeric](5, 0) NOT NULL , [yevalue] [numeric](10, 2) NOT NULL , [yebase] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [yememo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]GOCREATE TABLE [dbo].[muse] ( [lyno] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , [lyid] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL , [lyname] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [lyspec] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [lykind] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [lyunit] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [lyaccount] [numeric](5, 0) NOT NULL , [lyprice] [numeric](8, 2) NULL , [lyvalue] [numeric](10, 2) NULL , [lydate] [datetime] NOT NULL , [lyuse_person] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [lydeal_person] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [lybase] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [lymemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]GOCREATE VIEW view_material(wzid,wzname,wzspec,wzkind，wzunit)ASSELECT wzid,wzname, wzspec,wzkind，wzunitFROM materialCREATE VIEW view_msaveASSELECT rkno,rkid,rkspec,rkkind,rkunit,rkaccount,rkprice,rkvalue,rkdate,rksave_personrkdeal_person,rksave_person,rkbase,rkmemoFROM msave其它視圖依此同理建立第6章 代碼設計 物資管理信息系統(tǒng)主窗體的創(chuàng)建 創(chuàng)建工程項目——Material_MIS 打開Viaual Basic 后，單擊File/New Project菜單，在工程摸版中選擇Standard EXE,Visual Basic將自動產(chǎn)生一個Form窗體，屬性都是卻省設置。 , size=10, Filegrowth=10%, maxsize=unlimited )log on( Name= Material _log, Filename=39。在查詢分析器輸入以下語言create database Materialon primary( Name= Material _data, Filename=39?，F(xiàn)在就可以在SQL Server 2000 數(shù)據(jù)庫系統(tǒng)中實現(xiàn)該邏輯結構。物資余額信息=(物資編號,物資名稱，規(guī)格型號，類別，計量單位，數(shù)量，金額，倉庫)入庫物資基本信息=(入庫編號,入庫物資編號，物資名稱，規(guī)格型號，種類，單位，數(shù)量，單價，金額，入庫時間，經(jīng)辦人，保管人，倉庫) msurplus 物資余額信息表列名數(shù)據(jù)類型可否為空說明yeidvarcharNOT NULL物資編號yenamevarcharNOT NULL物資名稱yespecvarcharNULL規(guī)格型號yekindvarcharNULL類別yeunitnumericNULL 計量單位yeaccountnumericNOT NULL數(shù)量yevaluenumericNOT NULL金額yebasevarcharNOT NULL倉庫yememotextNULL備注 Material 物資基本信息表列名數(shù)據(jù)類型可否為空說明wzidvarcharNOT NULL物資編號wznamevarcharNOT NULL物資名稱wzspecvarcharNOT NOT規(guī)格型號wzkindvarcharNULL類別wzunitvarcharNULL計量單位 msave 入庫物資信息表列名數(shù)據(jù)類型可否為空說明rknovarcharNOT NULL入庫編號rkidvarcharNOT NULL入庫物資編號rknamevarcharNULL物資名稱rkspecvarcharNULL規(guī)格型號rkkindvarcharNULL種類rkunitvarcharNULL