frm_slectclass.pas

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

unit Frm_SlectClass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, ComCtrls, Menus, StdCtrls, ExtCtrls, YLabelButton,
  ChangeImage, ImgList, UErrDisplay, ModalForm1;

type
  TSlectClass = class(TMyModalForm1)
    Tv_jglist: TTreeView;
    BtnOk: TChangeImg;
    LBtnOk: TLabelB;
    BtnExit: TChangeImg;
    LBtnExit: TLabelB;
    ImageList1: TImageList;
    procedure BtnExitClick(Sender: TObject);
    procedure Tv_jglistDblClick(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    m_NodeValue: string; //节点关联的数值
  public
    { Public declarations }
    SelFlag:string;
  end;

var
  SlectClass: TSlectClass;

implementation
uses UpublicFunc,Uglobal,DM_DataModal;
{$R *.dfm}

procedure TSlectClass.BtnExitClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TSlectClass.Tv_jglistDblClick(Sender: TObject);
var
   TempNode:TTreeNode;
begin
  inherited;
  if Tv_jgList.Selected =nil then exit;
  TempNode:=Tv_jgList.Selected ;
  if (TempNode.Level=1) and  (SelFlag='YXXZ')  then
  begin
      m_NodeValue :=ptTreeNode(Tv_jgList.selected.data)^.NodeValue;
      if copy(m_NodeValue, 1, 1) = 'b' then
      begin
         GsTempstr1 := copy(m_NodeValue, 2, length(m_NodeValue) - 1);  //编号
         GsTempstr2 :=TempNode.Text ;  //名称
         close;
      end;
  end;
  if (TempNode.Level=2) and  (SelFlag='ZYXZ') then
  begin
      m_NodeValue :=ptTreeNode(Tv_jgList.selected.data)^.NodeValue;
      if copy(m_NodeValue, 1, 1) = 'c' then
      begin
         GsTempstr1 := copy(m_NodeValue, 2, length(m_NodeValue) - 1);  //编号
         GsTempstr2 :=TempNode.Text ;  //名称
         close;
      end;
  end;
  if (TempNode.Level=1) and  (SelFlag='BJXZ') then
  begin
      m_NodeValue :=ptTreeNode(Tv_jgList.selected.data)^.NodeValue;
      if copy(m_NodeValue, 1, 1) = 'd' then
      begin
         GsTempstr1 := copy(m_NodeValue, 2, length(m_NodeValue) - 1);  //编号
         GsTempstr2 :=TempNode.Text ;  //部门名称
         close;
      end;
   end;
end;

procedure TSlectClass.BtnOkClick(Sender: TObject);
begin
  inherited;
  Tv_jglistDblClick(Sender);
end;

procedure TSlectClass.FormShow(Sender: TObject);
begin
  inherited;
  GsTempStr1:='';
  GsTempStr2:=''; 
  if SelFlag='YXXZ' then
  begin
     LoadOrganTree(WindData.AdoConn,Tv_jgList,2);
     SlectClass.Caption :='选择单位';
  end;
  if SelFlag='ZYXZ' then
  begin
     LoadOrganTree(WindData.AdoConn,Tv_jgList,3);
     SlectClass.Caption :='选择';
  end;
  if SelFlag='BJXZ' then
  begin
     LoadOrganTree(WindData.AdoConn,Tv_jgList,4);
     SlectClass.Caption :='选择部门';
  end;
end;

end.