u_dwbmsd.pas

来自「人事管理程序源码」· PAS 代码 · 共 105 行

unit U_dwbmsd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ImgList, ComCtrls, StdCtrls, Buttons;

type
  TForm_dwbmsd = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    dwmc_tree: TTreeView;
    ImageList1: TImageList;
    BitBtn1: TBitBtn;
    Panel4: TPanel;
    Label1: TLabel;
    xs_dwbh: TEdit;
    Label2: TLabel;
    xs_dwmc: TEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure dwmc_treeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_dwbmsd: TForm_dwbmsd;

implementation

uses U_gzda_dm;

{$R *.dfm}

procedure TForm_dwbmsd.FormShow(Sender: TObject);
var
  CatNode:TtreeNode ;
begin
  CatNode := dwmc_tree.Items.AddChild(nil,'单位名称');
  CatNode.ImageIndex :=0;
  CatNode.SelectedIndex :=0;
  with gzda_dm.ADODataSet10 do begin
    if active then active:=false;
    commandtext:='select * from dwbm order by bh';
    open;
  end;
end;

procedure TForm_dwbmsd.BitBtn1Click(Sender: TObject);
var
  CatNode:TtreeNode ;
  LastNode:TtreeNode;
  RootNode:TtreeNode;
  Num_dw:integer;
begin
  RootNode:=dwmc_tree.Items.GetFirstNode;
  Num_dw:=RootNode.Count;
  xs_dwbh.Text:='';
  xs_dwmc.Text:='';
  if Num_dw<10 then
     xs_dwbh.Text:='0'+inttostr(Num_dw+1)
  else
     xs_dwbh.Text:=inttostr(Num_dw+1);
  panel4.Visible:=true;
  panel4.Refresh;
  xs_dwmc.SetFocus;
end;

procedure TForm_dwbmsd.BitBtn2Click(Sender: TObject);
var
  RootNode,CatNode:TtreeNode;
begin
  RootNode:=dwmc_tree.Items.GetFirstNode;
  CatNode := dwmc_tree.Items.AddChild(RootNode,xs_dwbh.Text+'.'+xs_dwmc.Text);
  CatNode.ImageIndex :=2;
  CatNode.SelectedIndex :=2;
  RootNode.Expand(true);
  panel4.Visible:=false;
  CatNode:=catnode.GetNext;
  dwmc_tree.SetFocus;
end;

procedure TForm_dwbmsd.BitBtn3Click(Sender: TObject);
begin
  xs_dwbh.Text:='';
  xs_dwmc.Text:='';
  panel4.Visible:=false;
end;

procedure TForm_dwbmsd.dwmc_treeClick(Sender: TObject);
begin
  SHOWMESSAGE(inttostr(dwmc_tree.Selected.count));
end;

end.