Delphi与SQL 2000结合生成Treeview的问题
下面是本人写的代码：
unit untDepttree;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, DB, ADODB;
type
TfrmDepttree = class(TForm)
GroupBox1: TGroupBox;
TreeView_deptlist: TTreeView;
Button_ok: TButton;
Button_cancel: TButton;
ADODataSet1: TADODataSet;
procedure FormCreate(Sender: TObject);
private
treenodedata:array[1..3000] of string;
cnt:Integer;
public
{ Public declarations }
procedure Insertnodetotree(node:TTreeNode; upcode:string);
end;
var
frmDepttree: TfrmDepttree;
implementation
uses DBModule;
{$R *.dfm}
procedure TfrmDepttree.FormCreate(Sender: TObject);
begin
TreeView_deptlist.Items.Clear;
ADODataSet1.Open;
Insertnodetotree(nil,'0');
end;
procedure TfrmDepttree.Insertnodetotree(node: TTreeNode; upcode: string);
var
id,deptname,preid:string;
newnode:TTreeNode;
i:integer;
j : integer;
begin
ADODataSet1.First; <
相关问答：
我有多个表A B C 结构是一样的，都有2个字段name和content,我要搜索所以表所有字段中包含“中国”的内容 这个SQL语句怎么写
如何将多个表的查询结果连成一个表 这个SQL语句怎么写 表的结构是一样的
例如� ......
各位大侠救命啊 ！！
刚装了SQL2000 sp3
想用JSP连接数据库但是出现问题了
我用的是JDK6.0+tomcat5.0+SQL2000 SP3+JDBC sp3
它显示的是
javax.servlet.ServletException: [Microsoft][SQLServer 2000 Driver fo ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
