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

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

Delphi控件源码

开发平台：

Delphi

Am_yljs.pas：源码内容
  1. unit Am_yljs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ImgList, DB, DBClient, XPBarMenu, Grids, DBGrids, StdCtrls,
  8.   ComCtrls, ExtCtrls, ToolWin, Menus, ActnList, DBGridEh;
  10. type
  11.   TAm_ylj = class(TForm)
  12.     CoolBar1: TCoolBar;
  13.     ToolBar1: TToolBar;
  14.     add1: TToolButton;
  15.     dele1: TToolButton;
  16.     YLJ1: TToolButton;
  17.     WJCZ: TToolButton;
  18.     Panel1: TPanel;
  19.     Splitter1: TSplitter;
  20.     Panel2: TPanel;
  21.     Tree: TTreeView;
  22.     Panel3: TPanel;
  23.     Splitter2: TSplitter;
  24.     Panel4: TPanel;
  25.     GroupBox1: TGroupBox;
  26.     Panel5: TPanel;
  27.     GroupBox2: TGroupBox;
  28.     ActionList1: TActionList;
  29.     Add: TAction;
  30.     Edit: TAction;
  31.     Delete: TAction;
  32.     Save: TAction;
  33.     Refresh: TAction;
  34.     Print: TAction;
  35.     Quit: TAction;
  36.     PopupMenu1: TPopupMenu;
  37.     A1: TMenuItem;
  38.     D1: TMenuItem;
  39.     E1: TMenuItem;
  40.     N5: TMenuItem;
  41.     N6: TMenuItem;
  42.     xiugai: TToolButton;
  43.     ToolButton3: TToolButton;
  44.     V_ylj: TDataSource;
  45.     DBGridEh1: TDBGridEh;
  46.     ToolButton1: TToolButton;
  47.     PopupMenu2: TPopupMenu;
  48.     N7: TMenuItem;
  49.     N8: TMenuItem;
  50.     N9: TMenuItem;
  51.     N11: TMenuItem;
  52.     Ds_Wjgl: TDataSource;
  53.     DBGridEh2: TDBGridEh;
  54.     XPBarMenu2: TXPBarMenu;
  55.     ClientDataSet1: TClientDataSet;
  56.     ClientDataSet2: TClientDataSet;
  57.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  58.     procedure AddExecute(Sender: TObject);
  59.     procedure QuitExecute(Sender: TObject);
  60.     procedure FormCreate(Sender: TObject);
  61.     procedure EditExecute(Sender: TObject);
  62.     procedure TreeClick(Sender: TObject);
  63.     procedure RefreshExecute(Sender: TObject);
  64.     procedure DeleteExecute(Sender: TObject);
  65.     procedure N7Click(Sender: TObject);
  66.     procedure N8Click(Sender: TObject);
  67.     procedure DBGridEh1DblClick(Sender: TObject);
  68.     procedure N9Click(Sender: TObject);
  69.     procedure FormShow(Sender: TObject);
  70.     procedure DBGridEh2DblClick(Sender: TObject);
  71.     procedure YLJ1Click(Sender: TObject);
  72.     procedure N5Click(Sender: TObject);
  73.     procedure N6Click(Sender: TObject);
  74.     procedure TreeChange(Sender: TObject; Node: TTreeNode);
  75.   private
  76.     { Private declarations }
  77.   public
  78.     { Public declarations }
  79.     epos1,EPos2,s_ajlb:string;//代码，名称值
  80.     procedure loadTree1(treeDb1,treeDb2:TClientDataSet);//初始化树 
  81.   end;
  83. var
  84.   Am_ylj: TAm_ylj;
  85.   gnode:TtreeNode;//当前节点
  86.   lbjs_sm1,lbjs_sm2:string;//类别级数
  87.   lb_dmgz1,lb_dmgz2:string;//代码规则
  88.   dsState:string;//增删改的状态
  89.   ylj_s1,ylj_s2:string;
  90.   s_ajxh:string;//案卷序号
  91. implementation
  92. uses mainfrms,dms, Am_ylj_bjs,u_public, Am_wjbjs;
  93. {$R *.dfm}
  95. procedure Tam_ylj.loadTree1(treeDb1,treeDb2:TClientDataSet);//初始化树
  96. var
  97.   nodeId1,nodeTxt1,nodeId2,nodeTxt2:string;
  98.   SCodeFormat1,SCodeFormat2,SFirstNodeTxt:string;
  99.   level1,level2:integer;
  100.   mynode:array[0..6] of Ttreenode;
  101.   i,j:integer;//循环标志
  102. begin
  103.    //初始化变量
  104.    SCodeFormat1:=lbjs_sm1 ;//系统案卷类别代码结构
  105.    SCodeFormat2:=lbjs_sm2;//文件类别代码结构
  106.    SFirstNodeTxt:= '案卷类别';//首节点显示的文字
  107.    Screen.Cursor:=crHourGlass;
  108.    Tree.enabled:=true;
  109.    Tree.Items.Clear;
  110.    level1:=0;
  111.    //设置根节点
  112.  mynode[level1]:=Tree.Items.Add(Tree.TopItem,SFirstNodeTxt);
  113.  mynode[level1].ImageIndex:=0;
  114.  mynode[level1].SelectedIndex:=1;
  115.  //遍历数据表，利用编码字段记录排序规律，依次添加树节点
  116.   for i:=0 to treedb1.RecordCount-1 do
  117.   begin
  118.     nodeId1:=trim(treedb1.fieldbyname('qz_dm').AsString);
  119.     nodeTxt1:=nodeId1+'-'+trim(treedb1.fieldbyname('qz_mc').AsString);
  120.     level1:=GetNodeLevel(SCodeFormat1,nodeId1);//获得节点层树
  121.     if level1>0 then
  122.      begin
  123.        mynode[level1]:=tree.Items.AddChild(mynode[level1-1],nodeTxt1);
  124.        mynode[level1].ImageIndex:=0;
  125.        mynode[level1].SelectedIndex:=1;
  126.       //----------
  127.      end;
  128.   //增加第一层主表
  129.      treedb2.close;
  130.      treedb2.commandtext:='select * from sz_ajlb where qz_dm='+''''+nodeId1+''''+'';
  131.      treedb2.open;
  132.      if trim(treedb2.FieldByName('qz_dm').AsString)<>'' then
  133.       begin
  134.        for j:=0 to treedb2.recordcount-1 do
  135.        begin
  136.            nodeId2:=trim(treedb2.fieldbyname('ajlb_dm').asstring);
  137.            nodeTxt2:=NodeId2+'-'+trim(treedb2.fieldbyname('ajlb_mc').asstring);
  138.            level2:=getNodeLevel(SCodeFormat2,nodeId2);//从表的层数
  139.           if level2>1 then
  140.            begin
  141.              mynode[level2]:=tree.Items.AddChild(mynode[level2-1],nodeTxt2);
  142.              mynode[level2].ImageIndex:=0;
  143.              mynode[level2].SelectedIndex:=1;
  144.            end;
  145.          treedb2.Next;
  146.        end;
  147.        end
  148.        else
  149.           treedb2.Next;//不是符合条件的纪录
  150.     treedb1.Next;//下一条纪录
  151.   end;//end for
  152.   mynode[0].Expand(false);
  153.   screen.Cursor:=crdefault;
  154. end;
  155. //**************************************************************
  156. procedure TAm_ylj.FormClose(Sender: TObject; var Action: TCloseAction);
  157. begin
  158.   dm.V_ylj.Active:=false;//预立卷视图
  159.   dm.Am_ajgl.Active:=false;//案卷管理
  160.   dm.sz_bgqx.Active:=false;//保管期限
  161.   dm.sz_mj.active:=false;//密级
  162.   //--------------------
  163.   dm.sz_qz.Active:=false;//全宗
  164.   dm.sz_ajlb.Active:=false;//案卷类别
  165.   //---------------
  166.   dm.sz_xtajlb.Active:=false;//系统案卷类别
  167.   //---------------
  168.   dm.xt_lbjs.Active:=false;//类别级数
  169.   dm.Am_wjgl.active:=false;//文件管理
  170.   dm.V_Wjgl.Active:=false;//文件视图
  171.   dm.sz_ztlb.Active:=false;//载体类别
  172.   dm.sz_wjlb.active:=false;//文件类别
  173.   dm.sz_bm.Active:=false;//部门
  174.   action:=cafree;
  175.   Am_ylj:=nil;
  176. end;
  178. procedure TAm_ylj.AddExecute(Sender: TObject);//增加
  179. var n:integer;
  180. begin
  181.   if      tree.Selected=nil then  exit//为空退出
  182.   else
  183.   if tree.Selected.HasChildren=false then
  184.    begin
  185.      dsState:='add';
  186.      n:=pos('-',tree.selected.Text)-1;
  187.      epos1:=copy(tree.Selected.Text,1,n);//案卷代码
  188.      Epos2:=copy(tree.Selected.Text,n+2,length(tree.Selected.Text));
  189.      if am_ylj_bj=nil then
  190.      begin
  191.        am_ylj_bj:=Tam_ylj_bj.create(application);
  192.        am_ylj_bj.DBEditEh1.Text:=Epos2;
  193.        dm.Am_ajgl.Close;
  194.        dm.am_ajgl.CommandText:='select * from am_ajgl where aj_dm='+''''+''''+'';
  195.        dm.Am_ajgl.Open;
  196.        am_ylj_bj.showmodal;
  197.      end;
  198.    end;//判断是否到达最底层
  199. end;
  201. procedure TAm_ylj.QuitExecute(Sender: TObject);
  202. begin
  203.  close;
  204. end;
  206. procedure TAm_ylj.FormCreate(Sender: TObject);
  207. begin
  208.      dm.Am_ajgl.Active:=true;//案卷管理
  209.      dm.sz_bgqx.Active:=true;//保管期限
  210.      dm.sz_mj.active:=true;//密级
  211.      dm.sz_ztlb.Active:=true;//载体类别
  212.      dm.sz_wjlb.active:=true;//文件类别
  213.      dm.sz_bm.Active:=true;//部门
  214.      //-------
  215.      dm.sz_qz.Close;
  216.      dm.sz_qz.CommandText:='select * from sz_qz';
  217.      dm.sz_qz.Open;//全宗
  218.      dm.sz_ajlb.Close;
  219.      dm.sz_ajlb.CommandText:='select * from sz_ajlb';
  220.      dm.sz_ajlb.Open;//案卷类别
  221.      //---------------
  222.      dm.sz_xtajlb.close;
  223.      dm.sz_xtajlb.CommandText:='select * from sz_xtajlb';
  224.      dm.sz_xtajlb.Open;//系统案卷类别
  225.      //刷新两个表
  226.      dm.xt_lbjs.Close;
  227.      dm.xt_lbjs.CommandText:='select * from xt_lbjs where lb_dm='+''''+'sz_qz'+''''+'';
  228.      dm.xt_lbjs.Open;//类别级数
  229.      lbjs_sm1:=dm.xt_lbjs.fieldbyname('lbjs_sm').AsString;
  230.      //调出主表的编码规则
  231.      dm.xt_lbjs.Close;
  232.      dm.xt_lbjs.CommandText:='select * from xt_lbjs where lb_dm='+''''+'sz_ajlb'+''''+'';
  233.      dm.xt_lbjs.Open;
  234.      lbjs_sm2:=dm.xt_lbjs.fieldbyname('lbjs_sm').asstring;
  235.      //调出二级表的编码规则
  236.      if dm.sz_qz.RecordCount<>0 then
  237.       begin
  238.         loadtree1(dm.sz_qz,dm.sz_ajlb);
  239.         dm.sz_qz.Close;
  240.         dm.sz_qz.CommandText:='select * from sz_qz';
  241.         dm.sz_qz.Open;
  242.         dm.sz_ajlb.Close;
  243.         dm.sz_ajlb.CommandText:='select * from sz_ajlb';
  244.         dm.sz_ajlb.Open;
  245.         //装载树------------------
  246.       end;
  247. end;
  248. //******************************************************************************
  249. procedure TAm_ylj.EditExecute(Sender: TObject);
  250. var s:string;
  251. begin
  252.   s:=dm.V_ylj.fieldbyname('aj_xh').AsString;
  253.   if am_ylj_bj=Nil then
  254.   begin
  255.      dm.Am_ajgl.Close;
  256.      dm.am_ajgl.CommandText:='select * from am_ajgl where aj_xh='+''''+s+''''+'';
  257.      dm.Am_ajgl.Open;
  258.      am_ylj_bj:=Tam_ylj_bj.Create(self);
  259.      am_ylj_bj.ShowModal;
  260.      dm.Am_ajgl.Edit;
  261.   end;
  262. end;
  263. //******************************************************************************
  264. procedure TAm_ylj.TreeClick(Sender: TObject);
  265. var
  266.    i,Epos:integer;
  267.    Level:integer;
  268. begin
  269.  Level:=tree.Selected.Level;
  270.  if tree.selected=nil then
  271.      exit
  272.   else
  273.  if Tree.Items[0].HasChildren<>false then
  274.  begin   //选中和不选中的图片显示
  275.     for i:=0 to Tree.items.count-1 do
  276.     begin
  277.       if tree.Selected.HasChildren then
  278.          exit
  279.       else
  280.         if Level=1 then
  281.             add1.Enabled:=false
  282.         else
  283.          begin
  284.            Tree.Items[i].ImageIndex:=0;
  285.            Tree.Items[i].SelectedIndex:=1;
  286.            tree.Items[i].EndEdit(true) ;
  287.            ylj_s1:=Tree.Selected.Text;
  288.            Epos:=pos('-',ylj_s1);
  289.            ylj_s2:=copy(ylj_s1,0,Epos-1);//案卷类别代码
  290.            dm.V_ylj.Close;
  291.            dm.V_ylj.CommandText:='select * from V_ylj where ajlb_dm='+''''+ylj_s2+''''+'';
  292.            dm.V_ylj.Open;//查询有问题
  293.            dm.Am_wjgl.Close;
  294.            dm.Am_wjgl.CommandText:='select * from am_wjgl';
  295.            dm.Am_wjgl.Open;//文件管理
  296.            dm.V_Wjgl.Close;
  297.            dm.V_Wjgl.CommandText:='select * from v_wjgl';
  298.            dm.V_Wjgl.Open;//文件视图
  299.            dm.V_wjgl.MasterSource:=V_ylj;
  300.            dm.V_wjgl.MasterFields:='aj_xh';//说明当前ylj表中无值
  301.            s_ajxh:=dm.v_ylj.fieldbyname('aj_xh').AsString;
  302.            if dm.V_ylj.RecordCount<>0 then
  303.             begin
  304.               add1.Enabled:=true;A1.Enabled:=true;
  305.               xiugai.Enabled:=true;E1.Enabled:=true;
  306.               dele1.Enabled:=true;D1.Enabled:=true;
  307.               wjcz.Enabled:=true;
  308.               ylj1.Enabled:=true;
  309.             end//设置按钮的状态
  310.             else
  311.             begin
  312.               add1.Enabled:=true;A1.Enabled:=true;
  313.               xiugai.Enabled:=false;E1.Enabled:=false;
  314.               dele1.Enabled:=false;D1.Enabled:=false;
  315.               wjcz.Enabled:=false;
  316.               ylj1.Enabled:=false;
  317.             end;//数据表中无值
  318.          end;
  319.     end;//end for
  320.  end;
  321. end;
  322. //******************************************************************************
  323. procedure TAm_ylj.RefreshExecute(Sender: TObject);
  324. begin
  325.   dm.V_ylj.Close;
  326.   dm.V_ylj.CommandText:='select * from V_ylj where ajlb_dm='+''''+ylj_s2+''''+'';
  327.   dm.V_ylj.Open;//刷新视图
  328.   dm.V_Wjgl.Close;
  329.   dm.V_Wjgl.Close;
  330.   dm.V_Wjgl.CommandText:='select * from v_wjgl';
  331.   dm.V_Wjgl.Open;//文件视图
  332.   dm.V_wjgl.MasterSource:=V_ylj;
  333.   dm.V_wjgl.MasterFields:='aj_xh';//说明当前ylj表中无值
  334. end;
  335. //******************************************************************************
  336. procedure TAm_ylj.DeleteExecute(Sender: TObject);
  337. var
  338.    s:string;
  339. begin
  340.    s:=dm.V_ylj.fieldbyname('aj_xh').AsString;
  341.    if application.MessageBox('您确定要删除吗？','警告',mb_okcancel+mb_iconquestion)=idok then
  342.    begin
  343.      dm.Am_ajgl.Close;
  344.      dm.Am_ajgl.CommandText:='delete from am_ajgl where aj_xh='+''''+s+''''+'';
  345.      dm.Am_ajgl.Execute;
  346.      dm.Am_ajgl.Close;
  347.      dm.Am_ajgl.CommandText:='select * from am_ajgl';
  348.      dm.Am_ajgl.Open;
  349.      dm.V_ylj.Close;
  350.      dm.V_ylj.CommandText:='select * from V_ylj where ajlb_dm='+''''+ylj_s2+''''+'';
  351.      dm.V_ylj.Open;//刷新视图
  352.      If dm.v_ylj.RecordCount=0 then
  353.       begin
  354.         xiugai.Enabled:=false;
  355.         dele1.Enabled:=false;
  356.         Ylj1.Enabled:=false;
  357.         Wjcz.Enabled:=false;
  358.       end
  359.    end else
  360.      exit;
  361. end;
  363. procedure TAm_ylj.N7Click(Sender: TObject);
  364. begin
  365.    if am_ylj_bj=nil then
  366.    begin
  367.      Am_wjgl_bj:=TAm_wjgl_bj.create(application);
  368.      dm.Am_wjgl.Close;
  369.      dm.am_wjgl.CommandText:='select * from am_wjgl where wj_dm='+''''+''''+'';
  370.      dm.Am_wjgl.Open;
  371.      dm.Am_wjgl.Edit;
  372.      Am_wjgl_bj.showmodal;
  373.    end;
  374. end;
  376. procedure TAm_ylj.N8Click(Sender: TObject);
  377. var s:string;
  378. begin
  379.   s:=dm.V_Wjgl.fieldbyname('wj_xh').AsString;
  380.   if am_ylj_bj=Nil then
  381.   begin
  382.      dm.Am_wjgl.Close;
  383.      dm.am_wjgl.CommandText:='select * from am_wjgl where wj_xh='+''''+s+''''+'';
  384.      dm.Am_wjgl.Open;
  385.      am_wjgl_bj:=Tam_wjgl_bj.Create(self);
  386.      am_wjgl_bj.ShowModal;
  387.      dm.Am_wjgl.Edit;
  388.   end;
  389. end;
  391. procedure TAm_ylj.DBGridEh1DblClick(Sender: TObject);
  392. begin
  393.  edit.Execute;//修改
  394. end;
  396. procedure TAm_ylj.N9Click(Sender: TObject);
  397. var
  398.    s:string;
  399. begin
  400.    s:=dm.V_Wjgl.fieldbyname('wj_xh').AsString;
  401.    if application.MessageBox('您确定要删除吗？','警告',mb_okcancel+mb_iconquestion)=idok then
  402.    begin
  403.      dm.Am_wjgl.Close;
  404.      dm.Am_wjgl.CommandText:='delete from am_wjgl where wj_xh='+''''+s+''''+'';
  405.      dm.Am_wjgl.Execute;
  406.      dm.Am_wjgl.Close;
  407.      dm.am_wjgl.CommandText:='select * from am_wjgl';
  408.      dm.Am_wjgl.Open;
  409.      dm.V_Wjgl.Close;
  410.      dm.V_Wjgl.CommandText:='select * from v_Wjgl';
  411.      dm.V_Wjgl.Open;
  412.    end else
  413.      exit;  
  414. end;
  416. procedure TAm_ylj.FormShow(Sender: TObject);
  417. begin
  418.   frm_name:='am_ylj';
  419. end;
  421. procedure TAm_ylj.DBGridEh2DblClick(Sender: TObject);
  422. begin
  423.   n8.Click;
  424. end;
  426. procedure TAm_ylj.YLJ1Click(Sender: TObject);
  427. var s:string;
  428. begin
  429.   s:=dbgrideh1.Fields[0].Text;
  430.   dm.V_ylj.Close;
  431.   dm.V_ylj.CommandText:='update v_ylj set ajzt_mc=''案卷'',aj_bzqsrq=getdate(),aj_gdqsrq=getdate() where aj_xh='+''''+s+''''+'';
  432.   dm.V_ylj.Execute;
  433.   dm.V_ylj.Close;
  434.   dm.V_ylj.CommandText:='select * from v_ylj where ajlb_dm='+''''+ylj_s2+''''+'';
  435.   dm.v_ylj.Open;
  436.   If dm.v_ylj.RecordCount=0 then
  437.    begin
  438.     xiugai.Enabled:=false;
  439.     dele1.Enabled:=false;
  440.     Ylj1.Enabled:=false;
  441.     Wjcz.Enabled:=false;
  442.    end;
  443.   //预立卷归卷
  444.   dm.V_Wjgl.Close;
  445.   dm.V_Wjgl.CommandText:='update V_Wjgl set wj_rq=getdate(),wj_gdrq=getdate() where aj_xh='+''''+s+''''+'';
  446.   dm.V_Wjgl.Execute;
  447.   dm.V_Wjgl.Close;
  448.   dm.V_Wjgl.CommandText:='select * from V_Wjgl where aj_xh='+''''+s+''''+'';
  449.   dm.V_Wjgl.Open;//文件管理
  450. end;
  452. procedure TAm_ylj.N5Click(Sender: TObject);
  453. begin
  454.   tree.Selected.Expand(true);
  455. end;
  457. procedure TAm_ylj.N6Click(Sender: TObject);
  458. begin
  459.   tree.Selected.Collapse(true);
  460. end;
  462. procedure TAm_ylj.TreeChange(Sender: TObject; Node: TTreeNode);
  463. var i:integer;
  464. begin
  465.  for i:=0 to Tree.items.count-1 do
  466.   begin
  467.    if tree.Selected.HasChildren then
  468.     begin
  469.         add1.Enabled:=false;
  470.         xiugai.Enabled:=false;
  471.         dele1.Enabled:=false;
  472.         wjcz.Enabled:=false;
  473.         ylj1.Enabled:=false;
  474.     end
  475.    else if tree.Items[1].Selected then
  476.     begin
  477.         add1.Enabled:=false;
  478.         xiugai.Enabled:=false;
  479.         dele1.Enabled:=false;
  480.         wjcz.Enabled:=false;
  481.         ylj1.Enabled:=false;
  482.     end;
  483.  end;//end for}
  484. end;
  486. end.