bmmlcx.pas

服务信息管理系统

unit bmmlcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, LbSpeedButton, DB,
  DBTables, ImgList, TDSuperEdit;

type
  Tfrmbmmlcx = class(TForm)
    BmcxTreeView: TTreeView;
    Panel1: TPanel;
    Buttonsearch: TSpeedButton;
    ButtonOk: TLbSpeedButton;
    ButtonCancel: TLbSpeedButton;
    StatusBar1: TStatusBar;
    bmcxQuery: TQuery;
    ImageList1: TImageList;
    CzEdit: TTDSuperEdit;
    procedure ButtonCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BmcxTreeViewDblClick(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmbmmlcx: Tfrmbmmlcx;
  bmmlcx_cxlx, bmmlcx_data: string;
implementation

uses ygbmdd, mainform;

{$R *.dfm}

procedure Tfrmbmmlcx.ButtonCancelClick(Sender: TObject);
begin
  selectboolean := False;
  Close;
end;

procedure Tfrmbmmlcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmbmmlcx := nil;
end;

procedure Tfrmbmmlcx.FormResize(Sender: TObject);
begin
  bmcxTreeView.Height := Self.Height - 102;
  CzEdit.Width := bmcxTreeView.Width - 79;
end;

procedure Tfrmbmmlcx.FormCreate(Sender: TObject);
var
  pCode, yCode, pName: string;
  MainNode, yNode, zNode: TTreeNode;
begin
  bmmlcx_data := '';
  MainNode := TTreeNode.Create(BmcxTreeView.Items);
  yNode := TTreeNode.Create(BmcxTreeView.Items);
  zNode := TTreeNode.Create(BmcxTreeView.Items);
  BmcxTreeView.Items.Clear;
  with BmcxQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select bm_bh,bm_mc From bmmlk order by bm_bh');
      Prepare;
      Open;
    end;
  BmcxQuery.first;
  yCode := Trim(BmcxQuery.FieldByName('bm_bh').AsString);
  BmcxTreeView.Items.BeginUpdate;
  while not BmcxQuery.eof do
    begin
      pCode := Trim(BmcxQuery.FieldByName('bm_bh').AsString);
      pName := Trim(BmcxQuery.FieldByName('bm_mc').AsString);
      case length(pCode) of
        3:
          begin
            MainNode := BmcxTreeView.Items.AddChild(nil, pCode + ' ' + pName);
            yNode := MainNode;
          end;
        6:
          begin
            pCode := Copy(pCode, 4, 3);
            MainNode := BmcxTreeView.Items.AddChild(yNode, pCode + ' ' + pName);
            zNode := MainNode;
          end;
        9:
          begin
            pCode := Copy(pCode, 7, 3);
            MainNode := BmcxTreeView.Items.AddChild(zNode, pCode + ' ' + pName)
          end;
      end;
      Mainnode.SelectedIndex := 2;
      Mainnode.ImageIndex := 0;
      BmcxQuery.Next;
    end;
  BmcxTreeView.Items.EndUpdate;
  BmcxQuery.Close;
end;

procedure Tfrmbmmlcx.BmcxTreeViewDblClick(Sender: TObject);
var
  lsbl_select, lsbl_bmbh, lsbl_bmbh2, lsbl_bmmc: string;
  lsbl_x, lsbl_bmjb, lsbl_pos: Integer;
  lsbl_node: TTreeNode;
begin
  if BmcxTreeView.Selected <> nil then
    begin
      lsbl_bmjb := BmcxTreeView.Selected.Level;
      lsbl_select := Trim(BmcxTreeView.Selected.Text);
      lsbl_node := BmcxTreeView.Selected;
      lsbl_pos := Pos(' ', lsbl_select);
      lsbl_bmbh := Copy(lsbl_select, 1, lsbl_pos - 1);
      lsbl_bmmc := Copy(lsbl_select, lsbl_pos + 1, Length(lsbl_select));
      for lsbl_x := 0 to lsbl_bmjb - 1 do
        begin
          lsbl_bmbh2 := Trim(lsbl_node.Parent.Text);
          lsbl_pos := Pos(' ', lsbl_bmbh2);
          lsbl_bmbh2 := Copy(lsbl_bmbh2, 1, lsbl_pos - 1);
          lsbl_bmbh := lsbl_bmbh2 + lsbl_bmbh;
          lsbl_node := lsbl_node.Parent;
        end;
      if bmmlcx_cxlx = 'ygbmdd' then
        begin
          ygbmdd_bmbh := lsbl_bmbh;
          ygbmdd_selectbmbh := Trim(BmcxTreeView.Selected.Text);
          frmygbmdd.dxButtonEdit.Text := lsbl_bmbh + ' ' + lsbl_bmmc;
        end;
      selecttext1 := lsbl_bmbh;
      selecttext2 := lsbl_bmmc;
      selectboolean := True;
      Close;
    end;
end;

procedure Tfrmbmmlcx.ButtonOkClick(Sender: TObject);
begin
  BmcxTreeView.OnDblClick(Sender);
end;

procedure Tfrmbmmlcx.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    if activecontrol is TTreeView then
      BmcxTreeView.OnDblClick(Sender);
end;

end.