财务管理系统 VB 案例分析.doc

软件案例分析综合性设计报告 院（系）:_电子信息工程学院 班 级: 学生姓名: 学 号: 设计地点（单位）_I 524_ _设计题目:_基于学校财务系统的软件案例分析 _ 完成日期： 2009年 11月 30日 指导教师评语: _ 成绩(五级记分制):_ _ 教师签名:_32摘 要随着软硬件技术的急速发展，计算机技术在社会生活中的方方面面都发挥着重要的作用。对人们人生活质量和生活方式也有着深远的影响，应用先进的网络和数据库技术，可以大大节省人力，物力，并且让我们生活的更舒服。财务管理系统是利用互联网的管理系统。家庭和个人的用户使用此软件，可以方便的进行个人理财，投资管理。用户可以将自己的每一笔收入和支出输入到数据库中，软件帮你理财。本文主要介绍了财务管理系统的设计与实现。财务管理系统是一个基于网络的信息管理系统，它具有操作简单、成本低廉、效率高等优点，而且没有区域限制。该系统包括六大模块：系统登录模块、部门信息管理模块、职务信息管理模块、职工基本信息模块、职工考勤管理模块、职工奖罚模块、数据库管理模块，主要通过VB来实现。关键词： 财务管理 SQL VB 目 录第1章 需求分析11.1 需求分析11.2 系统功能模块分析11.3 学校财务管理系统框图21.4 系统流程图21.5 系统功能模块31.5.1财务管理基本功能模块31.5.2 基础资料维护模块41.5.3帐薄管理模块41.5.4出纳管理模块51.5.5工资管理模块51.6数据流分析6第2章 数据库设计72.1 数据字典72.1.1数据结构72.1.2数据处理过程82.2概念结构设计82.3逻辑结构设计11第3章 详细设计143.1登录界面的实现143.2信息管理模块163.3用户管理模块183.4数据库维护模块19第4章 测试214.1 软件测试的基本方法214.1.1 黑盒测试214.1.2 白盒测试214.2 单元测试的基本方法214.3本系统的测试23总 结24参考文献26源代码：27第1章 需求分析1.1 需求分析 系统主要为某学校设计，主要为了实现对学校财务的管理。要求能够对各个部门的员工的工资进行管理，同时也要求能够对各种经费进行管理。1.2 系统功能模块分析系统主要根据某中学的要求进行设计，并了解了学校的财务的工作流程，该系统包括六大模块：系统登录模块、部门信息管理模块、职务信息管理模块、职工基本信息模块、职工考勤管理模块、职工奖罚模块、数据库管理模块。子模块功能如下：部门信息管理模块实现部门信息包括（部门编号、部门名称、部门负责人、备注）的相关添加、修改、删除操作。职务信息管理模块实现相关职务的基本工资和各种奖惩的量度如（惩罚扣除的金额、加班费金额）的添加、修改、删除操作，职务中数据反映了职工工资的各种不同分发情况。考勤信息管理模块实现对每个职工的每月考勤情况包括（请假天数、旷工天数、迟到早退时间、以及加班天数等）的相关操作。奖惩信息管理模块实现对职工的奖惩情况数据的添加、删除、修改。工资管理模块记录每月每职工发工资的情况。综合信息管理模块提供了分类对工资的查询和报表打印包括（按职工信息查询、按部门信息查询、按工资信息查询等）。数据库管理模块实现了对数据库的备份和还原。1.3 学校财务管理系统框图学校财务管理系统数据库管理子系统综合信息管理子系统部门信息管理子系统职务信息管理子系统职工基本信息管理职工考勤信息管理职工奖惩信息管理图1.1 学校财务管理系统框图开始登陆用户身份验证显示登陆用户信息及权限部门信息管理子系统职务信息管理子系统职工基本信息管理子系统职工考勤信息管理子系统职工奖惩信息管理子系统综合信息管理子系统数据库管理子系统结 束1.4 系统流程图图1.2 系统流程图1.5 系统功能模块1.5.1财务管理基本功能模块财务管理系统基础资料维护凭证管理帐薄管理报表管理系统管理财务分析期末处理往来管理出纳管理工资管理固定资产管理图1.3 财务管理功能模块财务管理系统的基本流程如图1.4所示会计基本资料维护费用分摊比率设定科目分摊处理期初资料开帐开帐资料过帐处理凭证手动输入凭证审核凭证过帐期间结束资料查询或报表打印年度结束图1.4 财务管理系统基本流程图1.5.2 基础资料维护模块基础资料维护会计科目核算项目币别结算方法常用摘要“基础资料维护”功能模块用于对会计科目、核算项目以及凭证、帐薄、固定资产等项目进行初始化设置，其中包含的子模块如图1.5所示图1.5“基础资料维护”功能模块1.5.3帐薄管理模块“帐薄管理”功能模块用于各种帐务处理、查询、筛选的功能，其中包含的子功能模块如图1.6所示总分类帐帐薄管理明细帐多栏帐金额总帐金额明细帐核算总帐图1.6“帐薄管理”功能模块1.5.4出纳管理模块出纳是会计中十分重要的一个岗位，它担负着现金、存款的收付职能。“出纳管理”既可同总帐系统联合起来使用，也可以单独给出纳人员使用。一般包括现金帐管理、存款管理、票据管理等，如图1.7所示出纳管理初始设置日常处理出纳扎帐支票管理出纳报表图1.7“出纳管理”模块1.5.5工资管理模块“工资管理”功能模块用于进行学校工资的发放和 核算，工资动态变动管理，工资费用计提与分配、银行代发等；一般包括基础设置、工资结构设置、工资变动管理、工资数据处理等，如图1.8所示工资管理核算方法数据输入费用分配打印工资条工资发放条工资汇总表工资统计表其他报表输出图1.8 “工资管理”功能模块1.6数据流分析数据流图是结构化系统分析的主要工具，它能图形化的显示出系统中数据的使用，表达数据在系统内部的逻辑流向以及系统的逻辑功能和数据的逻辑变换。根据前面对系统的分析和所收集的资料，对工资管理的整个流程进行分析设计，可以得出该系统的数据流程图。系 统 管 理 人 员职务管理信息主文件职工基本信息主文件职工考勤信息主文件职工奖惩信息主文件系 统 管 理 人 员职务管理信息主文件职工基本信息主文件职工考勤信息主文件职工奖惩信息主文件职工基本信息输入职工基本信息输出职工考勤信息输入职工考勤信息输出职工奖惩信息输入职工奖惩信息输出职务类型输入职务类型输出工资算法图1.9 各类子系统数据流程图2章 数据库设计2.1 数据字典数据字典是对用户信息要求的整理和描述。信息需求定义了未来信息系统用到的所有信息，包括用户将向数据库中输入什么信息，从数据库中要得到什么信息，各类信息的内容和结构，信息的联系等。2.1.1数据结构数据结构是若干有意义的数据项的集合，用以表示某一具体的事物，包括数数据结构名：含义和组成等。数据结构：部门基本信息含 义：记录部门基本信息情况组成成分：部门编号、部门名称、部门负责人、备注。含 义：职工工资管理信息组成成分：职务编号、固定工资、每月奖金、病假扣除金额、事假扣除金额、旷工扣除金额、迟到扣除金额、早退扣除金额、一类加班费、二类加班费、三类加班费。数据结构：职工基本信息含 义：记录员工基本信息组成成分：职工编号、姓名、性别、出生日期、所属部门编号、职务编号身份证号码、文化程度、登录密码、登录状态、备注。数据结构：工资单含 义：记录每月职工的实际分发工资组成成分：工资单编号、职工编号、结算日期、实发工资。数据结构：职工奖惩信息含 义：记录职工奖罚信息组成成分：奖惩编号、职工编号、奖惩编号、奖惩金额、事由。数据结构：员工考勤信息含 义：记录职工考勤信息组成成分：考勤编号、考勤年月、出差天数、病假天数、事假天数、旷工天数、迟到时间、早退时间、一类加班天数、二类加班天数、三类加班天数2.1.2数据处理过程处理过程名：职工薪水核算说 明： 根据职务信息、职工奖惩信息、职工考勤信息计算职工工资输入数据： 职工基本信息、职工工资管理信息、职工奖罚信息、职工考勤信息输出数据： 职工工资信息2.2概念结构设计数据库概念结构设计阶段是在需求分析的基础上，依照需求分析中的信息要求，对用户信息加以分类、聚集、和概括，建立信息模型。职工编号姓名性别身份证号码登陆密码职工备注出生日期所属部门职务编号文化程度登陆状态图2.1职工E-R图一类加班费职务编号每月奖金病假扣除金额旷工扣除金额固定工资事假扣除金额二类加班费三类加班费迟到扣除金额早退扣除金额职务信息图2.2职务E-R图考勤年月职工编号病假天数事假天数早退时间一类加班天数二类加班天数三类加班天数迟到时间备注信息旷工天数考勤信息图2.3考勤E-R图部门编号部门名称部门负责人备注部门图2.4 部门E-R图工资单编号职工编号结算日期实发金额工资单图2.5工资单E-R图职务管理信息拥有基本工资职工拥有有有奖惩信息设置考勤制度考勤信息拥有奖金工资计算加班费、扣款员工月薪图2.6整体E-R图合并2.3逻辑结构设计根据上述E-R图，可将以上实体和联系转换为以下关系模型（加下划线为主键）下面将以表格的形式描述出来，从而更易懂：部门信息（部门编号、部门名称、部门负责人、备注）表2.1 部门信息表字段名数据类型长度备注部门编号nchar10主键部门名称varchar20部门负责人nchar10员工职务信息（工资编号、固定工资、每月奖金、差旅费、病假扣除金额、事假扣除金额、旷工扣除金额、迟到扣除金额、早退扣除金额、一类加班费、二类加班费、三类加班费。）表2.2员工职务信息表字段名数据类型长度备注工资编号nchar10主键固定工资smallmoney每月奖金smallmoney病假扣除金额smallmoney矿工扣除金额smallmoney迟到扣除金额smallmoney早退扣除金额smallmoney一类加班费smallmoney二类加班费smallmoney三类加班费smallmoney职工基本信息（职工编号、姓名、性别、出生日期、所属部门编号、职务编号、文化程度、登录密码、登录状态、备注）表2.3职工基本信息表字段名数据类型长度备注职工编号nchar10主键姓名nchar2性别nchar10出生日期smalldatatime所属部门编号nchar10职务编号nchar10文化程度Nchar10登录密码Nchar10登录状态Nchar10职工奖罚信息（奖罚编号、职工编号、事由、奖罚金额）表2.4职工奖罚信息表字段名数据类型长度备注奖罚编号nchar10主键职工编号nchar10事由Nchar20奖罚金额smallmoney职工考勤信息（考勤编号、考勤年月、全勤天数、出差天数、病假天数、事假天数、旷工天数、迟到时间、早退时间、一类加班天数、二类加班天数、三类加班天数。）表2.5职工考勤信息表字段名数据类型长度备注考勤编号nchar主键考勤年月smalldatatime全勤天数smalldatatime出差天数smalldatatime病假天数smalldatatime事假天数smalldatatime矿工天数smalldatatime迟到时间Int20早退时间Int20一类加班天数Decimal(3,1)20二类加班天数Decimal(3,1)20三类加班天数Decimal(3,1)20第3章 详细设计3.1登录界面的实现用户登录系统窗口的是用户和管理员进入系统的唯一通道，合法的用户能够通过登录窗口进入系统。用户登录窗口是进入应用系统的喉舌，在安全保密、系统维护中占有重要的地位，所以登录系统的规划在整个应用系统中占据不小的比例，是系统能否安全、稳定、正常运行的关键。登录系统就是要验证当前的用户名是否与该用户密码一致，以保证所有用户的合法权益不受侵害。用户密码是在单行编辑框中输入，全部为掩码显示，避免因为明文而造成密码失窃，给用户造成不必要的麻烦。当用户登录3次以上时，系统就会自动退出，认为有非法用户企图在猜密码，则拒绝进入应用系统。界面设计如下：图3.1登录界面代码设计：Private Sub Form_Load( )On Error GoTo 10If App.PrevInstance Then 检视前一版本 MsgBox 软件“红旗中学财务管理系统”已经打开！, 48, Unload MeEnd IfIf sound1 = False Then PlaySoundFile (App.Path + SoundLOAD.wav) sound1 = TrueEnd IfEnd SubPrivate Sub Timer1_Timer()Main.ShowTimer1.Enabled = FalseEnd SubPrivate Sub Timer2_Timer()1.SU Me.hWnd, 35, 255, 6Timer2.Enabled = FalseEnd Sub3.2信息管理模块从教师集团的工资保密性和数据安全性出发，工资管理模块只有管理员以打开可以使用添加、修改、删除信息。图3.2 部分管理界面图图3.3 职务管理界面图如图所示可以在此界面进行查询、修改、删除、增加数据。其它子模块和此模块差不多，只是数据不同。综合信息管理可以对教师信息实现查询，并显示出各个教师的考勤、奖惩和工资情况。工资计算模块：工资计算模块实现了对每月工资的计算，操作员先输入要计算工资的年月，然后执行查询，系统就会按照输入的年月显示出当月教师的考勤、奖惩情况，再根据教师所在的职务信息经过计算后得到教师实际的工资，保存到工资单表里。代码设计：Private Sub Command3_Click()On Error GoTo ERRIf Text1 = Or Text2 = Then GoTo Err1Dim RST As ADODB.RecordsetSet RST = New ADODB.RecordsetRST.CursorType = adOpenStaticRST.LockType = adLockOptimisticRST.Open select * from 部门表 where 部门= & Combo1.Text & , dbIf Not RST.EOF Then Adodc1.Recordset.Fields(部门) = RST.Fields(部门)End IfRST.CloseRST.Open select * from 职称表 where 职称= & Combo2.Text & , dbIf Not RST.EOF ThenAdodc1.Recordset.Fields(职称) = RST.Fields(职称)End If图3.4员工管理界面本窗体是用于员工信息的新建、修改和删除操作。在输入新员工时在基本工资信息表和考评表内也会建立相应的记录，在删除员工时，所有有此员工的表中将通过数据库的关系自动级联删除。在此员工信息里我们加入了照片工能，照片是通过把要加入的照片文件，通过二进制方式写入到数据库中，在浏览时是从数据库中以二进制的形式读出到固定文件中，然后再把此文加载到图片筐中进行显示。在新按钮按下时修改和删除都不能用，且新建按钮同时变时取消按钮。其它按钮也一样，将通过系统当前状态的不同而改变按钮的状态。左下角做了一个小查询功能，是为了方便查看或修改员工的信息，该查询是使用的模糊查询方式。3.3用户管理模块用户管理模块主要是用于用户资料的管理，用户的增加、删除以及用户密码的修改。并且用户的增加、删除只能是管理员才有的权利。界面如下：图3.5用户管理界面3.4数据库维护模块这个模块主要用于数据库的备份与恢复。备份方面主要是对数据库进行完整备份。数据库维护模块的主界面如下：图3.6备份恢复界Private Sub mnuFileClose_Click()卸载窗体Unload MeEnd SubPrivate Sub mnuFileExit_Click()退出应用程序Unload frmMainEnd SubPrivate Sub mnuFileJian_Click()filePrintTJEnd SubPrivate Sub mnuFileNew_Click()调用新建文件过程FileNewEnd SubPrivate Sub mnuFileOpen_Click()调用文件打开准备过程FileOpenProcEnd SubPrivate Sub mnuFilePinter_Click()frmMain.CMDialog1.Flags = cdlPDPrintSetupfrmMain.CMDialog1.ShowPrinterEnd SubPrivate Sub mnuFilePrin_Click()End Sub第4章 测试4.1 软件测试的基本方法软件测试的方法和技术是多种多样的。对于软件测试技术，可以从不同的角度加以分类：从是否需要执行被测软件的角度，可分为静态测试和动态测试。从测试是否针对系统的内部结构和具体实现算法的角度来看，可分为白盒测试和黑盒测试；4.1.1 黑盒测试黑盒测试也称功能测试或数据驱动测试，它是在已知产品所应具有的功能，通过测试来检测每个功能是否都能正常使用，在测试时，把程序看作一个不能打开的黑盆子，在完全不考虑程序内部结构和内部特性的情况下，测试者在程序接口进行测试，它只检查程序功能是否按照需求规格说明书的规定正常使用，程序是否能适当地接收输入数锯而产生正确的输出信息，并且保持外部信息（如数据库或文件）的完整性。4.1.2 白盒测试白盒测试也称结构测试或逻辑驱动测试，它是知道产品内部工作过程，可通过测试来检测产品内部动作是否按照规格说明书的规定正常进行，按照程序内部的结构测试程序，检验程序中的每条通路是否都有能按预定要求正确工作，而不顾它的功能，白盒测试的主要方法有逻辑驱动、基路测试等，主要用于软件验证。4.2 单元测试的基本方法测试方法有:1 模块接口测试；2 模块局部数据结构测试；3 模块边界条件测试；4 模块中所有独立执行通路测试；5 模块的各条错误处理通路测试。模块接口测试是单元测试的基础。只有在数据能正确流入、流出模块的前提下，其他测试才有意义。测试接口正确与否应该考虑下列因素：1、 输入的实际参数与形式参数的个数是否相同；2、输入的实际参数与形式参数的属性是否匹配；3、 输入的实际参数与形式参数的量纲是否一致；4、调用其他模块时所给实际参数的个数是否与被调模块的形参个数相同；5、 调用其他模块时所给实际参数的属性是否与被调模块的形参属性匹配；6、调用其他模块时所给实际参数的量纲是否与被调模块的形参量纲一致；7、调用预定义函数时所用参数的个数、属性和次序是否正确；8、 是否存在与当前入口点无关的参数引用；9、 是否修改了只读型参数；10、 对全程变量的定义各模块是否一致；11、是否把某些约束作为参数传递。在模块中应对每一条独立执行路径进行测试，单元测试的基本任务是保证模块中每条语句至少执行一次。此时设计测试用例是为了发现因错误计算、不正确的比较和不适当的控制流造成的错误。此时基本路径测试和循环测试是最常用且最有效的测试技术。计算中常见的错误包括：1、误解或用错了算符优先级；2、混合类型运算；3、变量初值错；4、精度不够；5、表达式符号错。一个好的设计应能预见各种出错条件，并预设各种出错处理通路，出错处理通路同样需要认真测试，测试应着重检查下列问题：1、输出的出错信息难以理解；2、记录的错误与实际遇到的错误不相符；3、在程序自定义的出错处理段运行之前，系统已介入；4、异常处理不当；5、错误陈述中未能提供足够的定位出错信息4.3本系统的测试登录测试输入的用户名或密码不正确，则会出现这样的对话框。图4.1 财务管理系统登陆测试如果操作员输入的数据不正确，也会显示相应的错误对话框。用户管理界面测试：图4.2 用户管理测试总 结本系统在设计之初，我对VB和SQL有一定的了解，在老师和同学的帮助下，根据所学的关于软件工程的知识，从最初的数据库设计到最后系统前台界面的设计及代码的实现经历了大约2周的时间，在这2周中，我们按照软件工程的生命周期方法学来完成设计，即系统的需求分析、数据库设计、程序设计、系统调试等开发步骤，分阶段地完成各设计任务。在设计之初，我首先对所使用的工具VB和SQL Server 2000进行了全面的学习，由于SQL Server 2000我们在上课时学过，所以学习上手较快，但VB我们并没有接触，但通过自学，我对该门语言有了更多的了解。不知不觉就钻牛角尖，在不断学习的过程中我体会到：1软件开发是一个不断学习新鲜事物的过程，从设计初的不懂到最后能够顺利完成，我体会到在实践中学习的重要性，这对于将来我走上工作岗位具有重要意义。2设计过程中，经常会遇到困难，我学会通过学习别人的代码的能力，然后根据自己的设计要求编写代码。3设计过程中，由于要实现某些功能，互联网帮了我的大忙。网络资源是一个丰富的共享体系，我通过在VB.NET论坛上提出问题得到了很多热心网友的帮助，这坚定了我通过网络吸收知识的信心。致 谢在本次设计中，我从裴仰军老师身上学到了很多东西。裴老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。另外在本次设计中，我也得到了许多同学的帮助，在这里向他们表示感谢。参考文献1 郑阿奇.SQL server 实用教程（第二版），北京，电子工业出版社，2005.7 2 周中华.数据库原理与应用，北京，清华大学出版社,2005.6 3 教育部考试中心编.isual Basic 6.0 数据库程序设计（一修订版），人民邮电出版社，2002 4 刘炳文.Visual Basic程序设计教程（第二版），北京，清华大学出版社,2003 5 陶宏才.数据库原理及设计(第二版)，北京，清华大学出版社，2004 6 范立南. SQL Server 2000实用教程，北京，清华大学出版社，2000 7 唐大任.Visual Basic程序设计（第二版），北京，清华大学出版社，2005 8 王晟.Visual basic 数据库开发经典案例解析，北京，清华大学出版社，2005.3 源代码： Begin VB.Label Label1 Caption = 管理员ID Height = 255 Left = 240 TabIndex = 2 Top = 480 Width = 2175 End EndEndAttribute VB_Name = AdminPassAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Command1_Click() Dim sql As String Dim rs As New ADODB.Recordset If NewPass.Text ChkPass.Text Then 新密码和验证密码要相同 MsgBox 新密码不一致！, vbCritical NewPass.SetFocus Exit Sub End If If User = Then 密码和用户ID输入框不能为空 MsgBox 管理员ID不能为空！, vbCritical User.SetFocus Exit Sub End If If OldPass.Text = Then MsgBox 管理员密码不能为空！, vbCritical OldPass.SetFocus Exit Sub End If If DbHandle.DbConnection Then sql = TBL_ADMIN 打开管理员表,查看是否要添加的管理员ID已经存在 rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic rs.Filter = ADMIN_ID= & User.Text & rs.Open sql, DbFinance If DbHandle.resultcount(rs) 1 Then 不存在出错退出 MsgBox 管理员ID不存在！, vbExclamation rs.Close DbHandle.DbClose User.SetFocus Exit Sub Else 存在查看输入的原是密码是否和数据库保存的密码相一致 If rs(ADMIN_PASSWORD) OldPass.Text Then 不一致要求重新输入原是密码 MsgBox 管理员密码错误！, vbExclamation rs.Close OldPass.SetFocus Exit Sub End If rs(ADMIN_PASSWORD) = NewPass.Text 一致就设置新的管理员密码 rs.Update rs.Close End If MsgBox 管理员密码成功修改！ Unload Me Else 数据库打开失败退出 MsgBox 数据库错误！, vbExclamation DbHandle.DbClose End End IfEnd SubPrivate Sub Command2_Click() Me.Hide 返回主窗体End SubPrivate Sub Form_Load() Me.Left = (Screen.Width - Me.ScaleWidth) / 2 窗体居中显示 Me.Top = (Screen.Height - Me.ScaleHeight) / 2End SubPrivate Sub Form_Unload(Cancel As Integer) On Error Resume Next 对话框关闭时候关闭数据库连接 DbHandle.DbCloseEnd SubVERSION 5.00Begin VB.Form AddAdmin Caption = 添加 ClientHeight = 3135 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = Form1 ScaleHeight = 3135 ScaleWidth = 4680 StartUpPosition = 3 Windows Default Begin VB.Frame Frame1 Caption = 添加管理员 Height = 2895 Left = 120 TabIndex = 0 Top = 120 Width = 4455 Begin VB.CommandButton Command2 Cancel = -1 True Caption = 取消 Height = 495 Left = 2280 TabIndex = 6 Top = 2160 Width = 1695 End Begin VB.CommandButton Command1 Caption = 确定 Default = -1 True Height = 495 Left = 240 TabIndex = 5 Top = 2160 Width = 1695 End Begin VB.TextBox Pass Appearance = 0 Flat Height = 375 IMEMode = 3 DISABLE Left = 240 PasswordChar = # TabIndex = 4 Top = 1440 Width = 3735 End Begin VB.TextBox User Appearance = 0 Flat Height = 375 Left = 240 TabIndex = 2 Top = 600 Width = 3735 End Begin VB.Label Label2 Caption = 管理员密码 Height = 255 Left = 240 TabIndex = 3 Top = 1080 Width = 1335 End Begin VB.Label Label1 Caption = 管理员ID Height = 255 Left = 240 TabIndex = 1 Top = 360 Width = 1215 End EndEndAttribute VB_Name