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

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

Delphi控件源码

开发平台：

Delphi

Am_gdajs.~pas：源码内容
  1. unit Am_gdajs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, XPBarMenu, DB, Menus, ActnList, Grids, DBGridEh, StdCtrls,
  8.   ComCtrls, ExtCtrls, ToolWin, DBClient, ImgList;
  10. type
  11.   TAm_gdaj = class(TForm)
  12.     CoolBar1: TCoolBar;
  13.     ToolBar1: TToolBar;
  14.     AJCD: TToolButton;
  15.     AJRK: TToolButton;
  16.     AJCK: TToolButton;
  17.     REFRESH1: TToolButton;
  18.     ToolButton3: TToolButton;
  19.     Panel1: TPanel;
  20.     Splitter1: TSplitter;
  21.     Panel2: TPanel;
  22.     Tree: TTreeView;
  23.     Panel3: TPanel;
  24.     Panel4: TPanel;
  25.     GroupBox1: TGroupBox;
  26.     Ds_Ajgl: TDataSource;
  27.     DBGridEh1: TDBGridEh;
  28.     ImageList1: TImageList;
  29.     PopupMenu1: TPopupMenu;
  30.     N_ajcd: TMenuItem;
  31.     N_AJRk: TMenuItem;
  32.     N_ajCk: TMenuItem;
  33.     AJTZH: TToolButton;
  34.     N4: TMenuItem;
  35.     N5: TMenuItem;
  36.     ToolButton1: TToolButton;
  37.     PopupMenu2: TPopupMenu;
  38.     N6: TMenuItem;
  39.     N7: TMenuItem;
  40.     XPBarMenu1: TXPBarMenu;
  41.     ToolButton2: TToolButton;
  42.     procedure QuitExecute(Sender: TObject);
  43.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  44.     procedure TreeClick(Sender: TObject);
  45.     procedure FormCreate(Sender: TObject);
  46.     procedure AJCDClick(Sender: TObject);
  47.     procedure AJCKClick(Sender: TObject);
  48.     procedure AJRKClick(Sender: TObject);
  49.     procedure DBGridEh1DblClick(Sender: TObject);
  50.     procedure AJTZHClick(Sender: TObject);
  51.     procedure DBGridEh1CellClick(Column: TColumnEh);
  52.     procedure N4Click(Sender: TObject);
  53.     procedure N5Click(Sender: TObject);
  54.     procedure N6Click(Sender: TObject);
  55.     procedure N7Click(Sender: TObject);
  56.     procedure N_ajcdClick(Sender: TObject);
  57.     procedure N_AJRkClick(Sender: TObject);
  58.     procedure N_ajCkClick(Sender: TObject);
  59.     procedure ToolButton2Click(Sender: TObject);
  60.     procedure REFRESH1Click(Sender: TObject);
  61.   private
  62.     { Private declarations }
  63.   public
  64.     { Public declarations }
  65.     procedure loadTree1(treeDb1,treeDb2:TClientDataSet);//初始化树
  66.   end;
  68. var
  69.   Am_gdaj: TAm_gdaj;
  70.   gnode:TtreeNode;//当前节点
  71.   lbjs_sm1,lbjs_sm2:string;//类别级数
  72.   lb_dmgz1,lb_dmgz2:string;//代码规则
  73.   dsState:string;//增删改的状态
  74.   s,gdaj_s1,gdaj_s2:string;//s1,s2分别是树节点:文本,代码
  75. implementation
  77. uses DMs, ajgls,u_public, ajgl_bjs, am_ajbj_rks, am_ajyjs,mainfrms,
  78.   am_yjdys, Am_Gdaj_ps, Am_Ajtzs;
  80. {$R *.dfm}
  81. procedure TAm_gdaj.loadTree1(treeDb1,treeDb2:TClientDataSet);//初始化树
  82. var
  83.   nodeId1,nodeTxt1,nodeId2,nodeTxt2:string;
  84.   SCodeFormat1,SCodeFormat2,SFirstNodeTxt:string;
  85.   level1,level2:integer;
  86.   mynode:array[0..6] of Ttreenode;
  87.   i,j:integer;//循环标志
  88. begin
  89.    //初始化变量
  90.    SCodeFormat1:=lbjs_sm1 ;//系统案卷类别代码结构
  91.    SCodeFormat2:=lbjs_sm2;//文件类别代码结构
  92.    SFirstNodeTxt:= '案卷类别';//首节点显示的文字
  93.    Screen.Cursor:=crHourGlass;
  94.    Tree.enabled:=true;
  95.    Tree.Items.Clear;
  96.    level1:=0;
  97.    //设置根节点
  98.  mynode[level1]:=Tree.Items.Add(Tree.TopItem,SFirstNodeTxt);
  99.  mynode[level1].ImageIndex:=0;
  100.  mynode[level1].SelectedIndex:=1;
  101.  //遍历数据表，利用编码字段记录排序规律，依次添加树节点
  102.   for i:=0 to treedb1.RecordCount-1 do
  103.   begin
  104.     nodeId1:=trim(treedb1.fieldbyname('qz_dm').AsString);
  105.     nodeTxt1:=nodeId1+'-'+trim(treedb1.fieldbyname('qz_mc').AsString);
  106.     level1:=GetNodeLevel(SCodeFormat1,nodeId1);//获得节点层树
  107.     if level1>0 then
  108.      begin
  109.        mynode[level1]:=tree.Items.AddChild(mynode[level1-1],nodeTxt1);
  110.        mynode[level1].ImageIndex:=0;
  111.        mynode[level1].SelectedIndex:=1;
  112.       //----------
  113.      end;
  114.   //增加第一层主表
  115.      treedb2.close;
  116.      treedb2.commandtext:='select * from sz_ajlb where qz_dm='+''''+nodeId1+''''+'';
  117.      treedb2.open;
  118.      if trim(treedb2.FieldByName('qz_dm').AsString)<>'' then
  119.       begin
  120.        for j:=0 to treedb2.recordcount-1 do
  121.        begin
  122.            nodeId2:=trim(treedb2.fieldbyname('ajlb_dm').asstring);
  123.            nodeTxt2:=NodeId2+'-'+trim(treedb2.fieldbyname('ajlb_mc').asstring);
  124.            level2:=getNodeLevel(SCodeFormat2,nodeId2);//从表的层数
  125.           if level2>1 then
  126.            begin
  127.              mynode[level2]:=tree.Items.AddChild(mynode[level2-1],nodeTxt2);
  128.              mynode[level2].ImageIndex:=0;
  129.              mynode[level2].SelectedIndex:=1;
  130.            end;
  131.          treedb2.Next;
  132.        end;
  133.        end
  134.        else
  135.           treedb2.Next;//不是符合条件的纪录
  136.     treedb1.Next;//下一条纪录
  137.   end;//end for
  138.   mynode[0].Expand(false);
  139.   screen.Cursor:=crdefault;
  140. end;
  141. //**************************************************************
  142. procedure TAm_gdaj.QuitExecute(Sender: TObject);
  143. begin
  144.   close;
  145. end;
  147. procedure TAm_gdaj.FormClose(Sender: TObject; var Action: TCloseAction);
  148. begin
  149.   dm.V_ajgd.Active:=false;//归档视图
  150.   dm.Am_ajgl.Active:=true;//案卷管理
  151.   dm.sz_bgqx.Active:=true;//保管期限
  152.   dm.sz_mj.active:=true;//密级
  153.   //--------------------
  154.   dm.sz_qz.Active:=false;//全宗
  155.   dm.sz_ajlb.Active:=false;//案卷类别
  156.   //---------------
  157.   dm.sz_xtajlb.Active:=false;//系统案卷类别
  158.   //---------------
  159.   dm.xt_lbjs.Active:=false;//类别级数
  160.   dm.Am_wjgl.active:=false;//文件管理
  161.   dm.V_Wjgl.Active:=false;//文件视图
  162.   dm.sz_ztlb.Active:=false;//载体类别
  163.   dm.sz_wjlb.active:=false;//文件类别
  164.   dm.sz_bm.Active:=false;//部门
  165.   dm.v_ajgd.active:=false;
  166.   action:=cafree;
  167.   am_gdaj:=nil;
  168. end;
  170. procedure TAm_gdaj.TreeClick(Sender: TObject);
  171. var
  172.    i,Epos:integer;
  173. begin
  174.   if tree.selected=nil then
  175.      exit
  176.   else
  177.  if Tree.Items[0].HasChildren<>false then
  178.  begin   //选中和不选中的图片显示
  179.     for i:=0 to Tree.items.count-1 do
  180.     begin
  181.       if tree.Selected.HasChildren then
  182.          exit
  183.       else
  184.          begin
  185.            Tree.Items[i].ImageIndex:=0;
  186.            Tree.Items[i].SelectedIndex:=1;
  187.            gdaj_s1:=Tree.Selected.Text;
  188.            Epos:=pos('-',gdaj_s1);
  189.            gdaj_s2:=copy(gdaj_s1,0,Epos-1);//为选中树节点的代码
  190.            dm.V_AJGD.Active:=true;
  191.            dm.V_ajgd.Close;
  192.            dm.V_ajgd.CommandText:='select * from v_ajgd where ajlb_dm = '+''''+gdaj_s2+''''+'';
  193.            dm.V_ajgd.Open;//查找当前代码
  194.           if dm.V_AJGD.Active then showmessage('true');           
  195.            if dm.V_ajgd.RecordCount<>0 then
  196.             begin
  197.               if dbgrideh1.Columns[0].DisplayText='入库案卷' then
  198.                 begin
  199.                   AJCK.Enabled:=true;N_AJCK.Enabled:=true;
  200.                   ajrk.Enabled:=false;N_ajrk.Enabled:=false;
  201.                   ajcd.Enabled:=false;N_ajcd.Enabled:=false;
  202.                   ajtzh.Enabled:=false;
  203.                   N6.Enabled:=true;
  204.                 end
  205.                 else
  206.                 If dbgrideh1.Columns[0].DisplayText='归档案卷' then
  207.                  begin
  208.                    ajck.Enabled:=false;N_ajck.Enabled:=false;
  209.                    ajrk.Enabled:=true;N_ajrk.Enabled:=true;
  210.                    ajcd.Enabled:=true;N_ajcd.Enabled:=true;
  211.                    ajtzh.Enabled:=true;
  212.                    N6.Enabled:=true;
  213.                  end;//根据表格判断不用刷新数据库
  214.             end//设置按钮的状态
  215.            else
  216.             begin
  217.                AJCK.Enabled:=false;N_ajck.Enabled:=false;
  218.                ajrk.Enabled:=false;N_ajrk.Enabled:=false;
  219.                ajcd.Enabled:=false;N_ajcd.Enabled:=false;
  220.                ajtzh.Enabled:=false;
  221.                N6.Enabled:=false;
  222.             end;
  223.          end;
  224.     end;
  225.  end;
  226. end;
  229. procedure TAm_gdaj.FormCreate(Sender: TObject);
  230. begin
  231.    dm.Am_ajgl.Active:=true;//案卷管理
  232.    dm.sz_bgqx.Active:=true;//保管期限
  233.    dm.sz_mj.active:=true;//密级
  234.    dm.sz_ztlb.Active:=true;//载体类别
  235.    dm.sz_bm.Active:=true;//部门
  236.    dm.sz_kw.Active:=true;//库位
  237.    //-------
  238.    dm.sz_qz.Close;
  239.    dm.sz_qz.CommandText:='select * from sz_qz';
  240.    dm.sz_qz.Open;//全宗
  241.    dm.sz_ajlb.Close;
  242.    dm.sz_ajlb.CommandText:='select * from sz_ajlb';
  243.    dm.sz_ajlb.Open;//案卷类别
  244.    //---------------
  245.    dm.sz_xtajlb.close;
  246.    dm.sz_xtajlb.CommandText:='select * from sz_xtajlb';
  247.    dm.sz_xtajlb.Open;//系统案卷类别
  248.    //刷新两个表
  249.    dm.xt_lbjs.Close;
  250.    dm.xt_lbjs.CommandText:='select * from xt_lbjs where lb_dm='+''''+'sz_qz'+''''+'';
  251.    dm.xt_lbjs.Open;//类别级数
  252.    lbjs_sm1:=dm.xt_lbjs.fieldbyname('lbjs_sm').AsString;
  253.    //调出主表的编码规则
  254.    dm.xt_lbjs.Close;
  255.    dm.xt_lbjs.CommandText:='select * from xt_lbjs where lb_dm='+''''+'sz_ajlb'+''''+'';
  256.    dm.xt_lbjs.Open;
  257.    lbjs_sm2:=dm.xt_lbjs.fieldbyname('lbjs_sm').asstring;
  258.    //调出二级表的编码规则
  259.    loadtree1(dm.sz_qz,dm.sz_ajlb);
  260.    dm.sz_qz.Close;
  261.    dm.sz_qz.CommandText:='select * from sz_qz';
  262.    dm.sz_qz.Open;
  263.    dm.sz_ajlb.Close;
  264.    dm.sz_ajlb.CommandText:='select * from sz_ajlb';
  265.    dm.sz_ajlb.Open;
  266.    //装载树-------------------------------------------
  267.    frm_name:='Am_Gdaj';
  268.    dm.am_yjml.active:=true;//移交目录
  269.    dm.Am_Ajyj.Active:=true;//案卷移交
  270. end;
  272. procedure TAm_gdaj.AJCDClick(Sender: TObject);
  273. var s2:string;
  274. begin
  275.   if DBGrideh1.Columns[0].DisplayText='入库案卷' then
  276.     begin
  277.      AJCD.Enabled:=false;
  278.      exit;
  279.     end;
  280.    s:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  281.    s2:=DM.v_ajgd.fieldbyname('ajlb_dm').AsString;
  282.    dm.V_ajgd.Close;
  283.    dm.V_ajgd.CommandText:='update v_ajgd set ajzt_mc=''案卷'' ,aj_gdjsrq=Null where aj_xh='+''''+s+''''+'';
  284.    dm.V_ajgd.Execute;//对归档案卷进行管理
  285.    dm.V_AJGD.Close;
  286.    dm.v_ajgd.CommandText:='select * from v_Ajgd where ajlb_dm='+''''+s2+''''+'';
  287.    dm.v_ajgd.Open;//案卷归档管理
  288. end;
  290. procedure TAm_gdaj.AJCKClick(Sender: TObject);
  291. var s:string;
  292. begin
  293.   if DBGrideh1.Columns[0].DisplayText='归档案卷' then
  294.     begin
  295.      AJCK.Enabled:=false;
  296.      exit;
  297.     end;
  298.   s:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  299.   dm.V_ajgd.Close;
  300.   dm.V_ajgd.CommandText:='update v_ajgd set ajzt_mc=''归档案卷'',aj_bzjsrq=null,kw_dm=Null where aj_xh='+''''+s+''''+'';
  301.   dm.V_ajgd.Execute;
  302.   dm.V_AJGD.Close;
  303.   dm.v_ajgd.CommandText:='select * from v_Ajgd where ajlb_dm='+''''+gdaj_s2+''''+'';
  304.   dm.v_ajgd.Open;//案卷归档管理
  305. end;
  307. procedure TAm_gdaj.AJRKClick(Sender: TObject);
  308. var zcg_s:string;
  309. begin
  310.  if DBGrideh1.Columns[0].DisplayText='入库案卷' then
  311.     begin
  312.      AJRK.Enabled:=false;
  313.      exit;
  314.     end;
  315.  zcg_s:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  316.  dm.Am_ajgl.Close;
  317.  dm.am_ajgl.CommandText:='select * from am_ajgl where aj_xh='+''''+zcg_s+''''+'';
  318.  dm.Am_ajgl.Open;
  319.   if am_ajgl_rk=Nil then
  320.   begin
  321.      am_ajgl_rk:=Tam_ajgl_rk.create(self);
  322.      am_ajgl_rk.showmodal;
  323.   end;
  324. end;
  326. procedure TAm_gdaj.DBGridEh1DblClick(Sender: TObject);
  327. var zcg_s:string;
  328. begin
  329.  zcg_s:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  330.  dm.Am_ajgl.Close;
  331.  dm.am_ajgl.CommandText:='select * from am_ajgl where aj_xh='+''''+zcg_s+''''+'';
  332.  dm.Am_ajgl.Open;
  333.  if am_ajgl_rk=Nil then
  334.   begin
  335.      am_ajgl_rk:=Tam_ajgl_rk.create(self);
  336.      am_ajgl_rk.DBLookupComboboxEh4.Enabled:=false;
  337.      am_ajgl_rk.DBLookupComboboxEh4.Color:=cl3dLight;
  338.      am_ajgl_rk.Save.Visible:=false;
  339.      am_ajgl_rk.Caption:='案卷浏览';
  340.      am_ajgl_rk.showmodal;
  341.   end;
  342. end;
  344. procedure TAm_gdaj.AJTZHClick(Sender: TObject);
  345. var
  346.   s_xh:string;//序号
  347.   s_dm:string;//代码
  348. begin
  349.  s_xh:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  350.  s_dm:=dm.v_ajgd.fieldbyname('aj_dm').AsString;
  351.  dm.Am_ajgl.Close;
  352.  dm.am_ajgl.CommandText:='select * from am_ajgl where aj_xh='+''''+s_xh+''''+'';
  353.  dm.Am_ajgl.Open;
  354.  if am_ajtz=Nil then
  355.   begin
  356.      am_ajtz:=Tam_ajtz.create(self);
  357.      am_ajtz.DBLookupComboboxEh4.Enabled:=false;
  358.      am_ajtz.DBLookupComboboxEh4.Color:=cl3dLight;
  359.      am_ajtz.DBLookupComboboxEh1.Enabled:=true;
  360.      am_ajtz.DBLookupComboboxEh1.Color:=clWindow;
  361.      am_ajtz.showmodal;
  362.   end;
  363. end;
  365. procedure TAm_gdaj.DBGridEh1CellClick(Column: TColumnEh);
  366. begin
  367.  if dbgrideh1.Columns[0].DisplayText='入库案卷' then
  368.   begin
  369.     AJCK.Enabled:=true;
  370.     ajrk.Enabled:=false;
  371.     ajcd.Enabled:=false;
  372.   end
  373.   else
  374.   If dbgrideh1.Columns[0].DisplayText='归档案卷' then
  375.    begin
  376.      ajck.Enabled:=false;
  377.      ajrk.Enabled:=true;
  378.      ajcd.Enabled:=true;
  379.    end;//根据表格判断不用刷新数据库
  380. end;
  382. procedure TAm_gdaj.N4Click(Sender: TObject);
  383. begin
  384.  tree.Selected.Expand(true);
  385. end;
  387. procedure TAm_gdaj.N5Click(Sender: TObject);
  388. begin
  389.   tree.Selected.Collapse(true);
  390. end;
  392. procedure TAm_gdaj.N6Click(Sender: TObject);
  393. var zcg_s:string;
  394.     r:Trect;
  395. begin
  396.  inherited;
  397.  r:=mainfrm.MdiRect;
  398.  zcg_s:=dm.V_ajgd.fieldbyname('aj_xh').AsString;
  399.  dm.Am_ajgl.Close;
  400.  dm.Am_ajgl.CommandText:='select * from Am_ajgl where aj_xh='+''''+zcg_s+''''+'';
  401.  dm.Am_ajgl.Open;
  402.   if am_ajyj=Nil then
  403.   begin
  404.      am_ajyj:=Tam_ajyj.create(self);
  405.      dm.Am_Ajyj.Append;
  406.      am_ajyj.show;
  407.      am_ajyj.DBEdit8.SetFocus;
  408.      am_ajyj.BoundsRect:=rect(r.left+90,r.top,r.right-r.Left-90,r.bottom-r.Top);
  409.   end;//案卷移交
  410. end; 
  412. procedure TAm_gdaj.N7Click(Sender: TObject);
  413. var r:Trect;
  414. begin
  415.  inherited;
  416.  r:=mainfrm.mdirect;
  417.  if am_yjdy=nil then
  418.  begin
  419.     am_yjdy:=Tam_yjdy.create(self);
  420.     am_yjdy.show;
  421.     am_yjdy.BoundsRect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  422.  end;
  423. end;
  425. procedure TAm_gdaj.N_ajcdClick(Sender: TObject);
  426. begin
  427.  Ajcd.Click;
  428. end;
  430. procedure TAm_gdaj.N_AJRkClick(Sender: TObject);
  431. begin
  432.  ajrk.Click;
  433. end;
  435. procedure TAm_gdaj.N_ajCkClick(Sender: TObject);
  436. begin
  437.  Ajck.Click;
  438. end;
  440. procedure TAm_gdaj.ToolButton2Click(Sender: TObject);
  441. begin
  442.  am_gdaj_P:=Tam_gdaj_P.create(application);
  443.  am_gdaj_P.quickrep1.preview;
  444. end;
  446. procedure TAm_gdaj.REFRESH1Click(Sender: TObject);
  447. begin
  448.  dm.V_AJGD.close;
  449.  dm.V_AJGD.CommandText:='select * from v_gdaj where aj_dm='+''''+gdaj_s2+''''+'';
  450.  dm.v_ajgd.Open;
  451. end;
  453. end.