- 博客(13)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 GetLastError()返回值列表
<br />GetLastError()返回值列表:<br />〖0〗-操作成功完成。<br />〖1〗-功能错误。<br />〖2〗-系统找不到指定的文件。<br />〖3〗-系统找不到指定的路径。<br />〖4〗-系统无法打开文件。<br />〖5〗-拒绝访问。<br />〖6〗-句柄无效。<br />〖7〗-存储控制块被损坏。<br />〖8〗-存储空间不足，无法处理此命令。<br />〖9〗-存储控制块地址无效。<br />〖10〗-环境错误。<br />〖11〗-试图加载格式错误的程序。<br
2011-03-31 21:56:00
12172
原创 求出输入任意整数的所有质数，两个数的最大公约数
var i,j,k:integer;begin for i:=1 to strtoint(edit3.Text) do begin k:=0; for j:=1 to i do begin if (i mod j=0)and(ij)and(j1) then k:=k+1; end; if k=0 then memo1.Text:=memo1.Text+' '+inttostr(i); end
2010-06-29 10:42:00
917
原创 SQL 单双行交替前列显示
<br />现在表abc<br />字段<br />id name <br />1 a<br />2 b<br />3 c<br />4 d<br /> <br />写SQL语句转换成<br />id name id name<br />1 a 2 b<br />3 c 4 d<br /> <br />语句：<br />本人经过多次也没有找到更好的办法，现写下下面这个方法进行实现，如有哪位网友有好方法
2010-06-28 14:29:00
770
原创 delphi 随机函数的利用random 取10个介于1000与2000之间的随机数，并计算它们的最大，最小值及总和
<br />var<br /> i,randvalue,maxrandvalue,sum,minrandvalue:integer;<br />begin<br /> sum:=0;<br /> i:=0;<br /> maxrandvalue:=0;<br /> while i<10 do begin<br /> randvalue:=random(2000);<br /> if (randvalue>=1000)and(randvalue<=2000)then begin<br
2010-06-25 15:16:00
3714
原创 取出文件流字符串进行求和和平均值
<br />var<br /> i,j,sum:integer;<br /> txtstr,newstr:string;<br />begin<br /> if txtstring=nil then<br /> txtstring:=TStringList.Create;<br /> txtstring.LoadFromFile(ApplicationPath+'/abc.txt');<br /> for i:=0 to txtstring.Count-1 do
2010-06-25 09:26:00
654
原创 编写SQL语句查询出每个各科班分数最高的同学的名字，班级名称，课程名称，分数
<br />有以下两张表，<br />Class表 <br />classid classname<br />1 高三（一）班<br />2 高三（二）班<br />3 高三（三）班<br />Student表<br />studentid studentName classid<br />1 张三 2<br />2 李四 1<br />3 王五 1<br />4 赵六 3<br />5
2010-06-24 17:24:00
22307
1
原创 对一主表进行更新从表的值
<br />现在course表,abc表<br />id name<br />1 语文<br />2 数学<br />3 英语<br />4 物理<br />abc表<br />1 a<br />2 b<br />3 c<br />运行结果：<br />1 a <br />2 b<br />3 c<br />4 物理<br />写一条SQL语句<br />update course set name=(select name from abc w
2010-06-24 16:42:00
558
原创 对输入的flash字符连接到flash后面，所得到的新字符中只能包含flash字符
<br />在delphi窗口单元中定义全局变量:<br />flashstr:array[1..5] of string={'f','l','a','s','h'};<br />使用文本的KeyPress事件操作如下：<br />procedure Tfrmmain.Edit1KeyPress(Sender: TObject; var Key: Char);<br />var<br /> i,j:integer;<br />begin<br /> if not (Key in ['F','L','A',
2010-06-24 16:32:00
427
原创 利用Tstringlist对文件流进行处理(介绍extractfilepath(),savetofile(),loadfromfile()使用)
<br />1：获取当前运行目录路径<br />2：写入数据到Tstringlist (连续写入5行记录)<br />3：数据保存到txt文件<br />定义全局变量：<br /> txtString:TStringLsit;<br />点击事件：<br />var<br /> ApplicationPath:string;<br /> i:integer;<br />begin<br /> ApplicationPath:=ExtractFilePath(Application.exen
2010-06-24 16:31:00
1434
原创 方便的数据操作方法思路
<br />本人之前一直从事C/S模式开发，其中对数据提交时写太多的SQL操作语句感觉到很麻烦。后来通过利用面向对象的一种技术，直接通过控件自动生成SQL语句，就对数据进行增、删、修操作进行保存。之后发现对主键ID要求，改换另一种方式，就是利用本身控件的提交功能进行实现。现在在C#的B/S模式下面，本人经过多次测试终于发现也能用这种方法进行提交数据。而且这样就不必担心存后什么SQL注入问题。利用DataSet这一控件通过对它其中DataTable进行对数据增、册、修修改！
2010-06-14 12:01:00
327
原创 标记笔记
<br />HTML中标记<a>在不同状态下显示样式：<br />:link 设置a对象在未被访问前的样式表属性。<br />:active 设置对象在被用户激活（在鼠标点击与释放之间发生的事件）时的样式表属性。 <br />:hover 设置对象在其鼠标悬停时的样式表属性。<br />:visited 设置a对象在其链接地址已被访问过时的样式表属性。
2010-06-03 10:25:00
309
原创 网页的框架概念
<br />提到网页框架，学习制作网页的设计都会想到用<iframe>,<frameset> 与<frame>进行设计；把多个窗口的网页在同一窗口上显示，供客户浏览。现对<frameset>框架进行简单说明下：<br /><FRAMESET> 称框架标记，用以宣告HTML文件为框架模式，并设定视窗如何分割。<br /><FRAME> 则只是设定某一个框窗内的参数属性<br />例子：<br /><html xmlns="http://www.w3.org/1999/xhtml" ><br /><head r
2010-06-02 10:59:00
1027
原创 ASP.net中DataSet使用笔记
AS.net中的DataSet数据集控制，可看作是一个离线的数据库，它存放着从后台数据库取回来的各个数据表的数据。如果能让它实现整体提交，那对于一个”懒人“来说，可以省掉很多SQL的操纵语句（增加，删除，更新等）；根据SqlDataAdapter具备的GetInsertCommand()、GetUpdateCommand()、GetDeleteCommand()的功能。现写一下DataSet提交思
2010-05-28 10:26:00
2452
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人