query.pas

一个简单的家庭财务管理软件。

unit query;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,childccp, ExtCtrls, StdCtrls, ComCtrls, Grids, DBGrids, DB, ADODB;

const
    CTreeCodeFormat='122222';
    cTreeMaxLevel=6;
    CTreeRootTXT='所有图书';

type
    Tstudy = class(TChildcc)
    tree: TTreeView;
    ComboBox1: TComboBox;
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    treedb: TADOQuery;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);

 private
    { Private declarations }
  public
     procedure LoadTree(treeDB:TADOQuery);//初始化树
     procedure UpdateTree(curNode:TTreenode; nodeTxt:string; state:string);//更新树
     function GetNodeLevel(sFormat,sCode:string):integer; //获得节点层数
     function GetNodeItem(sCode:string):integer;//获得item
    { Public declarations }
  end;

var
    study: Tstudy;
    _err:integer;
    curUser:string[10];
    mystate:string;
    gNodeId:string;
    gNodelevel:integer;
    gNode:TtreeNode;
    mynode:array[0..6] of TTreenode;
    i,Already,CurMode:integer;
    currow:integer;
    iniFile:string;
    HasSub:String;
    level:Integer;

implementation

{$R *.dfm}

procedure Tstudy.LoadTree(treeDB:TADOQuery);//初始化树
var curID,nodeTxt:string;
level,num:integer;
begin
    //初始化变量
    Screen.Cursor:=crHourGlass;
    tree.Enabled:=True;
    tree.Items.Clear;
    level:=1 ;
    num:=1;
    tree.items.clear;
    //设置根节点
    mynode[level]:=Tree.items.add(Tree.Topitem,cTreeRootTxt);
    mynode[level].ImageIndex:=0;
    mynode[level].SelectedIndex:=1;
    //遍历数据表，利用编码字段记录排序规律，依次添加树节点
    with TreeDb do
    begin
    try
    if not Active then open;
    first;
    while not Eof do
        begin
        curID:=trim(FieldByName('fssj').AsString);
        nodeTxt:=curID+'-'+trim(FieldByName('tsglbn').AsString);
        level:=GetNodeLevel(cTreeCodeFormat,curID);
        //这里返回代码的层次数
        if level>0 then
          begin
          //增加下一节点时，用添加子节点的方法可轻松实现节点间的层次关系。
          //注意：这里的父节点是用当前节点的上一级节点mynode[level-1]
          mynode[level]:=Tree.Items.AddChild(Mynode[level-1],NodeTxt);
          mynode[level].ImageIndex:=2;
          mynode[level].SelectedIndex:=3;
          end;
        next;//下一条记录
        end;
    finally;
    close;
    End;
    mynode[1].expand(False);
    Screen.Cursor:=crHourGlass;
    end;
end;

function Tstudy.GetNodeLevel(sFormat,sCode:string):integer;
var i,iLen:integer;
begin
      level:=-1 ;
      iLen:=0;
      if (sFormat<>'') and (sCode<>'') then
      for i:=1 to Length(sFormat) do //分析编码格式，找出当前代码层次
      begin
      iLen:=iLen+StrToInt(sFormat[i]);
      if Length(sCode)=iLen then
      begin
      level:=i;
      break;
      end;
      end;
      result:=level;
end;

Function Tstudy.GetNodeItem(sCode:string):integer;//获得item
var i,iCount,val:integer;
tmp:string;
begin
    Result:=0;
    iCount:=Tree.Items.Count;
    if iCount=0 then exit;
    val:=0;
    for i:=1 to iCount-1 do
      begin
      Tmp:=Tree.Items.Item[i].Text;
      Tmp:=Copy(Tmp,0,pos('-',Tmp)-1);
        if Tmp=sCode then begin
        val:=i;
        Break;
        end;
      end;
    result:=val;
end;

procedure Tstudy.UpdateTree(curNode:TTreenode; nodeTxt:string; state:string);

Begin

if state='add' then

begin

curNode:=Tree.Items.addchild(curNode,nodeTxt);

curNode.ImageIndex:=2;

curnode.SelectedIndex:=3;

end;

if state='del' then curNode.delete;

if state='edi' then curNode.Text:=nodeTxt;

end;





procedure Tstudy.FormDestroy(Sender: TObject);
begin
     GlobalDeleteAtom(GlobalFindAtom('study'));
end;

procedure Tstudy.FormCreate(Sender: TObject);
begin
      if GlobalFindAtom('study') = 0 then
          GlobalAddAtom('study');
end;

end.