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

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

Delphi控件源码

开发平台：

Delphi

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