开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
sz_ajlbs.pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：18k
源码类别：

Delphi控件源码

开发平台：

Delphi

sz_ajlbs.pas：源码内容
  1. unit sz_ajlbs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Menus, ActnList, DB, XPBarMenu, Grids, DBGridEh, StdCtrls, Mask,
  8.   DBCtrls,  ComCtrls, ExtCtrls, ToolWin, DBCtrlsEh,
  9.   DBLookupEh, DBClient;
  11. type
  12.   Tsz_ajlb = class(TForm)
  13.     CoolBar1: TCoolBar;
  14.     ToolBar1: TToolBar;
  15.     add1: TToolButton;
  16.     xiugai: TToolButton;
  17.     dele1: TToolButton;
  18.     save1: TToolButton;
  19.     Refresh1: TToolButton;
  20.     ToolButton3: TToolButton;
  21.     Panel1: TPanel;
  22.     Splitter1: TSplitter;
  23.     Panel2: TPanel;
  24.     Tree: TTreeView;
  25.     Panel3: TPanel;
  26.     Splitter2: TSplitter;
  27.     Panel4: TPanel;
  28.     Label8: TLabel;
  29.     Label9: TLabel;
  30.     Label10: TLabel;
  31.     Label1: TLabel;
  32.     Label2: TLabel;
  33.     Label3: TLabel;
  34.     Label4: TLabel;
  35.     Edit1: TEdit;
  36.     Panel5: TPanel;
  37.     GroupBox2: TGroupBox;
  38.     DBGridEh1: TDBGridEh;
  39.     XPBarMenu1: TXPBarMenu;
  40.     ActionList1: TActionList;
  41.     Add: TAction;
  42.     Edit: TAction;
  43.     Delete: TAction;
  44.     Save: TAction;
  45.     Refresh: TAction;
  46.     Print: TAction;
  47.     Quit: TAction;
  48.     PopupMenu1: TPopupMenu;
  49.     A1: TMenuItem;
  50.     D1: TMenuItem;
  51.     E1: TMenuItem;
  52.     N5: TMenuItem;
  53.     N6: TMenuItem;
  54.     Label5: TLabel;
  55.     ajlb: TDataSource;
  56.     Label6: TLabel;
  57.     sz_qz: TDataSource;
  58.     sz_xtajlb: TDataSource;
  59.     DBEdit1: TDBEdit;
  60.     DBEdit2: TDBEdit;
  61.     DBEdit3: TDBEdit;
  62.     DBEdit4: TDBEdit;
  63.     DBLookupComboBox1: TDBLookupComboBox;
  64.     procedure QuitExecute(Sender: TObject);
  65.     procedure N5Click(Sender: TObject);
  66.     procedure N6Click(Sender: TObject);
  67.     procedure AddExecute(Sender: TObject);
  68.     procedure EditExecute(Sender: TObject);
  69.     procedure DeleteExecute(Sender: TObject);
  70.     procedure SaveExecute(Sender: TObject);
  71.     procedure RefreshExecute(Sender: TObject);
  72.     procedure FormCreate(Sender: TObject);
  73.     procedure TreeClick(Sender: TObject);
  74.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  75.     procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
  76.     procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  77.     procedure DBGridEh1CellClick(Column: TColumnEh);
  78.     procedure TreeChange(Sender: TObject; Node: TTreeNode);
  79.   private
  80.     { Private declarations }
  81.   public
  82.     { Public declarations }
  83.     procedure BtnState();//增，改时的按钮变化
  84.     procedure SaveData(TreeView:TtreeView;dbedit1,dbedit2,dbedit4:Tdbedit);//保存数据
  85.     procedure loadTree1(treeDb1,treeDb2:TClientDataSet);//初始化树
  86.   end;
  88. var
  89.   sz_ajlb: Tsz_ajlb;
  90.   gnode:TtreeNode;//当前节点
  91.   lbjs_sm1,lbjs_sm2:string;//类别级数
  92.   lb_dmgz1,lb_dmgz2:string;//代码规则
  93.   dsState:string;//增删改的状态
  94. implementation
  95. uses dms,u_public;
  96. {$R *.dfm}
  97. procedure Tsz_ajlb.BtnState();
  98. begin
  99.   if add1.Enabled=true or xiugai.Enabled=true then
  100.   begin
  101.     add1.Enabled:=false;A1.Enabled:=false;
  102.     xiugai.Enabled:=false;E1.Enabled:=false;
  103.     dele1.Enabled:=false;D1.Enabled:=false;
  104.     save1.Enabled:=true;
  105.     //refresh1.Enabled:=false;
  106.   end
  107.   else
  108.   begin
  109.     add1.Enabled:=true;A1.Enabled:=true;
  110.     xiugai.Enabled:=true;E1.Enabled:=true;
  111.     dele1.Enabled:=true;D1.Enabled:=true;
  112.     save1.Enabled:=false;
  113.     refresh1.Enabled:=true;
  114.   end;
  115. end;
  116. //***********************************************
  117. procedure Tsz_ajlb.SaveData(TreeView:TtreeView;dbedit1,dbedit2,dbedit4:Tdbedit);//保存数据
  118. var
  119.   curnode:TTreenode;//已选树节点
  120.   s_xtdm,Pnodetxt,Pnodetxt2,nodetxt:string;//Pnodetxt:取出树上级节点节点的代码；nodetxt:要在树节点上增加的值
  121.   n,n_xtdm:integer;//取出'-'在已选树节点中的位置
  122.   s_dm:string;
  123. begin
  124.    dm.sz_ajlb.edit;
  125.    n:=pos('-',TreeView.Selected.Text)-1;
  126.    Pnodetxt:=copy(TreeView.Selected.Text,1,n);
  127.    //查找当前节点
  128.    n_xtdm:=StrToInt(copy(lbjs_sm2,1,1));
  129.    s_xtdm:=copy(tree.Selected.Text,1,n_xtdm);
  130.    nodetxt:=Pnodetxt+dbedit1.Text+'-'+dbedit2.Text;//现在节点等于原来的加上现在的
  131.    s_dm:=PnodeTxt+dbedit1.Text;
  132.    //增加数据到节点
  133.    dm.sz_ajlb.FieldByName('ajlb_dm').AsString:=s_dm;
  134.    //dm.sz_ajlb.FieldByName('ajlb_mc').AsString:=dbedit2.Text;
  135.    dm.sz_ajlb.FieldByName('ajlb_js').AsInteger:=tree.Selected.Level;
  136.    //dm.sz_ajlb.FieldByName('ajlb_sm').AsString:=dbEdit4.Text;
  137.    dm.sz_ajlb.FieldByName('ajlb_sjlbdm').AsString:=Pnodetxt;
  138.    dm.sz_ajlb.FieldByName('qz_dm').AsString:=s_xtdm;//将一级表的代码赋给二级表
  139.    //dm.sz_ajlb.FieldByName('xt_dm').AsString:=dbLookupcomboboxeh1.DataField;
  140.    //给数组赋值
  141.    dm.sz_ajlb.ApplyUpdates(0);
  142.    if dm.sz_ajlb.ApplyUpdates(0)=0 then
  143.    begin
  144.       application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  145.       curnode:=TreeView.Items.AddChild(tree.Selected,nodetxt);//增加新的节点
  146.       curnode.ImageIndex:=0;
  147.       curnode.SelectedIndex:=1;
  148.    //-------按钮状态
  149.    end
  150.    else
  151.       application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  152. end;
  153. //**************************************************
  154. procedure Tsz_ajlb.loadTree1(treeDb1,treeDb2:TClientDataSet);//初始化树
  155. var
  156.   nodeId1,nodeTxt1,nodeId2,nodeTxt2:string;
  157.   SCodeFormat1,SCodeFormat2,SFirstNodeTxt:string;
  158.   level1,level2:integer;
  159.   mynode:array[0..6] of Ttreenode;
  160.   i,j:integer;//循环标志
  161. begin
  162.    //初始化变量
  163.    SCodeFormat1:=lbjs_sm1 ;//系统案卷类别代码结构
  164.    SCodeFormat2:=lbjs_sm2;//文件类别代码结构
  165.    SFirstNodeTxt:= '案卷类别';//首节点显示的文字
  166.    Screen.Cursor:=crHourGlass;
  167.    Tree.enabled:=true;
  168.    Tree.Items.Clear;
  169.    level1:=0;
  170.    //设置根节点
  171.  mynode[level1]:=Tree.Items.Add(Tree.TopItem,SFirstNodeTxt);
  172.  mynode[level1].ImageIndex:=0;
  173.  mynode[level1].SelectedIndex:=1;
  174.  //遍历数据表，利用编码字段记录排序规律，依次添加树节点
  175.   for i:=0 to treedb1.RecordCount-1 do
  176.   begin
  177.     nodeId1:=trim(treedb1.fieldbyname('qz_dm').AsString);
  178.     nodeTxt1:=nodeId1+'-'+trim(treedb1.fieldbyname('qz_mc').AsString);
  179.     level1:=GetNodeLevel(SCodeFormat1,nodeId1);//获得节点层树
  180.     if level1>0 then
  181.      begin
  182.        mynode[level1]:=tree.Items.AddChild(mynode[level1-1],nodeTxt1);
  183.        mynode[level1].ImageIndex:=0;
  184.        mynode[level1].SelectedIndex:=1;
  185.       //----------
  186.      end;
  187.   //增加第一层主表
  188.      treedb2.close;
  189.      treedb2.commandtext:='select * from sz_ajlb where qz_dm='+''''+nodeId1+''''+'';
  190.      treedb2.open;
  191.      if trim(treedb2.FieldByName('qz_dm').AsString)<>'' then
  192.       begin
  193.        for j:=0 to treedb2.recordcount-1 do
  194.        begin
  195.            nodeId2:=trim(treedb2.fieldbyname('ajlb_dm').asstring);
  196.            nodeTxt2:=NodeId2+'-'+trim(treedb2.fieldbyname('ajlb_mc').asstring);
  197.            level2:=getNodeLevel(SCodeFormat2,nodeId2);//从表的层数
  198.           if level2>1 then
  199.            begin
  200.              mynode[level2]:=tree.Items.AddChild(mynode[level2-1],nodeTxt2);
  201.              mynode[level2].ImageIndex:=0;
  202.              mynode[level2].SelectedIndex:=1;
  203.            end;
  204.          treedb2.Next;
  205.        end;
  206.        end
  207.        else
  208.           treedb2.Next;//不是符合条件的纪录
  209.     treedb1.Next;//下一条纪录
  210.   end;//end for
  211.   mynode[0].Expand(false);
  212.   screen.Cursor:=crdefault;
  213. end;
  214. //**************************************************************
  216. procedure Tsz_ajlb.QuitExecute(Sender: TObject);
  217. begin
  218.   close;
  219. end;
  221. procedure Tsz_ajlb.N5Click(Sender: TObject);
  222. begin
  223.  tree.Selected.Expand(true);
  224. end;
  226. procedure Tsz_ajlb.N6Click(Sender: TObject);
  227. begin
  228.   tree.Selected.Collapse(true);
  229. end;
  231. procedure Tsz_ajlb.AddExecute(Sender: TObject);
  232. begin
  233.  if tree.Selected=nil then  exit//为空退出
  234.   else
  235.     //dm.sz_ajlb.Close;
  236.     //dm.sz_ajlb.CommandText:='select * from sz_ajlb where ajlb_dm='+''''+''+''''+'';
  237.     //dm.sz_ajlb.Open;//增加
  238.    dm.sz_ajlb.Append;
  239.   if tree.Selected.level=length(trim(lbjs_sm2)) then
  240.   begin
  241.      application.MessageBox('已经到达最底层的节点'+#13#10+'不能再增加','提示',mb_ok+mb_iconinformation);
  242.      exit;
  243.   end;
  244.   dbedit1.SetFocus;
  245.   dbedit3.Text:=inttostr(tree.Selected.level);
  246.   BtnState();//调用按钮的状态参数
  247.   dsState:='add';
  248. end;
  250. procedure Tsz_ajlb.EditExecute(Sender: TObject);
  251. var s1,s2:string;
  252.     Epos:integer;
  253. begin
  254.    if tree.selected=nil then
  255.       exit
  256.     else
  257.    if tree.Items.Count<>0 then
  258.    if Tree.Items[0].HasChildren<>false then
  259.    begin
  260.        BtnState();//调用按钮的状态参数
  261.        s1:=Tree.Selected.Text;
  262.        Epos:=pos('-',s1);//取得'-'在节点名中的位置
  263.        s2:=copy(s1,0,Epos-1);//
  264.        dm.sz_ajlb.Close;
  265.        dm.sz_ajlb.CommandText:='select * from sz_ajlb where ajlb_dm='+''''+s2+''''+'';
  266.        dm.sz_ajlb.Open;
  267.        //dbedit1.Text:=dm.sz_ajlb.fieldbyname('ajlb_dm').AsString;
  268.        Dbedit1.Enabled:=false;
  269.        DBEdit1.Color:=cl3DLight;
  270.        dm.sz_ajlb.edit;
  271.        add1.Enabled:=false;xiugai.Enabled:=false;dele1.Enabled:=false;
  272.        save.Enabled:=true;A1.Enabled:=false;E1.Enabled:=false;D1.Enabled:=false;
  273.    end
  274.    else
  275.    begin
  276.       application.MessageBox('当前表中没有数据，不能修改','提示',mb_ok+mb_iconinformation);
  277.       exit;
  278.    end;
  279. end;
  281. procedure Tsz_ajlb.DeleteExecute(Sender: TObject);
  282. var
  283.    epos:integer;
  284.    s1,s2:string;
  285. begin
  286.   if tree.Selected=nil then  exit
  287.   else if tree.Selected.Level=1 then exit
  288.   else if tree.Selected.HasChildren=true then
  289.     begin
  290.      application.messagebox('该部门包含下级，不能删除','提示',MB_OKCANCEL+mb_iconinformation );
  291.     end
  292.     else
  293.     begin
  294.      if application.messagebox('你确实要删除当前纪录吗?','提示',MB_OKCANCEL+mb_iconinformation )=IDOK then
  295.      begin
  296.        s1:=Tree.Selected.Text;
  297.        Epos:=pos('-',s1);//取得'-'在节点名中的位置
  298.        s2:=copy(s1,0,Epos-1);//
  299.        tree.Selected.Delete;//删除树形表中数据
  300.        dm.sz_ajlb.Close;
  301.        dm.sz_ajlb.CommandText:='delete  from sz_ajlb where ajlb_dm='+''''+s2+''''+'';
  302.        dm.sz_ajlb.execute;
  303.        dm.sz_ajlb.Close;
  304.        dm.sz_ajlb.CommandText:='select * from sz_ajlb';
  305.        dm.sz_ajlb.Open;
  306.        refresh.Execute;
  307.        //删除表中数据
  308.      end;
  309.    end;
  310. end;
  312. procedure Tsz_ajlb.SaveExecute(Sender: TObject);
  313. var
  314.   yanzheng:string;//yangzheng查找数据库中是否有重复记录存在
  315.   i:integer;
  316.   hint:string;
  317.   s1,s2:string;
  318.   Epos:integer;
  319. begin
  320.   if dbedit1.Text='' then
  321.    begin
  322.        application.MessageBox('文件类别代码不能为空','提示',mb_ok+mb_iconinformation);
  323.        exit;
  324.    end;
  325.   if dbedit2.Text='' then
  326.    begin
  327.       application.MessageBox('文件类别名称不能为空','提示',mb_ok+mb_iconinformation);
  328.       exit;
  329.    end;
  330.   //-----------------------------------
  331.  //判断是增加还是修改*****************************************************
  332.   if dbedit1.Enabled=true then
  333.    begin
  334.      if tree.Selected.Level=length(lbjs_sm2) then
  335.       begin
  336.         application.MessageBox('已经到达最底层节点'+#13#10+'不能增加','提示',mb_ok+mb_iconinformation);
  337.         exit;
  338.       end  else
  339.       for i:=0 to tree.Selected.Level do
  340.        begin
  341.          if tree.Selected.Level=i then
  342.           begin//&&&&
  343.                if length(dbedit1.Text)<>strtoInt(copy(lbjs_sm2,i+1,1)) then
  344.                begin
  345.                  hint:='请输入'+copy(lbjs_sm2,i+1,1)+'位代码';
  346.                  application.MessageBox(Pchar(hint),'提示',mb_okcancel+mb_iconinformation);
  347.                  exit;
  348.                end
  349.              else//
  350.                begin
  351.                  {s1:=Tree.Selected.Text;
  352.                  Epos:=pos('-',s1);//取得'-'在节点名中的位置
  353.                  s2:=copy(s1,0,Epos-1);//
  354.                  yanzheng:=s2+dbedit1.Text;
  355.                  dm.sz_ajlb.Close;
  356.                  dm.sz_ajlb.CommandText:='select * from sz_ajlb where ajlb_dm='+''''+yanzheng+''''+'';
  357.                  dm.sz_ajlb.Open;
  358.                 if dm.sz_ajlb.FieldByName('ajlb_dm').AsString<>'' then
  359.                 begin
  360.                    application.MessageBox('已经有重复纪录存在','提示',mb_ok+mb_iconinformation);
  361.                    BtnState();
  362.                    exit;
  363.                 end
  364.                 else}
  365.                 begin
  366.                    SaveData(tree,dbedit1,dbedit2,dbedit4);//调用保存过程
  367.                    //refresh.Execute;
  368.                    BtnState();//调用按钮的状态参数
  369.                    break;//成功则退出循环
  370.                 end;
  371.              end;//end if 0
  372.           end//&&&&
  373.           else continue;
  374.        end;//end for
  375.    end//end 结束增加
  376.    else
  377.     begin //修改后的情况
  378.       dm.sz_ajlb.Edit;
  379.       Tree.Selected.EditText;//修改节点
  380.       Tree.Selected.Text:=Dbedit1.text+'-'+DbEdit2.Text;
  381.       tree.Selected.ImageIndex:=0;
  382.       tree.Selected.SelectedIndex:=1;
  383.       //增加数据到节点
  384.       dm.sz_ajlb.FieldByName('ajlb_dm').AsString:=dbedit1.Text;
  385.       dm.sz_ajlb.FieldByName('ajlb_mc').AsString:=dbedit2.Text;
  386.       dm.sz_ajlb.FieldByName('ajlb_js').AsInteger:=StrToInt(dbedit3.text);
  387.       dm.sz_ajlb.FieldByName('ajlb_sm').AsString:=dbEdit4.Text;
  388.       //给数组赋值
  389.        dm.sz_ajlb.ApplyUpdates(0);
  390.        application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  391.        BtnState();
  392.        dbedit1.Enabled:=true;
  393.        dbedit1.Color:=clwindow;
  394.     end;
  395. end;
  398. procedure Tsz_ajlb.RefreshExecute(Sender: TObject);
  399. begin
  400.   dm.sz_ajlb.close;
  401.   dm.sz_ajlb.CommandText:='select * from sz_ajlb';
  402.   dm.sz_ajlb.Open;
  403.   if dm.sz_ajlb.RecordCount<>0 then
  404.    begin
  405.      Add1.Enabled:=true;xiugai.Enabled:=true;dele1.Enabled:=true;
  406.      A1.Enabled:=true;E1.Enabled:=true;D1.Enabled:=true;save.Enabled:=false;
  407.    end
  408.   else
  409.    begin
  410.      Add1.Enabled:=true;xiugai.Enabled:=false;dele1.Enabled:=false;
  411.      A1.Enabled:=true;E1.Enabled:=false;D1.Enabled:=false;save.Enabled:=false;
  412.    end;
  413. end;
  415. procedure Tsz_ajlb.FormCreate(Sender: TObject);
  416. begin
  417.   dm.sz_qz.Close;
  418.   dm.sz_qz.CommandText:='select * from sz_qz';
  419.   dm.sz_qz.Open;
  420.   dm.sz_ajlb.Close;
  421.   dm.sz_ajlb.CommandText:='Select * from sz_ajlb';
  422.   dm.sz_ajlb.Open;
  423.   //设立主从表关系
  424.   //dm.sz_ajlb.MasterSource:=sz_qz;
  425.   //dm.sz_ajlb.MasterFields:='qz_dm';
  426.   //dm.sz_ajlb.MasterSource:=sz_xtajlb;
  427.   //dm.sz_ajlb.MasterFields:='xt_dm';
  428.   dm.sz_xtajlb.close;
  429.   dm.sz_xtajlb.CommandText:='select * from sz_xtajlb';
  430.   dm.sz_xtajlb.Open;
  431.   //刷新两个表
  432.   dm.xt_lbjs.Close;
  433.   dm.xt_lbjs.CommandText:='select * from xt_lbjs where lb_dm='+''''+'sz_qz'+''''+'';
  434.   dm.xt_lbjs.Open;
  435.   lbjs_sm1:=dm.xt_lbjs.fieldbyname('lbjs_sm').AsString;
  436.   //调出主表的编码规则
  437.   dm.xt_lbjs.Close;
  438.   dm.xt_lbjs.CommandText:='select * from xt_lbjs where lb_dm='+''''+'sz_ajlb'+''''+'';
  439.   dm.xt_lbjs.Open;
  440.   lbjs_sm2:=dm.xt_lbjs.fieldbyname('lbjs_sm').asstring;
  441.    //调出二级表的编码规则
  442.   loadtree1(dm.sz_qz,dm.sz_ajlb);
  443.   //调用系统案卷类别表
  444.   dm.sz_qz.Close;
  445.   dm.sz_qz.CommandText:='select * from sz_qz';
  446.   dm.sz_qz.Open;
  447.   dm.sz_ajlb.Close;
  448.   dm.sz_ajlb.CommandText:='Select * from sz_ajlb';
  449.   dm.sz_ajlb.Open;
  450.   //刷新两个表
  451.   dm.xt_lbjs.Close;
  452.   dm.xt_lbjs.CommandText:='select * from xt_lbjs where lb_dm='+''''+'sz_ajlb'+''''+'';
  453.   dm.xt_lbjs.Open;
  454.   lb_dmgz2:=dm.xt_lbjs.fieldbyname('lb_dmgz').AsString;
  455.   //调用文件类别表
  456.   edit1.Text:=lb_dmgz2;
  457. end;
  459. procedure Tsz_ajlb.TreeClick(Sender: TObject);
  460. var
  461.    s1,s2:string;
  462.    i,Epos:integer;
  463. begin
  464.   if tree.selected=nil then
  465.      exit
  466.   else if tree.Selected.Level=1 then
  467.   begin
  468.      dele1.Enabled:=false;D1.Enabled:=false;
  469.      xiugai.Enabled:=false;E1.Enabled:=false;
  470.      add1.Enabled:=true;A1.Enabled:=true;
  471.   end else if tree.Selected.Level=0 then
  472.   begin
  473.      dele1.Enabled:=false;D1.Enabled:=false;
  474.      xiugai.Enabled:=false;E1.Enabled:=false;
  475.      add1.Enabled:=false;A1.Enabled:=false;
  476.      save1.Enabled:=false;
  477.   end else
  478.   begin
  479.     add1.Enabled:=true;A1.Enabled:=true;
  480.     dele1.Enabled:=true;D1.Enabled:=true;
  481.     xiugai.Enabled:=true;E1.Enabled:=true;
  482.   end;
  483.  if Tree.Items[0].HasChildren<>false then
  484.  begin   //选中和不选中的图片显示
  485.      for i:=0 to Tree.items.count-1 do
  486.     begin
  487.       Tree.Items[i].ImageIndex:=0;
  488.       Tree.Items[i].SelectedIndex:=1;
  489.       s1:=Tree.Selected.Text;
  490.       Epos:=pos('-',s1);
  491.       s2:=copy(s1,0,Epos-1);
  492.       dm.sz_ajlb.Close;
  493.       dm.sz_ajlb.CommandText:='select * from sz_ajlb where ajlb_dm='+''''+s2+''''+'';
  494.       dm.sz_ajlb.Open;
  495.       dbedit1.Text:=dm.sz_ajlb.fieldbyname('ajlb_dm').AsString;
  496.       dbedit2.Text:=dm.sz_ajlb.fieldbyname('ajlb_mc').AsString;
  497.       dbedit3.Text:=dm.sz_ajlb.fieldbyname('ajlb_js').AsString;
  498.       dbedit4.Text:=dm.sz_ajlb.fieldbyname('ajlb_sm').AsString;
  499.     end;
  500.  end;
  501. end;
  502.                                                              
  503. procedure Tsz_ajlb.FormClose(Sender: TObject; var Action: TCloseAction);
  504. begin
  505.   dm.sz_qz.Active:=false;
  506.   dm.sz_ajlb.Active:=false;
  507.   dm.sz_xtajlb.Active:=false;
  508.   tree.Free;
  509.   action:=cafree;
  510.   sz_ajlb:=Nil;
  511. end;
  513. procedure Tsz_ajlb.DBEdit1KeyPress(Sender: TObject; var Key: Char);
  514. begin
  515.   if key=#13 then
  516.   begin
  517.      key:=#0;
  518.      selectNext(activeControl,true,true);
  519.   end;
  520. end;
  522. procedure Tsz_ajlb.DBEdit2KeyPress(Sender: TObject; var Key: Char);
  523. begin
  524.   dbEdit1keyPress(Nil,key);
  525. end;
  527. procedure Tsz_ajlb.DBGridEh1CellClick(Column: TColumnEh);
  528. var
  529.   s1,s2:string;
  530.   i:integer;
  531. begin//--1单击每一行时,使树形控件也变化
  532.   s1:=DBGridEh1.Columns[2].DisplayText;
  533.   s2:=DBGridEh1.Columns[3].DisplayText;
  534.   dm.sz_ajlb.Locate('ajlb_dm','+''''+s1+''''+',[]);
  535.   //过滤要搜索的数据
  536.   //dbedit1.Text:=dm.sz_wjlb.fieldbyname('wjlb_dm').AsString;
  537.   //dbedit2.Text:=dm.sz_wjlb.fieldbyname('wjlb_mc').AsString;
  538.   //dbedit3.Text:=dm.sz_wjlb.fieldbyname('wjlb_js').AsString;
  539.   //dbedit4.Text:=dm.sz_wjlb.fieldbyname('wjlb_sm').AsString;
  540.   if Tree.Items[0].HasChildren<>false then
  541.   begin//end if
  542.     for i:=0 to Tree.items.count-1 do
  543.       if Tree.Items[i].Text=s1+'-'+s2 then
  544.      begin
  545.          Tree.Items[i].Selected:=true;
  546.          break;
  547.      end;//end for
  548.   end;//end if
  549. end;//--1
  551. procedure Tsz_ajlb.TreeChange(Sender: TObject; Node: TTreeNode);
  552. begin
  553.   //BtnState();
  554. end;
  556. end.