diaodong.pas

档案管理系统,档案管理系统vb+access源代码+可执行文件+论文+开题报告+外文翻译..

unit DiaoDong;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Grids, DBGridEh, ExtCtrls, DB, DBTables,
  ImgList, DBCtrls, StdCtrls, Mask, DBCtrlsEh, DBLookupEh;

type
  TDiaoDongFrm = class(TForm)
    TreeView1: TTreeView;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Splitter1: TSplitter;
    Query1: TQuery;
    Query2: TQuery;
    DataSource2: TDataSource;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Label5: TLabel;
    DataSource1: TDataSource;
    DBLookupComboboxEh1: TDBLookupComboboxEh;
    DBLookupComboboxEh2: TDBLookupComboboxEh;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DiaoDongFrm: TDiaoDongFrm;

implementation

{$R *.dfm}

procedure TDiaoDongFrm.FormCreate(Sender: TObject);
Var
  Root,n1,n2:Ttreenode;
  s,t:String;
begin
  Treeview1.Items.BeginUpdate;
  Treeview1.Items.Clear;
  Root:=Treeview1.Items.Add(nil,'集团公司');
  n1:=nil;
  n2:=nil;
  with Query1 do
  begin
  if not Active Then Open;
  First;
  while not Eof do
  begin
    s := trim(FieldByName('BuMenID').AsString);
    t := FieldByName('BuMenMC').AsString;
    case length(s) of
    2:n1:=treeview1.Items.AddChild(root,'['+s+']'+t);
    4:n2:=treeview1.Items.AddChild(n1,'['+s+']'+t);
    6:treeview1.Items.AddChild(N2,'['+s+']'+t);
  end;
    Next;
  end;
end;
  treeview1.Items.EndUpdate;
  treeview1.Selected:=treeview1.Items[0];
  treeview1.Selected.Expand(true);
end;

procedure TDiaoDongFrm.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  s:String;
begin
  if Node.Level=0 then s := ''
  else begin
    s := Node.Text;
    s := copy(s,2,pos(']',s)-2);
  end;
  with DBGridEh1.DataSource.DataSet as TQuery do
  begin
    Close;
    Params[0].AsString := s+'%';
    Open;
  end;
end;

procedure TDiaoDongFrm.ToolButton4Click(Sender: TObject);
begin
  self.Close;
end;

procedure TDiaoDongFrm.ToolButton3Click(Sender: TObject);
begin
  if Query2.State in [dsedit,dsinsert] Then
  begin
    Try
      if Application.MessageBox('确定要调动吗？','提示',MB_OKCANCEL +MB_ICONQUESTION)=idok Then
      query2.Post;
    Except
    end;
  end;
  DBLookupComboboxEh1.Enabled :=False;
  DBLookupComboboxEh2.Enabled :=False;
  DBGridEh1.ReadOnly:=True;
end;

procedure TDiaoDongFrm.ToolButton2Click(Sender: TObject);
begin
  query2.Cancel;
  DBGridEh1.ReadOnly:=True;
end;

procedure TDiaoDongFrm.ToolButton1Click(Sender: TObject);
begin
  DBLookupComboboxEh1.Enabled :=True;
  DBLookupComboboxEh2.Enabled :=True;
  query2.Edit;
  DBGridEh1.ReadOnly:=False;
end;

end.