VCD租赁管理系统

毕业设计VCD租赁管理系统院系______专业______班级______姓名______日期年月日中文摘要VCD租赁管理系统为光盘管理者提供充足的信息和快捷的查询手段，其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI6.0软件及其提供的各种面向对象的开发工具，建立完整性强、安全性好的数据库，开发出功能完备，易使用的应用程序。经过调试、编译与实现，该程序界面友好、程序设计风格朴素，使用起来美观大方、方便易用。尤其是系统的“查询模块”的功能极大的减轻工作人员的工作量，并以快速、准确等优点取代人工操作，提高了光盘管理工作效率。关键词：DELPHI6.0信息管理系统数据库模块VCD租赁信息VCDdiscsmanagerfortheleasemanagementsystemtoprovideadequateinformationandefficientmeansenquiries,thedevelopmentmainlytotheestablishmentandmaintenanceofdatabasesincludingbackgroundapplicationsandfront-enddevelopmentofthetwo.Delphi6.0andtheuseofobject-orientedsoftwaredevelopmenttools,theestablishmentofstrongintegrity,goodsafetydatabasedevelopedfunctions,easytouseapplications.Afterdebugging,Translationandtherealizationthattheprocessfriendlyinterface,simpleprogrammingstyle,usingupaestheticgenerous,convenientuser-friendly.Inparticularsystem"enquiriesmodule"functiongreatlyreducetheworkloadofstaff,andtotherapid,accurate,andotheradvantagesreplacemanuallyoperated,andenhancedCDsmanagementefficiency.Keyword:Delphi6.0InformationManagementSystemdatabasemoduleVCDrentalinformation引言11Delphi语言概述21.1Delphi简介21.2数据库系统简介21.3本应用软件的基本介绍32本应用程序的构成和开发步骤42.1可行性研究9经济可行性14时间可行性15技术可行性16社会可行性182.2数据库的建立和连接202.3系统的总体设计232.4系统的详细设计253本程序的技术实现及具体功能273.1登录的界面与程序设计实现283.2会员管理界面与代码设计实现及功能343.3影碟图书界面与代码设计实现433.4还租结算界面与代码设计533.5现金报 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 界面设计与代码设计653.6会员密码管理界面与代码设计72结论82致谢83参考文献84引言随着经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。以前开发Windows应用软件是专业人员的工作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同了，即使你没有接受过严格的程序设计训练，使用Delphi编程语言也一样能够开发出功能强大、适合自己特殊需求的应用程序了。Delphi编程语言继承了其他语言易学易用的特点，特别适合于初学者学习Windows系统编程。VCD租赁管理系统用计算机管理VCD租赁的一种计算机应用技术的创新,在计算机还未普及之前VCD租赁管理都是由工作人员人工书写,调阅的方式光盘租赁管理都采用计算机智能化管理,采用计算机作为工具的实用的计算机订单管理程序来帮助前台管理员进行更有效的光盘出借管理工作。VCD租赁管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用Delphi编程语言开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。因为本人能力有限，加上时间紧迫，所以设计出来的本系统可能功能比较简单，另外本系统是单机版，不能实现网络互联操作,这些都有待于我在以后的工作学习中进一步改进。1Delphi语言概述Delphi简介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本应用软件的基本介绍本应用软件先是打开一个启动窗口，就可以进入应用程序的主窗口了。主界面是一个图型界面窗口，整个平台显示采用图标方式，可以非常方便的管理会员、图书影碟、租金结算、影碟查询等基本信息，管理日常经营的基本情况，通过各种条件查询出影碟出借的基本信息，以及打印出查询出的基本信息，总之一切影碟出借基本信息都会显示在系统平台上。另外在屏幕左侧有快捷铵钮，弹出式菜单和主窗口菜单相同，可方便选择，大大提高了管理人员的工作效率。2本应用程序的构成和开发步骤下面从软件工程的角度介绍本程序的基本开发步骤。Delphi应用程序一般包含以下三个基本部分：应用程序运行的接口：负责系统整体环境的设置，运行状态的监视，应用程序的启动等。应用程序的主体：主要完成用户的业务逻辑功能，如VCD光盘信息,主演,导演信息的录入,用户管理,出借天数等信息.应用程序的辅助部分：协助程序主体完成的一些工作。下面从软件工程的角度描述本程序的开发生命周期，开发过程和组织过程。可行性研究任何一个系统或一项工程，在建立之前，必须首选进行可行性分析，可行性分析包括两层含义，一是可能性，二是必要性。可能性指开发信息系统的条件是否具备，必要性是指客观上是否真正需要，通过可行性研究，可避免盲目投资，减少政治性要的损失。下面从四方面来讨论：经济可行性主要是只指算一个新的系统开发所需要的投资费用和运算费用，并与估计的新系统收益进行比较，看是否有利。本系统所需的软硬件成本比较低，投资小，具有一定的通过性，因此，在经济上是可行的。时间可行性主要包括系统在目前环境下能否正常运行，运行后所引起的各方面，以及这些变化对社会或人的因素所产生的影响。本系统对人事的管理比较全面，可长期使用。技术可行性利用现有的设备，软件及技术人员，新系统的目标能否达到，这也是可行性研究中需要考虑的一个问题。关系型数据库的高速发展使管理信息系统具备了良好的开发环境。本系统使用的Delphi普及性好，操作简单，用户可以很快掌握使用方法，因此，在技术上是完全可行的。社会可行性人类社会文明的发展已进入信息化的高速发展时期，传统的手工方式支持下的管理模式，已经不能满足各方面的需要。开发本系统的目标不仅是提高工作效率，减轻劳动强度，而且减少出错率，具有很好的社会意义。2.2数据库的建立和连接这个程序采用的数据库是MicrosoftAccess2000，Delphi作为数据库的前台开发工具，必须与后台数据库进行连接，这样才能控制和进行操作数据库，数据库的连接方式有两种，ODBC和ADO。ODBC是数据库的通用接口，其缺点是效率低；专用接口调用直接速度快，但是通用性差，如果用ODBC连接数据库一般要两个步骤：1.要创建数据源；2.创建描述文件。数据库的建立则时在access2000中建立的，在这里你可以设置数据库的密码，对数据库进行保护。在创建数据源时可以通过BDEadministrator进行创建，也可以通过系统控制面板中的ODBC数据源进行建立。而描述文件则可以在Delphi的主程序中用DatabaseProfile中进行建立，之后进行数据库的连接。接下来的工作是建表。同样建表的过程也不是唯一的，但是最终实现的结果是唯一的。你可以通过Access进行建表，也可以通过在主程序中建表，也可以通过powerdesigner进行可视化的建立，不过用这种方法，在导入的时候要把数据库要先断开，否则数据库的数据容易丢失。建表的过程注意 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 化命名规则，如表的字段名等等。同时也要注意表的字段长度和可否为空。因为以后要设计到主键，外键的问题。如果字段名不同，同一字段长度不同则主键和外键将会连接不上。可见建表时应做好全局的打算。我在程序开发的初期，同样犯了这个错误，导致数据库出错，有时还要向表中新加入字段。导致数据窗口不好用的连锁反映。2.3系统的总体设计这个管理系统从4月1日开始着手设计开发,经过一段时间的分析，并根据对影音店光盘管理的具体要求及需要本软件实现的功能，将本软件分为5个大的模块，分别是：第一部分：系统管理；第二部分：日常统计；第三部分：查询统计模块；第四部分：帮助其他。程序流程图如下：程序登陆主界面系统管理日常操作查询统计帮助系统的详细设计进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象，根据本课题的需要，在这里选择一个空的数据库，命名建立了一个数据库名称为“bysj”，学生 档案管理 财务及档案管理制度档案管理制度培训安全生产档案管理制度人事档案管理制度人事档案管理制度范本 系统。并在此数据库下创建了六个表，用于存放原始数据。它只是存放数据，对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下：1:cashbook表2:czb表3czdt表:3本程序的技术实现及具体功能登录的界面与程序设计实现代码设计:unitlong;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,Menus,ComCtrls,ToolWin,Buttons,StdCtrls,AppEvnts,LabelButton,TradeImage,MaskImageButton,MoveImageButton,TrayBarIcon;typeTfrm_long=class(TForm)palUp:TPanel;palLeftUp:TPanel;imgLeftUp:TImage;palRightUp:TPanel;imgRightUp:TImage;palUpMid:TPanel;imgCaption:TImage;palDown:TPanel;imgLeftDown:TImage;imgRightDown:TImage;imgDownMin:TImage;palLeft:TPanel;palRight:TPanel;imgRight:TImage;imgCloseButton:TImage;imgMinButton:TImage;imgSizeButton:TImage;imgMaxButton:TImage;imgRestoreButton:TImage;imgSysIcon:TImage;popSystemMenu:TPopupMenu;N_Restore:TMenuItem;N_Max:TMenuItem;N_Min:TMenuItem;N_Move:TMenuItem;N_Size:TMenuItem;N_Speater:TMenuItem;N_Close:TMenuItem;palClient:TPanel;lbCaption:TLabel;CoolBarMenu:TCoolBar;ToolBarMenu:TToolBar;imgLeft:TImage;imgColorLeftUp:TImage;imgGrayCaption:TImage;imgGrayMenuBar:TImage;imgGrayRightUp:TImage;imgColorCaption:TImage;imgGrayLeftUp:TImage;imgColorRightUp:TImage;imgRightUp1:TImage;imgLeftUp1:TImage;imgColorMenubar:TImage;Label1:TLabel;Label2:TLabel;e_pass:TEdit;e_zzy:TComboBox;b_ok:TMoveImgBtn;blabel_ok:TLabelBtn;blabel_exit:TLabelBtn;b_exit:TMoveImgBtn;b_edit:TMoveImgBtn;LabelBtn1:TLabelBtn;procedureimgMinButtonClick(Sender:TObject);procedureimgSizeButtonClick(Sender:TObject);procedureimgCloseButtonClick(Sender:TObject);procedureimgCaptionMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);procedureimgCaptionMouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);procedureimgCaptionMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);procedureFormCreate(Sender:TObject);procedureimgSysIconMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);procedurepopSystemMenuPopup(Sender:TObject);procedureN_SizeClick(Sender:TObject);procedureN_MoveClick(Sender:TObject);procedureFormShow(Sender:TObject);proceduree_zzyChange(Sender:TObject);procedureb_okClick(Sender:TObject);procedureFormActivate(Sender:TObject);procedureb_exitClick(Sender:TObject);procedureb_editClick(Sender:TObject);proceduree_passKeyPress(Sender:TObject;varKey:Char);procedureFormClose(Sender:TObject;varAction:TCloseAction);private{Privatedeclarations}canmove:boolean;curPoint:TPoint;oldPoint:TPoint;Canvas:TCanvas;i:integer;//密码循环三次protectedprocedureCreateParams(varParams:TCreateParams);override;procedureWMActivate(varMsg:TWMACTIVATE);messageWM_ACTIVATE;public{Publicdeclarations}end;varfrm_long:Tfrm_long;implementationusespublicvar,passedit,datam,main;{$R*.dfm}procedureTfrm_long.CreateParams(varParams:TCreateParams);begininheritedCreateParams(Params);ifBorderStyle<>bsNonethenParams.Style:=WS_THICKFRAMEorWS_POPUPorWS_BORDER;end;procedureTfrm_long.imgMinButtonClick(Sender:TObject);beginifApplication.MainForm=selfthenelseDefWindowProc(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);end;procedureTfrm_long.imgSizeButtonClick(Sender:TObject);beginifself.WindowState=wsNormalthenbeginDefWindowProc(Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);imgSizeButton.Picture:=imgRestoreButton.Picture;endelsebeginDefWindowProc(Handle,WM_SYSCOMMAND,SC_RESTORE,0);imgSizeButton.Picture:=imgMaxButton.Picture;end;end;procedureTfrm_long.imgCloseButtonClick(Sender:TObject);beginDefWindowProc(Handle,WM_SYSCOMMAND,SC_CLOSE,0);end;procedureTfrm_long.imgCaptionMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);beginif(Button=mbLeft)and(ssLeftinShift)thenbegincanmove:=true;Canvas:=TCanvas.Create;withCanvasdobeginpen.Style:=psdot;brush.Style:=bsClear;pen.Width:=2;Pen.Mode:=pmNotXor;Handle:=GetDC(0);Rectangle(left,top,Left+width,top+height);curPoint.X:=X;curPoint.Y:=Y;oldPoint.X:=Left;oldPoint.Y:=Top;end;//endwithend;//endifend;procedureTfrm_long.imgCaptionMouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);beginifnotcanmovethenexit;withCanvasdobeginRectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);oldPoint.x:=Left+X-curPoint.x;oldPoint.y:=Top+Y-curPoint.y;Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);end;end;procedureTfrm_long.imgCaptionMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);beginifnotcanmovethenexit;withCanvasdobeginRectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);Left:=oldPoint.x;Top:=oldPoint.y;Free;end;canmove:=notcanmove;end;procedureTfrm_long.FormCreate(Sender:TObject);beginlbCaption.Caption:=Caption;dm.ado_user.open;dm.ADO_user.Sort:='编号';whilenotdm.ado_user.Eofdobegine_zzy.items.add(dm.ADO_user.fieldbyname('操作员').AsString);dm.ADO_user.Next;end;e_zzy.ItemIndex:=0end;procedureTfrm_long.imgSysIconMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);beginPopSystemMenu.Popup(Left+ImgSysIcon.Left,Top+ImgSysIcon.Top+ImgSysIcon.Height);end;procedureTfrm_long.popSystemMenuPopup(Sender:TObject);beginN_Restore.Enabled:=imgSizeButton.Visibleand(WindowState=wsMaximized);N_Max.Enabled:=imgSizeButton.Visibleand(WindowState=wsNormal);n_min.Enabled:=imgMinButton.Visible;N_Size.Enabled:=imgSizeButton.Visible;end;procedureTfrm_long.N_SizeClick(Sender:TObject);beginDefWindowProc(Handle,WM_SYSCOMMAND,SC_SIZE,0);end;procedureTfrm_long.N_MoveClick(Sender:TObject);beginDefWindowProc(Handle,WM_SYSCOMMAND,SC_MOVE,0);end;procedureTfrm_long.FormShow(Sender:TObject);beginifWindowState=wsNormalthenelseifWindowState=wsMaximizedthenend;procedureTfrm_long.WMActivate(varMsg:TWMACTIVATE);beginif(Msg.Active=WA_ACTIVE)or(Msg.Active=WA_CLICKACTIVE)thenbeginimgCaption.Picture.Bitmap:=imgColorCaption.Picture.Bitmap;imgLeftUp1.Picture.Bitmap:=imgColorLeftUp.Picture.Bitmap;imgRightUp1.Picture.Bitmap:=imgColorRightUp.Picture.Bitmap;coolBarMenu.Bitmap:=imgColorMenubar.Picture.Bitmap;endelsebeginimgCaption.Picture.Bitmap:=imgGrayCaption.Picture.Bitmap;imgLeftUp1.Picture.Bitmap:=imgGrayLeftUp.Picture.Bitmap;imgRightUp1.Picture.Bitmap:=imgGrayRightUp.Picture.Bitmap;coolBarMenu.Bitmap:=imgGrayMenubar.Picture.Bitmap;end;end;procedureTfrm_long.e_zzyChange(Sender:TObject);begine_pass.Text:='';e_pass.SetFocus;end;procedureTfrm_long.b_okClick(Sender:TObject);varkl:variant;pass:string;beginzzyname:=e_zzy.text;kl:=dm.ado_user.lookup('操作员',zzyname,'口令');ifvarisnull(kl)thenpass:=''elsepass:=kl;ife_pass.text=passthenbegini:=i+1;ifi>=3thenbeginApplication.MessageBox(PChar('密码验证错误，拒绝访问！'),PChar('提示'),MB_ICONEXCLAMATION);Application.Terminate;close;end;application.messagebox(pchar('密码验证错误，重新录入！'),pchar('提示'),MB_ICONQUESTION);e_pass.text:='';e_pass.SetFocus();exit;end;dm.ADO_user.Close;;frm_main:=tfrm_main.create(application);frm_main.showmodal;end;procedureTfrm_long.FormActivate(Sender:TObject);begine_pass.SetFocus;end;procedureTfrm_long.b_exitClick(Sender:TObject);beginclose;end;procedureTfrm_long.b_editClick(Sender:TObject);beginzzyname:=e_zzy.text;frm_passedit:=tfrm_passedit.create(application);frm_passedit.showmodal;end;procedureTfrm_long.e_passKeyPress(Sender:TObject;varKey:Char);beginifkey=#13thenbeginb_ok.OnClick(b_ok);end;end;procedureTfrm_long.FormClose(Sender:TObject;varAction:TCloseAction);begindm.ado_user.Close;Application.Terminate;end;end.会员管理界面与代码设计实现及功能代码设计:unithygl;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,TEMPLETFORM,Grids,DBGrids,LabelButton,TradeImage,ComCtrls,Menus,ToolWin,StdCtrls,ExtCtrls,DBActns,DB,ActnList;typeTfrm_hygl=class(TMyForm)ztl:TStatusBar;DBGrid:TDBGrid;BActionList1:TActionList;DataSetFirst1:TDataSetFirst;DataSetPrior1:TDataSetPrior;DataSetNext1:TDataSetNext;DataSetLast1:TDataSetLast;DataSetDelete1:TDataSetDelete;DataSetInsert1:TDataSetInsert;DataSetEdit1:TDataSetEdit;Action_Help:TAction;palToolbar:TPanel;tiHelp:TTradeImg;tiPrint:TTradeImg;tiLocate:TTradeImg;tiLast:TTradeImg;tiNext:TTradeImg;tiPrior:TTradeImg;tiFirst:TTradeImg;b_tz:TTradeImg;tiDelete:TTradeImg;tiEdit:TTradeImg;tiNew:TTradeImg;LabelBtn1:TLabelBtn;LabelBtn2:TLabelBtn;LabelBtn3:TLabelBtn;blabel_tz:TLabelBtn;LabelBtn4:TLabelBtn;LabelBtn5:TLabelBtn;LabelBtn6:TLabelBtn;LabelBtn7:TLabelBtn;LabelBtn8:TLabelBtn;LabelBtn9:TLabelBtn;LabelBtn10:TLabelBtn;DataSource1:TDataSource;group:TRadioGroup;procedureDataSetInsert1Execute(Sender:TObject);procedureDataSetEdit1Execute(Sender:TObject);procedureFormCreate(Sender:TObject);procedureFormClose(Sender:TObject;varAction:TCloseAction);procedureDataSetDelete1Execute(Sender:TObject);procedureFormShow(Sender:TObject);proceduregroupClick(Sender:TObject);proceduretiLocateClick(Sender:TObject);procedureb_tzClick(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}procedureztljs;end;varfrm_hygl:Tfrm_hygl;zrs,nzs,yzs:integer;//总办证数，年证数，月证数implementationusesdatam,vipedit,vipcx,viptz;{$R*.dfm}proceduretfrm_hygl.ztljs;beginzrs:=dm.ADO_vip.RecordCount;frm_hygl.ztl.panels[1].text:=inttostr(zrs);dm.ADOQuery.Close;dm.ADOQuery.SQL.Clear;dm.ADOQuery.SQL.Add('selectcount(*)fromvipwhere证类型="年证"');dm.ADOQuery.Open;frm_hygl.ztl.panels[3].text:=dm.ADOQuery.Fields[0].AsString;//月证数量dm.ADOQuery.Close;dm.ADOQuery.SQL.Clear;dm.ADOQuery.SQL.Add('selectcount(*)fromvipwhere证类型="月证"');dm.ADOQuery.Open;frm_hygl.ztl.panels[5].text:=dm.ADOQuery.Fields[0].AsString;//押金合计dm.ADOQuery.Close;dm.ADOQuery.SQL.Clear;dm.ADOQuery.SQL.Add('selectsum(押金)fromvip');dm.ADOQuery.Open;frm_hygl.ztl.panels[7].text:=dm.ADOQuery.Fields[0].AsString+'元';end;procedureTfrm_hygl.DataSetInsert1Execute(Sender:TObject);begininherited;dm.ADO_vip.Append;dm.ADO_vip.FieldByName('性别').AsString:='男';dm.ADO_vip.FieldByName('证类型').AsString:='年证';dm.ADO_vip.FieldByName('押金').AsString:='0.00';e(application);frm_vipedit.b_ok.tag:=0;frm_vipedit.showmodal;end;procedureTfrm_hygl.DataSetEdit1Execute(Sender:TObject);begininherited;frm_vipedit:=tfrm_vipedit.create(application);frm_vipedit.b_ok.tag:=1;//检测会员有无借书.Open;dm.ADO_czdt.First;ifdm.ADO_czdt.Locate('证号',dm.ADO_vip.fieldbyname('证号').AsString,[])thenbeginfrm_vipedit.e_id.Enabled:=false;dm.ADO_czdt.Close;end;dm.ADO_czdt.Close;//frm_vipedit.showmodal;end;procedureTfrm_hygl.FormCreate(Sender:TObject);begininherited;dm.ADO_vip.Open;dm.ADO_vip.Sort:='证号';dm.ADO_vip.First;end;procedureTfrm_hygl.FormClose(Sender:TObject;varAction:TCloseAction);begininherited;dm.ADO_vip.close;ose;dm.ADOQuery.SQL.Clear;release;end;procedureTfrm_hygl.DataSetDelete1Execute(Sender:TObject);varmes:string;begininherited;dm.ADO_czdt.Open;dm.ADO_czdt.First;ifdm.ADO_czdt.Locate('证号',dm.ADO_vip.fieldbyname('证号').AsString,[])thenbeginmes:='办证会员<'+dm.ADO_vip.fieldbyname('姓名').AsString+'>还有租借的图书或影碟未还，不能删除！';application.MessageBox(pchar(mes),pchar('提示'),+MB_ICONQUESTION);dm.ADO_czdt.Close;exit;end;dm.ADO_czdt.Close;mes:='是否要删除办证会员<'+dm.ADO_vip.fieldbyname('证号').AsString+''+dm.ADO_vip.fieldbyname('姓名').AsString+'>';ifapplication.MessageBox(pchar(mes),pchar('等待确认'),+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idokthenbegindm.ADO_vip.Delete;//删除会员 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 dm.ADOQ_cx.Close;dm.ADOQ_cx.SQL.Clear;dm.ADOQ_cx.SQL.add('deletefromcashbookwhere证号='+'"'+dm.ADO_vip.fieldbyname('证号').AsString+'"');dm.ADOQ_cx.ExecSQL;//删除现金收支记录dm.ADOQ_cx.Close;lear;dm.ADOQ_cx.SQL.add('deletefromqkwhere证号='+'"'+dm.ADO_vip.fieldbyname('证号').AsString+'"');dm.ADOQ_cx.ExecSQL;//删除欠款记录dm.ADOQ_cx.Close;dm.ADO_vip.Delete;//删除会员记录ztljs;end;end;procedureTfrm_hygl.FormShow(Sender:TObject);begininherited;ztljs;dbgrid.SetFocus();end;procedureTfrm_hygl.groupClick(Sender:TObject);begininherited;casegroup.ItemIndexof0:dm.ADO_vip.Sort:='证号';1:dm.ADO_vip.Sort:='姓名';2:dm.ADO_vip.Sort:='办证日期';end;end;procedureTfrm_hygl.tiLocateClick(Sender:TObject);begininherited;frm_vipcx:=tfrm_vipcx.create(application);frm_vipcx.showmodal;end;procedureTfrm_hygl.b_tzClick(Sender:TObject);begininherited;frm_viptz:=tfrm_viptz.create(application);frm_viptz.showmodal;end;end.影碟图书界面与代码设计实现代码设计:unitlb;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,Menus,ComCtrls,ToolWin,Buttons,StdCtrls,AppEvnts,LabelButton,TradeImage,MaskImageButton,MoveImageButton,Grids,DBGrids,DB,Mask;typeTfrm_lb=class(TForm)palUp:TPanel;palLeftUp:TPanel;imgLeftUp:TImage;palRightUp:TPanel;imgRightUp:TImage;palUpMid:TPanel;imgCaption:TImage;palDown:TPanel;imgLeftDown:TImage;imgRightDown:TImage;imgDownMin:TImage;palLeft:TPanel;palRight:TPanel;imgRight:TImage;imgCloseButton:TImage;imgMinButton:TImage;imgSizeButton:TImage;imgMaxButton:TImage;imgRestoreButton:TImage;imgSysIcon:TImage;popSystemMenu:TPopupMenu;N_Restore:TMenuItem;N_Max:TMenuItem;N_Min:TMenuItem;N_Move:TMenuItem;N_Size:TMenuItem;N_Speater:TMenuItem;N_Close:TMenuItem;palClient:TPanel;lbCaption:TLabel;CoolBarMenu:TCoolBar;ToolBarMenu:TToolBar;imgLeft:TImage;imgColorLeftUp:TImage;imgGrayCaption:TImage;imgGrayMenuBar:TImage;imgGrayRightUp:TImage;imgColorCaption:TImage;imgGrayLeftUp:TImage;imgColorRightUp:TImage;imgRightUp1:TImage;imgLeftUp1:TImage;imgColorMenubar:TImage;DataSource1:TDataSource;b_new:TMoveImgBtn;blabel_new:TLabelBtn;b_edit:TMoveImgBtn;blabel_edit:TLabelBtn;b_save:TMoveImgBtn;blabel_save:TLabelBtn;b_del:TMoveImgBtn;bLabel_del:TLabelBtn;GroupBox1:TGroupBox;Label1:TLabel;Label2:TLabel;Label3:TLabel;Label4:TLabel;e_id:TEdit;e_name:TEdit;DBGrid1:TDBGrid;procedureimgMinButtonClick(Sender:TObject);procedureimgSizeButtonClick(Sender:TObject);procedureimgCloseButtonClick(Sender:TObject);procedureimgCaptionMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);procedureimgCaptionMouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);procedureimgCaptionMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);procedureFormCreate(Sender:TObject);procedureimgSysIconMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);procedurepopSystemMenuPopup(Sender:TObject);procedureN_SizeClick(Sender:TObject);procedureN_MoveClick(Sender:TObject);procedureFormShow(Sender:TObject);proceduree_idKeyPress(Sender:TObject;varKey:Char);procedureb_newClick(Sender:TObject);procedureb_editClick(Sender:TObject);procedureDataSource1DataChange(Sender:TObject;Field:TField);procedureDBGrid1Enter(Sender:TObject);proceduree_nameKeyPress(Sender:TObject;varKey:Char);procedureb_saveClick(Sender:TObject);procedureb_delClick(Sender:TObject);procedureFormClose(Sender:TObject;varAction:TCloseAction);private{Privatedeclarations}canmove:boolean;curPoint:TPoint;oldPoint:TPoint;Canvas:TCanvas;protectedprocedureCreateParams(varParams:TCreateParams);override;procedureWMActivate(varMsg:TWMACTIVATE);messageWM_ACTIVATE;public{Publicdeclarations}end;varfrm_lb:Tfrm_lb;mes:string;implementationusesdatam;{$R*.dfm}procedureTfrm_lb.CreateParams(varParams:TCreateParams);begininheritedCreateParams(Params);ifBorderStyle<>bsNonethenPara