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; <
相关问答:
环境:1.win2003server+oracle9i
2.oracle9i字符集为AMERICAN_AMERICA.WE8ISO8859P1
3.oracle sql developer版本 1.5.5
现象描述: 1.在sql developer 中查询oracle中的某个表,中文全部显示为乱码。
......
type Exception report
message
description The server encountered an internal error () that prevented it from fulfilling this request.
exception
org.apache.jas ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
VC++ 中, &变量名。 是什么意思。 Delphi中 和他一样的符号 是哪个、?
大家都认为,C语言之所以强大,以及其自由性,很大部分体现在其灵活的指针运用上。因此,说指针是C语言的灵魂,一点都不为过。同时, ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS(创建VPN连接用)函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......