第一篇：供配电系统设计图和实际比较
供配电系统设计图和实际比较※
一、1TM1低压配电系统 安800kvA变压器一台
供电用户：B-
1、B-
2、B-
3、C-1、1-27F。C-
1、C-
3、B-3地下室应急用电及第四层用电：
防火区A、B照明、配电室、消防控制室用电： 总设备容量1524kw, 同时率为0.525。
建议将同时率改为0.3控制则变压器容量应为500KVA.二、1TM2低压配电系统 安800KVA变压器一台
供电用户C-
3、C-1 5～20F、C-2 照明
C-
1、C-
3、B-3地下室消防动力；B-2消防泵生活泵；C-
1、C-
3、B-3客梯各17KW。
总设备容量：2085.4KW，同时率0.384.若减去1A205设备容量528.4KW后，TM2上的设备容量应为1567KW。改按同时率0.3控制变压器容量应为470KVA，建议将800KVA的变压器改为500KVA。
三、1TM3低压配电系统
（一）设计图纸：装1000KVA变压器一台 供电用户C-
1、C-
3、C-3的商业照明用电 设计总装容量为 1235KW 同时率为0.81
（二）按各栋商业各层照明平面布图实际计算结果 C-
1、一～四层 25.2KW C-
3、一～四层 29.3KW B-
3、一～四层 27.7KW 合计 82.2KW 计算详后
四、1TM4低压配电系统
（一）设计图纸桩装1000KVA变压器一台供C-
1、C-
3、B-3空调用电。应急照明用电：C-1 20KW，C-3 20KW, B-3 20KW,共60KW； B-1照明用电 74KW； B-2照明用电20+24+24=68KW。总设备装设容量为1041.6KW。
（二）、按各栋各层动力平面布置图实际设计计算结果： C-
1、一～四层 170KW C-
3、一～四层 228KW B-
3、一～四层 228KW 商业应急照明C-1、C-3、B-3 60KW B-1、B-2商业空调用电 74+68= 142KW 合计 828KW
五、建议将1TM3与1TM4两系统合并容量为82.2+828=910.2KW。安装一台1000KVA变压器。
C-1＃楼按设计图纸计算照明装设容量
一层：双管荧光灯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 合计一～四层商业照明 25196W=25.2KW
C-1＃楼按动力平面布置图计算
一层：(1)空调插座21个，安3p柜式空调21台，3KW／台 计2KW（2）插座用电 21KW 小计 83KW 二层：（1）柜式空调（同一层）62KW（2）二级加三级插座（同一层）21KW 三层：（同一层）83KW 四层： 30KW 合计: 279KW 同时率按0.5计应为 140KW 扶梯用电 30KW ※一～四层动力电合计（已计同时率）170KW
B-3＃楼按设计照明图纸计算商业装设容量
一层：双管荧光灯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＃楼按设计动力平面布置图计算设备装设容量 一层：柜式空调 31台 3KW／台 93KW 插座 31KW 小计 124KW 二层：同一层 124KW 三层：同一层 124KW 四层：柜式空调 6台 3KW／台 18KW 插座用电 6KW 小计 24KW 合计 396KW 同时率按0.5计应为 198KW 扶梯用电 30KW ※一～四层动力电合计（已计同时率）
228KW C-3＃楼按设计照明平面图计算装设容量
一层：按二层 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＃楼按设计动力平面布置图计算设备装设容量 一层：柜式空调 31台 3KW／台 93KW 插座 31KW 小计 124KW 二层：同一层 124KW 三层：同一层 124KW 四层：柜式空调 6台 3KW／台 18KW 插座 6KW 小计 24KW 合计 396KW 同时率按0.5计应为 198KW 扶梯用电 30KW ※一～四层动力电合计（已计同时率）
228KW
第二篇：VB+Access设计图书管理系统
VB+Access设计图书管理系统一、需求分析
在进行一个项目的设计之前，先要进行必要的需求分析。
现某图书馆需要管理其各种人员和图书信息，希望实现办公的信息化，通过建立一个图书管理系统来管理图书。其完成的功能如下:
(1)可以实现图书的登记、借阅和赔偿的管理。
(2)可以实现对图书的各种信息的查询，包括逐个浏览，以及对图书信息的增加、删除和编辑操作。另外，可以根据输入的信息来检索某个图书的信息。
(3)可以实现对管理人员的投诉管理。
(4)可以实现对值班人员的管理。
系统的功能模块图如图1所示。
本实例根据上面的设计规划出的实体有图书登记实体、图书借阅实体、图书赔偿实体、查询输出实体、值班管理实体、投诉管理实体。各个实体具体的描述E-R图如下。
图书登记实体E-R图如图2所示。
图书借阅实体E-R图如图3所示。
图1 系统的功能模块图
图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图
二、结构设计
根据上面的需求分析，设计好数据库系统，然后开发应用程序可以考虑的窗体的系统，每一个窗体实现不同的功能，可以设计下面的几个模块。
● 图书管理模块:用来实现图书的登记、借阅、赔偿。
● 图书资料模块:用来实现图书的查询输出。
● 值班管理模块:用来实现管理人员的值班浏览。
● 投诉管理模块:用来实现对管理人员的投诉管理。
● 系统管理模块:用来实现用户的增加、删除和修改等操作。
三、数据库设计
这里的数据库采用Access，用ADO作为连接数据对象。
1、建立Access 数据库
启动Access，建立一个空的数据库book.mdb，如图8所示。
使用程序设计器建立系统需要的表格如下。
图书登记表，如图9所示。
图8 建立数据库book.mdb 图9 图书登记表
图书借阅表，如图10所示。图书赔偿表，如图11所示。
图10 图书借阅表 图11 图书赔偿表
图书资料表，如图12所示。系统管理表，如图13所示。
图12 图书资料表 图13 系统管理表
投诉管理表，如图14所示。
图14 投诉管理表
值班管理表，如图15所示。
图15 值班管理表
2、连接数据
在Visual Basic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，如图16所示。
图16 引用ADO连接数据库
在程序设计的公共模块中，先定义ADO连接对象。语句如下:
Public conn As New ADODB.Connection ' 标记连接对象
然后在子程序中，用如下的语句即可打开数据库:
Dim connectionstring As String
connectionstring = “provider=Microsoft.Jet.oledb.4.0;” &_
“data source=book.mdb”
conn.Open connectionstring
3、设置ODBC
VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。
打开控制面板中的“管理工具”→“数据源”(ODBC)，出现如图17所示的对话框。
图17 ODBC对话框
单击“添加”按钮，出现“创建新数据源”对话框，如图18所示。
图18 “创建新数据源”对话框
选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图19所示对话框。
图19 设置连接数据源
在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框中单击“确定”按钮完成ODBC设置。
界面设计
设计好的界面如图20所示。
图20 图书管理系统界面
这是一个多文档界面(MDI)应用程序，可以同时显示多个文档，每个文档显示在各自的窗体中。MDI 应用程序中常有包含子菜单的“窗体”选项，用于在窗体或文档之间进行切换。
菜单应用程序中，有5个菜单选项，每个选项对应着E-R图的一个子项目。
1、创建主窗体
首先创建一个工程，命名为图书管理系统，选择“工程”→“添加MDI窗体”命令，则在项目中添加了主窗体。该窗体的一些属性如表1所示。
表1 主窗体的属性
属
Caption Name Menu Windowstate
性值
图书管理系统 Main Mainmenu1 Maxsize
Windowstate的值为Maxsize，即程序启动之后自动最大化。
将“菜单”组件从“工具箱”拖到窗体上。创建一个 Text 属性设置为“文件”的顶级菜单项，且带有名为“关闭”的子菜单项。类似地创建一些菜单项，如表2所示。
表2 菜 单 项 表
菜 单 名 称 MenuItem1 MenuItem2 MenuItem3 MenuItem4 MenuItem5 MenuItem6 MenuItem7 MenuItem8 MenuItem9 MenuItem10 MenuItem11 MenuItem12
Text属性 图书管理 图书登记 图书借阅 图书赔偿 图书资料 查询输出 值班管理 投诉管理 系统管理 增加用户 修改密码 退出
功 能 描 述
顶级菜单，包含子菜单 调出图书登记窗体 调出图书借阅窗体 调出图书赔偿窗体 顶级菜单，包含子菜单 调出查询输出窗体 顶级菜单，没有子菜单 顶级菜单，没有子菜单 顶级菜单，包含子菜单 调出用户窗体 调出密码窗体 系统退出
主窗体如图21所示。
图21 主窗体
2、创建各子窗体
选择“工程”→“添加窗体”命令，添加子窗体。
在新建Visual Basic工程时自带的窗体中，将其属性MIDChild改成True，则这个窗体成为MID窗体的子窗体。
在这个项目中，要创建的子窗体如表3所示。
表3 所有子窗体
子 窗 体 名 图书登记 图书借阅 图书赔偿 增加新用户 查询输出 登录系统 修改密码
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
输入用户名 输入密码 确认密码 选择权限(空)(空)(空)(空)确定 取消
(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、显示目录
建立公共模块可以提高代码的效率，同时使得修改和维护代码都很方便。
创建公共模块的步骤如下:
(1)在菜单中选择“工程”→“添加模块”命令，则出现模块对话框，如图32所示。
(2)选择模块图标后，单击“打开”按钮，则模块已经添加到项目中了。默认情况下名为Module1。
图32 模块对话框
(3)在模块中定义整个项目的公共变量。
Public conn As New ADODB.Connection ' 标记连接对象
Public userID As String ' 标记当前用户ID
Public userpow As String ' 标记用户权限
Public find As Boolean ' 标记查询
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码
在主窗体添加完菜单之后，就要为各个子菜单创建事件处理程序。主窗体代码
在本项目中，子菜单事件都是Click事件，这里先给出主窗体部分的代码。
下面是响应“增加用户”子菜单Click事件，调出增加用户窗体代码。
Private Sub adduser_Click()
frmadduser.Show
End Sub
下面是响应“查询输出”子菜单Click事件，调出查询输出窗体代码。
Private Sub chaxunshuchu_Click()
frmfind.Show
End Sub
下面是响应“退出”子菜单Click事件，调出退出窗体代码。
Private Sub exit_Click()
Unload Me
End Sub 下面是响应“图书登记”子菜单Click事件，调出图书登记窗体代码。
Private Sub checkin_Click()
frmdengji.Show
End Sub
下面是响应“修改密码”子菜单Click事件，调出修改密码窗体代码。
Private Sub changepwd_Click()
frmchangepwd.Show
End Sub
下面是响应“图书借阅”子菜单Click事件，调出图书借阅窗体代码。
Private Sub borrow_Click()
frmjieyue.Show
End Sub
下面是响应“图书赔偿”子菜单Click事件，调出图书赔偿窗体代码。
Private Sub tushupeichang_Click()
frmpeichang.Show 1
End Sub
下面是响应“值班管理”菜单Click事件，调出值班管理窗体代码。
Private Sub zhibanguanli_Click()
frmzhiban.Show 1
End Sub
下面是响应“投诉管理”子菜单Click事件，调出投诉管理窗体代码。
Private Sub tousuguanli_Click()
frmtousu.Show 1
End Sub
2、各子窗体的代码
在各个子窗体建立好后，就可以根据各个子窗体的功能给它们添加相应代码了。
(1)图书登记子窗体代码
本窗体用来填写图书登记的信息，用ADO来连接数据库，是本窗体的重点。采用MDI的子程序，所以运行后，它出现在主程序的界面下，如图33所示。
图33 图书登记子窗体
按钮控件要求先填写基本信息，然后与数据库信息比较。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(“删除当前记录吗?”, 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所示，因为它们的代码和图书登记子窗体的代码雷同，在此不做重复。
图34 图书借阅子窗体运行效果
示。
图35 图书赔偿子窗体运行效果
(2)增加用户子窗体代码
增加用户子窗体是用来增加用户的用户名、密码和权限的。其运行效果如图36所 单击“确定”按钮后，还要返回一个信息框，提示成功信息，如图37所示。
图36 增加用户子窗体运行效果 图37 成功信息框
窗体部分代码的思路是，收集输入的表中的字符串，然后与数据库中的系统的用户数据比较，如果不存在，则允许添加。
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 系统管理“
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 ”请选择正确的用户权限“, 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 系统管理 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
在上述代码中，首先比较两个表中的数据是否一致，然后用rs_chang.Fields(1)= Text1.Text语句把代码输入到数据库中。最后，用MsgBox ”密码修改成功“, vbOKOnly + vbExclamation，”“语句弹出一个信息框，告诉修改成功，如图39所示。
显示目录
(4)库房管理子窗体代码
库房管理子窗体是用来管理图书资料的。其运行效果如图40所示。
图40 库房管理子窗体
实际上，设计库房管理子窗体的程序代码与增加用户子窗体的代码在思路上是完全相同的。就是在DataGrid的文本框中显示图书进出的清单，最后把填写的明细存储到数据库中。
检查代码如下:
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 ' 进出库标志
Dim modify As Boolean ' 修改状态标志 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 ' 非修改状态 showgrid2 = False displaygrid1 ' 调用显示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 ”无相关记录“, 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事件将给出与数据库查找比较的结果。
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
运行查询子窗体时，组合框中就已经从数据库中提取了货单号和年月日两个待查条件。
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 查询完毕后，输出查询结果，如图42所示。
图42 查询结果 显示目录
(6)用户登录子窗体代码
运行的用户登录子窗体如图43所示。
图43 运行的用户登录子窗体
在本项目中，用户登录子窗体是运行的第一个界面，它的作用是检查用户名和密码是否正确。由于用户的资料是存放在数据库中，所以在启动该子窗体时，就已经连接了数据库。其代码如下:
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
“确定”按钮的作用是检查输入的数据是否与数据库中的数据一致。
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 系统管理 where 用户名='“ & txtuser.Text & ”'“
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox ”没有这个用户“, vbOKOnly + vbExclamation, ”“
txtuser.SetFocus
Else ' 检验密码是否正确
用户名和密码通过后，要关闭本窗体并打开主窗体。
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 运行的值班管理子窗体
先定义连接数据库的变量:
Option Explicit
Dim rs_zhiban As New ADODB.Recordset
然后列出窗体部分的代码。
Private Sub cmdadd_Click()
On Error GoTo adderror
If cmdadd.Caption = ”新增记录“ Then ' 当此按钮的状态为为“增加记录”时
cmdadd.Caption = ”确定“ ' 按钮名称改“确定”
cmddel.Enabled = False
DataGrid1.AllowAddNew = True
DataGrid1.AllowUpdate = True ' 设定DataGrid可以增加记录
Else
If Not IsNull(DataGrid1.Bookmark)Then
If Not IsDate(Trim(DataGrid1.Columns(”值班开始日期“).CellText(DataGrid1.Bookmark)))Then
MsgBox ”请按照格式yyyy-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 ”请按照格式yyyy-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 ' 打开数据库
' 设定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)投诉管理子窗体代码
投诉管理子窗体是为了对人员进行更好的管理而设置的，可以向其添加投诉的对象、时间和内容等。投诉管理运行后的子窗体如图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(”删除当前记录吗?“, 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 到这里，各个窗体的界面和代码都介绍完了。发布后可以作为一个实际的项目应用。
第三篇：大容量电动机配电系统介绍
大容量电动机配电系统介绍
一、前言
大容量电动机通常是指电功率在几百甚至上千千瓦的电动机。其配电装置采用3kV∽10kV电压等级，在电网容量，电动机和生产工艺许可的情况下，尽量采用全电压直接起动的方式，同时还要有相应的继电保护装置确保其正常运行。大型电动机的运行将会给电网和其它拖动设备的安全运行带来很大影响，因此需要进行认真的比较和分析计算，以确定经济合理，运行可靠，技术先进的配电方案。以下就岭澳核电站空压机配电的工程实例谈谈大容量电动机的配电特点，起动条件及相应的计算验证。
二、工程实例
（一）实例介绍
岭澳核电站空气压缩系统由三台空压机组成，主要向核岛和常规岛输送压缩空气。空压机由英国ATLAS公司进口，其电动机功率分别为250kW/50Hz/3phase，电压等级为6.6kV.电源引自电站东北侧辅助变压器平台全厂共用的6.6kV配电盘，选用3x3（ZR-YJV-10-1x400）中压铠装电缆约9x550米至核岛电气厂房6.6kV配电盘后，再分别选用ZR-YJV22-3x35中压铠装电缆约350米给各空压机供电。该电动机和工艺设备无特殊的动热稳定要求，但根据规程，电动机起动时母线电压不应低于额定电压的85%.根据以上技术条件，为确定电动机起动时的电压电流是否满足起动要求需进行起动计算，然后校验电动机的继电保护要求。计算条件应设供电系统是无限大容量电源，采用标幺值，计算容量Sj＝100MVA。
（二）在计算之前需考虑以下因素：
1、大容量电动机起动时，需要满足起动母线电压波动、电动机起动转矩要求和电动机及工艺设备的动热稳定要求。电动机和工艺设备应能承受全压起动时的冲击，即能满足电动机和工艺设备的动稳定要求。对于某些电动机在全压起动时还需满足制造厂规定的热稳定要求。
2、大型电动机起动时，其端电压应能保证被拖动机械要求的起动转矩，且在配电系统中引起的电压下降不应妨碍其它用电设备的工作。按照国家标准《电能质量。电压允许拨动和闪变》（GB12326-93）的要求，一般情况下，电动机起动时配电母线上的电压不应低于额定电压的85%，对于经常起动的电动机，不应低于额定电压的90%。
3、起动计算
（1）阻抗计算：设供电系统是无限大容量电源，采用标幺值计算，用系统阻抗（X*xt）计算起动压降时，应按引起压降最大的情况，即系统容量最小，短路容量最大的情况。
b.线路阻抗（X*l1）：X*l1=X×Sj/Uj2式中：X——每相线路电抗（Ω）；Uj——线路基准电压（kV）；
c.母线上其它负荷电抗（X*fh）；X*fh=Sj/Sfh式中：Sj——基准容量，取100MVA；Sfh——母线上其它容量计算值（MVA）；
d.线路阻抗（X*l2）
X*l2＝X×Sj/Uj2式中：X——每相线路电抗（Ω）；Uj——线路基准电压（kV）；e.电动机起动阻抗（X*d）
X*d＝1/Kq×Sj/Sed式中：Kq——电动机全压起动电流倍数；Sed—电动机额定容量。
（2）起动参数计算：由图1可知，电动机回路阻抗X*q＝X*l2＋X*d
母线总的阻抗X*=X*q//X*fh
供电系统的总阻抗∑X*=X*＋X*l1＋X*xt
系统提供的总起动电流I*q=1/∑X*
电动机回路起动电流，由电动机回路阻抗和负荷阻抗分流计算，即I*d=I*q×X*fh/（X*fh＋X*q）。
母线电压标幺值U*m=I*q×X*
电动机端电压相对值（起动时电动机端电压/电动机额定电压）U*d=I*d×X*d4、继电保护根据国家标准《电力装置的继电保护和自动装置设计规范》（GB50062-92），关于3kV及以上电动机的保护，要求设置电流速断保护、差动保护、过负荷保护、失压保护、不平衡缺相保护、接地故障保护及起动次数保护。本例主要考虑差动保护、电流速断保护、过负荷保护、低电压保护、接地保护。
1.差动保护按躲过电动机的最大不平衡电流计算保护装置的动作电流Idzj＝（1.5∽2）Irm/n1A；按最小运行方式下，电动机接线端两相短路时，流过保护装置的短路电流校验保护装置的灵敏系数Km＝Ik2.min/Idz≥2。2.电流速断保护按躲过电动机的起动电流，计算异步电动机保护装置的动作电流：Idzj=KkKjxKq
Irm/n1A；按最小运行方式下，电动机接线两相短路时，流过保护安装处的短路电
流校验保护装置的灵敏系数：Km＝Ik2.min/Idz≥2。3.过负荷保护按躲过电动机的额定电流计算保护装置的动作电流：Idzj＝KkKjxIrm/Khn1A。4.低电压保护当母线电压下降至额定电压的60%时，低电压作用于跳闸。5.接地保护按被保护元件发生单相接地故障时最小灵敏系数1.25整定保护装置的一次动作电流：Idz≤（Ic∑-Icm）/1.25A。
（三）本例计算结果如下：
1、元件阻抗标幺值
（1）系统阻抗：由电站提供，6.6kV出线最小短路容量为150MVA，最大短路容量为330MVA.基准容量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铜芯交联聚乙烯绝缘电缆，电缆长度为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铜芯交联聚乙烯绝缘电缆，电缆长度为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，起动电流倍数为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
供电系统总阻抗：∑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）电动机侧短路时，当系统取最小短路容量为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当系统取最大短路容量为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，电流互感器的接线系数Kjx为1，因此可得保护装置的动作电流Idzj＝（1.5∽2）Irm/n1＝（1.5∽2）31/10＝（4.65∽6.2）A当Idzj取6.0A时，Idz＝Idzj×n1/Kjx＝6.0x10/1＝0.06kA保护装置的灵敏系数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保护装置的灵敏系数为Km＝I"dlk2min/Idz＝9.341/0.05＝187＞2。
（4）过负荷保护保护装置的动作电流为Idzj＝KkKjxIrm/Khn1＝1.6x1x31/（0.85x10）＝5.84A，按照此电流值对过负荷电流值进行整定。
（5）接地保护电网的总单相接地电容电流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满足零序电流互感器和接地继电器的灵敏系数要求。
三、结束语
综上所述，大型空压电机的配电考虑因素较多，应着重考虑电机的工艺要求，起动条件和继电保护要求。在电网容量，电动机和生产工艺许可的情况下，尽量采用全电压直接起动的方式，同时还要有相应的继电保护装置确保其正常运行，而继电保护却只要满足运行条件，规范要求，就能达到保护空压机的要求。
第四篇：居民楼配电系统改造规划
居民楼配电系统改造
一、思路
完善居民楼配电系统，保证居民用电安全
二、现状
准东许多民用楼房建筑年代较早，配电系统普遍存在线路老化、无PE接地系统及设备无漏电保护，不符合《民用建筑设计规范》的相关要求，直接威胁着居民用电安全。
三、目标
完善公共设施，提高居民用电的可靠性及安全性
四、规划方案
1、完善二三四五区居民楼接地系统
2、更换相应的配电箱
3、增加漏电保护器 费用共计：1400万元
五、居民楼配电系统改造的理由和必要性
1、住宅配电设备选择宜遵循安全、适用、经济、合理的原则，选用国产相对先进的技术和设备并应符合安全和防火要求。
2、电气线路应采用符合安全和防火要求的敷设方式配线，导线应采用铜线。应采用TN、TN-C-S或TN-S接地方式，并进行总等电位联结。
3、每套住宅的空调电源插座、电源插座与照明，应分路设计；厨房电源插座和卫生间电源插座宜设置独立回路。
4、电源插座电路应设置漏电保护装置。
5、每套住宅应设置电源总断路器，总断路器应采用可同时断开相线和中性线的开关电器。
6、住宅的公共走道、走廊、楼梯间应设人工照明，除高层住宅的电梯厅和火灾应急照明外，均应安装节能型自熄开关或设带指示灯(或自发光装置)的双控延时开关。当应急照明在采用节能自熄开关控制时，必须采取应急时自动点亮的措施。
7、对小区的电气安全设施（漏电保护装置、断路器、接地装置等）必须按照规范定期进行监测。以上为《民用建筑设计规范》相关要求
8、目前二三四五区居民用电配电箱不符合相关要求：配电箱无接地系统；每户总断路器不符合同时断开火线和零线的要求；电源插座电路未设置漏电保护
六、产生的效益
提高供电的可靠性及居民用电的安全性
第五篇：教学楼照明配电系统设计
目录
目录..........................................................................................................................1 摘要：......................................................................................................................2 关键词......................................................................................................................2 引言..........................................................................................................................2
一、教学楼照明配电系统设计应遵循的基本原则..............................................................2
二、教学楼照明配电系统设计的内容................................................................................3
三、教学楼照明配电系统设计..........................................................................................3
四、教学楼照明配电系统的设备计算及选择.....................................................................6
1、光源的选择..........................................................................................................6
2、确定教室灯的盏数...............................................................................................9
3、导线的计算选择.................................................................................................13（1）、导线的选择............................................................................................13（2）、电流计算...............................................................................................13
4、开关的选择........................................................................................................15（1）、灯控开关的选择.....................................................................................15（2）、开关的安装............................................................................................16（3）、保护开关的选择.....................................................................................16
5、配电箱的安装....................................................................................................17
6、穿线管径选择....................................................................................................18
7、应急照明...........................................................................................................19
五、教学楼的防雷保护...................................................................................................20
1、避雷带...............................................................................................................20
2、引下线...............................................................................................................22
3、接地极...............................................................................................................22
六、教学楼电气平面图...................................................................................................23 参考资料.................................................................................................................24 教学楼照明配电系统设计
摘要： 教学楼配电一般从低压380V/220V母线取得电源,然后将电能分配到各个用电负荷。采用各种元件(如开关、导线)及设备(如配电箱)将电源与负荷联结起来,即组成了教学楼的配电系统。
关键词：光源
点击咨询 