物资管理系统毕业论文

《物资管理系统毕业论文》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

毕业设计<<物资管理系统>>院系______专业______班级______姓名______日期年月日 中文摘要物资管理系统为企事业单位管理人员日常工作的调度、安排、计划。分为计划管理、物资管理、资金管理等各部门提供充足的信息和快捷的查询手段.其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI6.0软件及其提供的各种面向对象的开发工具，建立完整性强、安全性好的数据库，开发出功能完备，易使用的应用程序。经过调试、编译与实现，该程序界面友好、程序设计风格朴素，使用起来美观大方、方便易用。尤其是系统的“报表生成模块”的功能极大的减轻工作人员的工作量，并以快速、准确等优点取代人工操作，提高了管理工作效率。关键词：DELPHI6.0管理信息系统数据库模块物资管理系统 UtilitiesManagementSystemformanagementofday-to-dayworkoftheutilitymeter-readingfee,statementsgenerated,thecostoftheprovisionofadequatemeansofinformationandquickenquiries.Itsdevelopmentmainlytotheestablishmentandmaintenanceofdatabasesincludingbackgroundandthedevelopmentoftwofront-endapplications.Delphi6.0andtheuseofobject-orientedsoftwaredevelopmenttools,theestablishmentofstrongintegrity,goodsafetydatabasedevelopedfunctions,easytouseapplications.Afterdebugging,Translationandtherealizationthattheprocessfriendlyinterface,simpleprogrammingstyle,usingupaestheticgenerous,convenientuser-friendly.Inparticularsystem"statementsgeneratedmodule"functiongreatlyreducetheworkloadofstaff,andtotherapid,accurate,andotheradvantagesreplacemanuallyoperated,andenhancedpowermanagementefficiency.Keyword:Delphi6.0InformationManagementSystemdatabasemoduleutilitiesmanagementsystem 引言11Delphi语言概述21.1Delphi简介21.2数据库系统简介51.3本应用软件的基本介绍72本应用程序的构成和开发步骤92.1可行性研究102.1.1经济可行性112.1.2时间可行性122.1.3技术可行性132.1.4社会可行性142.2数据库的建立和连接152.3系统的总体设计173本程序的技术实现及具体功能213.1登录的界面与程序设计实现243.2资金入账界面与代码设计实现343.3物资入库界面与代码设计实现453.4用户管理界面与代码设计523.5主界面设计与代码设计55结论60致谢61参考文献62 引言随着经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。以前开发Windows应用软件是专业人员的工作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同了，即使你没有接受过严格的程序设计训练，使用Delphi编程语言也一样能够开发出功能强大、适合自己特殊需求的应用程序了。Delphi编程语言继承了其他语言易学易用的特点，特别适合于初学者学习Windows系统编程。物资管理系统为 企事业单位管理人员日常工作的调度、安排、计划。分为计划管理、物资管理、资金管理等提供充足的信息和快捷的查询手段.其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。货运管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用Delphi编程语言开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。因为本人能力有限，加上时间紧迫，所以设计出来的本系统可能功能比较简单，另外本系统是单机版，不能实现网络互联操作,这些都有待于我在以后的工作学习中进一步改进。1.1Delphi简介1.1Delphi简介Delphi是Inprise公司出品的一个优秀的可视化程序开发工具软件，它短小精悍，但功能却可以与庞大的visualc++媲美。它易学易用，如同VB，因而被称为“ 第四代编程语言”。从1995年推出Delphi1.0至今已经经历了7个版本，Delphi7.0运行在win9x或winme，win2000，winxp，windowsNT等操作系统下，是一个32位的应用程序开发工具。这里把“VB”比作是傻瓜相机，Delphi是带有自动功能的专业相机。前些年，软件界流行一句话叫“真正的程序员用VC，聪明的程序员用Delphi”。也有的把Delphi称作VB杀手。1.2数据库系统简介 数据库系统是一个实际可运行的存储、维护和应用系统提供数据的软件系统，是存储介质、处理对象和管理系统的集合体。它通常由软件、数据库和数据管理员组成。其软件主要包括操作系统、各种宿主语言，实用程序以及数据库管理系统。数据库是依照某种数据模型组织起来并存放二级存储器中的数据集合。这些数据为多个应用服务，独立于具体的应用程序。数据库由数据库管理系统统一管理，数据的插入、修改和检索均要通过数据库管理系统进行。数据库管理系统是一种系统软件，它的主要功能是维护数据库并有效地访问数据库中任意部分数据。对数据库的维护包括保持数据的完整性、一致性和安全性。数据管理员负责创建、监控和维护整个数据库，使数据能被任何有权使用的人有效使用。数据库管理员一般是由业务水平较高、资历较深的人员担任。数据库系统的个体含义是指一个具体的数据库管理系统软件和用它建立起来的数据库；它的学科含义是指研究、开发、建立、维护和应用数据库系统所涉及的理论、方法、技术所构成的学科。在这一含义下，数据库系统是软件研究领域的一个重要分支，常称为数据库领域。 数据库研究跨越于计算机应用、系统软件和理论三个领域，其中应用促进新系统的研制开发，新系统带来新的理论研究，而理论研究又对前两个领域起着指导作用。数据库系统的出现是计算机应用的一个里程碑，它使得计算机应用从以科学计算为主转向以数据处理为主，并从而使计算机得以在各行各业乃至家庭普遍使用。在它之前的文件系统虽然也能处理持久数据，但是文件系统不提供对任意部分数据的快速访问，而这对数据量不断增大的应用来说是至关重要的。为了实现对任意部分数据的快速访问，就要研究许多优化技术。这些优化技术往往很复杂，是普通用户难以实现的，所以就由系统软件（数据库管理系统）来完成，而提供给用户的是简单易用的数据库语言。由于对数据库的操作都由数据库管理系统完成，所以数据库就可以独立于具体的应用程序而存在，从而数据库又可以为多个用户所共享。因此，数据的独立性和共享性是数据库系统的重要特征。数据共享节省了大量人力物力，为数据库系统的广泛应用奠定了基础。数据库系统的出现使得普通用户能够方便地将日常数据存入计算机并在需要的时候快速访问它们，从而使的计算机走出科研机构进入各行各业、进入家庭。1.3本应用软件的基本介绍本应用软件先是打开一个启动窗口，就可以进入应用程序的主窗口了。主界面是一个图型界面窗口，整个平台显示采用人性化方式，可以非常方便的系统管理、字典维护、抄表,报表管理等基本信息，管理日常经营的基本情况，通过各种条件查询出水电管理的基本信息，以及打印出查询出的基本信息，总之一切水电管理基本信息都会显示在系统平台上，大大提高了管理人员的工作效率。1本应用程序的构成和开发步骤下面从软件工程的角度介绍本程序的基本开发步骤。Delphi应用程序一般包含以下三个基本部分：应用程序运行的接口：负责系统整体环境的设置，运行状态的监视，应用程序的启动等。应用程序的主体：主要完成用户的业务逻辑功能，如系统参数配置,字典维护,抄表,报表生成.等信息.应用程序的辅助部分：协助程序主体完成的一些工作。 下面从软件工程的角度描述本程序的开发生命周期，开发过程和组织过程。2.1可行性研究任何一个系统或一项工程，在建立之前，必须首选进行可行性分析，可行性分析包括两层含义，一是可能性，二是必要性。可能性指开发信息系统的条件是否具备，必要性是指客观上是否真正需要，通过可行性研究，可避免盲目投资，减少政治性要的损失。下面从四方面来讨论：2.1.1经济可行性主要是只指算一个新的系统开发所需要的投资费用和运算费用，并与估计的新系统收益进行比较，看是否有利。本系统所需的软硬件成本比较低，投资小，具有一定的通过性，因此，在经济上是可行的。2.1.2时间可行性主要包括系统在目前环境下能否正常运行，运行后所引起的各方面，以及这些变化对社会或人的因素所产生的影响。本系统对人事的管理比较全面，可长期使用。2.1.3技术可行性利用现有的设备，软件及技术人员，新系统的目标能否达到，这也是可行性研究中需要考虑的一个问题。关系型数据库的高速发展使管理信息系统具备了良好的开发环境。本系统使用的Delphi普及性好，操作简单，用户可以很快掌握使用方法，因此，在技术上是完全可行的。 2.1.4社会可行性人类社会文明的发展已进入信息化的高速发展时期，传统的手工方式支持下的管理模式，已经不能满足各方面的需要。开发本系统的目标不仅是提高工作效率，减轻劳动强度，而且减少出错率，具有很好的社会意义。2.2数据库的建立和连接这个程序采用的数据库是SQL，Delphi作为数据库的前台开发工具，必须与后台数据库进行连接，这样才能控制和进行操作数据库，数据库的连接方式有两种，ODBC和ADO。ODBC是数据库的通用接口，其缺点是效率低；专用接口调用直接速度快，但是通用性差，如果用ODBC连接数据库一般要两个步骤：1.要创建数据源；2.创建描述文件。数据库的建立则时在SQL中建立的，在这里你可以设置数据库的密码，对数据库进行保护。在创建数据源时可以通过BDEadministrator进行创建，也可以通过系统控制面板中的ODBC数据源进行建立。而描述文件则可以在Delphi的主程序中用DatabaseProfile中进行建立，之后进行数据库的连接。接下来的工作是建表。同样建表的过程也不是唯一的，但是最终实现的结果是唯一的。你可以通过Access进行建表，也可以通过在delphi 主程序中建表，也可以通过powerdesigner进行可视化的建立，不过用这种方法，在导入的时候要把数据库要先断开，否则数据库的数据容易丢失。建表的过程注意规范化命名规则，如表的字段名等等。同时也要注意表的字段长度和可否为空。因为以后要设计到主键，外键的问题。如果字段名不同，同一字段长度不同则主键和外键将会连接不上。可见建表时应做好全局的打算。我在程序开发的初期，同样犯了这个错误，导致数据库出错，有时还要向表中新加入字段。导致数据窗口不好用的连锁反映。2.3系统的总体设计这个管理系统从4月1日开始着手设计开发,经过一段时间的分析，并根据对水电管理的具体要求及需要本软件实现的功能，将本软件分为5个大的模块，分别是：第一部分：文件模块；第二部分：编辑模块；第三部分：工具模块；第四部分：初始模块；第五部分：帮助模块。程序流程图如下： 程序登入主界面文件编辑工具初始帮助3本程序的技术实现及具体功能3.1登录的界面与程序设计实现 objectHYForm:THYFormLeft=58Top=116Width=1014Height=612Caption='海运费用'Color=clBtnFaceFont.Charset=DEFAULT_CHARSETFont.Color=clWindowTextFont.Height=-11Font.Name='MSSansSerif'Font.Style=[]FormStyle=fsMDIChildOldCreateOrder=FalsePosition=poDefaultVisible=TrueWindowState=wsMaximizedOnClose=FormCloseOnCreate=FormCreateOnShow=FormShowPixelsPerInch=96TextHeight=13objectPageControl1:TPageControlLeft=0Top=0Width=1006Height=578ActivePage=TabSheet4Align=alClientTabOrder=0objectTabSheet1:TTabSheetCaption='其它费用' objectDBGrid3:TDBGridLeft=0Top=89Width=998Height=418Align=alClientColor=clInfoBkCtl3D=FalseDataSource=DM.OTHERSourceImeName='中文(简体)-智能ABC'ParentCtl3D=FalseReadOnly=TrueTabOrder=0TitleFont.Charset=DEFAULT_CHARSETTitleFont.Color=clWindowTextTitleFont.Height=-11TitleFont.Name='MSSansSerif'TitleFont.Style=[]OnCellClick=DBGrid3CellClickOnKeyDown=DBGrid3KeyDownColumns=endendobjectTabSheet2:TTabSheetCaption='陆运费用'ImageIndex=1objectDBGrid2:TDBGridLeft=0Top=113Width=998Height=388Align=alClientColor=clInfoBkCtl3D=FalseDataSource=DM.CDFYSourceImeName='中文(简体)-智能ABC'ParentCtl3D=FalseReadOnly=TrueTabOrder=0TitleFont.Charset=DEFAULT_CHARSETTitleFont.Color=clWindowTextTitleFont.Height=-11TitleFont.Name='MSSansSerif'TitleFont.Style=[]OnCellClick=DBGrid2CellClickOnKeyDown=DBGrid2KeyDownColumns=endendobjectTabSheet3:TTabSheetCaption='代理费用'ImageIndex=2objectDBGrid4:TDBGridLeft=0Top=188Width=998Height=313Align=alClientColor=clInfoBkCtl3D=FalseDataSource=DM.DLFYSourceImeName='中文(简体)-智能ABC'ParentCtl3D=FalseTabOrder=0TitleFont.Charset=DEFAULT_CHARSETTitleFont.Color=clWindowTextTitleFont.Height=-11TitleFont.Name='MSSansSerif'TitleFont.Style=[]OnCellClick=DBGrid4CellClickOnKeyDown=DBGrid4KeyDownColumns=endendobjectTabSheet4:TTabSheetCaption='海运费用'ImageIndex=3objectDBGrid1:TDBGridLeft=0Top=0Width=998Height=550Align=alClientColor=clInfoBkCtl3D=False DataSource=DM.HYFYSourceImeName='中文(简体)-智能ABC'ParentCtl3D=FalseReadOnly=TrueTabOrder=0TitleFont.Charset=DEFAULT_CHARSETTitleFont.Color=clWindowTextTitleFont.Height=-11TitleFont.Name='MSSansSerif'TitleFont.Style=[]OnCellClick=DBGrid1CellClickOnKeyDown=DBGrid1KeyDownColumns=endendendend3.2资金入账界面与代码设计实现objectHYDJForm:THYDJFormLeft=42Top=132Width=1023Height=516Caption='海运单价'Color=clBtnFaceFont.Charset=DEFAULT_CHARSETFont.Color=clWindowTextFont.Height=-11Font.Name='MSSansSerif' Font.Style=[]FormStyle=fsMDIChildOldCreateOrder=FalsePosition=poDefaultVisible=TrueWindowState=wsMaximizedOnClose=FormCloseOnCreate=FormCreateOnShow=FormShowPixelsPerInch=96TextHeight=13objectDBGrid1:TDBGridLeft=0Top=0Width=1015Height=482Align=alClientColor=clInfoBkCtl3D=FalseParentCtl3D=FalseReadOnly=TrueTabOrder=0TitleFont.Charset=DEFAULT_CHARSETTitleFont.Color=clWindowTextTitleFont.Height=-11TitleFont.Name='MSSansSerif'TitleFont.Style=[]OnCellClick=DBGrid1CellClickOnKeyDown=DBGrid1KeyDownColumns=endend3．3物资入库界面与代码设计实现unitMonthUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Grids,DBGrids,ExtCtrls,TFlatPanelUnit,TFlatButtonUnit;typeTMonthForm=class(TForm)FlatPanel1:TFlatPanel;DBGrid1:TDBGrid;FlatButton1:TFlatButton;FlatButton2:TFlatButton;FlatButton3:TFlatButton; FlatButton4:TFlatButton;FlatButton5:TFlatButton;FlatButton6:TFlatButton;FlatButton7:TFlatButton;procedureFormClose(Sender:TObject;varAction:TCloseAction);procedureFlatButton7Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureFlatButton1Click(Sender:TObject);procedureFlatButton2Click(Sender:TObject);procedureFlatButton3Click(Sender:TObject);procedureFlatButton4Click(Sender:TObject);procedureFlatButton5Click(Sender:TObject);procedureFlatButton6Click(Sender:TObject);procedureFormShow(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varMonthForm:TMonthForm;implementationusesDMUnit,YBCXUnit,PrintUnit,CallPrint,MainUnit;{$R*.dfm}procedureTMonthForm.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=cafree;end;procedureTMonthForm.FlatButton7Click(Sender:TObject);beginclose;end;procedureTMonthForm.FormCreate(Sender:TObject);beginYBCXForm:=TYBCXForm.Create(application);YBCXForm.ShowModal;//DBGrid1.DataSource:=DM.KHFYSource; //DM.MonthQuery.Open;end;procedureTMonthForm.FlatButton1Click(Sender:TObject);beginDM.MonthQuery.First;end;procedureTMonthForm.FlatButton2Click(Sender:TObject);beginDM.MonthQuery.Prior;end;procedureTMonthForm.FlatButton3Click(Sender:TObject);beginDM.MonthQuery.Next;end;procedureTMonthForm.FlatButton4Click(Sender:TObject);beginDM.MonthQuery.Last;end;procedureTMonthForm.FlatButton5Click(Sender:TObject);beginYBCXForm:=TYBCXForm.Create(application);YBCXForm.ShowModal;end;procedureTMonthForm.FlatButton6Click(Sender:TObject);beginifMainForm.QuanXian=2thenbeginShowMessage('你的权限不够！');exit;end;PrintFile:=6;PrintForm:=TPRintForm.Create(application);printForm.Show;end;procedureTMonthForm.FormShow(Sender:TObject);beginDM.MonthQuery.Close; Dm.MonthQuery.SQL.Clear;DM.MonthQuery.SQL.Add('select*fromKHFY');DM.MonthQuery.Open;end;end.3.4用户管理界面与代码设计unitLYQUERYUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,TFlatButtonUnit,TFlatComboBoxUnit,AAFont,AACtrls,ExtCtrls,TFlatPanelUnit;typeTLYQUERYForm=class(TForm)FlatPanel1:TFlatPanel;AALabel1:TAALabel;AALabel2:TAALabel;FlatComboBox1:TFlatComboBox;FlatButton1:TFlatButton;FlatButton2:TFlatButton;Edit1:TEdit;procedureFormClose(Sender:TObject;varAction:TCloseAction);procedureFlatButton2Click(Sender:TObject);procedureFlatButton1Click(Sender:TObject); private{Privatedeclarations}public{Publicdeclarations}end;varLYQUERYForm:TLYQUERYForm;implementationusesDMUnit,CDUnit;{$R*.dfm}procedureTLYQUERYForm.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=caFree;end;procedureTLYQUERYForm.FlatButton2Click(Sender:TObject);beginclose;end;procedureTLYQUERYForm.FlatButton1Click(Sender:TObject);varstr:string;s:string;beginif(FlatComBoBox1.Text='')or(Edit1.Text='')thenbeginshowmessage('请输入完整查询条件!');DM.LY_XXQuery.Close;DM.LY_XXQuery.SQL.Clear;DM.LY_XXQuery.SQL.Add('select*fromLY_XX');DM.LY_XXQuery.Open;Exit;end;Str:='Select*fromLY_XX';S:=Edit1.Text;//ifFlatComBoBox1.Text='发货名称'then//Str:=Str+'whereCD_NAMElike'''+s+'%'+''''; ifFlatComBoBox1.Text='目的地'thenStr:=Str+'whereLY_MUDIlike'''+s+'%'+'''';DM.LY_XXQuery.Close;DM.LY_XXQuery.SQL.Clear;DM.LY_XXQuery.SQL.Add(Str);DM.LY_XXQuery.Open;LYQUERYForm.Close;end;end.3.5主界面设计与代码设计unitMainUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,TFlatButtonUnit,TFlatPanelUnit,Menus,SHellapi,jpeg;constChildFormNum=10;typeTMainForm=class(TForm)MainMenu1:TMainMenu;N62:TMenuItem; N63:TMenuItem;N64:TMenuItem;N65:TMenuItem;N66:TMenuItem;Image1:TImage;N32:TMenuItem;N1:TMenuItem;N2:TMenuItem;N3:TMenuItem;N4:TMenuItem;N5:TMenuItem;N6:TMenuItem;N7:TMenuItem;N8:TMenuItem;N9:TMenuItem;N15:TMenuItem;N16:TMenuItem;N19:TMenuItem;N11:TMenuItem;N20:TMenuItem;N21:TMenuItem;Timer1:TTimer;FlatButton1:TFlatButton;FlatButton2:TFlatButton;FlatButton3:TFlatButton;FlatButton4:TFlatButton;FlatButton5:TFlatButton;FlatButton6:TFlatButton;FlatButton7:TFlatButton;FlatButton8:TFlatButton;FlatButton10:TFlatButton;FlatButton11:TFlatButton;FlatButton12:TFlatButton;FlatButton13:TFlatButton;FlatButton9:TFlatButton;Panel1:TPanel;FlatPanel2:TFlatPanel;procedureFormCreate(Sender:TObject);procedureFormShow(Sender:TObject);procedureN6Click(Sender:TObject);procedureN2Click(Sender:TObject);procedureN3Click(Sender:TObject);procedureFlatButton13Click(Sender:TObject);procedureN4Click(Sender:TObject); procedureN15Click(Sender:TObject);procedureN16Click(Sender:TObject);procedureN63Click(Sender:TObject);procedureN64Click(Sender:TObject);procedureN65Click(Sender:TObject);procedureN66Click(Sender:TObject);procedureN19Click(Sender:TObject);procedureN20Click(Sender:TObject);procedureN21Click(Sender:TObject);procedureTimer1Timer(Sender:TObject);procedureFlatButton10Click(Sender:TObject);procedureFlatButton11Click(Sender:TObject);procedureFlatButton12Click(Sender:TObject);procedureN8Click(Sender:TObject);procedureN9Click(Sender:TObject);procedureFormCloseQuery(Sender:TObject;varCanClose:Boolean);privateFirstTime:Boolean;vmo,vho,vso:Real;{Privatedeclarations}publicQuanXian:integer;FName:String;{Publicdeclarations}end;varMainForm:TMainForm;PrintFile:integer;implementationusesHUANYINUnit,DENLUUnit,BangZhuUnit,YHGLUnit,XGKLUnit,HYUnit,KUUnit,CDUnit,BFHFUnit,FHXXUnit,SHXXUnit,HYDJUnit,DLUnit,YWYUnit,KHFYUnit,DMUnit,PrintUnit,CallPrint,MonthUnit,YEARUnit;{$R*.dfm}procedureTMainForm.FormCreate(Sender:TObject);vari:integer;begin{ifdate>strtodate(trim('2003-9-30'))thentryShowMessage('本系统使用已到期,请注册!'); Application.Terminate;exceptend;}withMainForm.Image2.CanvasdobeginPen.Color:=clwhite;Pen.Style:=psSolid;Brush.Color:=clwhite;Brush.Style:=bsSolid;Rectangle(0,0,width,Height);pen.Color:=clBlack;fori:=1to12doPixels[17+Round(17*sin(i/12.0*2*pi)),17-round(17*cos(i/12.0*2*pi))]:=clblack;end;FirstTime:=true;end;procedureTMainForm.FormShow(Sender:TObject);beginDENLUForm:=TDENLUForm.Create(Application);DENLUForm.ShowModal;end;procedureTMainForm.N6Click(Sender:TObject);beginBangZhuForm:=TBangZhuForm.Create(Self);BangZhuForm.ShowModal;end;procedureTMainForm.N2Click(Sender:TObject);beginifMainForm.QuanXian=2thenbeginShowMessage('你的权限不够！');exit;end;YHGLForm:=TYHGLForm.Create(Self);YHGLForm.ShowModal;end;procedureTMainForm.N3Click(Sender:TObject);beginXGKLForm:=TXGKLForm.Create(Self); XGKLForm.ShowModal;end;procedureTMainForm.FlatButton13Click(Sender:TObject);beginclose;end;procedureTMainForm.N4Click(Sender:TObject);beginifMainForm.QuanXian=2thenbeginShowMessage('你的权限不够！');exit;end;BFHFForm:=TBFHFForm.Create(Self);BFHFForm.ShowModal;end;procedureTMainForm.N15Click(Sender:TObject);vari,j:Integer;FindOne:Boolean;beginFindOne:=False;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doifMDIChildRen[i]isTFHXXFormthenbeginFindOne:=True;FHXXForm.Show;Break;end;ifnotFindOnethenFHXXForm:=TFHXXForm.Create(Self);end;procedureTMainForm.N16Click(Sender:TObject);varI,j:Integer;FindOne:Boolean;beginFindOne:=False;Fori:=0toMDIChildCount-1do Forj:=0toChildFormNum-1doifMDIChildRen[i]isTSHXXFormthenbeginFindOne:=True;SHXXForm.Show;Break;end;ifnotFindOnethenSHXXFORM:=TSHXXForm.Create(Self);end;procedureTMainForm.N63Click(Sender:TObject);vari,j:Integer;FindOne:Boolean;beginFindOne:=False;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doifMDIChildren[i]isTHYDJFormthenbeginFindOne:=True;HYDJForm.Show;Break;end;ifnotFindOnethenHYDJForm:=THYDJForm.Create(Self);end;procedureTMainForm.N64Click(Sender:TObject);vari,j:Integer;FindOne:Boolean;beginFindOne:=False;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doIfMDIChildRen[i]isTKHFormthenbeginFindOne:=True;KHForm.Show;Break;end;IfnotFindOnethen KHForm:=TkHForm.Create(self);end;procedureTMainForm.N65Click(Sender:TObject);vari,j:Integer;FindOne:Boolean;beginFindOne:=False;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doIfMDIChildRen[i]isTCDFormthenbeginFindOne:=True;CDForm.Show;Break;end;IfnotFindonethenCDForm:=TCDForm.Create(self);end;procedureTMainForm.N66Click(Sender:TObject);vari,j:integer;FindOne:Boolean;beginFindOne:=false;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doifMDIChildren[i]isTDLFormthenbeginFindOne:=true;DLForm.Show;Break;end;ifnotFindOnethenDLForm:=TDLForm.Create(self);end;procedureTMainForm.N19Click(Sender:TObject);beginYWYForm:=TYWYForm.Create(Application);YWYForm.ShowModal; end;procedureTMainForm.N20Click(Sender:TObject);vari,j:Integer;FindOne:Boolean;beginFindOne:=False;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doIfMDIChildRen[i]isTHYFormthenbeginFindOne:=True;HYForm.Show;Break;end;IfnotFindOnethenHYForm:=THYForm.Create(Self);end;procedureTMainForm.N21Click(Sender:TObject);vari,j:integer;FindOne:Boolean;beginFindOne:=False;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doIfMDIChildRen[i]isTKHFYFormthenbeginFindOne:=True;KHFYForm.Show;Break;end;IfnotFindOnethenKHFYForm:=TKHFYForm.Create(Self);end;procedureTMainForm.Timer1Timer(Sender:TObject);varMyNow:Tdatetime;Hour,Min,Sec,mSec:word;vm,vs,vh:Real;begin MyNow:=Now;DecodeTime(MyNow,Hour,Min,Sec,mSec);vh:=Hour/12.0*2*pi;vm:=Min/60.0*2*pi;vs:=Sec/60.0*2*pi;withMainForm.Image2.CanvasdobeginifnotFirstTimethenbeginpen.Color:=clwhite;Moveto(17,17);Lineto(17+round(12*sin(vho)),17-round(12*cos(vho)));Moveto(17,17);Lineto(17+round(15*sin(vmo)),17-round(15*cos(vmo)));Moveto(17,17);Lineto(17+round(15*sin(vso)),17-round(15*cos(vso)));endelseFirstTime:=False;Pen.Color:=clBlack;Moveto(17,17);Lineto(17+round(12*sin(vh)),17-round(12*cos(vh)));Moveto(17,17);Lineto(17+round(15*sin(vm)),17-round(15*cos(vm)));Moveto(17,17);Lineto(17+round(15*sin(vs)),17-round(15*cos(vs)));end;vho:=vh;vmo:=vm;vso:=vs;end;procedureTMainForm.FlatButton10Click(Sender:TObject);vari,j:integer;FindOne:Boolean;beginFindOne:=false;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doIfMDIChildRen[i]isTMonthFormthenbeginFindOne:=True;MonthForm.Show; Break;end;IfnotFindOnethenMonthForm:=TMonthForm.Create(self);end;procedureTMainForm.FlatButton11Click(Sender:TObject);vari,j:integer;FindOne:Boolean;beginFindOne:=false;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doIfMDIChildRen[i]isTYEARFormthenbeginFindOne:=True;YEARForm.Show;Break;end;IfnotFindOnethenYEARForm:=TYEARForm.Create(self);end;procedureTMainForm.FlatButton12Click(Sender:TObject);beginShellExecute(handle,nil,'RR.hlp',nil,nil,sw_ShowNormal);end;procedureTMainForm.N8Click(Sender:TObject);vari,j:integer;FindOne:Boolean;beginFindOne:=false;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doIfMDIChildRen[i]isTMonthFormthenbeginFindOne:=True;MonthForm.Show;Break;end; IfnotFindOnethenMonthForm:=TMonthForm.Create(self);end;procedureTMainForm.N9Click(Sender:TObject);vari,j:integer;FindOne:Boolean;beginFindOne:=false;Fori:=0toMDIChildCount-1doForj:=0toChildFormNum-1doIfMDIChildRen[i]isTYEARFormthenbeginFindOne:=True;YEARForm.Show;Break;end;IfnotFindOnethenYEARForm:=TYEARForm.Create(self);end;procedureTMainForm.FormCloseQuery(Sender:TObject;varCanClose:Boolean);beginifApplication.MessageBox('是否退出畅海货运管理系统？','系统提示',MB_YesNO)=mrNOthenAbort;end;end.总结本系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对水电管理进行系统调研，熟悉其中的系统设置、水电费用计算的流程 、步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到水电管理中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用DELPHI6.0，其具有语言简单、功能强大、组件众多的优点。程序模块的编制中，重点把握系统内部完整性、功能性、实用性、便捷性，使其能够协调统一、运行无误。致谢我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做，这样会有好的创意，才能更有作为。在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活和学习上给了我很大的帮助。参考文献1张春林.Delphi6程序设计导学.北京：清华大学出版社，2002.52飞思科技.Delphi6开发者手册.北京：电子工业出版社,2002.3 3飞思科技.Delphi6数据库开发.北京：电子工业出版社,2002.14丁宝康.数据库原理.北京：经济科学出版社，2004.15何旭洪.Delphi6.0数据库系统开发实例导航.北京：人民邮电出版社,2002.46周璋鹏.基于B/S结构的学生信息管理系统垢研究与开发.西北电力技术.2003，31(4):15~17,267李全彬,顾明亮.基于ASP技术的学生信息管理系统的研究与开发.徐州师范大学学报(自然科学版).2001,19(2):25~288谷军.用Authorware开发学生信息管理系统.计算机与与现代化.2003(7):40~41,449李丹荣,杜维.基于Delphi6．0的实时数据采集与分析系统机电工程.2003,20(5):64~67