您现在的位置：毕业论文 >> 论文 >> 正文

DELPHI办公管理系统第15页

更新时间：2010-1-17: 来源：毕业论文

DELPHI办公管理系统第15页
close: TSpeedButton;
    edit: TSpeedButton;
    hui1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N_insertClick(Sender: TObject);
    procedure TreeViewClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N_deleteClick(Sender: TObject);
    procedure N_editClick(Sender: TObject);
    procedure N_cancelClick(Sender: TObject);
    procedure N_saveClick(Sender: TObject);
    procedure N_refreshClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

    procedure addClick(Sender: TObject);
    procedure del2Click(Sender: TObject);
    procedure editClick(Sender: TObject);
    procedure saveClick(Sender: TObject);
    procedure hui1Click(Sender: TObject);
    procedure freshClick(Sender: TObject);
private
    { Private declarations }
     Node_Parent: TTreeNode; //存储父节点
     Node_Child: TTreeNode; //存储当前节点
     b_pd: bool; //用于判断点击的是添加还是编辑
    //在添加、编辑和浏览状态互置按钮的有效性
    procedure button_valid;
    procedure refreshTree;
public
    { Public declarations }
end;

var
BM_BENMENF: TBM_BENMENF;

implementation

uses BM_DMU;

{$R *.dfm}

procedure TBM_BENMENF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TBM_BENMENF.refreshTree;
var
mynode_1, mynode_2, mynode_3: Ttreenode;
s_bm_1, s_bm_2, s_bm_3: string;
s_mc_1, s_mc_2, s_mc_3: string;
begin
DM.BUMEN.Active := True;
treeview.Items.clear;
mynode_1 := Treeview.Items.Add(Treeview.topitem, '北明部门档案');
mynode_1.imageindex := 0;
mynode_1.stateindex := -1;
mynode_1.selectedindex := 1;
DM.BUMEN.indexfieldnames := '部门编码';
DM.BUMEN.First;
while not DM.BUMEN.Eof do

<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>