|
2.3 系统的总体设计 这个管理系统从4月1日开始着手设计开发,经过一段时间的分析，并根据对影音店光盘管理的具体要求及需要本软件实现的功能，将本软件分为5个大的模块，分别是：第一部分：系统管理；第二部分：日常统计；第三部分：查询统计模块； 第四部分：帮助其他。 http://www.paper51.com 程序流程图如下： paper51.com copyright paper51.com 2.4 系统的详细设计 copyright paper51.com 进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象，根据本课题的需要，在这里选择一个空的数据库，命名建立了一个数据库名称为“bysj”，学生档案管理系统。并在此数据库下创建了六个表，用于存放原始数据。它只是存放数据，对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下： 内容来自www.paper51.com
1:cashbook表 copyright paper51.com
copyright paper51.com 2:czb表 copyright paper51.com paper51.com 3czdt表: 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com 4.dw表 内容来自www.paper51.com
内容来自www.paper51.com
5.user表 copyright paper51.com
内容来自论文无忧网 www.paper51.com
3 本程序的技术实现及具体功能 内容来自www.paper51.com 3.1 登录的界面与程序设计实现 paper51.com
http://www.paper51.com 代码设计: 内容来自论文无忧网 www.paper51.com
unit long; paper51.com
interface http://www.paper51.com uses http://www.paper51.com
Windows, Messages, SysUtils, Variants,Classes, Graphics, Controls, Forms, 内容来自论文无忧网 www.paper51.com Dialogs, ExtCtrls, Menus, ComCtrls, ToolWin,Buttons, StdCtrls, AppEvnts, paper51.com
LabelButton, TradeImage,MaskImageButton, MoveImageButton, TrayBarIcon; http://www.paper51.com type paper51.com
Tfrm_long = class(TForm) http://www.paper51.com palUp: TPanel; 内容来自www.paper51.com palLeftUp: TPanel; 内容来自www.paper51.com imgLeftUp: TImage; paper51.com palRightUp: TPanel; paper51.com
imgRightUp: TImage; 内容来自www.paper51.com palUpMid: TPanel; http://www.paper51.com imgCaption: TImage; copyright paper51.com palDown: TPanel; copyright paper51.com imgLeftDown: TImage; 内容来自论文无忧网 www.paper51.com imgRightDown: TImage; paper51.com
imgDownMin: TImage; http://www.paper51.com palLeft: TPanel; http://www.paper51.com palRight: TPanel; paper51.com imgRight: TImage; copyright paper51.com imgCloseButton: TImage; 内容来自www.paper51.com
imgMinButton: TImage; 内容来自www.paper51.com imgSizeButton: TImage; http://www.paper51.com
imgMaxButton: TImage; copyright paper51.com
imgRestoreButton: TImage; paper51.com imgSysIcon: TImage; 内容来自论文无忧网 www.paper51.com popSystemMenu: TPopupMenu; http://www.paper51.com N_Restore: TMenuItem; 内容来自论文无忧网 www.paper51.com N_Max: TMenuItem; 内容来自www.paper51.com N_Min: TMenuItem; http://www.paper51.com
N_Move: TMenuItem; copyright paper51.com N_Size: TMenuItem; 内容来自论文无忧网 www.paper51.com N_Speater: TMenuItem; 内容来自www.paper51.com N_Close: TMenuItem; 内容来自论文无忧网 www.paper51.com palClient: TPanel; http://www.paper51.com lbCaption: TLabel; 内容来自www.paper51.com
CoolBarMenu: TCoolBar; http://www.paper51.com ToolBarMenu: TToolBar; 内容来自论文无忧网 www.paper51.com imgLeft: TImage; copyright paper51.com imgColorLeftUp: TImage; 内容来自www.paper51.com imgGrayCaption: TImage; paper51.com imgGrayMenuBar: TImage; 内容来自论文无忧网 www.paper51.com
imgGrayRightUp: TImage; 内容来自论文无忧网 www.paper51.com imgColorCaption: TImage; 内容来自论文无忧网 www.paper51.com imgGrayLeftUp: TImage; paper51.com imgColorRightUp: TImage; 内容来自论文无忧网 www.paper51.com
imgRightUp1: TImage; copyright paper51.com
imgLeftUp1: TImage; paper51.com imgColorMenubar: TImage; http://www.paper51.com Label1: TLabel; 内容来自论文无忧网 www.paper51.com Label2: TLabel; copyright paper51.com e_pass: TEdit; 内容来自www.paper51.com e_zzy: TComboBox; 内容来自www.paper51.com
b_ok: TMoveImgBtn; http://www.paper51.com blabel_ok: TLabelBtn; 内容来自论文无忧网 www.paper51.com blabel_exit: TLabelBtn; 内容来自www.paper51.com b_exit: TMoveImgBtn; paper51.com b_edit: TMoveImgBtn; 内容来自www.paper51.com
LabelBtn1: TLabelBtn; paper51.com procedureimgMinButtonClick(Sender: TObject); 内容来自www.paper51.com procedureimgSizeButtonClick(Sender: TObject); http://www.paper51.com procedureimgCloseButtonClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com
procedureimgCaptionMouseDown(Sender: TObject; Button: TMouseButton; copyright paper51.com Shift:TShiftState; X, Y: Integer); copyright paper51.com procedureimgCaptionMouseMove(Sender: TObject; Shift: TShiftState; X, copyright paper51.com Y: Integer); http://www.paper51.com procedureimgCaptionMouseUp(Sender: TObject; Button: TMouseButton; paper51.com Shift:TShiftState; X, Y: Integer); 内容来自论文无忧网 www.paper51.com
procedure FormCreate(Sender:TObject); copyright paper51.com procedureimgSysIconMouseDown(Sender: TObject; Button: TMouseButton; paper51.com Shift: TShiftState; X, Y: Integer); copyright paper51.com procedurepopSystemMenuPopup(Sender: TObject); paper51.com
procedureN_SizeClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com
procedureN_MoveClick(Sender: TObject); paper51.com procedure FormShow(Sender:TObject); 内容来自论文无忧网 www.paper51.com
proceduree_zzyChange(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedure b_okClick(Sender:TObject); 内容来自www.paper51.com procedureFormActivate(Sender: TObject); 内容来自www.paper51.com procedureb_exitClick(Sender: TObject); paper51.com
procedureb_editClick(Sender: TObject); http://www.paper51.com proceduree_passKeyPress(Sender: TObject; var Key: Char); 内容来自www.paper51.com
procedure FormClose(Sender:TObject; var Action: TCloseAction); paper51.com
private 内容来自论文无忧网 www.paper51.com
{ Private declarations } 内容来自www.paper51.com canmove:boolean; paper51.com
curPoint:TPoint; 内容来自论文无忧网 www.paper51.com
oldPoint:TPoint; 内容来自www.paper51.com Canvas:TCanvas; 内容来自论文无忧网 www.paper51.com i:integer;//密码循环三次 内容来自www.paper51.com |