feditpost.pas

这是一款功能齐全的人力资源管理软件系统,是成功运用于企业的管理软件,具有很高的研究价值

unit Feditpost;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Teditpost = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    etype:integer;//1.增加同级 2.增加下属  3.编辑
  end;

var
  editpost: Teditpost;

implementation

uses Fpostedit;

{$R *.dfm}

procedure Teditpost.Button1Click(Sender: TObject);
begin
  close
end;

procedure Teditpost.Button2Click(Sender: TObject);
begin
  if trim(self.Edit1.Text)='' then
    begin
      MessageBox(handle,'请输入名称！','错误',MB_ICONERROR or MB_OK);
      self.Edit1.SetFocus;
      exit;
    end;
  if self.etype=1 then     //增加部门
    begin
      postedit.dxDBTreeView1.Items.Add(postedit.dxDBTreeView1.Selected, self.Edit1.Text);
      postedit.ADOTable1.Edit;
      postedit.ADOTable1.FieldByName('postmemo').AsVariant:=self.Memo1.Lines.Text;
      postedit.ADOTable1.Post;
    end;
  if self.etype=2 then
    begin
      if (postedit.dxDBTreeView1.Selected <> Nil) then
        begin
          postedit.dxDBTreeView1.Items.AddChild(postedit.dxDBTreeView1.Selected,self.Edit1.Text);
          postedit.ADOTable1.Edit;
          postedit.ADOTable1.FieldByName('postmemo').AsVariant:=self.Memo1.Lines.Text;
          postedit.ADOTable1.Post;
        end;
    end;
  if self.etype=3 then
    begin
      postedit.ADOTable1.Edit;
      postedit.ADOTable1.FieldByName('postname').AsString:=self.Edit1.Text;
      postedit.ADOTable1.FieldByName('postmemo').AsVariant:=self.Memo1.Lines.Text;
      postedit.ADOTable1.Post;
    end;
  self.Close;  
end;

end.