bm_zhiyuanu.pas

Delphi办公管理系统

unit BM_ZHIYUANU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, ExtCtrls, Mask,OleCtnrs, Grids, DBGrids, ComCtrls,
  Buttons, Menus, db,TabNotBk, ADODB,ImgList, CheckLst, QuickRpt, QRCtrls,ComObj,Excel2000;




type
  TBM_ZHIYUANF = class(TForm)
    Panel2: TPanel;
    Splitter1: TSplitter;
    PopupMenu2: TPopupMenu;
    N5: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    OpenDialog1: TOpenDialog;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    Panel4: TPanel;
    TreeView1: TTreeView;
    TabbedNotebook1: TTabbedNotebook;
    Panel5: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label15: TLabel;
    Label1: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Panel6: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Label9: TLabel;
    cb1: TComboBox;
    gongsi: TComboBox;
    xingming: TEdit;
    shengri: TEdit;
    jiguan: TEdit;
    bumen: TComboBox;
    xueli: TComboBox;
    zhicheng: TComboBox;
    shenfen: TComboBox;
    zhiwu: TEdit;
    Memo: TMemo;
    Panel7: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Shape1: TShape;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    jichu: TEdit;
    gangwei: TEdit;
    jiaban: TEdit;
    zhufang: TEdit;
    xiaoyi: TEdit;
    diqu: TEdit;
    gongling: TEdit;
    Panel9: TPanel;
    Panel8: TPanel;
    Label25: TLabel;
    ds: TEdit;
    Label26: TLabel;
    dg: TEdit;
    Label27: TLabel;
    DBGrid1: TDBGrid;
    Panel10: TPanel;
    dw: TComboBox;
    xm: TEdit;
    Label37: TLabel;
    Label38: TLabel;
    bm: TComboBox;
    Label39: TLabel;
    SpeedButton10: TSpeedButton;
    bangong: TEdit;
    Label40: TLabel;
    Label41: TLabel;
    zhuzhai: TEdit;
    Label42: TLabel;
    shouji: TEdit;
    Label43: TLabel;
    email: TEdit;
    cha: TADOQuery;
    Photo: TDBImage;
    Label48: TLabel;
    sf: TComboBox;
    Label49: TLabel;
    Label50: TLabel;
    zc: TComboBox;
    zw: TEdit;
    zhiyuans: TDataSource;
    diaoru: TEdit;
    Label51: TLabel;
    Shape5: TShape;
    Label22: TLabel;
    heji: TEdit;
    jichuheji: TEdit;
    Label52: TLabel;
    DBGrid2: TDBGrid;
    Shape6: TShape;
    shijian: TEdit;
    Label53: TLabel;
    qita: TEdit;
    Label54: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Panel13: TPanel;
    DBGrid3: TDBGrid;
    dme: TMemo;
    dd: TEdit;
    Label29: TLabel;
    Label30: TLabel;
    db: TEdit;
    Label31: TLabel;
    dz: TEdit;
    aq1: TADOQuery;
    ds1: TDataSource;
    Panel1: TPanel;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    save: TSpeedButton;
    hui1: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton11: TSpeedButton;
    Panel12: TPanel;
    SpeedButton8: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton18: TSpeedButton;
    Label55: TLabel;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    Panel14: TPanel;
    SpeedButton17: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    Label28: TLabel;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    aq2: TADOQuery;
    ds2: TDataSource;
    cha2: TADOQuery;
    Panel11: TPanel;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    Label32: TLabel;
    liebiao: TADOQuery;
    lie1: TDataSource;
    diao: TADOQuery;
    diao1: TDataSource;
    ImageList2: TImageList;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure saveClick(Sender: TObject);
    procedure hui1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure TreeView1Expanding(Sender: TObject; Node: TTreeNode;
      var AllowExpansion: Boolean);
    procedure TreeView1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure cb1KeyPress(Sender: TObject; var Key: Char);
    procedure shengriKeyPress(Sender: TObject; var Key: Char);
    procedure xueliKeyPress(Sender: TObject; var Key: Char);
    procedure zhichengKeyPress(Sender: TObject; var Key: Char);
    procedure shenfenKeyPress(Sender: TObject; var Key: Char);
    procedure zhiwuKeyPress(Sender: TObject; var Key: Char);
    procedure emailKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure dwDropDown(Sender: TObject);
    procedure bmDropDown(Sender: TObject);
    procedure dwClick(Sender: TObject);
    procedure sfDropDown(Sender: TObject);
    procedure zcDropDown(Sender: TObject);
    procedure zwDropDown(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure jichuKeyPress(Sender: TObject; var Key: Char);
    procedure gangweiKeyPress(Sender: TObject; var Key: Char);
    procedure jiabanKeyPress(Sender: TObject; var Key: Char);
    procedure zhufangKeyPress(Sender: TObject; var Key: Char);
    procedure xiaoyiKeyPress(Sender: TObject; var Key: Char);
    procedure diquKeyPress(Sender: TObject; var Key: Char);
    procedure gonglingKeyPress(Sender: TObject; var Key: Char);
    procedure xingmingKeyPress(Sender: TObject; var Key: Char);
    procedure jiguanKeyPress(Sender: TObject; var Key: Char);
    procedure bangongKeyPress(Sender: TObject; var Key: Char);
    procedure zhuzhaiKeyPress(Sender: TObject; var Key: Char);
    procedure shoujiKeyPress(Sender: TObject; var Key: Char);
    procedure MemoKeyPress(Sender: TObject; var Key: Char);
    procedure hejiKeyPress(Sender: TObject; var Key: Char);
    procedure dsKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure Label55Click(Sender: TObject);
    procedure qitaKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure xmKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure dgKeyPress(Sender: TObject; var Key: Char);
    procedure ddKeyPress(Sender: TObject; var Key: Char);
    procedure dbKeyPress(Sender: TObject; var Key: Char);
    procedure dzKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure button_valid;
    procedure noedit;
    procedure yesedit;
    procedure cls;
    procedure saveimage;
    procedure loadimage;
    procedure change;
    procedure readdata;
    procedure readgongzi;
    procedure readdiaodong;
    procedure count ;
     procedure AddPID(Node: TTreeNode; StrName: String; vi: Boolean);
    procedure DeleteData(AutoID: Integer);
    procedure refreshTree;

 
  public
    { Public declarations }
     procedure frashform;
  end;

var
  BM_ZHIYUANF: TBM_ZHIYUANF;
   AORE:boolean;
   mc,mc2,s2,sd:string;
   vv,fid:integer;
implementation

uses BM_DMU, BM_BUMENU, BM_HINTU, BM_ZHIYUAN_ADDU, BM_OFICEU, printu,
  printgz, printd;

{$R *.dfm}
procedure TBM_ZHIYUANF.loadimage;
var
 bmp:TBitmap;
begin

  try
  bmp := Tbitmap.Create;
  dm.zhiyuan2.Open;
  bmp.Assign(dm.zhiyuan2.Fields[19]);
  photo.Picture.Bitmap:=bmp;
  finally
  bmp.Free;
  end;

end;
procedure TBM_ZHIYUANF.saveimage;
var 
MyJPEG : Tbitmap;
MS: TMemoryStream;
begin
dm.zhiyuan2.Edit ;
MyJPEG := Tbitmap.Create;
 try
    with MyJPEG do
    begin
      Assign(photo.Picture.Graphic);
      MS:=TMemoryStream.create;
      SaveToStream(MS);
      MS.Position:=0;

      TBlobField(dm.zhiyuan2.FieldbyName('照片')).LoadFromStream(MS);
       dm.zhiyuan2.Post ;

    end;
  finally
    MyJPEG.Free;
  end;
end;

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

procedure TBM_ZHIYUANF.N5Click(Sender: TObject);
begin
SpeedButton1Click(Sender);


end;

procedure TBM_ZHIYUANF.SpeedButton1Click(Sender: TObject);
var
  s_zgbh,strName: string;
     mynode: Ttreenode;

begin
if TreeView1.Selected.Selected =false then exit;

mynode := Treeview1.selected;
if mynode.Level =0 then exit;

  strName:=inputbox('新增','请输入下级分类名称： ','');
  strName:=trim(strName);
  if strName='' then
      exit;
  AddPID(TreeView1.Selected, strName, false);
 {
  yesedit;
  cls;
  button_valid;
  AORE:=true;
//  end;
    }
end;

procedure TBM_ZHIYUANF.N2Click(Sender: TObject);
begin
SpeedButton3Click(Sender);
end;





procedure TBM_ZHIYUANF.FormShow(Sender: TObject);
  var i:integer;
n: TTreeNode;
begin

 AORE:=false;



{noedit;
CB2.Items.Clear ;
WITH DM.QALL do
 begin
    close;
    sql.Clear ;
    sql.Add('select 部门名称 from 部门');
    open;
    first;
 end;
 for i:=0 to  DM.QALL.RecordCount-1  do
    begin
     CB2.Items.Add(DM.QALL.Fields[0].asstring);
     DM.QALL.next;
    end;
  }


  TreeView1.Items.Clear;
  n := TreeView1.Items.AddObject(nil,'北明人事档案信息',Pointer(-1));



  dm.ADOQuery1.Close;
  dm.ADOQuery1.SQL.Text := 'select Count(*) from zhiyuan '
            + ' where 部门编码 = ' + IntToStr(Integer(n.data));  //查看是否有下级子树
  dm.ADOQuery1.Open;
  if dm.ADOQuery1.Fields[0].AsInteger <> 0 then
      n.HasChildren := True;

  n.imageindex := 0;
  n.stateindex := 1;
  n.selectedindex := 2;
 /////
 for i:= 0 to self.treeview1.Items.Count - 1 do
   begin
      if self.treeview1.Items.Item[i].Level = 0 then
      begin
         self.treeview1.Items.Item[i].Expanded:= true;
      end;
   end;
// treeview1.Items.Item[0].Selected := true;
  
//  TreeView1.Selected.Selected := True;


end;

procedure TBM_ZHIYUANF.frashform;

begin



end;

procedure TBM_ZHIYUANF.SpeedButton3Click(Sender: TObject);

 var  strName:string;

  mynode: Ttreenode;
begin


 mynode := Treeview1.selected;
/////////
  if mynode.Level <3 then
  begin
  strName:=inputbox('修改名称','请输入要更改的名称：  ',TreeView1.Selected.Text);
  strName:=trim(strName);
  if strName='' then
      exit;
  with dm.qryRun do
  begin
    Close;
    SQL.Text := ' update zhiyuan set 公司名称 = '''
        + strName + ''''
        + ' where ID = '
        + IntToStr(Integer(TreeView1.Selected.Data));
    ExecSQL;
  end;
  TreeView1.Selected.Text := strName;
  TreeView1.SetFocus;
  TreeView1.Selected.Selected := True;
  end
  else
  begin
  vv:=Integer(TreeView1.Selected.Data);
  button_valid;
  yesedit;
  AORE:=false;
 // xingming.SetFocus ;
  dm.zhiyuan2.Edit ;
 


  end;

end;

procedure TBM_ZHIYUANF.SpeedButton5Click(Sender: TObject);
begin
close;
end;

procedure TBM_ZHIYUANF.SpeedButton4Click(Sender: TObject);


begin
//TreeView1.Selected.Parent;
//treeview1.Selected:=treeview1.Items.Item[treeview1.Items.count-1];
end;

procedure TBM_ZHIYUANF.button_valid;
begin
  SpeedButton11.Enabled :=not SpeedButton11.Enabled ;
  SpeedButton1.Enabled :=not SpeedButton1.Enabled ;
  SpeedButton2.Enabled :=not SpeedButton2.Enabled ;
  SpeedButton3.Enabled :=not SpeedButton3.Enabled ;
  SpeedButton4.Enabled :=not SpeedButton4.Enabled ;
  SpeedButton6.Enabled :=not SpeedButton6.Enabled ;
  SpeedButton7.Enabled :=not SpeedButton7.Enabled ;


  N1.Enabled :=not N1.Enabled ;
  N2.Enabled :=not N2.Enabled ;
  N3.Enabled :=not N3.Enabled ;
  N4.Enabled :=not N4.Enabled ;
  N5.Enabled :=not N5.Enabled ;
  hui1.Enabled := not hui1.Enabled ;
  save.Enabled :=not save.Enabled ;


end;

procedure TBM_ZHIYUANF.noedit;
begin

xingming.Enabled :=false;
 cb1.Enabled :=false;
 shengri.Enabled :=false;
 jiguan.Enabled :=false;
  //gongsi.Enabled :=false;
 // bumen.Enabled :=false;
  xueli.Enabled :=false;
    zhicheng.Enabled :=false;
    shenfen.Enabled :=false;
    zhiwu.Enabled :=false;
     memo.Enabled :=false;
     email.Enabled :=false;
     bangong.Enabled :=false;
     zhuzhai.Enabled :=false;
     shouji.Enabled :=false;
    diaoru.Enabled :=false;
 


end;

procedure TBM_ZHIYUANF.yesedit;
begin
xingming.Enabled :=true;
 cb1.Enabled :=true;
 shengri.Enabled :=true;
 jiguan.Enabled :=true;
 // gongsi.Enabled :=true;
 // bumen.Enabled :=true;
 xueli.Enabled :=true;
    zhicheng.Enabled :=true;
    shenfen.Enabled :=true;
    zhiwu.Enabled :=true;
     memo.Enabled :=true;
     email.Enabled :=true;
     bangong.Enabled :=true;
     zhuzhai.Enabled :=true;
     shouji.Enabled :=true;
     diaoru.Enabled :=true;

    jichu.Enabled :=true;
    gangwei.Enabled :=true;
    jiaban.Enabled :=true;
    zhufang.Enabled :=true;
    xiaoyi.Enabled :=true;
    diqu.Enabled :=true;
    gongling.Enabled :=true;

    heji.Enabled :=true;



end;

procedure TBM_ZHIYUANF.cls;
begin

//dbImage1.Picture.Assign(nil);
 xingming.Text :='';
 cb1.Text :='';
 shengri.Text :='';
 jiguan.Text :='';
  gongsi.Text :='';
  bumen.Text :='';
 xueli.Text := '';
    zhicheng.Text :='';
    shenfen.Text :='';