目录
第一部分 Win32篇 2
Delphi 2
在Edit中显示float型数，小数后保留两位 2
使用动态控件 2
获得TMemo的当前行 2
BCB 2
取得一个文件的大小 2
C/C++ 3
可变参数函数的使用 3
Windows系统 3
Oracle定时自动备份 3
windows帐号管理 4
利用MingW实现对Qt编译的批处理文件 4
第二部份 Web篇 4
JavaScript 4
弹出窗口全屏显示 4
Select下拉框的验证代码 4
Select下拉框的代码校验代码，在没有value值的情况下 5
HTML 6
INPUT标记中Text不允许用用户修改/只读 6
nextSibling和previousSibling的用法 6
CSS 6
取消超链接文字的下划线 6
第三篇 Lotus篇 7
Formual语言 7
从指定视图中取得分类列表，到列表框等类型的域中。 7
得到当前登陆的用户名 7
LotusScript 7
完整的计算用户邮箱空间的一段代理程序 7
第一部分 Win32篇
Delphi
在Edit中显示float型数，小数后保留两位
edit1.text:=formatfloat('#,##0.#0',strtofloat(edit1.text))
使用动态控件
MyEdit:=TEdit.Create(Form1);//MyEdit为公有成员对象
MyEdit.Parent:=Form1;//重点，指定父类的对象
MyEdit.Top:=20;
MyEdit.Left:=40;
获得TMemo的当前行
//……
i:integer;
begin
i:=SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);//获取光标所在当前行
//……
BCB
取得一个文件的大小
HWND File;
int a;
this->OpenDialog1->Execute();
File=CreateFile(this->OpenDialog1->FileName.c_str(),
GENERIC_READ,
FILE_SHARE_READ|FILE_SHARE_WRITE,
NULL,OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, NULL);
a=GetFileSize(File,NULL);
ShowMessage(IntToStr(a));
C/C++
可变参数函数的使用
/示例代码1：可变参数函数的使用
#include "stdio.h"
#include "stdarg.h"
#include "iostream.h"
void simple_va_fun(int start, ...)
{
va_list arg_ptr;
int nArgValue =start;
int nArgCout=0; //可变参数的数目
va_start(arg_ptr,start); //以固定参数的地址为起点确定变参的内存起始地址。
do
{
++nArgCout;
printf("the %d th arg: %d\n",nArgCout,nArgValue);//输出各参数的值
nArgValue = va_arg(arg_ptr,int); //得到下一个可变参数的值
} while(nArgValue != -1);
return;
}
int main(int argc, char* argv[])
{
simple_va_fun(100,-1);
cout<<"-------------------------------\n";
simple_va_fun(100,200,-1);
return 0;
}
Windows系统
Oracle定时自动备份
将以下内容存为批处理文件即可使用。
rem Oracle定时自动备份
for /f %%1 in ('date /t') do exp qlmis/qlmis file=d:\back\%%1.dmp full=y
windows帐号管理
在windows server 2003等没有帐号管理这个控制面版选项的系统中，实现对[帐号]和[登陆]的管理，命令使用如下：
Rundll32 netplwiz.dll,UsersRunDll
利用MingW实现对Qt编译的批处理文件
将以下内容存为qt.cmd即可。对于Qt的路径需要根据实际情况进行修改方可。
然后把qt.cmd文件存放在C:\windows目录下。
@echo off
set QTDIR=D:\Qt\4.0.0
set PATH=D:\Qt\4.0.0\bin;D:\Dev-Cpp\bin;%SystemRoot%\System32;%path%
set QMAKESPEC=win32-g++
if exist release del release\*.* /q
qmake -project
qmake
make
第二部份 Web篇
JavaScript
弹出窗口全屏显示
var h=screen.availHeight-90;
var w=screen.availWidth-10;
var stylestr="status=yes,menubar=yes,scrollbars=yes,resizable=yes,top=0,left=0,width= " + w + ",height=" + h;
window.open(ret,"print",stylestr);
Select下拉框的验证代码
<html>
<script langaue="javascripts">
function login(){
if (TForm1.TSelect.options.value=="")
alert("不能为空");
else
alert("成功");
}
</script>
<form name="TForm1">
<p><select size="1" name="TSelect">
<OPTION SELECTED>
<Option value="1">abc</option>
</select>
<input type="submit" value="提交" name="B1" onclick='login()'></p>
</form>
</html>
Select下拉框的代码校验代码，在没有value值的情况下
<html>
<script langaue="javascripts">
function test()
{
if (form1.zhiwu.options[form1.zhiwu.selectedIndex].text=="")
{
alert("请选择！");
return false;
}
else
{
alert("通过");
return true;
}
}
</script>
<form Name="form1">
<select Name="zhiwu">
<OPTION VALUE="1">宝马
<OPTION VALUE="2">保时捷
<OPTION VALUE="3" SELECTED>
</Select>
<input type="Submit" value="提交" onclick='test()'>
</form>
</html>
HTML
INPUT标记中Text不允许用用户修改/只读
<INPUT type="text" name="partNumber" value="1500" readonly>
readonly属性顾名思义是"只读"。它将TEXT转化为一个对象，禁止对它进行编辑。你虽然可以通过TAB键在多个TEXT区域间切换，但是不能修改已经指定的TEXT区的值。但是它不象Disabled属性那样，可以进行正常的数值传递。
nextSibling和previousSibling的用法
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title> New Document </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>
<body>
<form>
<input type="button" onclick="alert(this.nextSibling.nextSibling.value)" value="下一个元素">
用户名：<input size=45 value="在xml时代，回车也算一个元素即：\r\n">
密码：<input type="button" onclick="alert(this.previousSibling.previousSibling.value)" value="上一个元素">
</form>
</body>
</html>
CSS
取消超链接文字的下划线
a:link { text-decoration: none;color: 000000}
a:active { text-decoration:ff8c00}
a:hover { text-decoration:underline;color: 000000}
a:visited { text-decoration: none;color: 000000}
第三篇 Lotus篇
Formual语言
从指定视图中取得分类列表，到列表框等类型的域中。
选择所需要的域，第二项，为选项使用公式
@Trim(@Unique(@DbColumn("";"":@DbName;"HistoryByXxzyk2";1)))
得到当前登陆的用户名
@Name([CN];@UserName)
LotusScript
完整的计算用户邮箱空间的一段代理程序
Sub Initialize
Print"<HEAD>"
Print"<link rel='stylesheet' href='/InventStyle.css' type='text/css'"
Print "</head>"
Print "<BODY BACKGROUND='bg.gif'>"
Dim size As Long
Dim result As Double
Dim showres As Integer
size=0
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim temp As NotesDocument
Dim view As NotesView
Set db=session.CurrentDataBase
Set view=db.GetView("($All)")
Set doc=view.getfirstdocument
While Not(doc Is Nothing)
size=size+doc.size
Set doc=view.getnextdocument(doc)
Wend
Set view=db.GetView("vMail_Todo")
Set doc=view.getfirstdocument
While Not(doc Is Nothing)
size=size+doc.size
Set doc=view.getnextdocument(doc)
Wend
Set view=db.GetView("vMail_ToDoedByAll")
Set doc=view.getfirstdocument
While Not(doc Is Nothing)
size=size+doc.size
Set doc=view.getnextdocument(doc)
Wend
result=Round(size/1024/1024,2)
Print "<br>"
Print "<div align=center><font size=2>已用空间是"+Str$(result)+" M</div><br>"
showres=Round(result,0)
Print "<div align=center>空间使用了"+Str$(Round(showres/100*100,0))+"%(限额100M)</div>"
Print "<br></font>"
'showres=100
Print" <div align=center><table border='1'cellspacing='0' cellpadding='1' bordercolor='#C69E94'><tr><td width=100><IMG height=10 src='bar1.gif' width="+Str$(showres)+"></td></tr></table></div>"
Print "<body>"
End Sub
