DELPHI办公管理系统 第20页

DELPHI办公管理系统 第20页
 if length(trim(DBEdt_Bmbm.text)) <> 5 then
    begin
      Application.messagebox('编码应为五位', '北明办公管理系统', mb_iconinformation + mb_defbutton1);
      exit;
    end;
  end;
  s_bm := DBEdt_Bmbm.text;
  s_mc := DBEdt_Bmmc.text;
  DM.ZHIGONG.Open ;
  DM.ZHIGONG.Refresh;

  if DM.BUMEN.state = dsinsert then
   begin
    if DM.ZHIGONG.Locate('部门编码',s_bm,[]) then
    begin
      application.MessageBox('部门编码已重复', '北明办公管理系统', mb_iconinformation + mb_defbutton1);
      pagecontrol1.ActivePageIndex := 0;
      DBEdt_Bmbm.SetFocus;
      exit;
    end;
  end;
  //判断是添加数据的保存还是编辑数据保存
  if b_pd = true then
    Treeview.items.addchild(Node_Parent, '(' + s_bm + ') ' + s_mc)
  else
    Node_Child.Text := '(' + s_bm + ') ' + s_mc;
  DM.BUMEN.post;
 // DM.CDS_BMDA.applyupdates(0);
 DM.BUMEN.UpdateBatch();

  DM.BUMEN.Refresh;
  //设置按扭的有效性
  button_valid;

end;

procedure TBM_BENMENF.N_refreshClick(Sender: TObject);
begin
  refreshTree;
  Treeview.TopItem.selected := true;
end;

procedure TBM_BENMENF.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
 canclose:=true;
end;
procedure TBM_BENMENF.addClick(Sender: TObject);
begin
N_insertClick(Sender);
end;

procedure TBM_BENMENF.del2Click(Sender: TObject);
begin
N_deleteClick(Sender);
end;

procedure TBM_BENMENF.editClick(Sender: TObject);
begin
N_editClick(Sender);
end;

procedure TBM_BENMENF.saveClick(Sender: TObject);

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

DELPHI办公管理系统 第20页下载如图片无法显示或论文不完整，请联系qq752018766