易截截图软件、单文件、免安装、纯绿色、仅160KB

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; <


相关问答:

oracle sql developer 查询显示中文乱码

环境:1.win2003server+oracle9i
2.oracle9i字符集为AMERICAN_AMERICA.WE8ISO8859P1
3.oracle sql developer版本 1.5.5
现象描述: 1.在sql developer 中查询oracle中的某个表,中文全部显示为乱码。 ......

jsp链接sql2000的疑问?



type Exception report


message

description The server encountered an internal error () that prevented it from fulfilling this request.

exception

org.apache.jas ......

delphi動態調用dll的困惑

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改  
  var  
  ......

VC++ 中的&符号 对应的是Delphi中的哪个符号??

VC++ 中, &变量名。 是什么意思。 Delphi中 和他一样的符号 是哪个、?

大家都认为,C语言之所以强大,以及其自由性,很大部分体现在其灵活的指针运用上。因此,说指针是C语言的灵魂,一点都不为过。同时, ......

如何在delphi里用代码实现创建VPN连接?

我的代码如下,怎么总提示连不成功:
type
  GUID = record //申明调用RAS(创建VPN连接用)函数所需结构体
  Data1: integer;
  Data2: Shortint;
  Data3: Shortint;
  ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号