delphi物资管理系统

课程设计说明书NO.1物资管理系统1.课程设计目的通过课程设计进一步掌握Delphi的基本命令，熟练掌握面向对象程序设计方法和编程技巧，掌握数据库设计方法，能用Delphi编写小型数据库应用程序。2.设计方案论证2.1设计思路随着经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。物资管理系统为企事业单位管理人员日常工作的调度、安排、计划。分为计划管理、物资管理、资金管理等提供充足的信息和快捷的查询手段.其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。货运管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。2.2需求分析2.2.1功能需求(1)有关物资基本信息的基本输入，包括物资编号、物资名称、规格型号、种类和计量单位等。(2)物资基本信息的查询。物资基本信息的修改。(3)入库物资信息的输入，入库物资信息的修改，入库物资信息的查询。(4)出库物资信息的输入，出库物资信息的修改，出库物资信息的查询。(5)物资余额信息的查询，物资余额信息的浏览。功能模块如图1所示：沈阳大学课程设计说明书NO.2图1系统功能模块图2.2.2性能需求(1)数据精确度在进行向数据库文件提取数据时，要求数据记录定位准确(2)时间特性程序响应时间：在人的感觉和视觉事件范围内；信息交换时间：要求在程序调用前调用后都与数据库保持同步更新，网络信息交换施加应该小于程序调用的时间(3)适应性要求数据库具有很好的更新能力，由于本产品是实验性软件，故对磁盘和内存容量没有很高的要求，但是数据库应该能够对并发事件，脏数据具有较强的识别处理能力。沈阳大学物资余额信息管理物资出库信息管理物资管理信息系统物资入库信息管理物资基本信息管理系统管理物资余额信息浏览物资余额信息查询出库物资信息查询出库物资信息修改出库物资信息添加入库物资信息查询入库物资信息修改入库物资信息添加物资基本信息查询物资基本信息修改物资基本信息添加密码管理用户管理课程设计说明书NO.33.设计结果与分析3.1表设计表1Material物资基本信息表列名数据类型可否为空说明wzidvarcharNOTNULL物资编号wznamevarcharNOTNULL物资名称wzspecvarcharNOTNOT规格型号wzkindvarcharNULL类别wzunitvarcharNULL计量单位表2msave入库物资信息表列名数据类型可否为空说明rknovarcharNOTNULL入库编号rkidvarcharNOTNULL入库物资编号rknamevarcharNULL物资名称rkspecvarcharNULL规格型号rkkindvarcharNULL种类rkunitvarcharNULL单位rkaccountnumericNOTNULL数量rkpricenumericNOTNULL单价rkvaluenumericNOTNULL金额rkdatedatetimeNOTNULL入库时间rkdeal_personvarcharNOTNULL经办人rksave_personvarcharNOTNULL保管人rkbasevarcharNULL仓库表3msurplus物资余额信息表列名数据类型可否为空说明yeidvarcharNOTNULL物资编号yenamevarcharNOTNULL物资名称yespecvarcharNULL规格型号yekindvarcharNULL类别yeunitnumericNULL计量单位yeaccountnumericNOTNULL数量yevaluenumericNOTNULL金额yebasevarcharNOTNULL仓库yememotextNULL备注沈阳大学课程设计说明书NO.4表4muse出库物资信息表列名数据类型可否为空说明lynovarcharNOTNULL出库编号lyidvarcharNOTNULL出库物资编号lynamevarcharNULL物资名称lyspecvarcharNULL规格型号lykindvarcharNULL种类lyunitvarcharNULL单位lyaccountnumericNOTNULL数量lypricenumericNULL单价lyvaluenumericNULL金额lydatedatetimeNOTNULL出库时间lyuse_personvarcharNOTNULL经办人lydeal_personvarcharNOTNULL保管人lybasevarcharNULL仓库lymemotextNULL备注3.2登录的界面登录界面用于验证用户登录本系统。图2登录的界面部分代码如下：varLogoForm:TLogoForm;implementationusesLoginUnit;{$R*.dfm}procedureTLogoForm.FormCreate(Sender:TObject);var沈阳大学课程设计说明书NO.5beginFoundwin:=FindWindow(nil,'物资管理系统-');//查找窗口ifFoundwin0thenbegin//调用Delphi自带的查询窗口函数，查找特定标题的窗体//若找到则激活已运行的程序，同时结束自身ShowWindow(Foundwin,SW_RESTORE);halt;end;end;procedureTForm1.Button1Click(Sender:TObject);beginifedit1.Text=''thenbeginMessageDlg('请输入用户名！',mtInformation,[mbYes],0);exit;end;ifedit2.Text=''thenbeginMessageDlg('请输入密码！',mtInformation,[mbYes],0);exit;end;ifRadioButton2.CheckedthenwithADOQuery1dobeginClose;SQL.Clear;SQL.Add('select*fromT_userwhere(user_id=:a)and(password=:b)');Parameters.ParamByName('a').Value:=Trim(Edit1.Text);Parameters.ParamByName('b').Value:=Trim(Edit2.Text);Open;endelsewithADOQuery1dobeginClose;SQL.Clear;SQL.Add('select*fromT_userwhere(user_id=:a)and(password=:b)and(type=:c)');Parameters.ParamByName('a').Value:=Trim(Edit1.Text);Parameters.ParamByName('b').Value:=Trim(Edit2.Text);Parameters.ParamByName('c').Value:=Trim(RadioButton1.Caption);Open;end;ifADOQuery1.RecordCount0thenbeginshowMessage('登陆成功！');form1.hide;form2.show;endelsebegin沈阳大学课程设计说明书NO.6sql.Clear;sql.Add('select*fromT_sellwhere');sql.Add(Trim(ComboBox2.Text));sql.Add('=');sql.Add(':a');Parameters.ParamByName('a').value:=Trim(edit2.Text);execsql;ADOQuery1.Active:=true;endApplication.MessageBox('用户名或密码有误，请重新尝试！','提示',MB_OK+MB_ICONWARNING);endend;3.3主界面设计主界面向用户展示本系统的各种主要功能。图3主界面部分代码如下：unitMainUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,TFlatButtonUnit,TFlatPanelUnit,Menus,SHellapi,jpeg;constChildFormNum=10;沈阳大学课程设计说明书NO.7typeTMainForm=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;沈阳大学课程设计说明书NO.8procedureFormCreate(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: