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

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

Delphi控件源码

开发平台：

Delphi

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