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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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.Close;
  191.            dm.V_ajgd.CommandText:='select * from v_ajgd where ajlb_dm = '+''''+gdaj_s2+''''+'';
  192.            dm.V_ajgd.Open;//查找当前代码
  193.           if dm.V_AJGD.Active then showmessage('true');           
  194.            if dm.V_ajgd.RecordCount<>0 then
  195.             begin
  196.               if dbgrideh1.Columns[0].DisplayText='入库案卷' then
  197.                 begin
  198.                   AJCK.Enabled:=true;N_AJCK.Enabled:=true;
  199.                   ajrk.Enabled:=false;N_ajrk.Enabled:=false;
  200.                   ajcd.Enabled:=false;N_ajcd.Enabled:=false;
  201.                   ajtzh.Enabled:=false;
  202.                   N6.Enabled:=true;
  203.                 end
  204.                 else
  205.                 If dbgrideh1.Columns[0].DisplayText='归档案卷' then
  206.                  begin
  207.                    ajck.Enabled:=false;N_ajck.Enabled:=false;
  208.                    ajrk.Enabled:=true;N_ajrk.Enabled:=true;
  209.                    ajcd.Enabled:=true;N_ajcd.Enabled:=true;
  210.                    ajtzh.Enabled:=true;
  211.                    N6.Enabled:=true;
  212.                  end;//根据表格判断不用刷新数据库
  213.             end//设置按钮的状态
  214.            else
  215.             begin
  216.                AJCK.Enabled:=false;N_ajck.Enabled:=false;
  217.                ajrk.Enabled:=false;N_ajrk.Enabled:=false;
  218.                ajcd.Enabled:=false;N_ajcd.Enabled:=false;
  219.                ajtzh.Enabled:=false;
  220.                N6.Enabled:=false;
  221.             end;
  222.          end;
  223.     end;
  224.  end;
  225. end;
  228. procedure TAm_gdaj.FormCreate(Sender: TObject);
  229. begin
  230.    dm.Am_ajgl.Active:=true;//案卷管理
  231.    dm.sz_bgqx.Active:=true;//保管期限
  232.    dm.sz_mj.active:=true;//密级
  233.    dm.sz_ztlb.Active:=true;//载体类别
  234.    dm.sz_bm.Active:=true;//部门
  235.    dm.sz_kw.Active:=true;//库位
  236.    //-------
  237.    dm.sz_qz.Close;
  238.    dm.sz_qz.CommandText:='select * from sz_qz';
  239.    dm.sz_qz.Open;//全宗
  240.    dm.sz_ajlb.Close;
  241.    dm.sz_ajlb.CommandText:='select * from sz_ajlb';
  242.    dm.sz_ajlb.Open;//案卷类别
  243.    //---------------
  244.    dm.sz_xtajlb.close;
  245.    dm.sz_xtajlb.CommandText:='select * from sz_xtajlb';
  246.    dm.sz_xtajlb.Open;//系统案卷类别
  247.    //刷新两个表
  248.    dm.xt_lbjs.Close;
  249.    dm.xt_lbjs.CommandText:='select * from xt_lbjs where lb_dm='+''''+'sz_qz'+''''+'';
  250.    dm.xt_lbjs.Open;//类别级数
  251.    lbjs_sm1:=dm.xt_lbjs.fieldbyname('lbjs_sm').AsString;
  252.    //调出主表的编码规则
  253.    dm.xt_lbjs.Close;
  254.    dm.xt_lbjs.CommandText:='select * from xt_lbjs where lb_dm='+''''+'sz_ajlb'+''''+'';
  255.    dm.xt_lbjs.Open;
  256.    lbjs_sm2:=dm.xt_lbjs.fieldbyname('lbjs_sm').asstring;
  257.    //调出二级表的编码规则
  258.    loadtree1(dm.sz_qz,dm.sz_ajlb);
  259.    dm.sz_qz.Close;
  260.    dm.sz_qz.CommandText:='select * from sz_qz';
  261.    dm.sz_qz.Open;
  262.    dm.sz_ajlb.Close;
  263.    dm.sz_ajlb.CommandText:='select * from sz_ajlb';
  264.    dm.sz_ajlb.Open;
  265.    //装载树-------------------------------------------
  266.    frm_name:='Am_Gdaj';
  267.    dm.am_yjml.active:=true;//移交目录
  268.    dm.Am_Ajyj.Active:=true;//案卷移交
  269. end;
  271. procedure TAm_gdaj.AJCDClick(Sender: TObject);
  272. var s2:string;
  273. begin
  274.   if DBGrideh1.Columns[0].DisplayText='入库案卷' then
  275.     begin
  276.      AJCD.Enabled:=false;
  277.      exit;
  278.     end;
  279.    s:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  280.    s2:=DM.v_ajgd.fieldbyname('ajlb_dm').AsString;
  281.    dm.V_ajgd.Close;
  282.    dm.V_ajgd.CommandText:='update v_ajgd set ajzt_mc=''案卷'' ,aj_gdjsrq=Null where aj_xh='+''''+s+''''+'';
  283.    dm.V_ajgd.Execute;//对归档案卷进行管理
  284.    dm.V_AJGD.Close;
  285.    dm.v_ajgd.CommandText:='select * from v_Ajgd where ajlb_dm='+''''+s2+''''+'';
  286.    dm.v_ajgd.Open;//案卷归档管理
  287. end;
  289. procedure TAm_gdaj.AJCKClick(Sender: TObject);
  290. var s:string;
  291. begin
  292.   if DBGrideh1.Columns[0].DisplayText='归档案卷' then
  293.     begin
  294.      AJCK.Enabled:=false;
  295.      exit;
  296.     end;
  297.   s:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  298.   dm.V_ajgd.Close;
  299.   dm.V_ajgd.CommandText:='update v_ajgd set ajzt_mc=''归档案卷'',aj_bzjsrq=null,kw_dm=Null where aj_xh='+''''+s+''''+'';
  300.   dm.V_ajgd.Execute;
  301.   dm.V_AJGD.Close;
  302.   dm.v_ajgd.CommandText:='select * from v_Ajgd where ajlb_dm='+''''+gdaj_s2+''''+'';
  303.   dm.v_ajgd.Open;//案卷归档管理
  304. end;
  306. procedure TAm_gdaj.AJRKClick(Sender: TObject);
  307. var zcg_s:string;
  308. begin
  309.  if DBGrideh1.Columns[0].DisplayText='入库案卷' then
  310.     begin
  311.      AJRK.Enabled:=false;
  312.      exit;
  313.     end;
  314.  zcg_s:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  315.  dm.Am_ajgl.Close;
  316.  dm.am_ajgl.CommandText:='select * from am_ajgl where aj_xh='+''''+zcg_s+''''+'';
  317.  dm.Am_ajgl.Open;
  318.   if am_ajgl_rk=Nil then
  319.   begin
  320.      am_ajgl_rk:=Tam_ajgl_rk.create(self);
  321.      am_ajgl_rk.showmodal;
  322.   end;
  323. end;
  325. procedure TAm_gdaj.DBGridEh1DblClick(Sender: TObject);
  326. var zcg_s:string;
  327. begin
  328.  zcg_s:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  329.  dm.Am_ajgl.Close;
  330.  dm.am_ajgl.CommandText:='select * from am_ajgl where aj_xh='+''''+zcg_s+''''+'';
  331.  dm.Am_ajgl.Open;
  332.  if am_ajgl_rk=Nil then
  333.   begin
  334.      am_ajgl_rk:=Tam_ajgl_rk.create(self);
  335.      am_ajgl_rk.DBLookupComboboxEh4.Enabled:=false;
  336.      am_ajgl_rk.DBLookupComboboxEh4.Color:=cl3dLight;
  337.      am_ajgl_rk.Save.Visible:=false;
  338.      am_ajgl_rk.Caption:='案卷浏览';
  339.      am_ajgl_rk.showmodal;
  340.   end;
  341. end;
  343. procedure TAm_gdaj.AJTZHClick(Sender: TObject);
  344. var
  345.   s_xh:string;//序号
  346.   s_dm:string;//代码
  347. begin
  348.  s_xh:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  349.  s_dm:=dm.v_ajgd.fieldbyname('aj_dm').AsString;
  350.  dm.Am_ajgl.Close;
  351.  dm.am_ajgl.CommandText:='select * from am_ajgl where aj_xh='+''''+s_xh+''''+'';
  352.  dm.Am_ajgl.Open;
  353.  if am_ajtz=Nil then
  354.   begin
  355.      am_ajtz:=Tam_ajtz.create(self);
  356.      am_ajtz.DBLookupComboboxEh4.Enabled:=false;
  357.      am_ajtz.DBLookupComboboxEh4.Color:=cl3dLight;
  358.      am_ajtz.DBLookupComboboxEh1.Enabled:=true;
  359.      am_ajtz.DBLookupComboboxEh1.Color:=clWindow;
  360.      am_ajtz.showmodal;
  361.   end;
  362. end;
  364. procedure TAm_gdaj.DBGridEh1CellClick(Column: TColumnEh);
  365. begin
  366.  if dbgrideh1.Columns[0].DisplayText='入库案卷' then
  367.   begin
  368.     AJCK.Enabled:=true;
  369.     ajrk.Enabled:=false;
  370.     ajcd.Enabled:=false;
  371.   end
  372.   else
  373.   If dbgrideh1.Columns[0].DisplayText='归档案卷' then
  374.    begin
  375.      ajck.Enabled:=false;
  376.      ajrk.Enabled:=true;
  377.      ajcd.Enabled:=true;
  378.    end;//根据表格判断不用刷新数据库
  379. end;
  381. procedure TAm_gdaj.N4Click(Sender: TObject);
  382. begin
  383.  tree.Selected.Expand(true);
  384. end;
  386. procedure TAm_gdaj.N5Click(Sender: TObject);
  387. begin
  388.   tree.Selected.Collapse(true);
  389. end;
  391. procedure TAm_gdaj.N6Click(Sender: TObject);
  392. var zcg_s:string;
  393.     r:Trect;
  394. begin
  395.  inherited;
  396.  r:=mainfrm.MdiRect;
  397.  zcg_s:=dm.V_ajgd.fieldbyname('aj_xh').AsString;
  398.  dm.Am_ajgl.Close;
  399.  dm.Am_ajgl.CommandText:='select * from Am_ajgl where aj_xh='+''''+zcg_s+''''+'';
  400.  dm.Am_ajgl.Open;
  401.   if am_ajyj=Nil then
  402.   begin
  403.      am_ajyj:=Tam_ajyj.create(self);
  404.      dm.Am_Ajyj.Append;
  405.      am_ajyj.show;
  406.      am_ajyj.DBEdit8.SetFocus;
  407.      am_ajyj.BoundsRect:=rect(r.left+90,r.top,r.right-r.Left-90,r.bottom-r.Top);
  408.   end;//案卷移交
  409. end; 
  411. procedure TAm_gdaj.N7Click(Sender: TObject);
  412. var r:Trect;
  413. begin
  414.  inherited;
  415.  r:=mainfrm.mdirect;
  416.  if am_yjdy=nil then
  417.  begin
  418.     am_yjdy:=Tam_yjdy.create(self);
  419.     am_yjdy.show;
  420.     am_yjdy.BoundsRect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  421.  end;
  422. end;
  424. procedure TAm_gdaj.N_ajcdClick(Sender: TObject);
  425. begin
  426.  Ajcd.Click;
  427. end;
  429. procedure TAm_gdaj.N_AJRkClick(Sender: TObject);
  430. begin
  431.  ajrk.Click;
  432. end;
  434. procedure TAm_gdaj.N_ajCkClick(Sender: TObject);
  435. begin
  436.  Ajck.Click;
  437. end;
  439. procedure TAm_gdaj.ToolButton2Click(Sender: TObject);
  440. begin
  441.  am_gdaj_P:=Tam_gdaj_P.create(application);
  442.  am_gdaj_P.quickrep1.preview;
  443. end;
  445. procedure TAm_gdaj.REFRESH1Click(Sender: TObject);
  446. begin
  447.  dm.V_AJGD.close;
  448.  dm.V_AJGD.CommandText:='select * from v_gdaj where aj_dm='+''''+gdaj_s2+''''+'';
  449.  dm.v_ajgd.Open;
  450. end;
  452. end.