【正文】
ert char 12 ,102 AS work_date, * AS sale_cost, * AS gain, * / * AS gain_rate FORM pos_sale a,large_type b,goods_info c WHERE AND SELECT work_date, goods_id , bar_id, goods_name , guige , sum quantity AS sum_quantity , sum amount AS sum_amount , sum sale_cost AS sum_sale_cose , sum gain AS sum_gain,gain_rate*100 AS gain_rate FORM temp_table GROUP BY work_date,goods_id, goods_name , guige,gain_rate,bar_id ORDER BY work_date 庫(kù)存調(diào)整存儲(chǔ)過(guò)程 CREATE PROCEDURE P_STORE_ADJUST goods_id int, adjust_quantity float, adjust_readon int, work_person int AS DECLARE price money DECLARE quantity float DECLARE amount money SELECT quantity QUANTITY,amount AMOUNT FROM STORE_DETAIL WHERE GOODS_ID goods_id SELECT price cost_price FROM GOODS_INFO WHERE GOODS_ID goods_id UPDATE STORE_DETAIL SET QUANTITY QUANTITYadjust_quantity, AMOUNT AMOUNTprice*adjust_quantity WHERE goods_id goods_id INSERT STORE_ADJUST VALUES goods_id,quantity,amount,adjust_quantity,convert money,price*adjust_quantity ,adjust_readon,work_pe 參考文獻(xiàn) Delphi6 數(shù)據(jù)庫(kù)技術(shù) 姜洪 、張希編著 國(guó)防工業(yè)出版社 SQL Server 高級(jí)管理與開(kāi)發(fā) 飛思科技產(chǎn)品研發(fā)中心編著 電子工業(yè)出版社 Delphi 趣味程序?qū)W(xué) 楊正華 呂躍春編著 清華大學(xué)出版社 編程技巧與實(shí)例分析 關(guān)兵、邵謙謙等著 中國(guó)水利水電出版社 SQL 應(yīng)用與提高 吳斌、趙有珍著 科學(xué)出版社 信息管理 孫道銀著 經(jīng)濟(jì)管理出版社 建設(shè)工程信息管理 安德鋒著 北京理工大學(xué)出版社 計(jì)算機(jī)信息管理 基礎(chǔ) 曾一著 重慶大學(xué)出版社 山西兵大畢業(yè)設(shè)計(jì)(論文)成績(jī)?cè)u(píng)定表 指導(dǎo)教師批閱 (評(píng)語(yǔ)及成績(jī)) 指導(dǎo)教師簽名: 指導(dǎo)教師職稱(chēng): 年 月 日 綜合評(píng)定成績(jī) 校畢業(yè)設(shè)計(jì)(論文)工作領(lǐng)導(dǎo)小組 組長(zhǎng)簽名: 年 月 日 第 20 頁(yè) 共 20 頁(yè) 數(shù) 據(jù) 流 程 圖 采購(gòu)信息 報(bào)損、報(bào)益 庫(kù)存盤(pán)點(diǎn) 采購(gòu)定單 采購(gòu)信息 POS 銷(xiāo)售 銷(xiāo)售數(shù)量 銷(xiāo)售明細(xì) 商品銷(xiāo)售 財(cái)務(wù)核算 毛利 成本 銷(xiāo)售數(shù)據(jù) 銷(xiāo)售分析 商品信息 商品庫(kù)存 庫(kù)存變動(dòng) 入庫(kù)商品 應(yīng)付帳款 結(jié)算 驗(yàn)收審核 商品入庫(kù)單 定單 定單信息 供應(yīng)商 商品入庫(kù) 采購(gòu)定單 審核、打印 管理信息系統(tǒng) 供 應(yīng) 商 管 理 進(jìn) 貨 管 理 商 品 管 理 系 統(tǒng) 管 理 庫(kù) 存 管 理 收 銀 臺(tái) 管 理 銷(xiāo) 售 管 理 其 他 管 理 收 銀 臺(tái) 銷(xiāo) 售 。 日處理存儲(chǔ)過(guò)程: CREATE PROCEDURE P_DIALY_DO dialy_date char 12 , person_id smallint AS DECLARE goods_id int DECLARE quantity float DECLARE amount money DECLARE temp_cursor CURSOR FOR SELECT ,SUM ,SUM * FROM POS_SALE A, GOODS_INFO B WHERE convert char 12 ,WORK_DATE,102 dialy_date AND GROUP BY OPEN temp_cursor FETCH NEXT FROM temp_cursor INTO goods_id, quantity, amount WHILE FETCH_STATUS 0 BEGIN if EXISTS SELECT * FROM STORE_DETAIL WHERE GOODS_ID goods_id BEGIN UPDATE STORE_DETAIL SET QUANTITY QUANTITYquantity , AMOUNT AMOUNTamount WHERE GOODS_ID goods_id END FETCH NEXT FROM temp_cursor INTO goods_id,quantity,amount END INSERT DIALY_DAN VALUES dialy_date,39。 。 try it。 Params[4].AsInteger: person_id 。 begin if not ansaction then tTransaction。如果其中有一個(gè)操作失敗,則所有操作失敗。//flag 為每項(xiàng)菜單的權(quán)限標(biāo)志 for j: 0 to main_formponentCount1 do begin if main_formponents[j] is TMenuItem and main_formponents[j] as TMenuItem .Tag i1 then if flag 0 then main_formponents[j] as TMenuItem .Visible: false else