【正文】 w 和 currentCol 來接收 Arow 和 Acol 兩個(gè)變量。 [2,]:=name。 在 StringGrid1 中 雙擊單元格，以跳轉(zhuǎn)到 資料管理的 窗體上。 name:=[2].AsString。 進(jìn)貨單 input 窗體上，放置 ADOQuery1 和 ADOCommand1 控件，并且設(shè)置它們的 ConnectionString 屬性指向 my_jxc，以完成數(shù)據(jù)庫的連接。 同理，點(diǎn)擊了供貨商資料維護(hù)或是客戶資料維護(hù) 菜單 時(shí)，便向ADOQuery1 的 SQL中添加新的 SQL 語句，以使控制不同的數(shù)據(jù)集。 第 9 頁 共 24 頁 圖 31 系統(tǒng)主界面 在主界面的 左 下方會(huì)顯示當(dāng)前 登錄 的用戶名字。39。 +user+39。若找到這樣的用戶編號(hào)，說明是合法用戶，再在權(quán)限清單中，查找對(duì)應(yīng)的權(quán)限，找到什么權(quán)限，便將對(duì)應(yīng)的功能按鈕所對(duì)應(yīng)的Enabled 值置為 True。 下面給出幾個(gè)主要表的具體信息： 表 21 供貨商清單 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 字段描述 供貨商號(hào) Char 10 否 主鍵 拼音編碼 Char 40 否 以便查詢 名稱 Varchar 80 是 地址 Varchar 80 是 郵編 Char 6 是 傳真 Varchar 20 是 電話 Varchar 20 是 電報(bào) Varchar 20 是 銀行帳號(hào) Varchar 20 是 庫房地址 Varchar 40 是 庫房電話 Varchar 20 是 表 22 庫存庫 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 字段描述 貨號(hào) Char 14 否 商品貨號(hào) 倉庫 Varchar 20 否 庫存數(shù)量 Decimal (28,6) 否 庫存金額 Decimal (28,6) 否 庫存單價(jià) Decimal (28,6) 否 最新進(jìn)價(jià) Decimal (28,6) 是 第 6 頁 共 24 頁 表 23 應(yīng)付款 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 字段描述 編號(hào) Char 14 否 主鍵 進(jìn)貨單號(hào) Char 14 是 外鍵 貨號(hào) Char 14 否 外鍵 供貨商號(hào) Char 10 否 外鍵 數(shù)量 Decimal (28,6) 否 進(jìn)貨單價(jià) Decimal (28,6) 是 金額 Decimal (28,6) 是 進(jìn)貨日期 Datetime 8 是 狀態(tài) Char 6 是 應(yīng)付 表 24 權(quán)限清單 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 字段描述 權(quán)限序號(hào) Int 4 否 自增字段 用戶編號(hào) Char 6 是 外鍵 部門 Char 20 是 權(quán)限名稱 Char 30 否 表 25 用戶清單 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 字段描述 用戶編號(hào) Char 20 否 主鍵 部門 Char 20 是 姓名 Char 10 否 性別 Char 2 是 密碼 Varchar 32 否 MD5 加密 表 26 進(jìn)貨單 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 字段描述 編號(hào) Char 14 否 主鍵 供貨商號(hào) Char 10 否 外鍵 進(jìn)貨日期 Datetime 8 是 業(yè)務(wù)員 Char 10 是 制單人 Char 10 是 稅價(jià)合計(jì) Decimal (28,6) 是 第 7 頁 共 24 頁 不含稅價(jià) Decimal (28,6) 是 稅額 Decimal (28,6) 是 表 27 進(jìn)貨單明細(xì) 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 字段描述 編號(hào) Char 14 否 主鍵 進(jìn)貨單號(hào) Char 14 否 外鍵 貨號(hào) Char 14 否 外鍵 進(jìn)貨數(shù)量 Decimal (28,6) 否 進(jìn)價(jià) Decimal (28,6) 是 稅價(jià)合計(jì) Decimal (28,6) 是 稅率 Decimal (28,6) 是 不含稅價(jià) Decimal (28,6) 是 稅額 Decimal (28,6) 是 倉庫 Char 20 是 表 28 已付款 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 字段描述 供貨商號(hào) Char 10 否 主鍵 供貨商名稱 Varchar 80 是 已付金額 Decimal (28,6) 否 最近結(jié)算 Datetime 8 是 最近的結(jié)算日期 以上 便 是數(shù)據(jù)庫中的主要表 單 ，商品清單、客戶清單 與 表 21(供貨商 清單 )類似， 應(yīng)收款與表 23（應(yīng)付款）類似，銷售單與進(jìn)貨單的對(duì)應(yīng)表 單 類似 ，已收款與表 210（已 付款）類似。 商 品 貨號(hào) 條碼 拼音編碼 銷售 進(jìn)貨 供貨商 客戶 客戶編號(hào) 名 稱 名 稱 拼音編碼 拼音編碼 供貨商號(hào) N M P Q 圖 22 商品、供貨商和客戶 ER圖 第 5 頁 共 24 頁 進(jìn)貨單明細(xì)歷史：保存進(jìn)貨單明細(xì)歷史。 庫存庫： 保 存 超市商品庫存的數(shù)量、金額等信息。 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫概念模型 數(shù)據(jù)庫主要涉及到三個(gè)實(shí)體 ：商品、供貨商、客戶。 圖 21 系統(tǒng)功能結(jié)構(gòu)圖 (1) 資料管理 主要包括商品資料、供貨商資料和客戶資料的維護(hù)，可以進(jìn)行添加、刪除 、修改與查詢等一系列操作。本文作者選擇 Delphi 來開發(fā)一個(gè)小型超市的進(jìn)存銷管理系統(tǒng)，得到快速完美的開發(fā)效果。 致 謝 ................................................... 錯(cuò)誤 !未定義書簽。本系統(tǒng)采用 C/S模式，由 Delphi 開發(fā)，數(shù)據(jù)庫 設(shè)計(jì) 使用 MS SQL Server2021。這些分公司或代理商大多分布在全國(guó)各地，甚至是在國(guó)外，遠(yuǎn)距離頻繁的業(yè)務(wù)信息交流構(gòu)成了 這些企業(yè)業(yè)務(wù)活動(dòng)的主要特點(diǎn)。 SQL Server 2021。然而，管理水平的差異會(huì)弱化這種平等的實(shí)際意義。將超市進(jìn)存銷的各種信息存儲(chǔ)于數(shù)據(jù)庫中，再通過前臺(tái)友好的用戶界面來對(duì)數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行插入、刪除、修改與更新等操作， 由于本系統(tǒng)設(shè)計(jì)的界面友好，操作方便，用戶 能輕而易舉地 學(xué)會(huì)使用，有利于企業(yè)創(chuàng)造更大的經(jīng)濟(jì)效益。 (3) 銷售管理 主要功能是 銷售 的過程中，對(duì)數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行實(shí)時(shí)更新，出庫的時(shí)候，將客戶、商品等基本信息讀入數(shù)據(jù)庫表格中，主要是讀入銷售單歷史和銷售單明細(xì)歷史中；對(duì)庫存庫中對(duì) 應(yīng)的商品信息進(jìn)行修改，主要是減去銷售的商品數(shù)量；對(duì)應(yīng)于銷售單中的客戶，產(chǎn)生應(yīng)收款金額；同時(shí)打印銷售單。因此，一個(gè)商品可以向多個(gè)供貨商進(jìn)貨，也可以銷售給多個(gè)客戶， 只是對(duì)應(yīng)著不同的進(jìn)貨單 或 銷售單。 權(quán)限清單： 保存 本系統(tǒng)所有使用者的權(quán)限信息。 銷售單明細(xì)：銷售單從表，保存每一商品的銷售信息，如銷售數(shù)量和銷售價(jià)等。 第 8 頁 共 24 頁 銷售的時(shí)候，將銷售單明細(xì)中銷售的對(duì)應(yīng)貨號(hào)數(shù)量從庫存庫對(duì)應(yīng)的記錄中減去；將銷售單明細(xì)中對(duì)應(yīng)的客戶編號(hào)、銷售價(jià)、金額等信息插入 到應(yīng)收款中，以產(chǎn)生應(yīng)收款金額；將銷售單和銷售單明細(xì)中的記錄添加于 應(yīng)的歷史表格中；清除銷售單和銷售單明細(xì)表格中的記錄。 encrypt_num:=(MD5String(pass))。and 密碼 =39。用戶編號(hào) 39。首先是設(shè)置 ADOQuery1 的 Connection String 屬性指向 my_jxc，再設(shè)置 DataSource1 的 DataSet 屬性為 ADOQuery1，設(shè)置 DBNavigator1 和 DBGrid1 的 DataSource 屬性為 DataSource1，資料管理分為商品資料維護(hù)、供貨商資料維護(hù)和客戶資料維護(hù) ， 以 DBNavigator1 來控制刪除、插入或修改等功能。例如，點(diǎn)擊了 MainMenu 上的商品資料維護(hù)， 便為“商品拼音”，點(diǎn)擊了“查詢”按鈕時(shí)， 先判斷=’商品拼音 ’,于是對(duì)商品清單進(jìn)行查詢 。 然后在 info 窗體中， DBGrid1 的雙擊事件 響應(yīng) ，判斷 =false且 =’供貨商拼音 ’，于是執(zhí)行相應(yīng)代碼，設(shè)置了兩個(gè) string 類型的變量： num,name，分別接收 [0]和 [2]中的內(nèi)容，傳遞給 input 窗體上的 和 。 //成功后返回進(jìn)貨單 :=true。) then begin //將貨號(hào)和商品名稱傳回進(jìn)貨單窗體 num:=[0].AsString。 。 添加倉庫的下拉菜單與添加業(yè)務(wù)員的過程相似，只有當(dāng) 選擇了商品信息 且 點(diǎn)擊 了 “倉庫”所對(duì)應(yīng)的列 ， 才能進(jìn)行倉庫選擇。最大編號(hào) 39。 向進(jìn)貨單中插入對(duì)應(yīng)記錄： :=39。39。++39。39。39。++39。39。 QucikRep1 的 DataSet 屬性為ADOQuery1。 此過程代碼與進(jìn)貨管理中選擇供 貨商 過程 的代碼類似。 點(diǎn)擊“打印銷售報(bào)表”按鈕，以打印出銷售單對(duì)應(yīng)報(bào)表。其對(duì)應(yīng)的代碼如下： (39。39。39。)or39。39。“用戶管理”功能只有管第 15 頁 共 24 頁 理員擁有，而“權(quán)限管理”功能，只有被授予了該權(quán)限的用戶 才 擁有。select 權(quán)限名稱 from 權(quán)限清單 where 用戶編號(hào)=(select 用戶編號(hào) from 用戶清單 where 姓名 =39。)39。以對(duì)應(yīng)的用戶編號(hào)和權(quán)限名稱對(duì)權(quán)限清單進(jìn)行查找，如果查找到的用戶編號(hào)不為空，說明該用戶存在這樣的權(quán)限，便將對(duì)應(yīng) checkbox 的 checked 屬性設(shè)為 true；否則 checked 屬性為 false。)) and(權(quán)限名稱 =39。 。例如對(duì)“商品資料維護(hù)”權(quán)限的修改，對(duì)應(yīng)代碼如下： if then begin order:=strtoint(MaxNumber)+1。39。39。39。編制時(shí)，我公司技術(shù)發(fā)展部、質(zhì)檢科以及項(xiàng)目部經(jīng)過精心研究、合理組織、充分利用先進(jìn)工藝，特制定本施工組織設(shè)計(jì)?？倢?27樓 ； 30樓 m。本工程設(shè)計(jì)為節(jié)能型住宅，外墻均貼保溫板。 二、 施工部署及進(jìn)度計(jì)劃 工期安排 本工程合同計(jì)劃開工日期： 2021 年 8 月 21 日，竣工日期：2021 年 7 月 10 日，合同工期 315 天。 場(chǎng)內(nèi)道路采用級(jí)配砂石鋪墊，壓路機(jī)壓。 施工用水 施工用水采用深井水自來水，并砌筑一蓄水池進(jìn)行蓄水。 ⑵ 工程定位 A、根據(jù)工程特點(diǎn)，平 面布置和定位原則，設(shè)置一橫一縱兩條主控線即 27樓：（ A）軸線和（ 1）軸線； 30樓：（ A）軸線和（ 1）軸線。 C、標(biāo)高由水準(zhǔn)點(diǎn)引測(cè)至坑底。 挖掘機(jī)挖土應(yīng)該從上而下施工，禁止采用挖空底腳的操作方法。 D、外墻轉(zhuǎn)角處應(yīng)同時(shí)砌筑，內(nèi)外墻交接處必須留斜槎，槎子長(zhǎng)度不小于墻體高度的 2/3，槎子必須平直、通順。 ⑷ 鋼筋保護(hù)層：基礎(chǔ) 40mm，柱、梁 30mm，板 20mm。 ⑶ 投料順序：石子→水泥→砂子。 ⑵ 架子底部夯實(shí)，墊木板，綁掃地桿。底子 11 灰應(yīng)粘結(jié)牢固，并用刮杠刮平，木抹子抹平。 做水泥砂漿找平層表面應(yīng)平整壓光，屋面與女兒墻交接處抹成 R≥ 150mm 圓角。 ⑸ 燈具、插座、開關(guān)等器具必須選用合格產(chǎn)品，不合格產(chǎn)品嚴(yán)禁使用。規(guī)范中之所以有厚度和寬度要求，是由于灰縫過薄，使砌體產(chǎn)生不均勻受力，影響砌體隨載能力。 E、均勻鋪灰，務(wù)使鋪灰之厚度均勻一致。拌好的砂漿，須于 3 小時(shí)之內(nèi)使用完畢。規(guī)范還規(guī)定：“構(gòu)造柱與墻連拉處，宜砌成馬牙 槎，并沿墻高每 50cm設(shè) 2Ф 6 拉結(jié)鋼筋，每邊伸入墻內(nèi) ＞ 100cm。產(chǎn)生的原則，一是建筑標(biāo)高與結(jié)構(gòu)標(biāo)高不吻合。在罩面之前，根據(jù)平臺(tái)標(biāo)高在樓梯側(cè)面墻上彈 16 出一道踏步踏 級(jí)的標(biāo)準(zhǔn)斜線。腳手眼內(nèi)外同時(shí)堵砌，絕不準(zhǔn)用干磚堵塞。 ⑶ 當(dāng)板塊砼都有了足夠強(qiáng)度后，再用加熱后的鐵鉻子，將縫處瀝青砂漿板條予以慰湯，使其縫隙深淺一致，交角平順。注意排水坡度與坡向或做 C20 細(xì)石砼。 ⑷ 、地面的做法按設(shè)計(jì)要求進(jìn)行或建議甲方按 上述“地面漏水防預(yù)“中所提做法處理，但防水層必須沿套管或給排水管上翻 150mm 并與管子貼粘牢固。 ⑵ 、 120 預(yù)制塊用于 370 墻及 120 墻中。 20 ⑷ 、預(yù)防塑鋼與鐵制連接鐵板條之間的電偶腐蝕 L： 為了防止塑鋼和連接鐵板條之間的電偶腐蝕，采取下列措施： ① 、采用鍍鋅鋼板制作連接鐵板條。不需坡口焊時(shí)，在焊前用砂布將管口打磨干凈，兩管對(duì)口間要均勻，不可一側(cè)大，一側(cè)小。 ⑷ 、水壓試驗(yàn)： ① 、把好水壓試驗(yàn)關(guān)，是控制管道安裝質(zhì)量的關(guān)鍵。這樣，當(dāng)前面的插座壞了，接在后面的幾個(gè)插座就會(huì)發(fā)生零線斷線或地線斷 線，造成搞插座沒有電，或在發(fā)生漏電事故時(shí)，漏電開關(guān)不動(dòng)作，嚴(yán)重者造成人員 22 傷亡。 從電源時(shí)入配電箱之后，從接地板的引上線和電源中性點(diǎn)的焦點(diǎn)處，向室內(nèi)分出保護(hù)線 PE 和進(jìn)入電路的零線 N，在建筑物地也不得混淆，困為，一旦線進(jìn)入電路，就有電源通過，混淆后，就會(huì)引起漏保護(hù)器跳閘，影響正常使