- 博客(10)
- 资源 (1)
- 收藏
- 关注
原创 delphi控制鼠标在程序界面范围内
procedure TMainForm.LockMachine;var r:TRect;begin r:=rect(MainForm.Left,MainForm.Top,MainForm.Left+MainForm.Width,MainForm.Top+MainForm.Height); clipCursor(@r);end;
2009-11-27 15:48:00 477
原创 delphi开机自动启动程序
var Reg: TRegistry;begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(/Software/Microsoft/Windows/CurrentVersion/Run, True) then begin Reg
2009-11-27 15:44:00 478
原创 indy文件传输功能
//Server端 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls;type TForm1 = clas
2009-11-24 12:41:00 942
原创 oracle学习笔记(四)高级特性
set serveroutput on;//可以输出,原来是关闭的,环境变量begin dbms_output.put_line(helloworld!);end;/变量声明规则1、 变量名不能使用保留字2、 第一个字符必须是字母 默认变量要以v_开头3、 变量名最多包含30个字符4、 不要与数据库的表或者列同名5、 第一行只能声明一个变量常用变量类型1、 binary_inte
2009-11-23 16:02:00 468
原创 oracle学习笔记(三)表的操作
在oracle中可以用rename修改表名,但是些命令只限于oracle使用rename person to tperson;truncat table tperson;//截断表,直接删除所有的数据,且不能回滚create table person( pid varchar2(18), name varchar(200) UNIQUE not null,//非空约束 age
2009-11-23 15:46:00 620
原创 oracle学习笔记(二)查询语句
求大于2000的部门平均工资 select avg(sal), deptno from emp group by deptno having avg(sal) > 2000; 求部门的最多薪水的人及钱 select cname,sal from cmp join (select max(sal) max_sal, deptno from emp group deptn
2009-11-23 15:08:00 400
原创 oracle学习笔记(一)基础知识
|- conn 用户名/密码 [as sysdba]; 用户登陆,如果是超级管理员用户刚应该加上后面[]的语句 |- 环境变量设置 set linesize 300; set pagesize 30; set serveroutput on;//可以输出结果,原来是关闭的 |- desc 表名;查看表结构 |- select * from tab;查看所
2009-11-23 14:48:00 437
转载 安装第三方控件
1只有一个DCU文件的组件。DCU文件是编译好的单元文件,这样的组件是作者不想把源码公 布。一般来说,作者必须说明此组件适合Delphi的哪种版本,如果版本不对,在安装时就会 出现错误。也正是因为没有源码,给使用者带来了不便,那就是一旦Delphi版本升级,此组 件就不能再使用了,当然有的作者给出了几种版本的DCU文件,用户根据需要选择使用。这 样的组件的安装方法是:在Component菜单中,
2009-11-11 19:18:00 451
转载 自动打开IE,google并按天气预报搜索
uses ComObjprocedure TForm1.Button1Click(Sender: TObject);const TIMEOUT: Integer = 5000;//超时时限,单位毫秒var o: Variant; t: Integer;begin o := CreateOleObject(InternetExplorer.Application); o.Naviga
2009-11-11 19:14:00 566
原创 Servers组件页中word类组件相关实例
unit word;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, WordXP, OleServer, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1: TButt
2009-11-11 19:12:00 695 1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人