byronming

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObj... 阅读全文

摘要： 分类 数据库时间 12/10/2010 7:06:51 AM------------------------------------------------------------首先我们建立如下的表：sc（成绩表）stuid clsid scroe ----- -------- ----------------------------------------------------- 0101 1 75.00102 1 70.00103 1 90.00101 2 89.00102 2 80.00103 2 99.00101 3 89.00102 3 79.00103 3 67.0其中stui 阅读全文

摘要： 这个系列我将整理一些日常我们经常使用到的ORACLE函数，鉴于篇幅太长，我大体会按下面分类来整理、汇总这些常用的ORACLE函数，如果有些常用函数没有被整理进来，也希望大家指点一二。1： 聚合函数2： 日期函数3： 字符串函数4： 格式化函数5： 类型转换函数6： 加密函数7： 控制流函数8： 数学函数9： 系统信息函数*************************************************************************************************************************/----------------- 阅读全文

摘要： 数据表的连接有: 1、内连接(自然连接): 只有两个表相匹配的行才能在结果集中出现 2、外连接: 包括 （1）左外连接(左边的表不加限制) （2）右外连接(右边的表不加限制) （3）全外连接(左右两表都不加限制) 3、自连接(连接发生在一张基表内) select a.studentno, a.studentname, b.classname from students a, classes b where a.classid(+) = b.classid; STUDENTNO STUDENTNAM CLASSNAME ---------- ---------- --------------.. 阅读全文

摘要： 搞定了，分分拿来TreeView1需要设置MultiSelect = True; MultiSelStyle设置为[msControlSelect]procedure Tform1.TreeView1Click(Sender: TObject); var TNode,Cnode: TTreeNode; i: Integer; iLoop: Boolean; begin Cnode:= self.TreeView1.Selected; if not Cnode.Expanded then Exit; if Cnode.HasChildren then begin TNode:= Cnode.ge 阅读全文

摘要： 不好意思，我没说清楚。 我是想定位到根节点，并且根节点的颜色成蓝色（就像选中了一样）。var treeNode: TTreeNode; begin TreeView1.HideSelection:=false; treeNode:=TreeView1.Items.Item[0]; while treeNode.getFirstChild <> nil do treeNode:=treeNode.getFirstChild; treeNode.Selected:=true; end;node.Expand(true);treeview1.selected.E... 阅读全文

摘要： 关于动态创建PopupMenu的问题http://topic.csdn.net/t/20040825/09/3306672.html动态创建菜单 var mmiTemp:TMenuItem; begin mmiTemp:=TMenuItem.Create(); mmiTemp.Caption:= '标题 ';// mmiTemp.OnClick:= actLoadExecute;//设定action PopupMenu2.Add(mmiTemp);//加入到上层的菜单 end;其实我们可以使用一种更快的方法达到同样的功能... 阅读全文

摘要： SQL 取小時、分鐘、秒－－datepart hour、minute、second都不是SQL Server的函数。要取小時、分鐘和秒，都要使用datepart函数。另外直接相加的得到的结果是数字相加，而不是字符串合并，需要转换成varchar update person set id_no = cast(year(in_date) as varchar(4))+ cast(month(in_date) as varchar(2)) + cast(day(in_date) as varchar(2)) + cast(datepart(hh,in_date) as varchar(2)) + c 阅读全文

摘要： 1楼: 我的form上有3个Panel，我要在指定的Panel上动态创建多个Button，请问各位，这代码如何写？点这个button时要能弹出菜单2楼: varbtn1:TButton;beginbtn1:=TButton.create(owner)btn1.parent:=panel1.....end3楼: varbutton1:Tbuttonbeginbutton1:=Tbutton.create(nil);button1.parent:=panel1;end;4楼: btn1.OnClick:=yourprocedure5楼: 对了，先谢各位了，我还要实现:点动态创建的这个BUTTON时 阅读全文

摘要： query1.SQL.LoadFromFile( 'directory\filename.sql '); query1.ExecSQL;把文件分割成一个一个的事物块，然后有一个Query控件， QUERY1.close; QUERY1.sql.clear; QUERY1.SQL.LoadFromFile( '文件名 '); QUERY1.execsql; 反复执行即可 阅读全文