dqcx.pas

服务信息管理系统

unit dqcx;

interface

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

type
  Tfrmdqcx = class(TForm)
    DqcxTreeView: TTreeView;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    LbSpeedButton1: TLbSpeedButton;
    LbSpeedButton2: TLbSpeedButton;
    StatusBar1: TStatusBar;
    DqcxQuery: TQuery;
    ImageList1: TImageList;
    CzEdit: TTDSuperEdit;
    procedure LbSpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DqcxTreeViewDblClick(Sender: TObject);
    procedure LbSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdqcx: Tfrmdqcx;

implementation
uses khzlbj;
{$R *.dfm}

procedure Tfrmdqcx.LbSpeedButton2Click(Sender: TObject);
begin
  Close;
end;

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

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

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

procedure Tfrmdqcx.DqcxTreeViewDblClick(Sender: TObject);
var
  lsbl_select, lsbl_dqbh, lsbl_dqbh2: string;
  lsbl_x, lsbl_dqjb, lsbl_pos: Integer;
  lsbl_node: TTreeNode;
begin
  if DqcxTreeView.Selected <> nil then
    begin
      lsbl_dqjb := DqcxTreeView.Selected.Level;
      lsbl_select := Trim(DqcxTreeView.Selected.Text);
      lsbl_node := DqcxTreeView.Selected;
      lsbl_pos := Pos(' ', lsbl_select);
      khxx_dqmc := Copy(lsbl_select, lsbl_pos + 1, length(lsbl_select));
      lsbl_dqbh := Copy(lsbl_select, 1, lsbl_pos - 1);
      for lsbl_x := 0 to lsbl_dqjb - 1 do
        begin
          lsbl_dqbh2 := Trim(lsbl_node.Parent.Text);
          lsbl_pos := Pos(' ', lsbl_dqbh2);
          lsbl_dqbh2 := Copy(lsbl_dqbh2, 1, lsbl_pos - 1);
          lsbl_dqbh := lsbl_dqbh2 + lsbl_dqbh;
          lsbl_node := lsbl_node.Parent;
        end;
      khxx_dqbh := lsbl_dqbh; //当前选中地区的编号
      frmkhzlbj.DqEdit.Text := khxx_dqmc;
      Close;
    end;
end;

procedure Tfrmdqcx.LbSpeedButton1Click(Sender: TObject);
begin
  DqcxTreeView.OnDblClick(Sender);
end;

end.