delphi学生管理系统开发 心得体会
围绕mysql 数据库的处理相关遇到的问题,解决办法,得到的启示,扩展一下,写1000字不是问题.
CAD\\\/CAM自动编程实训报告怎么写
光是设计还可以~~~~还要论文就太麻烦了哈~~~
用delphi做一个数据库报表，为当天的盘点进出报告
系统的规划依据目前各学校的图书管理系统的现状，确定此次研发的使命。
目前学校的图书管理系统已经不能够适应越来越多的读者和图书信息剧增的局面了，特别是自高校扩招以来，图书馆也加大了购书量，书的类目也越来越多，分得也更细致，而目前高校工作人员以老龄人居多，所以也就要求有一套功能齐全，但是也简单易用的图书管理系统的出现。
图书管理的业务其实说起来也都大同小异，管理对象也就是读者和图书，但是如果是针对大型的图书馆也还要开虑到其他的方方面面，比如采购何类书籍，每次该采购多少
什么书等等问题。
考虑到时间的关系，本系统就院校内部的管理流程来研发，而没有设计外部的供应商之类的信息，初步规划本系统要完成以下任务：1．界面友好、操作简单： 系统的界面设计应该简洁明了，采用标准的WINDOWS 编程技术,使用下拉式菜单,立体弹出式窗口等可视化手段, 每一过程应有相应的功能提示。
2．丰富的查询功能： 系统的查询功能要方便灵活，如图书可以按书目编号、名称、、出版社、作者等多种关键字查询。
3．灵活多样的报表功能： 系统应有丰富的报表打印功能，提供相关图书、读者、借书信息报表，同时可实现汇总和对数据项的组合输出功能，方便打印。
图书管理系统(delphi版) 记得采纳啊
Delphi软件的使用技巧，请高手指点一些使用心得。
span class=font>1.如何检测Insert、Capslock、NumLock、ScrollLock状态键的状态Delphi可以调用Win API的Getkeyboardstate()函数。
常量 按键名称VK_INSERT znsert键VK_NUMLOCK Num Lock键VK_CAPITAL Caps Lock键VK_SCROLL Scroll Lock键 键盘缓冲区每一位都有一位特定的格式，对于状态键来说，最低位是1时表示状态键处于ON状态，你可以使用odd()函数来确定这一位的状态，以下是一个简单的例子请参考。
例子中放置一个Timer控件、一个StatusBar状态条。
procedure TForm1.Timer1Timer(Sender: TObject);var ks:tkeyboardstate;begingetkeyboardstate(ks);\\\/\\\/检测键盘函数if odd(ks[VK_NUMLOCK]) thenstatusbar1.panels.items[0].text:=NUMelsestatusbar1.panels.items[0].text:=;if odd(ks[VK_INSERT]) thenstatusbar1.panels.items[1].text:=INSERTelsestatusbar1.panels.items[1].text:=;if odd(ks[VK_CAPITAL]) thenstatusbar1.panels.items[2].text:=CAPITALelsestatusbar1.panels.items[2].text:= ;if odd(ks[VK_SCROLL]) thenstatusbar1.panels.items[3].text:=SCROLLelsestatusbar1.panels.items[3].text:=;end;end.2.屏蔽系统按键 也许你希望程序在运行时不想让用户按系统按键 Alt-Tab 或 Ctrl-Alt-Del，那么可以通过以下的程序来屏蔽这些按键。
procedure TForm1.FormCreate(Sender: TObject); var tmp,Flag :integer;begin tmp := 0;Flag := 1; \\\/\\\/屏蔽 Alt-Tab SystemParametersInfo( SPI_SETFASTTA-SKSWITCH, Flag, @tmp, 0); \\\/\\\/屏蔽 Ctrl-Alt-Del SystemParametersInfo( SPI_SCREENSAVERRU-NNING,Flag, @tmp, 0); end; 当你要恢复功能键时用以下代码:Flag := 0;SystemParametersInfo(SPI_SCREENSAVERRU-NNING,Flag,@temp,0);3.隐藏和显示Windows的任务条 如何隐藏和显示Windows的任务条?仅仅调用以下的函数就可以。
本程序的思路实际上就是先找到标题条的句柄，然后向它发送相应消息（SW_HIDE\\\/SW_RESTORE）即可procedure hideTaskbar;\\\/\\\/隐藏var wndHandle : THandle;wnd ss : array[0..50] of Char;beginStrPCopy(@wndClass[0], Shell_TrayWnd);wndHandle := FindWindow(@wndClass[0], nil);ShowWindow(wndHandle, SW_HIDE);End;procedure showTaskbar;var wndHandle : THandle;wndClass : array[0..50] of Char;beginStrPCopy(@wndClass[0], Shell_TrayWnd);wndHandle := FindWindow(@wndClass[0], nil);ShowWindow(wndHandle, SW_RESTORE);end;end;3.如何将你的程序放在Windows启动中有时需要让Windows在启动时自动运行你的程序,如何在程序中实现呢?使用Regedit查找HKEY_LOCALMACHINE\\\\Sodtware\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run,你会发现所有的Windows启动时调用的程序都在这里,于是你将你的程序增加在这里就可以了。
名称为你的程序的标题,其值为你的程序的执行路径和文件名称。
在程序中实现可以使用TRegIniFile或者使用TRegistry都可以。
User Registry; Var RegF:TRegistry; begin RegF:=TRegistry.Create; RegF.RootKey:=HKEY_LOCAL_MACHINE; try RegF.OpenKey(SOFTWARE\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run,True); RegF.WriteString(MyProg, Mypr-og.exe); except ... End; {try} RegF.Close; RegF.Free; end;4.如何动态更新StringGrid的颜色StringGrid控件是一个有许多用户接口的显示数据库的控件，以下的程序告诉你如何根据显示的内容改变字体的显示颜色。
例如，如果一个城市的人口大于200万，我们就让它显示为蓝色。
使用的控件事件为StringGrid.On-DrawColumeCell。
procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);beginif Table1.FieldByName(Population).AsInteger > 20000000 thenStringGrid1.Canvas.Font.Color := clBlue;StringGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);end;5.Memo的Undo功能在平常,你可以在MEMO中使用Ctrl+Z进行UNDO操作，但在程序中,你可以使用:Memo1.Perform(EM_UNDO, 0, 0);进行UNDO操作.当你使用一个enable\\\/disable的菜单时,你可以使用:Undo1.Enabled := Memo1.Perform(EM_CANUNDO, 0, 0) <> 0;6.Delphi 中如何改目录的名字在DOS低版本下这个问题比较麻烦（可能要使用move命令），在Win98\\\/98的DOS窗口下可以简便地使用Ren命令或者在资源管理器中“重命名”。
那么在在Delphi下如何做呢
调用RenameFile函数，如:RenameFile(c:\\\\wang\\\emp, c:\\\\wang\\\mp);7.关闭Windows控制WINDOWS的开关:如关闭WINDOWS，重新启动WINDOWS等,ExitWindowsEx(UINT uFlags,DWORD dwReserved);是实现这一功能的API函数。
首先定义常数constEWX_FORCE=4;\\\/\\\/关闭所有程序并以其他用户身份登录EWX_LOGOFF=0;\\\/\\\/重新启动计算机并切换到MS-DOS方式EWX_REBOOT=2;\\\/\\\/重新启动计算机EWX_SHUTDOWN=1;\\\/\\\/关闭计算机运行时给How赋值，让他等于EWX_SHUTDOWN或其他，调用以下语句:ExitWindowsEx(How,0);就可以达到目的。
8.检测磁盘是否变化最简单的检查CD－ROM或是磁盘是否有过变化的方法是检查其volume号码。
你可以简单地运用下面的函数来返回磁盘的volume系列号码GetDiskVolSerialID， 函数代码如下:function GetDiskVolSerialID(cDriveName:char):DWord;vardwTemp1，dwTemp2:DWord;beginGetVolumeInformation(PChar(cDriveName+:l), Nil,0,Result, dwTemp2,dwTemp2,Nil,0);end;9.防止Win95显示严重错误不管你的程序如何反复调试，交给用户之后，总有可能发生你意想不到的错误，如何避免Win95显示出蓝屏，告诉你的用户发生了难堪的意外错误呢
我们可以这样做:首先定义一个Word型变量:wOldErrorMode，然后在程序的适当部分添加如下代码wOldErrorMode:=SetErrorMode(SEM_FAILCR-ITICALERRORS);try{此处填写程序主体部分}finallySetErrorMode(wOldErrorMode);10.临时路径有时需要Windows的临时路径来做一些诸如备份等工作，那么就要知道路径在哪
我们可以这样得到它:var TempPath:pchar;beginGetTempPath(20,TempPath);\\\/\\\/返回路径名edit1.text := TempPath;end;11.实现打开文件打开Windows已经注册的文件其实很简单，根据以下代码定义一个过程:procedure URLink(URL:PChar);beginShellExecute(0, nil, URL, nil, nil, SW_NORMAL);end;在要调用的地方使用URLink(Readme.txt);如果是链接主页的话，那么改用URLink();12.检测驱动器类型当要知道所选的驱动器属于什么类型时，请看下面的程序var x:integer;driver:pchar;begindriver:=f:\\\\;x := GetDriveType(driver);Case x of2: Label1.Caption :=该驱动器是可移动驱动器;3: Label1.Caption := 该驱动器是固定驱动器;4: Label1.Caption := 该驱动器是网络驱动器;5: Label1.Caption := 该驱动器是CD-ROM驱动器;6: Label1.Caption := 该驱动器是虚拟驱动器;Else Label1.Caption := 该驱动器无效;End;end;13.驱动器容量要得到驱动器的容量和剩余容量，用下面的程序vardriver:pchar;sec1, byt1, cl1, cl2:longword;begindriver:=c:\\\\;\\\/\\\/要显示的驱动器名GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2);cl1 := cl1 * sec1 * byt1;cl2 := cl2 * sec1 * byt1;Label1.Caption := 该驱动器总共容量 + Formatfloat(###,##0,cl2) + 字节;Label2.Caption := 该驱动器可用容量 + Formatfloat(###,##0,cl1) + 字节;end;
delphi7的一个小实验，要有实验过程，步骤，做的方法，还有实验报告
1．利用一支温度计,一个小烧杯,一瓶酒精,设计一个实验,证明：酒精蒸发过程中吸热,请你写出实验步骤和实验现象.实验步骤：1、将温度计放空气中,待示数稳定后,读出此时温度为T1；2、向小烧杯中倒入适量酒精,将温度计的玻璃泡浸入烧杯的酒精中；3、将温度计取出,在玻璃泡表面的酒精蒸发完之前,观察温度计的示数变化情况实验现象：温度计取出后,且玻璃泡表面的酒精蒸发完之前,其示数减小,所以,可以证明蒸发吸热.2.为了探究平面镜成镜时,像到平面镜的距离 与物到平面镜的距离 的关系,现将泡沫塑料板放在水平桌面上,再将白纸平放并固定在泡沫塑料板上,在白纸中间测一条直线 ,把一块带支架的平面镜（不透明）沿直线 位置,使平面镜底边与直线 重合,且使平面镜垂直于纸面,如图16所示,请你在图16装置的基础上,利用一把刻度尺和一盒大头针设计一个实验,证明：平面镜成像时,像到平面镜的距离 等于物到平面镜的距离 ,请写出实验步骤,画出实验数据记录表.六次探究实验方法1：在镜子前面任意点O点垂直插一大头针,然后在任意点A’也垂直插上一大头针,调整视角使得人只用一只眼睛看A’,但看不到镜中大头针O的像,保持人眼的位置不变,在A’点和人眼之间再插一大头针A,使得人眼只能看到大头针A,看不到A’及O’,用同样的方法,标志出B及B’点,移开镜子,用直尺连接AA’ 及BB’,并延长使相交于O’点即为像的位置用直尺测量O到平面镜距离为u1,测量O’到平面镜距离为v1,并将数据计入表格2.仿照步骤1,依次再做5次实验,分别得到5组O到平面镜距离、5组O’到平面镜距离,并将数据计入表格.
初学者能不能直接从delphi学起
都是用的英文版的DELPHI,已经习惯了.不用英文版的反而不习惯.写个病毒????这个,要求比较高,你需要学:操作系统,数据结构,还要学习TCP\\\/IP协议,还需要学习进程,线程编程,还要了解系统核心编程.还要学DLL,远程进程注入........很多东东,得学个1两年,如果你有潜质的问题.如果学来挣些点,也不错了,如果是要做病毒,还是要学汇编,C语言,C++.内容很多.能吃苦先.
