【正文】 rofile 中進(jìn)行建立，之后進(jìn)行數(shù)據(jù)庫的連接。接下來的工作是建表。同樣建表的過程也不是唯一的，但是最終實(shí)現(xiàn)的結(jié)果是唯一的。你可以通過 Access 進(jìn)行建表，也可以通過在 Visual Basic 主程序中建表，也可以通過powerdesigner 進(jìn)行可視化的建立，不過用這種方法，在導(dǎo)入的時(shí)候要把數(shù)據(jù)庫要先斷開，否則數(shù)據(jù)庫的數(shù)據(jù)容易丟失。建表的過程注意規(guī)范化命名規(guī)則，如表的字段名等等。同時(shí)也要注意表的字段長度和可否為空。因?yàn)橐院笠O(shè)計(jì)到主鍵，外鍵的問題。如果字段 名不同，同一字段長度不同則主鍵和外鍵將會(huì)連接不上?？梢娊ū頃r(shí)應(yīng)做好全局的打算。我在程序開發(fā)的初期，同樣犯了這個(gè)錯(cuò)誤，導(dǎo)致數(shù)據(jù)庫出錯(cuò)，有時(shí)還要向表中新加入字段。導(dǎo)致數(shù)據(jù)窗口不好用的連鎖反映。 系統(tǒng)的總體設(shè)計(jì) 這個(gè)管理系統(tǒng)從 4 月 1 日開始著手設(shè)計(jì)開發(fā) ,經(jīng)過一段時(shí)間的分析，并根據(jù)對 影音店光盤 管理的具體要求及需要本軟件實(shí)現(xiàn)的功能，將本軟件分為 5 個(gè)大的模塊，分別是：第一部分： 儀器庫維護(hù) ； 第二部分： 儀器借用庫維護(hù) ； 第三部分：通訊錄維護(hù) ； 第四部分： 儀器代碼庫維護(hù) 。 程序流程圖如下： 3 本程序的技術(shù)實(shí)現(xiàn)及具體功能 儀器庫維護(hù)界面與程序設(shè)計(jì) 實(shí)現(xiàn) 代碼設(shè)計(jì) : 主界面 儀器庫維護(hù) 儀器借用庫維護(hù) 通訊錄維護(hù) 儀器代碼庫維護(hù) unit child_lab。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DBTables, DBCtrls, ExtCtrls, Db, StdCtrls, Mask, Buttons, Grids, DBGrids。 type Tfrm_YQ_Lab = class(TForm) Table1: TTable。 Table1_YQBH: TStringField。 Table1StringField2: TStringField。 Table1StringField3: TStringField。 Table1DateField: TDateField。 Table1CurrencyField: TCurrencyField。 Table1StringField4: TStringField。 Table1StringField5: TStringField。 Table1SmallintField: TSmallintField。 Table1SmallintField2: TSmallintField。 procedure FormActivate(Sender: TObject)。 procedure Table1CalcFields(DataSet: TDataSet)。 procedure Query1CalcFields(DataSet: TDataSet)。 private procedure AllRec。 { Private declarations } public { Public declarations } end。 var frm_YQ_Lab: Tfrm_YQ_Lab。 implementation uses Main, prt_lab。 {$R *.DFM} procedure 。 begin with Query1 do begin 。 (39。SELECT * FROM 儀器庫 .db39。)。 Prepare。 ExecSQL。 Open。 end。 end。 procedure (Sender: TObject)。 begin Height:=。 Width:=。 :=alTop。 :=alClient。 :=alClient。 :=0。 :=alClient。 :=+39。mdb39。 :=39。儀器庫 .db39。 :=+39。mdb39。 :=39。儀器類型代碼庫 .db39。 :=+39。mdb39。 :=39。所屬試驗(yàn)代碼庫 .db39。 :=+39。mdb39。 :=39。儀器借出信息庫 .DB39。 。 :=+39。mdb39。 AllRec。 。 。 。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin 。 。 。 。 with Mainform do begin // [1].Text:=39。儀器庫已關(guān)閉 39。 if MDIChildCount=1 then [1].Text:=39。39。 end。 Action := caFree。 end。 if SQLAll[1]=39。A39。 then StrCat(SQLTemp,Pchar(SQLAll)+3)。 SQLStr:=SQLStr+SQLTemp+39。 ORDER BY 儀器名稱 ,型號 ,啟用日期 ,狀況 ,放置位置 ,所屬實(shí)驗(yàn) 39。 FreeMem(SQLTemp)。 // (Pchar(SQLStr),39。 預(yù)查詢的 SQL 語句39。,MB_OK)。 with Query1 do begin 。 (SQLStr)。 Prepare。 ExecSQL。 Open。 end。 end。 。 end。 end。 end. 儀器借用庫維護(hù)界面與代碼設(shè)計(jì) 實(shí)現(xiàn)及功能 代碼設(shè)計(jì) : unit Child_Borrow。 Edit_DateOut: TEdit。 DBGrid1: TDBGrid。 procedure FormCreate(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure PageControl1Change(Sender: TObject)。 procedure SpeedButton1Click(Sender: TObject)。 procedure DataSource1DataChange(Sender: TObject。 Field: TField)。 procedure FormActivate(Sender: TObject)。 private procedure AllRec。 { Private declarations } public { Public declarations } end。 var frm_Borrow: Tfrm_Borrow。 end. 通訊錄維護(hù)界面與代碼設(shè)計(jì)實(shí)現(xiàn) 代碼設(shè)計(jì) : unit Child_Code。 end. 儀器代碼庫維護(hù)界面與代碼設(shè)計(jì) 。 Action:=caFree。 end。 procedure (Sender: TObject)。 begin :=+39。mdb39。 end。 procedure (Sender: TObject)。 begin Height:=。 Width:=。 :=alTop。 。 except ShowMessage(39。錯(cuò)誤，空數(shù)據(jù)庫或者無效數(shù)據(jù)庫 39。)。 end。 end。 end. 主界面設(shè)計(jì)與代碼設(shè)計(jì) 1 原文已完。下文為附加文 檔，如不需要，下載后可以編輯刪除，謝謝！ 施工組織設(shè)計(jì) 本施工組織設(shè)計(jì)是本著“一流的質(zhì)量、一流的工期、科學(xué)管理”來進(jìn)行編制的。編制時(shí)，我公司技術(shù)發(fā)展部、質(zhì)檢科以及項(xiàng)目部經(jīng)過精心研究、合理組織、充分利用先進(jìn)工藝，特制定本施工組織設(shè)計(jì)。 一、 工程概況： 西夏建材城生活區(qū) 2 30住宅樓位于銀川市新市區(qū) ，橡膠廠對面。 本工程由寧夏燕寶房地產(chǎn)開發(fā)有限公司開發(fā)，銀川市規(guī)劃建筑設(shè)計(jì)院設(shè)計(jì)。 本工程耐火等級二級，屋面防水等級三級，地震防烈度為 8度，設(shè)計(jì)使用年限 50 年。 本工程建筑面積 :27樓 。30樓 m2。室內(nèi)地坪177。 以絕對標(biāo)高 m 為準(zhǔn)，總長 27樓 ； 30樓 m。總寬 27樓 ； 30樓 m。設(shè)計(jì)室外地坪至檐口高度 00m，呈長方形布置，東西向，三個(gè)單元。 本工程設(shè)計(jì)屋面為坡屋面防水采用防水涂料。外墻水泥砂漿抹面，外刷淺灰色墻漆。內(nèi)墻面除衛(wèi)生間 200 300 瓷磚，高到頂外，其余均水泥砂槳罩面，刮二遍膩?zhàn)?；樓梯間內(nèi)墻采用 50 2 厚膠粉聚苯顆粒保溫。地面除衛(wèi)生間 200 200 防滑地磚，樓梯間 50 厚細(xì)石砼 1： 1 水泥砂漿壓光外 ，其余均采用 50 厚豆石砼毛地面。樓梯間單元門采用樓宇對講門，臥室門、衛(wèi)生間門采用木門，進(jìn)戶門采用保溫防盜門。本工程窗均采用塑鋼單框雙玻窗，開啟窗均加紗扇。本工程設(shè)計(jì)為節(jié)能型住宅，外墻均貼保溫板。 本工程設(shè)計(jì)為磚混結(jié)構(gòu)，共六層?；A(chǔ)采用 C30 鋼筋砼條形基礎(chǔ)，上砌 MU30 毛石基礎(chǔ)，砂漿采用 M10 水泥砂漿。一、二、三、四層墻體采用 M10 混合砂漿砌筑 MU15 多孔磚；五層以上采用 混合砂漿砌筑 MU15 多孔磚。 本工程結(jié)構(gòu)中使用主要材料：鋼材： I 級鋼， II 級鋼；砼：基礎(chǔ)墊層 C10，基礎(chǔ)底板、地圈梁、基礎(chǔ)構(gòu)造柱均采用 C30，其余均 C20。 本工程設(shè)計(jì)給水管采用 PPR 塑料管，熱熔連接；排水管采用UPVC 硬聚氯乙烯管，粘接；給水管道安裝除立管及安裝 IC 卡水表的管段明設(shè)計(jì)外，其余均暗設(shè)。 本工程設(shè)計(jì)采暖為鋼制高頻焊翅片管散熱器。 本工程設(shè)計(jì)照明電源采用 BV－ 銅芯線，插座電源等采用BV－ 4 銅芯線；除客廳為吸頂燈外，其余均采用座燈。 二、 施工部署及進(jìn)度計(jì)劃 工期安排 本工程合同計(jì)劃開工日期： 2021 年 8 月 21 日，竣工日期：2021 年 7 月 10 日，合同工期 315 天。計(jì)劃 2021 年 9 月 15 日前 3 完成基礎(chǔ)工程， 2021 年 12 月 30 日完成主體結(jié)構(gòu)工程， 2021 年 6月 20 日完成裝修工種，安裝工程穿插進(jìn)行，于 2021 年 7 月 1 日前完成。具體進(jìn)度計(jì)劃詳見附圖－ 1（施工進(jìn)度計(jì)劃）。 施工順序 ⑴ 基礎(chǔ)工程 工程定位線（驗(yàn)線）→挖坑→釬探（驗(yàn)坑）→砂礫墊層的施工→基礎(chǔ)砼墊層→刷環(huán)保瀝青 →基礎(chǔ)放線（預(yù)檢）→砼條形基礎(chǔ)→刷環(huán)保瀝青 →毛石基礎(chǔ)的砌筑→構(gòu)造柱砼→地圈梁→地溝→回填工。 ⑵ 結(jié)構(gòu)工程 結(jié)構(gòu)定位放線（預(yù)檢）→構(gòu)造 柱鋼筋綁扎、定位（隱檢）→磚墻砌筑（＋ 50cm 線找平、預(yù)檢）→柱梁、頂板支模（預(yù)檢）→梁板鋼筋綁扎（隱檢、開盤申請）→砼澆筑→下一層結(jié)構(gòu)定位放線→重復(fù)上述施工工序直至頂。 ⑶ 內(nèi)裝修工程 門窗框安裝→室內(nèi)墻面抹灰→樓地面→門窗安裝、油漆→五金安裝、內(nèi)部清理→通水通電、竣工。 ⑷ 外裝修工程 外裝修工程遵循先上后下原則，屋面工程（包括煙道、透氣孔、壓頂、找平層）結(jié)束后，進(jìn)行大面積裝飾，塑鋼門窗在裝修中逐步插入。 三、 施工準(zhǔn)備 4 現(xiàn)場道路 本工程北靠北京西路，南 臨規(guī)劃道路，交通較為方便。 場內(nèi)道路采用級配砂石鋪墊，壓路機(jī)壓。 機(jī)械準(zhǔn)備 ⑴ 設(shè) 2 臺(tái)攪拌機(jī)， 2 臺(tái)水泵。 ⑵ 現(xiàn)場設(shè)鋼筋切斷機(jī) 1 臺(tái)，調(diào)直機(jī) 1 臺(tái)，電焊機(jī) 2 臺(tái)， 1 臺(tái)對焊機(jī)。 ⑶ 現(xiàn)場設(shè)木工鋸，木工刨各 1 臺(tái)。 ⑷ 回填期間設(shè)打夯機(jī) 2 臺(tái)。 ⑸ 現(xiàn)場設(shè)塔吊 2 臺(tái)。 施工用電 施工用電已由建設(shè)單位引入現(xiàn)場；根據(jù)工程特點(diǎn)，設(shè)總配電箱 1 個(gè)，塔吊、攪抖站、攪拌機(jī)、切斷機(jī)、調(diào)直機(jī)、對焊 機(jī)、木工棚、樓層用電、生活區(qū)各配置配電箱 1 個(gè)；電源均采用三相五線制；各分支均采用鋼管埋地；各種機(jī)械均設(shè)置接零、接地保護(hù)。具體配電箱位置詳見總施工平面圖。 施工用水 施工用水采用深井水自來水，并砌筑一蓄水池進(jìn)行蓄水。樓層用水采用鋼管焊接給水管，每層留一出水口；給水管不置蓄水池內(nèi)，由潛水泵進(jìn)行送水。 生活用水 生活用水采用自來水。