upublicfunc.pas

是一个用delphi设计的考勤系统

{
***************************************************************
*  说明：公共函数单元                                         *

***************************************************************
}
unit UPublicFunc;

interface
uses windows, SysUtils, messages, MmSystem, inifiles, ExtCtrls, forms, dialogs,
   Controls, stdctrls, jpeg, graphics, filectrl, AdoDb, DBTables, comctrls, ACTNLIST;

 //生成部门机构树型结构
     procedure LoadOrganTree(Adocon: TADOConnection;Trview: TTreeView;Layer:integer=1);
implementation
uses
   UGlobal;
procedure LoadOrganTree(Adocon: TADOConnection;Trview: TTreeView;Layer:integer=1);
var
  Query1, Query2: TAdoQuery;
  jgdm, fjgdm: string;
  pTreeNode:ptTreeNode;
  treeNode1, treeNode2: TTreeNode;
begin
  trview.Items.Clear;
  Query1 := TAdoQuery.Create(nil);
  Query2 := TAdoQuery.Create(nil);
  Query1.Connection  := Adocon;
  Query2.Connection  := Adocon;
  with Query1 do
  begin
    sql.clear;
    sql.add('select xqbh,xqmc from zx_s_xqxx order by xqbh');
    open;
    first;
  end;
  if Query1.Recordcount = 0 then
  begin
    Query1.free;
    Query2.free;
    exit;
  end;
  try
    while not Query1.eof do
    begin
      jgdm := Query1.fieldbyname('xqbh').value;
      New(pTreeNode);
      pTreeNode^.nodeValue := 'a' + jgdm;
      TreeNode1 := trview.Items.AddChildObject(nil, Query1.fieldbyname('xqmc').value,pTreeNode);
      TreeNode1.ImageIndex :=0;
      TreeNode1.SelectedIndex :=0;
      //加载数据******************************************************************
      if layer>1 then
      begin
        with Query2 do
        begin
           sql.Clear;
           sql.add('select bjbh,bjmc from zx_s_bjxx where zybh=''' + jgdm + ''' order by bjbh');
           open;
           first;
        end;
        while not Query2.Eof do
        begin
          New(pTreeNode);
          pTreeNode^.nodeValue := 'd' + Query2.fieldbyname('bjbh').value;
          TreeNode2:=trview.Items.AddChildObject(TreeNode1, Query2.fieldbyname('bjmc').value,pTreeNode);
          TreeNode2.ImageIndex :=2;
          TreeNode2.SelectedIndex :=2;
          Query2.Next;
        end;
      end;
      //加载分机构数据******************************************************************
      Query1.Next;
    end;
    New(pTreeNode);//必须否则最后的代码成为空值?
  finally
    Query1.free;
    Query2.free;
    dispose(pTreeNode);
  end;
end;

end.