unit1.pas

来自「说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄」· PAS 代码 · 共 46 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, DB, ADODB;

type
  TForm_main = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    S1: TMenuItem;
    dept_Tree: TTreeView;
    ADOC1: TADOConnection;
    ADOQ1: TADOQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure LoadDataForDeptTree;
  public
    { Public declarations }
  end;

var
  Form_main: TForm_main;

implementation

{$R *.dfm}

procedure TForm_main.FormCreate(Sender: TObject);
begin
  LoadDataForDeptTree;
end;


procedure TForm_main.LoadDataForDeptTree;
var RootNode,FirstDeptNode,SecondDeptNode:TTreeNode;
begin
Dept_tree.Color:=RGB($FF,$FF,$FF);
RootNode:=Dept_Tree.Items.Add(nil,'某公司');
end;

end.