服裝公司進銷存管理系統(tǒng)-資料下載頁
2025-04-12 03:38本頁面
【正文】 人杰.《實用軟件工程》.清華大學(xué)出版社,2003[3] 龔波.《SQL SERVER 2000教程》.北京希望電子出版社[4] 孫一林,彭波.《Java數(shù)據(jù)庫編程實例》. 清華大學(xué)出版社,2002年8月附錄1：利用SQL語言建立一些表、查詢、報表、窗體的語句（1）客戶表的建立CREATE TABLE 客戶表(客戶號 CHAR(6) NOT NULL UNIQUE, 客戶名 CHAR(10), 地址 CHAR(30), 信譽度 CHAR(10), 省份 CHAR(10))。（2）訂單查詢選擇查詢的建立SELECT 訂單表.*FROM 訂單表WHERE 訂單號=[請輸入訂單號]。（3）發(fā)貨信息查詢的建立SELECT訂單號,產(chǎn)品號,客戶號,產(chǎn)品數(shù)量,發(fā)貨價格,產(chǎn)品數(shù)量*發(fā)貨價格 AS 金額小計FROM 發(fā)貨表。（1）添加記錄Private Sub 添加記錄_Click()On Error GoTo Err_添加記錄_Click , , acNewRecExit_添加記錄_Click: Exit SubErr_添加記錄_Click: MsgBox Resume Exit_添加記錄_Click End Sub（2）修改庫存Private Sub CmdChange_Click()Dim curdb As DatabaseDim curRS As RecordsetDim deviceCnt As IntegerSet curdb = CurrentDbSet curRS = (select * from 庫存表 where 產(chǎn)品號=39。 amp。 amp。 39。)If Not Then deviceCnt = (庫存量) deviceCnt = deviceCnt + CInt() update 庫存表 set 庫存量= amp。 deviceCnt amp。 where 產(chǎn)品號=39。 amp。 amp。 39。Else With curdbRS .AddNew .Fields(產(chǎn)品號) = .Fields(庫存量) = CInt() .Fields(存放地點) = 第一倉庫 .Update End WithEnd If = True = FalseEnd Sub（3）發(fā)貨Private Sub 準備發(fā)貨_Click()39。打開發(fā)貨確認窗體If = True ThenMsgBox (該產(chǎn)品已經(jīng)發(fā)貨，不能重復(fù)發(fā)貨！)Elsedd_no = product_no = kehu_no = product_number = 發(fā)貨確認窗體End IfEnd Sub24 / 2
公司管理相關(guān)推薦
鄂ICP備17016276號-1