fwlxxz.pas

服务信息管理系统

unit fwlxxz;

interface

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

type
  Tfrmfwlxxz = class(TForm)
    Panel1: TPanel;
    Buttonsearch: TSpeedButton;
    ButtonOk: TLbSpeedButton;
    ButtonCancel: TLbSpeedButton;
    StatusBar1: TStatusBar;
    CzEdit: TTDSuperEdit;
    fwlxTreeView: TTreeView;
    ImageList1: TImageList;
    fwlxTable: TTable;
    procedure FormCreate(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure fwlxTreeViewDblClick(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmfwlxxz: Tfrmfwlxxz;
  fwlxcx_data: string;
implementation
uses mainform;
{$R *.dfm}

procedure Tfrmfwlxxz.FormCreate(Sender: TObject);
var
  pCode, yCode, pName: string;
  MainNode, yNode, zNode: TTreeNode;
begin
  fwlxcx_data := '';
  MainNode := TTreeNode.Create(fwlxTreeView.Items);
  yNode := TTreeNode.Create(fwlxTreeView.Items);
  zNode := TTreeNode.Create(fwlxTreeView.Items);
  fwlxTreeView.Items.Clear;
  if fwlxTable.active = False then fwlxTable.Active := True;
  fwlxTable.first;
  yCode := Trim(fwlxTable.FieldByName('fw_bh').AsString);
  fwlxTreeView.Items.BeginUpdate;
  while not fwlxTable.eof do
    begin
      pCode := Trim(fwlxTable.FieldByName('fw_bh').AsString);
      pName := Trim(fwlxTable.FieldByName('fw_mc').AsString);
      case length(pCode) of
        3:
          begin
            MainNode := fwlxTreeView.Items.AddChild(nil, pCode + ' ' + pName);
            yNode := MainNode;
          end;
        6:
          begin
            pCode := Copy(pCode, 4, 3);
            MainNode := fwlxTreeView.Items.AddChild(yNode, pCode + ' ' + pName);
            zNode := MainNode;
          end;
        9:
          begin
            pCode := Copy(pCode, 7, 3);
            MainNode := fwlxTreeView.Items.AddChild(zNode, pCode + ' ' + pName)
          end;
      end;
      Mainnode.SelectedIndex := 1;
      Mainnode.ImageIndex := 0;
      fwlxTable.Next;
    end;
  fwlxTreeView.Items.EndUpdate;
  fwlxTable.Close;
end;

procedure Tfrmfwlxxz.ButtonCancelClick(Sender: TObject);
begin
  selecttext1 := '';
  Close;
end;

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

procedure Tfrmfwlxxz.FormShow(Sender: TObject);
var
  lsbl_Node: TTreeNode;
  lsbl_x, lsbl_count: integer;
  lsbl_fwlxcx: string;
begin
  lsbl_fwlxcx := 'No Find';
  lsbl_count := fwlxTreeView.Items.Count;
  if lsbl_count <> 0 then
    begin
      if fwlxcx_data <> '' then
        begin
          for lsbl_x := 0 to lsbl_count do
            begin
              lsbl_fwlxcx := fwlxTreeView.Items[lsbl_x].Text;
              if Pos(fwlxcx_data, lsbl_fwlxcx) <> 0 then
                begin
                  lsbl_fwlxcx := 'Find';
                  lsbl_Node := fwlxTreeView.Items[lsbl_x];
                  Break;
                end;
            end;
        end;
      if lsbl_fwlxcx = 'No Find' then
        begin
          lsbl_Node := fwlxTreeView.Items[0];
          while lsbl_Node.HasChildren do
            begin
              lsbl_Node := lsbl_Node.getFirstChild
            end;
        end;
      lsbl_Node.Selected := True;
      lsbl_Node := nil;
      lsbl_Node.free;
    end;
end;

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

procedure Tfrmfwlxxz.fwlxTreeViewDblClick(Sender: TObject);
var
  lsbl_select, lsbl_bmbh, lsbl_bmbh2: string;
  lsbl_x, lsbl_bmjb, lsbl_pos: Integer;
  lsbl_node: TTreeNode;
begin
  if fwlxTreeView.Selected <> nil then
    begin
      if fwlxTreeView.Selected.HasChildren <> True then
        begin
          lsbl_bmjb := fwlxTreeView.Selected.Level;
          lsbl_select := Trim(fwlxTreeView.Selected.Text);
          lsbl_node := fwlxTreeView.Selected;
          lsbl_pos := Pos(' ', lsbl_select);
          lsbl_bmbh := Copy(lsbl_select, 1, lsbl_pos - 1);
          selecttext2 := 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;
          selecttext1 := lsbl_bmbh;
          lsbl_node := nil;
          lsbl_node.Free;
          Close;
        end;
    end;
  lsbl_node := nil;
  lsbl_node.Free;
end;

procedure Tfrmfwlxxz.ButtonOkClick(Sender: TObject);
begin
  fwlxTreeView.OnDblClick(Sender);
end;

end.