第一篇：供配電系統(tǒng)設(shè)計圖和實際比較

供配電系統(tǒng)設(shè)計圖和實際比較※

一、1TM1低壓配電系統(tǒng) 安800kvA變壓器一臺

供電用戶：B-

1、B-

2、B-

3、C-1、1-27F。C-

1、C-

3、B-3地下室應(yīng)急用電及第四層用電：

防火區(qū)A、B照明、配電室、消防控制室用電： 總設(shè)備容量1524kw, 同時率為0.525。

建議將同時率改為0.3控制則變壓器容量應(yīng)為500KVA.二、1TM2低壓配電系統(tǒng) 安800KVA變壓器一臺

供電用戶C-

3、C-1 5～20F、C-2 照明

C-

1、C-

3、B-3地下室消防動力；B-2消防泵生活泵；C-

1、C-

3、B-3客梯各17KW。

總設(shè)備容量：2085.4KW，同時率0.384.若減去1A205設(shè)備容量528.4KW后，TM2上的設(shè)備容量應(yīng)為1567KW。改按同時率0.3控制變壓器容量應(yīng)為470KVA，建議將800KVA的變壓器改為500KVA。

三、1TM3低壓配電系統(tǒng)

（一）設(shè)計圖紙：裝1000KVA變壓器一臺 供電用戶C-

1、C-

3、C-3的商業(yè)照明用電 設(shè)計總裝容量為 1235KW 同時率為0.81

（二）按各棟商業(yè)各層照明平面布圖實際計算結(jié)果 C-

1、一～四層 25.2KW C-

3、一～四層 29.3KW B-

3、一～四層 27.7KW 合計 82.2KW 計算詳后

四、1TM4低壓配電系統(tǒng)

（一）設(shè)計圖紙樁裝1000KVA變壓器一臺供C-

1、C-

3、B-3空調(diào)用電。應(yīng)急照明用電：C-1 20KW，C-3 20KW, B-3 20KW,共60KW； B-1照明用電 74KW； B-2照明用電20+24+24=68KW。總設(shè)備裝設(shè)容量為1041.6KW。

（二）、按各棟各層動力平面布置圖實際設(shè)計計算結(jié)果： C-

1、一～四層 170KW C-

3、一～四層 228KW B-

3、一～四層 228KW 商業(yè)應(yīng)急照明C-1、C-3、B-3 60KW B-1、B-2商業(yè)空調(diào)用電 74+68= 142KW 合計 828KW

五、建議將1TM3與1TM4兩系統(tǒng)合并容量為82.2+828=910.2KW。安裝一臺1000KVA變壓器。

C-1＃樓按設(shè)計圖紙計算照明裝設(shè)容量

一層：雙管熒光燈86盞 2*36*86=6192W 吸頂燈 23盞 13*23=276W 小計 6468W 二層：雙管熒光燈100盞 2*36*100=7200W 吸頂燈 12盞 13*12=156W 單管熒光燈 6盞 36*6=216W 小計 7572W 三層：雙管熒光燈108盞 2*36*108=7776W 吸頂燈 12盞 13*12=156W 單管熒光燈 5盞 36*5=180W 小計 8112W 四層：雙管熒光燈34盞 2*36*34=2448W 吸頂燈 45盞 13*45=585W 小計 3044W 合計一～四層商業(yè)照明 25196W=25.2KW

C-1＃樓按動力平面布置圖計算

一層：(1)空調(diào)插座21個，安3p柜式空調(diào)21臺，3KW／臺 計2KW（2）插座用電 21KW 小計 83KW 二層：（1）柜式空調(diào)（同一層）62KW（2）二級加三級插座（同一層）21KW 三層：（同一層）83KW 四層： 30KW 合計: 279KW 同時率按0.5計應(yīng)為 140KW 扶梯用電 30KW ※一～四層動力電合計（已計同時率）170KW

B-3＃樓按設(shè)計照明圖紙計算商業(yè)裝設(shè)容量

一層：雙管熒光燈124盞 2*36*124=8928W 吸頂燈 20盞 13*20=260W 小計 9188W 二層：雙管熒光燈107盞 2*36*107=7704W 吸頂燈 9盞 13*9=117W 單管熒光燈 11盞 小計 8217W 三層：雙管熒光燈102盞 2*36*102=7344W 吸頂燈 12盞 13*12=156W 單管熒光燈 12盞 小計 7932W 四層：雙管熒光燈26盞 2*36*26=1872W 吸頂燈 12盞 13*12=156W 單管熒光燈 1盞小計 2350W 合計 27687W=27.7KW

36*11=396W 36*12=432W 36W B-3＃樓按設(shè)計動力平面布置圖計算設(shè)備裝設(shè)容量 一層：柜式空調(diào) 31臺 3KW／臺 93KW 插座 31KW 小計 124KW 二層：同一層 124KW 三層：同一層 124KW 四層：柜式空調(diào) 6臺 3KW／臺 18KW 插座用電 6KW 小計 24KW 合計 396KW 同時率按0.5計應(yīng)為 198KW 扶梯用電 30KW ※一～四層動力電合計（已計同時率）

228KW C-3＃樓按設(shè)計照明平面圖計算裝設(shè)容量

一層：按二層 8724W 二層：雙管熒光燈111盞 2*36*111=7982W 吸頂燈 12盞 13*12=156W 單管熒光燈 16盞 36*16=576W 小計 8724W 三層：雙管熒光燈113盞 2*36*113=8136W 吸頂燈 12盞 13*12=156W 單管熒光燈 16盞 36*16=576W 小計 8968W 四層：雙管熒光燈33盞 2*36*33=7982W 吸頂燈 12盞 13*12=156W 單管熒光燈 1盞 36W 小計 2906W 合計 29322W=29.32KW

C-3＃樓按設(shè)計動力平面布置圖計算設(shè)備裝設(shè)容量 一層：柜式空調(diào) 31臺 3KW／臺 93KW 插座 31KW 小計 124KW 二層：同一層 124KW 三層：同一層 124KW 四層：柜式空調(diào) 6臺 3KW／臺 18KW 插座 6KW 小計 24KW 合計 396KW 同時率按0.5計應(yīng)為 198KW 扶梯用電 30KW ※一～四層動力電合計（已計同時率）

228KW

第二篇：VB+Access設(shè)計圖書管理系統(tǒng)

VB+Access設(shè)計圖書管理系統(tǒng)一、需求分析

在進行一個項目的設(shè)計之前，先要進行必要的需求分析。

現(xiàn)某圖書館需要管理其各種人員和圖書信息，希望實現(xiàn)辦公的信息化，通過建立一個圖書管理系統(tǒng)來管理圖書。其完成的功能如下:

(1)可以實現(xiàn)圖書的登記、借閱和賠償?shù)墓芾怼?/p>

(2)可以實現(xiàn)對圖書的各種信息的查詢，包括逐個瀏覽，以及對圖書信息的增加、刪除和編輯操作。另外，可以根據(jù)輸入的信息來檢索某個圖書的信息。

(3)可以實現(xiàn)對管理人員的投訴管理。

(4)可以實現(xiàn)對值班人員的管理。

系統(tǒng)的功能模塊圖如圖1所示。

本實例根據(jù)上面的設(shè)計規(guī)劃出的實體有圖書登記實體、圖書借閱實體、圖書賠償實體、查詢輸出實體、值班管理實體、投訴管理實體。各個實體具體的描述E-R圖如下。

圖書登記實體E-R圖如圖2所示。

圖書借閱實體E-R圖如圖3所示。

圖1 系統(tǒng)的功能模塊圖

圖2 圖書登記實體E-R圖

圖3 圖書借閱實體E-R圖

圖書賠償實體E-R圖如圖4所示。

圖4 圖書賠償實體E-R圖

投訴管理實體E-R圖如圖5所示。

圖5 投訴管理實體E-R圖

值班管理實體E-R圖如圖6所示。

圖6 值班管理實體E-R圖

查詢輸出實體E-R圖如圖7所示。

圖7 查詢輸出實體E-R圖

二、結(jié)構(gòu)設(shè)計

根據(jù)上面的需求分析，設(shè)計好數(shù)據(jù)庫系統(tǒng)，然后開發(fā)應(yīng)用程序可以考慮的窗體的系統(tǒng)，每一個窗體實現(xiàn)不同的功能，可以設(shè)計下面的幾個模塊。

● 圖書管理模塊:用來實現(xiàn)圖書的登記、借閱、賠償。

● 圖書資料模塊:用來實現(xiàn)圖書的查詢輸出。

● 值班管理模塊:用來實現(xiàn)管理人員的值班瀏覽。

● 投訴管理模塊:用來實現(xiàn)對管理人員的投訴管理。

● 系統(tǒng)管理模塊:用來實現(xiàn)用戶的增加、刪除和修改等操作。

三、數(shù)據(jù)庫設(shè)計

這里的數(shù)據(jù)庫采用Access，用ADO作為連接數(shù)據(jù)對象。

1、建立Access 數(shù)據(jù)庫

啟動Access，建立一個空的數(shù)據(jù)庫book.mdb，如圖8所示。

使用程序設(shè)計器建立系統(tǒng)需要的表格如下。

圖書登記表，如圖9所示。

圖8 建立數(shù)據(jù)庫book.mdb 圖9 圖書登記表

圖書借閱表，如圖10所示。圖書賠償表，如圖11所示。

圖10 圖書借閱表 圖11 圖書賠償表

圖書資料表，如圖12所示。系統(tǒng)管理表，如圖13所示。

圖12 圖書資料表 圖13 系統(tǒng)管理表

投訴管理表，如圖14所示。

圖14 投訴管理表

值班管理表，如圖15所示。

圖15 值班管理表

2、連接數(shù)據(jù)

在Visual Basic環(huán)境下，選擇“工程”→“引用”命令，在隨后出現(xiàn)的對話框中選擇“Microsoft ActiveX Data Objects 2.0 Library”，然后單擊“確定”按鈕，如圖16所示。

圖16 引用ADO連接數(shù)據(jù)庫

在程序設(shè)計的公共模塊中，先定義ADO連接對象。語句如下:

Public conn As New ADODB.Connection ' 標(biāo)記連接對象

然后在子程序中，用如下的語句即可打開數(shù)據(jù)庫:

Dim connectionstring As String

connectionstring = “provider=Microsoft.Jet.oledb.4.0;” &_

“data source=book.mdb”

conn.Open connectionstring

3、設(shè)置ODBC

VB的ADO對象是通過ODBC來訪問數(shù)據(jù)庫，所以還要建立ODBC數(shù)據(jù)引擎接口。

打開控制面板中的“管理工具”→“數(shù)據(jù)源”(ODBC)，出現(xiàn)如圖17所示的對話框。

圖17 ODBC對話框

單擊“添加”按鈕，出現(xiàn)“創(chuàng)建新數(shù)據(jù)源”對話框，如圖18所示。

圖18 “創(chuàng)建新數(shù)據(jù)源”對話框

選擇Microsoft Access Driver(*.mdb)，單擊“完成”按鈕，出現(xiàn)如圖19所示對話框。

圖19 設(shè)置連接數(shù)據(jù)源

在“數(shù)據(jù)源名”文本框中添加一個名字，單擊“確定”按鈕完成系統(tǒng)默認連接設(shè)置。然后在ODBC對話框中單擊“確定”按鈕完成ODBC設(shè)置。

界面設(shè)計

設(shè)計好的界面如圖20所示。

圖20 圖書管理系統(tǒng)界面

這是一個多文檔界面(MDI)應(yīng)用程序，可以同時顯示多個文檔，每個文檔顯示在各自的窗體中。MDI 應(yīng)用程序中常有包含子菜單的“窗體”選項，用于在窗體或文檔之間進行切換。

菜單應(yīng)用程序中，有5個菜單選項，每個選項對應(yīng)著E-R圖的一個子項目。

1、創(chuàng)建主窗體

首先創(chuàng)建一個工程，命名為圖書管理系統(tǒng)，選擇“工程”→“添加MDI窗體”命令，則在項目中添加了主窗體。該窗體的一些屬性如表1所示。

表1 主窗體的屬性

屬

Caption Name Menu Windowstate

性值

圖書管理系統(tǒng) Main Mainmenu1 Maxsize

Windowstate的值為Maxsize，即程序啟動之后自動最大化。

將“菜單”組件從“工具箱”拖到窗體上。創(chuàng)建一個 Text 屬性設(shè)置為“文件”的頂級菜單項，且?guī)в忻麨椤瓣P(guān)閉”的子菜單項。類似地創(chuàng)建一些菜單項，如表2所示。

表2 菜 單 項 表

菜 單 名 稱 MenuItem1 MenuItem2 MenuItem3 MenuItem4 MenuItem5 MenuItem6 MenuItem7 MenuItem8 MenuItem9 MenuItem10 MenuItem11 MenuItem12

Text屬性 圖書管理 圖書登記 圖書借閱 圖書賠償 圖書資料 查詢輸出 值班管理 投訴管理 系統(tǒng)管理 增加用戶 修改密碼 退出

功 能 描 述

頂級菜單，包含子菜單 調(diào)出圖書登記窗體 調(diào)出圖書借閱窗體 調(diào)出圖書賠償窗體 頂級菜單，包含子菜單 調(diào)出查詢輸出窗體 頂級菜單，沒有子菜單 頂級菜單，沒有子菜單 頂級菜單，包含子菜單 調(diào)出用戶窗體 調(diào)出密碼窗體 系統(tǒng)退出

主窗體如圖21所示。

圖21 主窗體

2、創(chuàng)建各子窗體

選擇“工程”→“添加窗體”命令，添加子窗體。

在新建Visual Basic工程時自帶的窗體中，將其屬性MIDChild改成True，則這個窗體成為MID窗體的子窗體。

在這個項目中，要創(chuàng)建的子窗體如表3所示。

表3 所有子窗體

子 窗 體 名 圖書登記 圖書借閱 圖書賠償 增加新用戶 查詢輸出 登錄系統(tǒng) 修改密碼

Text frmdengji frmjieyue frmpeichang frmadduser frmfind frmlogin frmchangepwd

下面分別給出這些子窗體，以及它們所使用的控件。

(1)圖書登記子窗體如圖22所示，其控件如表4所示。

圖22 圖書登記子窗體

表4 圖書登記子窗體控件

控 件 類 別

控件Name Label1 Label2 Label

Label3 Label4 Label5 Text1 Text2 TextBox

Text3 Text4 Text5 Command1 Command2 Command3 CommandButton

Command4 Command5 Command6 Command7 ADO DataGrid

DataAdodc1 DataGrid1

控件Text 編號 書名 類型 購買日期 定價(空)(空)(空)(空)(空)增加記錄 刪除記錄 下一條 上一條 第一條 最后一條 退出(空)(空)

圖書借閱和圖書賠償子窗體分別如圖23和圖24所示，因為它們的控件與圖書登記子窗體的雷同，在此不作介紹。

圖23 圖書借閱子窗體

圖24 圖書賠償子窗體

(2)增加用戶子窗體如圖25所示，其控件如表5所示。

圖25 增加用戶子窗體

表5 增加用戶子窗體控件

控 件 類 別

控件Name 控件Text

Label1 Label

Label2 Label3 Label4 Text1 TextBox ComboBox CommandButton

Text2 Text3 Comb1 Commandl Command2

輸入用戶名 輸入密碼 確認密碼 選擇權(quán)限(空)(空)(空)(空)確定 取消

(3)修改密碼子窗體如圖26所示。

圖26 修改密碼子窗體

(4)庫房管理子窗體如圖27所示。

圖27 庫房管理子窗體

其控件如表6所示。

表6 庫房管理子窗體控件

控 件 類 別 TextBox ComboBox MSFlexGrid

控件Name Text1 Combo1 MSFlexGrid1

控件Text(空)

(5)查詢子窗體如圖28所示，其控件如表7所示。

圖28 查詢子窗體

表7 查詢子窗體控件

控 件 類 別 OptionButton

控件Name Option1 Option2 Label1 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Label9 Label10

控件Text 按編號查詢 按購買日期查詢 從 到 從 年 月 日 到 年 月 日(空)(空)(空)(空)(空)(空)(空)(空)查詢 取消 Label Combo(0)ComboBox Combo(1)ComboBox Comboy(0)ComboBox Comboy(1)ComboBox Combom(0)ComboBox Combom(1)ComboBox Combod(0)ComboBox Combod(1)ComboBox CommandButton

Combo1 Combo1 Comboy Comboy Combom Combom Combod Combod Command1 Command2

(6)用戶登錄子窗體如圖29所示。

(7)值班管理子窗體如圖30所示，其控件如表8所示。

圖29 用戶登錄子窗體 圖30 值班管理子窗體

(8)投訴管理子窗體如圖31所示，其控件如表9所示。

圖31 投訴管理子窗體

建立公共模塊

1、顯示目錄

建立公共模塊可以提高代碼的效率，同時使得修改和維護代碼都很方便。

創(chuàng)建公共模塊的步驟如下:

(1)在菜單中選擇“工程”→“添加模塊”命令，則出現(xiàn)模塊對話框，如圖32所示。

(2)選擇模塊圖標(biāo)后，單擊“打開”按鈕，則模塊已經(jīng)添加到項目中了。默認情況下名為Module1。

圖32 模塊對話框

(3)在模塊中定義整個項目的公共變量。

Public conn As New ADODB.Connection ' 標(biāo)記連接對象

Public userID As String ' 標(biāo)記當(dāng)前用戶ID

Public userpow As String ' 標(biāo)記用戶權(quán)限

Public find As Boolean ' 標(biāo)記查詢

Public sqlfind As String ' 查詢語句

Public rs_data1 As New ADODB.Recordset

Public findok As Boolean

Public frmdata As Boolean

Public Const keyenter = 13 ' enter鍵的ASCII碼

在主窗體添加完菜單之后，就要為各個子菜單創(chuàng)建事件處理程序。主窗體代碼

在本項目中，子菜單事件都是Click事件，這里先給出主窗體部分的代碼。

下面是響應(yīng)“增加用戶”子菜單Click事件，調(diào)出增加用戶窗體代碼。

Private Sub adduser_Click()

frmadduser.Show

End Sub

下面是響應(yīng)“查詢輸出”子菜單Click事件，調(diào)出查詢輸出窗體代碼。

Private Sub chaxunshuchu_Click()

frmfind.Show

End Sub

下面是響應(yīng)“退出”子菜單Click事件，調(diào)出退出窗體代碼。

Private Sub exit_Click()

Unload Me

End Sub 下面是響應(yīng)“圖書登記”子菜單Click事件，調(diào)出圖書登記窗體代碼。

Private Sub checkin_Click()

frmdengji.Show

End Sub

下面是響應(yīng)“修改密碼”子菜單Click事件，調(diào)出修改密碼窗體代碼。

Private Sub changepwd_Click()

frmchangepwd.Show

End Sub

下面是響應(yīng)“圖書借閱”子菜單Click事件，調(diào)出圖書借閱窗體代碼。

Private Sub borrow_Click()

frmjieyue.Show

End Sub

下面是響應(yīng)“圖書賠償”子菜單Click事件，調(diào)出圖書賠償窗體代碼。

Private Sub tushupeichang_Click()

frmpeichang.Show 1

End Sub

下面是響應(yīng)“值班管理”菜單Click事件，調(diào)出值班管理窗體代碼。

Private Sub zhibanguanli_Click()

frmzhiban.Show 1

End Sub

下面是響應(yīng)“投訴管理”子菜單Click事件，調(diào)出投訴管理窗體代碼。

Private Sub tousuguanli_Click()

frmtousu.Show 1

End Sub

2、各子窗體的代碼

在各個子窗體建立好后，就可以根據(jù)各個子窗體的功能給它們添加相應(yīng)代碼了。

(1)圖書登記子窗體代碼

本窗體用來填寫圖書登記的信息，用ADO來連接數(shù)據(jù)庫，是本窗體的重點。采用MDI的子程序，所以運行后，它出現(xiàn)在主程序的界面下，如圖33所示。

圖33 圖書登記子窗體

按鈕控件要求先填寫基本信息，然后與數(shù)據(jù)庫信息比較。Private Sub Command1_Click()On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Sub adderr: MsgBox Err.Description End Sub Private Sub Command2_Click()On Error GoTo deleteerr With Adodc1.Recordset If Not.EOF And Not.BOF Then If MsgBox(“刪除當(dāng)前記錄嗎?”, vbYesNo + vbQuestion)= vbYes Then.Delete.MoveNext If.EOF Then.MoveLast End If End If End With Exit Sub deleteerr: MsgBox Err.Description End Sub Private Sub Command3_Click()Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox “這是最后一條記錄”, vbOKCancel + vbQuestion Adodc1.Recordset.MoveLast End If

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then

MsgBox “這是第一條記錄”, vbOKCancel + vbQuestion

Adodc1.Recordset.MoveFirst

End If

End Sub

Private Sub Command5_Click()

If Adodc1.Recordset.EOF Then

MsgBox “記錄空”, vbOKCancel + vbQuestion

End

Else

Adodc1.Recordset.MoveFirst

Exit Sub

End Sub

Private Sub Command6_Click()

If Adodc1.Recordset.RecordCount = 0 Then

MsgBox “空記錄”, vbOKCancel + vbQuestion

End

Else

Adodc1.Recordset.MoveLast

End If

End Sub

Private Sub Command7_Click()

MDIForm1.Show

frmdengji.Hide

End Sub 圖書借閱和圖書賠償子窗體運行后如圖34和圖35所示，因為它們的代碼和圖書登記子窗體的代碼雷同，在此不做重復(fù)。

圖34 圖書借閱子窗體運行效果

示。

圖35 圖書賠償子窗體運行效果

(2)增加用戶子窗體代碼

增加用戶子窗體是用來增加用戶的用戶名、密碼和權(quán)限的。其運行效果如圖36所 單擊“確定”按鈕后，還要返回一個信息框，提示成功信息，如圖37所示。

圖36 增加用戶子窗體運行效果 圖37 成功信息框

窗體部分代碼的思路是，收集輸入的表中的字符串，然后與數(shù)據(jù)庫中的系統(tǒng)的用戶數(shù)據(jù)比較，如果不存在，則允許添加。

Private Sub Command1_Click()

Dim sql As String

Dim rs_add As New ADODB.Recordset

If Trim(Text1.Text)= “" Then

MsgBox ”用戶名不能為空“, vbOKOnly + vbExclamation, ”“

Exit Sub

Text1.SetFocus

Else

sql = ”select * from 系統(tǒng)管理“

rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic

While(rs_add.EOF = False)

If Trim(rs_add.Fields(0))= Trim(Text1.Text)Then

MsgBox ”已有這個用戶“, vbOKOnly + vbExclamation, ”“

Text1.SetFocus

Text1.Text = ”“

Text2.Text = ”“

Text3.Text = ”“

Combo1.Text = ”“

Exit Sub

Else

rs_add.MoveNext

End If

Wend

If Trim(Text2.Text)<> Trim(Text3.Text)Then

MsgBox ”兩次密碼不一致“, vbOKOnly + vbExclamation, ”“

Text2.SetFocus

Text2.Text = ”“

Text3.Text = ”“

Exit Sub

ElseIf Trim(Combo1.Text)<> ”system“ And Trim(Combo1.Text)<> ”guest“ Then

MsgBox ”請選擇正確的用戶權(quán)限“, vbOKOnly + vbExclamation, ”“

Combo1.SetFocus

Combo1.Text = ”“

Exit Sub

Else

rs_add.AddNew

rs_add.Fields(0)= Text1.Text

rs_add.Fields(1)= Text2.Text

rs_add.Fields(2)= Combo1.Text

rs_add.Update

rs_add.Close 下面是返回成功信息對話框的代碼:

MsgBox ”添加用戶成功“, vbOKOnly + vbExclamation, ”“

Unload Me

End If

End If

End Sub

(3)修改密碼子窗體代碼

修改密碼子窗體是用來修改用戶密碼的。其運行效果如圖38所示。

圖38 修改密碼子窗體運行效果

在“確定”按鈕的Click事件中添加如下代碼: Private Sub Command1_Click()Dim rs_chang As New ADODB.Recordset

Dim sql As String If Trim(Text1.Text)<> Trim(Text2.Text)Then MsgBox ”密碼不一致!“, vbOKOnly + vbExclamation, ”“ Text1.SetFocus Text1.Text = ”“ Text2.Text = ”“ Else sql = ”select * from 系統(tǒng)管理 where 用戶名='“ & userID & ”'“ rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1)= Text1.Text rs_chang.Update rs_chang.Close MsgBox ”密碼修改成功“, vbOKOnly + vbExclamation, ”“ Unload Me End If End Sub

在上述代碼中，首先比較兩個表中的數(shù)據(jù)是否一致，然后用rs_chang.Fields(1)= Text1.Text語句把代碼輸入到數(shù)據(jù)庫中。最后，用MsgBox ”密碼修改成功“, vbOKOnly + vbExclamation，”“語句彈出一個信息框，告訴修改成功，如圖39所示。

顯示目錄

(4)庫房管理子窗體代碼

庫房管理子窗體是用來管理圖書資料的。其運行效果如圖40所示。

圖40 庫房管理子窗體

實際上，設(shè)計庫房管理子窗體的程序代碼與增加用戶子窗體的代碼在思路上是完全相同的。就是在DataGrid的文本框中顯示圖書進出的清單，最后把填寫的明細存儲到數(shù)據(jù)庫中。

檢查代碼如下:

Option Explicit

Else

Dim rs_data2 As New ADODB.Recordset Dim select_row As String Dim showgrid2 As Boolean Dim rs_custom As New ADODB.Recordset Dim jinchu As String ' 進出庫標(biāo)志

Dim modify As Boolean ' 修改狀態(tài)標(biāo)志 Private Sub cmdexit_Click()Unload Me End Sub Private Sub Form_Load()On Error GoTo loaderror Dim sql As String sql = ”select * from 圖書資料“ rs_custom.CursorLocation = adUseClient rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic While Not rs_custom.EOF Combo1.AddItem rs_custom.Fields(0)rs_custom.MoveNext Wend findok = True modify = False ' 非修改狀態(tài) showgrid2 = False displaygrid1 ' 調(diào)用顯示Datagrid1子程序 loaderror: If Err.Number <> 0 Then MsgBox Err.Description End If End Sub '顯示msflexgrid1子程序 Public Sub displaygrid1()Dim i As Integer On Error GoTo displayerror setgrid setgridhead MSFlexGrid1.Row = 0 If Not rs_data1.EOF Then rs_data1.MoveFirst Do While Not rs_data1.EOF MSFlexGrid1.Row = MSFlexGrid1.Row + 1 MSFlexGrid1.Col = 0 If Not IsNull(rs_data1.Fields(0))Then MSFlexGrid1.Text = rs_data1.Fields(0)MSFlexGrid1.Text = ”“ MSFlexGrid1.Col = 1 Else

Else

Else

Else

Else

If Not IsNull(rs_data1.Fields(1))Then MSFlexGrid1.Text = rs_data1.Fields(1)MSFlexGrid1.Text = ”“ MSFlexGrid1.Col = 2 If Not IsNull(rs_data1.Fields(2))Then MSFlexGrid1.Text = rs_data1.Fields(2)MSFlexGrid1.Text = ”“ MSFlexGrid1.Col = 3 If Not IsNull(rs_data1.Fields(3))Then MSFlexGrid1.Text = rs_data1.Fields(3)MSFlexGrid1.Text = ”“ MSFlexGrid1.Col = 4 If Not IsNull(rs_data1.Fields(4))Then MSFlexGrid1.Text = rs_data1.Fields(4)MSFlexGrid1.Text = ”“ MSFlexGrid1.Col = 5 If Not IsNull(rs_data1.Fields(5))Then MSFlexGrid1.Text = rs_data1.Fields(5)

MSFlexGrid1.Text = ”“ rs_data1.MoveNext Loop End If displayerror: If Err.Number <> 0 Then MsgBox Err.Description End If End Sub Public Sub setgrid()Dim i As Integer On Error GoTo seterror With MSFlexGrid1.ScrollBars = flexScrollBarBoth.FixedCols = 0.Rows = rs_data1.RecordCount + 1.Cols = 6.SelectionMode = flexSelectionByRow For i = 0 To.Rows1.ColWidth(i)= 1300 Next i End With Exit Sub

seterror: MsgBox Err.Description End Sub Public Sub setgridhead()On Error GoTo setheaderror MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0 MSFlexGrid1.Text = ”編號“ MSFlexGrid1.Col = 1 MSFlexGrid1.Text = ”購買日期“ MSFlexGrid1.Col = 2 MSFlexGrid1.Text = ”書名“ MSFlexGrid1.Col = 3 MSFlexGrid1.Text = ”類型“ MSFlexGrid1.Col = 4 MSFlexGrid1.Text = ”定價“ MSFlexGrid1.Col = 5 MSFlexGrid1.Text = ”備注“ Exit Sub setheaderror: MsgBox Err.Description End Sub Private Sub Form_Unload(Cancel As Integer)findok = False rs_data1.Close rs_custom.Close End Sub Private Sub MSFlexGrid1_Click()On Error GoTo griderror Dim getrow As Long getrow = MSFlexGrid1.Row If MSFlexGrid1.Rows = 1 Then MsgBox ”無相關(guān)記錄“, vbOKOnly + vbExclamation, ”“ Else select_row = MSFlexGrid1.TextMatrix(getrow, 0)End If griderror: If Err.Number <> 0 Then MsgBox Err.Description End If End Sub Public Sub showdata()With MSFlexGrid2.Rows = rs_data2.RecordCount + 1

.Row = 0

If Not rs_data2.EOF Then

rs_data2.MoveFirst

Do While Not rs_data2.EOF

.Row =.Row + 1

.Col = 0

If Not IsNull(rs_data2.Fields(0))Then.Text = rs_data2.Fields(0)Else.Text = ”“

.Col = 1

If Not IsNull(rs_data2.Fields(1))Then.Text = rs_data2.Fields(1)Else.Text = ”“

.Col = 2

If Not IsNull(rs_data2.Fields(2))Then.Text = rs_data2.Fields(2)Else.Text = ”“

.Col = 3

If Not IsNull(rs_data2.Fields(3))Then.Text = rs_data2.Fields(3)Else.Text = ”“

.Col = 4

If Not IsNull(rs_data2.Fields(4))And CDbl(rs_data2.Fields(4))< 0 Then

.Text =-CDbl(rs_data2.Fields(4))

Else

.Text = rs_data2.Fields(4)

End If

.Col = 5

If Not IsNull(rs_data2.Fields(5))Then.Text = rs_data2.Fields(5)Else.Text = ”“

.Col = 6

If Not IsNull(rs_data2.Fields(6))Then.Text = rs_data2.Fields(6)Else.Text = ”“

.Col = 7

If Not IsNull(rs_data2.Fields(7))And CDbl(rs_data2.Fields(4))< 0 Then

.Text =-CDbl(rs_data2.Fields(7))

Else

.Text = rs_data2.Fields(7)

End If

.Col = 8

If Not IsNull(rs_data2.Fields(8))Then.Text = rs_data2.Fields(8)Else.Text = ”“

rs_data2.MoveNext

Loop

rs_data2.MoveLast

End If

End With

End Sub(5)查詢子窗體代碼

查詢子窗體是用來查詢庫房中圖書資料明細的。其運行效果如圖41所示。

圖41 查詢子窗體運行效果

在列表框中給出編號或年月日后，“查詢”按鈕的Click事件將給出與數(shù)據(jù)庫查找比較的結(jié)果。

Private Sub Command1_Click()

On Error GoTo cmderror

Dim find_date1 As String

Dim find_date2 As String

If Option1.Value = True Then

sqlfind = ”select * from 圖書資料 where 編號 between '“ & _

Combo1(0).Text & ”'“ & ” and “ & ”'“ & Combo1(1).Text & ”'“

End If

If Option2.Value = True Then

find_date1 = Format(CDate(Comboy(0).Text & ”-“ & _

Combom(0).Text & ”-“ & Combod(0).Text), ”yyyy-mm-dd“)

find_date2 = Format(CDate(Comboy(1).Text & ”-“ & _

Combom(1).Text & ”-“ & Combod(1).Text), ”yyyy-mm-dd“)

sqlfind = ”select * from 圖書資料 where 購買日期 between #“ & _

find_date1 & ”#“ & ” and“ & ” #“ & find_date2 & ”#“

End If

rs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimistic

frmdatamanage.displaygrid1

Unload Me

cmderror:

If Err.Number <> 0 Then

MsgBox Err.Description

End If

End Sub

運行查詢子窗體時，組合框中就已經(jīng)從數(shù)據(jù)庫中提取了貨單號和年月日兩個待查條件。

Dim i As Integer

Dim sql As String

If findok = True Then

rs_data1.Close

End If

sql = ”select * from 圖書資料 order by 編號 desc“

rs_find.CursorLocation = adUseClient

rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_find.EOF = False Then ' 添加編號 With rs_find Do While Not.EOF Combo1(0).AddItem.Fields(0)Combo1(1).AddItem.Fields(0).MoveNext Loop End With End If For i = 2001 To 2005 ' 添加年 Comboy(0).AddItem i Comboy(1).AddItem i Next i For i = 1 To 12 ' 添加月 Combom(0).AddItem i Combom(1).AddItem i Next i For i = 1 To 31 ' 添加日 Combod(0).AddItem i Combod(1).AddItem i Next i End Sub 查詢完畢后，輸出查詢結(jié)果，如圖42所示。

圖42 查詢結(jié)果 顯示目錄

(6)用戶登錄子窗體代碼

運行的用戶登錄子窗體如圖43所示。

圖43 運行的用戶登錄子窗體

在本項目中，用戶登錄子窗體是運行的第一個界面，它的作用是檢查用戶名和密碼是否正確。由于用戶的資料是存放在數(shù)據(jù)庫中，所以在啟動該子窗體時，就已經(jīng)連接了數(shù)據(jù)庫。其代碼如下:

Private Sub Form_Load()

Dim connectionstring As String

connectionstring = ”provider=Microsoft.Jet.oledb.4.0;“ & _

”data source=book.mdb“

conn.Open connectionstring

cnt = 0

End Sub

“確定”按鈕的作用是檢查輸入的數(shù)據(jù)是否與數(shù)據(jù)庫中的數(shù)據(jù)一致。

Private Sub Command1_Click()

Dim sql As String

Dim rs_login As New ADODB.Recordset

If Trim(txtuser.Text)= ”“ Then ' 判斷輸入的用戶名是否為空

MsgBox ”沒有這個用戶“, vbOKOnly + vbExclamation, ”“

txtuser.SetFocus

Else

sql = ”select * from 系統(tǒng)管理 where 用戶名='“ & txtuser.Text & ”'“

rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

If rs_login.EOF = True Then

MsgBox ”沒有這個用戶“, vbOKOnly + vbExclamation, ”“

txtuser.SetFocus

Else ' 檢驗密碼是否正確

用戶名和密碼通過后，要關(guān)閉本窗體并打開主窗體。

If Trim(rs_login.Fields(1))= Trim(txtpwd.Text)Then

userID = txtuser.Text

userpow = rs_login.Fields(2)

rs_login.Close

Unload Me

MDIForm1.Show

Else

MsgBox ”密碼不正確“, vbOKOnly + vbExclamation, ”“

txtpwd.SetFocus

End If

End If

End If

' 只能輸入3次

cnt = cnt + 1

If cnt = 3 Then

Unload Me

End If

Exit Sub

End Sub(7)值班管理子窗體代碼

值班管理子窗體的作用是把值班人員的時間安排形成列表。運行的值班管理子窗體如圖44所示。

圖44 運行的值班管理子窗體

先定義連接數(shù)據(jù)庫的變量:

Option Explicit

Dim rs_zhiban As New ADODB.Recordset

然后列出窗體部分的代碼。

Private Sub cmdadd_Click()

On Error GoTo adderror

If cmdadd.Caption = ”新增記錄“ Then ' 當(dāng)此按鈕的狀態(tài)為為“增加記錄”時

cmdadd.Caption = ”確定“ ' 按鈕名稱改“確定”

cmddel.Enabled = False

DataGrid1.AllowAddNew = True

DataGrid1.AllowUpdate = True ' 設(shè)定DataGrid可以增加記錄

Else

If Not IsNull(DataGrid1.Bookmark)Then

If Not IsDate(Trim(DataGrid1.Columns(”值班開始日期“).CellText(DataGrid1.Bookmark)))Then

MsgBox ”請按照格式y(tǒng)yyy-mm-dd輸入值班開始日期“, vbOKOnly + vbExclamation, ”“

Exit Sub

End If

If Not IsDate(Trim(DataGrid1.Columns(”值班開始時間“).CellText(DataGrid1.Bookmark)))Then

MsgBox ”請按照格式hh-mm輸入值班開始時間“, vbOKOnly + vbExclamation, ”“

Exit Sub

End If

If Not IsDate(Trim(DataGrid1.Columns(”值班截止日期“).CellText(DataGrid1.Bookmark)))Then

MsgBox ”請按照格式y(tǒng)yyy-mm-dd輸入值班截止日期“, vbOKOnly + vbExclamation, ”“

Exit Sub

End If

If Not IsDate(Trim(DataGrid1.Columns(”值班截止時間“).CellText(DataGrid1.Bookmark)))Then

MsgBox ”請按照格式hh-mm輸入值班截止時間“, vbOKOnly + vbExclamation, ”“

Exit Sub

End If

If Trim(DataGrid1.Columns(”值班人“).CellText(DataGrid1.Bookmark))= ”“ Then

MsgBox ”值班人不能為空!“, vbOKOnly + vbExclamation, ”“

Exit Sub

End If

rs_zhiban.Update MsgBox ”添加信息成功!“, vbOKOnly + vbExclamation, ”“

DataGrid1.AllowAddNew = False

DataGrid1.AllowUpdate = False

Else

MsgBox ”沒有添加信息!“, vbOKOnly + vbExclamation, ”“

End If

cmdadd.Caption = ”新增記錄“

cmddel.Enabled = True

End If

adderror:

If Err.Number <> 0 Then

MsgBox Err.Description

End If

End Sub

Private Sub cmdcancel_Click()

Unload Me

MDIForm1.Show

End Sub

Private Sub cmddel_Click()

Dim answer As String

On Error GoTo delerror

answer = MsgBox(”確定要刪除嗎?“, vbYesNo, ”“)

If answer = vbYes Then

DataGrid1.AllowDelete = True

rs_zhiban.Delete

rs_zhiban.Update

DataGrid1.Refresh

MsgBox ”成功刪除!“, vbOKOnly + vbExclamation, ”“

DataGrid1.AllowDelete = False

Else

Exit Sub

End If

delerror:

If Err.Number <> 0 Then

MsgBox Err.Description

End If

End Sub

Private Sub Form_Load()

Dim sql As String

On Error GoTo loaderror

sql = ”select * from 值班管理“

rs_zhiban.CursorLocation = adUseClient

rs_zhiban.Open sql, conn, adOpenKeyset, adLockPessimistic ' 打開數(shù)據(jù)庫

' 設(shè)定DataGrid控件屬性

DataGrid1.AllowAddNew = False ' 不可增加

DataGrid1.AllowDelete = False ' 不可刪除

DataGrid1.AllowUpdate = False

Set DataGrid1.DataSource = rs_zhiban

Exit Sub

loaderror:

MsgBox Err.Description

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set DataGrid1.DataSource = Nothing

rs_zhiban.Close

End Sub

(8)投訴管理子窗體代碼

投訴管理子窗體是為了對人員進行更好的管理而設(shè)置的，可以向其添加投訴的對象、時間和內(nèi)容等。投訴管理運行后的子窗體如圖45所示。

圖45 運行的投訴管理子窗體

以下為窗體的代碼:

Private Sub Command1_Click()

On Error GoTo adderr

Text1.SetFocus

Adodc1.Recordset.AddNew

Exit Sub

adderr:

MsgBox Err.Description

End Sub

Private Sub Command2_Click()

On Error GoTo deleteerr

With Adodc1.Recordset

If Not.EOF And Not.BOF Then

If MsgBox(”刪除當(dāng)前記錄嗎?“, vbYesNo + vbQuestion)= vbYes Then

.Delete

.MoveNext

If.EOF Then.MoveLast

End If

End If

End With

Exit Sub

deleteerr:

MsgBox Err.Description

End Sub

Private Sub Command3_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then

MsgBox ”這是第一條記錄“, vbOKCancel + vbQuestion

Adodc1.Recordset.MoveFirst

End If End Sub Private Sub Command4_Click()Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox ”這是最后一條記錄“, vbOKCancel + vbQuestion Adodc1.Recordset.MoveLast End If End Sub Private Sub Command5_Click()If Adodc1.Recordset.EOF Then MsgBox ”記錄空“, vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveFirst End If Exit Sub End Sub Private Sub Command6_Click()If Adodc1.Recordset.RecordCount = 0 Then MsgBox ”空記錄", vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveLast End If End Sub Private Sub Command7_Click()MDIForm1.Show frmtousu.Hide End Sub 到這里，各個窗體的界面和代碼都介紹完了。發(fā)布后可以作為一個實際的項目應(yīng)用。

第三篇：大容量電動機配電系統(tǒng)介紹

大容量電動機配電系統(tǒng)介紹

一、前言

大容量電動機通常是指電功率在幾百甚至上千千瓦的電動機。其配電裝置采用3kV∽10kV電壓等級，在電網(wǎng)容量，電動機和生產(chǎn)工藝許可的情況下，盡量采用全電壓直接起動的方式，同時還要有相應(yīng)的繼電保護裝置確保其正常運行。大型電動機的運行將會給電網(wǎng)和其它拖動設(shè)備的安全運行帶來很大影響，因此需要進行認真的比較和分析計算，以確定經(jīng)濟合理，運行可靠，技術(shù)先進的配電方案。以下就嶺澳核電站空壓機配電的工程實例談?wù)劥笕萘侩妱訖C的配電特點，起動條件及相應(yīng)的計算驗證。

二、工程實例

（一）實例介紹

嶺澳核電站空氣壓縮系統(tǒng)由三臺空壓機組成，主要向核島和常規(guī)島輸送壓縮空氣?？諌簷C由英國ATLAS公司進口，其電動機功率分別為250kW/50Hz/3phase，電壓等級為6.6kV.電源引自電站東北側(cè)輔助變壓器平臺全廠共用的6.6kV配電盤，選用3x3（ZR-YJV-10-1x400）中壓鎧裝電纜約9x550米至核島電氣廠房6.6kV配電盤后，再分別選用ZR-YJV22-3x35中壓鎧裝電纜約350米給各空壓機供電。該電動機和工藝設(shè)備無特殊的動熱穩(wěn)定要求，但根據(jù)規(guī)程，電動機起動時母線電壓不應(yīng)低于額定電壓的85%.根據(jù)以上技術(shù)條件，為確定電動機起動時的電壓電流是否滿足起動要求需進行起動計算，然后校驗電動機的繼電保護要求。計算條件應(yīng)設(shè)供電系統(tǒng)是無限大容量電源，采用標(biāo)幺值，計算容量Sj＝100MVA。

（二）在計算之前需考慮以下因素：

1、大容量電動機起動時，需要滿足起動母線電壓波動、電動機起動轉(zhuǎn)矩要求和電動機及工藝設(shè)備的動熱穩(wěn)定要求。電動機和工藝設(shè)備應(yīng)能承受全壓起動時的沖擊，即能滿足電動機和工藝設(shè)備的動穩(wěn)定要求。對于某些電動機在全壓起動時還需滿足制造廠規(guī)定的熱穩(wěn)定要求。

2、大型電動機起動時，其端電壓應(yīng)能保證被拖動機械要求的起動轉(zhuǎn)矩，且在配電系統(tǒng)中引起的電壓下降不應(yīng)妨礙其它用電設(shè)備的工作。按照國家標(biāo)準(zhǔn)《電能質(zhì)量。電壓允許撥動和閃變》（GB12326-93）的要求，一般情況下，電動機起動時配電母線上的電壓不應(yīng)低于額定電壓的85%，對于經(jīng)常起動的電動機，不應(yīng)低于額定電壓的90%。

3、起動計算

（1）阻抗計算：設(shè)供電系統(tǒng)是無限大容量電源，采用標(biāo)幺值計算，用系統(tǒng)阻抗（X*xt）計算起動壓降時，應(yīng)按引起壓降最大的情況，即系統(tǒng)容量最小，短路容量最大的情況。

b.線路阻抗（X*l1）：X*l1=X×Sj/Uj2式中：X——每相線路電抗（Ω）；Uj——線路基準(zhǔn)電壓（kV）；

c.母線上其它負荷電抗（X*fh）；X*fh=Sj/Sfh式中：Sj——基準(zhǔn)容量，取100MVA；Sfh——母線上其它容量計算值（MVA）；

d.線路阻抗（X*l2）

X*l2＝X×Sj/Uj2式中：X——每相線路電抗（Ω）；Uj——線路基準(zhǔn)電壓（kV）；e.電動機起動阻抗（X*d）

X*d＝1/Kq×Sj/Sed式中：Kq——電動機全壓起動電流倍數(shù)；Sed—電動機額定容量。

（2）起動參數(shù)計算：由圖1可知，電動機回路阻抗X*q＝X*l2＋X*d

母線總的阻抗X*=X*q//X*fh

供電系統(tǒng)的總阻抗∑X*=X*＋X*l1＋X*xt

系統(tǒng)提供的總起動電流I*q=1/∑X*

電動機回路起動電流，由電動機回路阻抗和負荷阻抗分流計算，即I*d=I*q×X*fh/（X*fh＋X*q）。

母線電壓標(biāo)幺值U*m=I*q×X*

電動機端電壓相對值（起動時電動機端電壓/電動機額定電壓）U*d=I*d×X*d4、繼電保護根據(jù)國家標(biāo)準(zhǔn)《電力裝置的繼電保護和自動裝置設(shè)計規(guī)范》（GB50062-92），關(guān)于3kV及以上電動機的保護，要求設(shè)置電流速斷保護、差動保護、過負荷保護、失壓保護、不平衡缺相保護、接地故障保護及起動次數(shù)保護。本例主要考慮差動保護、電流速斷保護、過負荷保護、低電壓保護、接地保護。

1.差動保護按躲過電動機的最大不平衡電流計算保護裝置的動作電流Idzj＝（1.5∽2）Irm/n1A；按最小運行方式下，電動機接線端兩相短路時，流過保護裝置的短路電流校驗保護裝置的靈敏系數(shù)Km＝Ik2.min/Idz≥2。2.電流速斷保護按躲過電動機的起動電流，計算異步電動機保護裝置的動作電流：Idzj=KkKjxKq

Irm/n1A；按最小運行方式下，電動機接線兩相短路時，流過保護安裝處的短路電

流校驗保護裝置的靈敏系數(shù)：Km＝Ik2.min/Idz≥2。3.過負荷保護按躲過電動機的額定電流計算保護裝置的動作電流：Idzj＝KkKjxIrm/Khn1A。4.低電壓保護當(dāng)母線電壓下降至額定電壓的60%時，低電壓作用于跳閘。5.接地保護按被保護元件發(fā)生單相接地故障時最小靈敏系數(shù)1.25整定保護裝置的一次動作電流：Idz≤（Ic∑-Icm）/1.25A。

（三）本例計算結(jié)果如下：

1、元件阻抗標(biāo)幺值

（1）系統(tǒng)阻抗：由電站提供，6.6kV出線最小短路容量為150MVA，最大短路容量為330MVA.基準(zhǔn)容量Sj=100MVA，X*tmin=Sj/Smin＝100/150＝0.667

X*tmax＝Sj/Smax＝100/330＝0.303。

（2）變壓器阻抗（X*b）：由制造廠給出，為X*b＝0.09。

（3）線路阻抗（X*l1）：本例中線路采用九根1x400mm2銅芯交聯(lián)聚乙烯絕緣電纜，電纜長度為0.55kM，線路每公里電抗為0.150Ω，可得X*l1＝X×Sj/Uj2＝0.150x0.55x100/6.62/9＝0.0210由于線路阻抗相對于電動機阻抗較小，可在以下計算中忽略。

（4）電站：該6.6kV母線上其它負荷為Sfh＝10.5MVA，因此X*fh＝Sj/Sfh＝100/10.5＝9.523。

（5）線路阻抗（X*l2）：本例中線路采用三根3x35mm2銅芯交聯(lián)聚乙烯絕緣電纜，電纜長度為0.35km，線路每公里電抗為0.123Ω，可得X*l2＝X×Sj/Uj2＝0.123x0.35x100/6.62/3＝0.0329。

（6）電動機起動阻抗本例中電動機額定容量為3x250/0.85＝882.35KVA＝

0.882MVA，額定電壓為6.6kV，額定電流為31A，起動電流倍數(shù)為10倍，可X*d＝1/Kq×Sj/Sed＝（1/10x100）/0.882＝11.34。

2、起動計算過程及分析

電動機回路阻抗X*q＝X*l2＋X*d＝0.0329＋11.34＝11.37

母線總阻抗X*＝X*q//X*fh＝11.37x9.523/（11.37＋9.523）＝5.182

供電系統(tǒng)總阻抗：∑X*＝X*＋X*l1＋X*xtmin＋X*b＝5.182＋0.0210＋0.667＋0.09＝5.96

總起動電流I*q＝1/∑X*＝1/5.96＝0.168

母線電壓U*m＝I*qX*＝0.168x5.182＝0.871

電動機回路起動電流：I*d＝I*qxX*fh/（X*fh＋X*q）＝0.168x9.523/（11.37＋

9.523）＝0.077

端電壓U*d＝I*dX*d＝0.077x11.34＝0.873

由計算可知，電動機起動時能滿足要求，即母線及電動機端電壓均超過85%，因此可采取直接啟動的方式。

3、繼電保護計算

（1）電動機側(cè)短路時，當(dāng)系統(tǒng)取最小短路容量為150MVA時，d1點的短路電流計算其中，Xjs1＝X*xtmin＋X*l1＋X*l2＋X*b＝0.667＋0.021＋0.0329＋0.09＝0.811短路電流Idlmin＝Ij/Xjs1＝Sj/（UjXjs1）＝100/（x6.6x0.811）＝10.786kA兩相短路電流I“dlk2＝0.866Id1min＝0.866x10.786＝9.341kA當(dāng)系統(tǒng)取最大短路容量為330MVA時，d1點的短路電流計算其中，Xjs2＝X*xtmax＋X*l1＋X*l2＋X*b＝0.30＋0.021＋0.0329＋0.09＝0.444短路電流Idlmax＝Ij/Xjs2＝Sj/（UjXjs2）＝100/（x6.6x0.444）＝19.703kA。

（2）差動保護配電裝置電流互感器的變比為50/5，電流互感器的接線系數(shù)Kjx為1，因此可得保護裝置的動作電流Idzj＝（1.5∽2）Irm/n1＝（1.5∽2）31/10＝（4.65∽6.2）A當(dāng)Idzj取6.0A時，Idz＝Idzj×n1/Kjx＝6.0x10/1＝0.06kA保護裝置的靈敏系數(shù)Km＝I”d1k2min/Idz＝9.341/0.06＝156＞2。

（3）電流速斷保護保護裝置的動作電流為Idzj＝KkKjxKqIrm/n1＝1.6x1x31/10＝4.96AIdz＝Idzjn1/Kjx＝5x10/1＝0.05kA保護裝置的靈敏系數(shù)為Km＝I"dlk2min/Idz＝9.341/0.05＝187＞2。

（4）過負荷保護保護裝置的動作電流為Idzj＝KkKjxIrm/Khn1＝1.6x1x31/（0.85x10）＝5.84A，按照此電流值對過負荷電流值進行整定。

（5）接地保護電網(wǎng)的總單相接地電容電流IcΣ＝0.1Url＝0.1x6.6（9x0.55＋3x0.35）＝3.96A可得保護裝置的一次動作電流為Idz＝（Ic∑-Icm）/1.25＝

3.96/1.25＝3.168A保護裝置的動作電流3.168A滿足零序電流互感器和接地繼電器的靈敏系數(shù)要求。

三、結(jié)束語

綜上所述，大型空壓電機的配電考慮因素較多，應(yīng)著重考慮電機的工藝要求，起動條件和繼電保護要求。在電網(wǎng)容量，電動機和生產(chǎn)工藝許可的情況下，盡量采用全電壓直接起動的方式，同時還要有相應(yīng)的繼電保護裝置確保其正常運行，而繼電保護卻只要滿足運行條件，規(guī)范要求，就能達到保護空壓機的要求。

第四篇：居民樓配電系統(tǒng)改造規(guī)劃

居民樓配電系統(tǒng)改造

一、思路

完善居民樓配電系統(tǒng)，保證居民用電安全

二、現(xiàn)狀

準(zhǔn)東許多民用樓房建筑年代較早，配電系統(tǒng)普遍存在線路老化、無PE接地系統(tǒng)及設(shè)備無漏電保護，不符合《民用建筑設(shè)計規(guī)范》的相關(guān)要求，直接威脅著居民用電安全。

三、目標(biāo)

完善公共設(shè)施，提高居民用電的可靠性及安全性

四、規(guī)劃方案

1、完善二三四五區(qū)居民樓接地系統(tǒng)

2、更換相應(yīng)的配電箱

3、增加漏電保護器 費用共計：1400萬元

五、居民樓配電系統(tǒng)改造的理由和必要性

1、住宅配電設(shè)備選擇宜遵循安全、適用、經(jīng)濟、合理的原則，選用國產(chǎn)相對先進的技術(shù)和設(shè)備并應(yīng)符合安全和防火要求。

2、電氣線路應(yīng)采用符合安全和防火要求的敷設(shè)方式配線，導(dǎo)線應(yīng)采用銅線。應(yīng)采用TN、TN-C-S或TN-S接地方式，并進行總等電位聯(lián)結(jié)。

3、每套住宅的空調(diào)電源插座、電源插座與照明，應(yīng)分路設(shè)計；廚房電源插座和衛(wèi)生間電源插座宜設(shè)置獨立回路。

4、電源插座電路應(yīng)設(shè)置漏電保護裝置。

5、每套住宅應(yīng)設(shè)置電源總斷路器，總斷路器應(yīng)采用可同時斷開相線和中性線的開關(guān)電器。

6、住宅的公共走道、走廊、樓梯間應(yīng)設(shè)人工照明，除高層住宅的電梯廳和火災(zāi)應(yīng)急照明外，均應(yīng)安裝節(jié)能型自熄開關(guān)或設(shè)帶指示燈(或自發(fā)光裝置)的雙控延時開關(guān)。當(dāng)應(yīng)急照明在采用節(jié)能自熄開關(guān)控制時，必須采取應(yīng)急時自動點亮的措施。

7、對小區(qū)的電氣安全設(shè)施（漏電保護裝置、斷路器、接地裝置等）必須按照規(guī)范定期進行監(jiān)測。以上為《民用建筑設(shè)計規(guī)范》相關(guān)要求

8、目前二三四五區(qū)居民用電配電箱不符合相關(guān)要求：配電箱無接地系統(tǒng)；每戶總斷路器不符合同時斷開火線和零線的要求；電源插座電路未設(shè)置漏電保護

六、產(chǎn)生的效益

提高供電的可靠性及居民用電的安全性

第五篇：教學(xué)樓照明配電系統(tǒng)設(shè)計

目錄

目錄..........................................................................................................................1 摘要：......................................................................................................................2 關(guān)鍵詞......................................................................................................................2 引言..........................................................................................................................2

一、教學(xué)樓照明配電系統(tǒng)設(shè)計應(yīng)遵循的基本原則..............................................................2

二、教學(xué)樓照明配電系統(tǒng)設(shè)計的內(nèi)容................................................................................3

三、教學(xué)樓照明配電系統(tǒng)設(shè)計..........................................................................................3

四、教學(xué)樓照明配電系統(tǒng)的設(shè)備計算及選擇.....................................................................6

1、光源的選擇..........................................................................................................6

2、確定教室燈的盞數(shù)...............................................................................................9

3、導(dǎo)線的計算選擇.................................................................................................13（1）、導(dǎo)線的選擇............................................................................................13（2）、電流計算...............................................................................................13

4、開關(guān)的選擇........................................................................................................15（1）、燈控開關(guān)的選擇.....................................................................................15（2）、開關(guān)的安裝............................................................................................16（3）、保護開關(guān)的選擇.....................................................................................16

5、配電箱的安裝....................................................................................................17

6、穿線管徑選擇....................................................................................................18

7、應(yīng)急照明...........................................................................................................19

五、教學(xué)樓的防雷保護...................................................................................................20

1、避雷帶...............................................................................................................20

2、引下線...............................................................................................................22

3、接地極...............................................................................................................22

六、教學(xué)樓電氣平面圖...................................................................................................23 參考資料.................................................................................................................24 教學(xué)樓照明配電系統(tǒng)設(shè)計

摘要： 教學(xué)樓配電一般從低壓380V/220V母線取得電源,然后將電能分配到各個用電負荷。采用各種元件(如開關(guān)、導(dǎo)線)及設(shè)備(如配電箱)將電源與負荷聯(lián)結(jié)起來,即組成了教學(xué)樓的配電系統(tǒng)。

關(guān)鍵詞：光源