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

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

Delphi控件源码

开发平台：

Delphi

sz_qzs.pas：源码内容
  1. unit sz_qzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, XPBarMenu, Grids, DBGrids, StdCtrls, ComCtrls, ExtCtrls,
  8.   ToolWin, Mask, DBCtrls, ActnList, Menus, DBActns,
  9.   PrnDbgeh, DBGridEh, DBClient, XPMenu;
  11. type
  12.   Tsz_qz = class(TForm)
  13.     CoolBar1: TCoolBar;
  14.     ToolBar1: TToolBar;
  15.     add1: TToolButton;
  16.     ToolButton5: TToolButton;
  17.     ToolButton6: TToolButton;
  18.     ToolButton4: TToolButton;
  19.     Panel1: TPanel;
  20.     Splitter1: TSplitter;
  21.     Panel2: TPanel;
  22.     Tree: TTreeView;
  23.     Panel3: TPanel;
  24.     Splitter2: TSplitter;
  25.     Panel4: TPanel;
  26.     Panel5: TPanel;
  27.     GroupBox2: TGroupBox;
  28.     DataSource1: TDataSource;
  29.     ToolButton3: TToolButton;
  30.     Label1: TLabel;
  31.     DBEdit1: TDBEdit;
  32.     Label2: TLabel;
  33.     DBEdit2: TDBEdit;
  34.     Label3: TLabel;
  35.     DBEdit3: TDBEdit;
  36.     Label4: TLabel;
  37.     DBEdit4: TDBEdit;
  38.     Label5: TLabel;
  39.     DBEdit5: TDBEdit;
  40.     Label6: TLabel;
  41.     DBEdit6: TDBEdit;
  42.     Label7: TLabel;
  43.     DBEdit7: TDBEdit;
  44.     Label8: TLabel;
  45.     Label9: TLabel;
  46.     ActionList1: TActionList;
  47.     Add: TAction;
  48.     Edit: TAction;
  49.     Delete: TAction;
  50.     Refresh: TAction;
  51.     Print: TAction;
  52.     Quit: TAction;
  53.     ToolButton7: TToolButton;
  54.     Save: TAction;
  55.     Edit1: TEdit;
  56.     Label10: TLabel;
  57.     PopupMenu1: TPopupMenu;
  58.     N1: TMenuItem;
  59.     N3: TMenuItem;
  60.     N2: TMenuItem;
  61.     N5: TMenuItem;
  62.     N6: TMenuItem;
  63.     PrintDBGridEh1: TPrintDBGridEh;
  64.     DBGridEh1: TDBGridEh;
  65.     xt_jbls: TDataSource;
  66.     XPBarMenu1: TXPBarMenu;
  67.     procedure ToolButton4Click(Sender: TObject);
  68.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  69.     procedure QuitExecute(Sender: TObject);
  70.     procedure SaveExecute(Sender: TObject);
  71.     procedure FormCreate(Sender: TObject);
  72.     procedure DeleteExecute(Sender: TObject);
  73.     procedure AddExecute(Sender: TObject);
  74.     procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
  75.     procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  76.     procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
  77.     procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
  78.     procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
  79.     procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
  80.     procedure RefreshExecute(Sender: TObject);
  81.     procedure EditExecute(Sender: TObject);
  82.     procedure N5Click(Sender: TObject);
  83.     procedure N6Click(Sender: TObject);
  84.     procedure TreeClick(Sender: TObject);
  85.     procedure DBGridEh1CellClick(Column: TColumnEh);
  86.     procedure PrintExecute(Sender: TObject);
  87.   private
  88.     { Private declarations }
  90.   public
  91.     { Public declarations }
  92.    procedure loadTree(treeDB:TClientDataSet);//初始化树
  93.   end;
  95. var
  96.   sz_qz: Tsz_qz;
  97.    SCodeFormat:string;   //库位代码结构
  98.    lbjs:string;
  99.    SFirstNodeTxt:string;  //首节点显示的文字
  100.    lb_dmgz:string;//代码规则
  101. implementation
  102. uses Dms,mainfrms,U_public;
  103. {$R *.dfm}
  104. //以下过程为装载树
  105. procedure Tsz_qz.loadTree(treeDb:TClientDataSet);//初始化树
  106. var
  107.   nodeId,nodeTxt:string;
  108.   level,chindex,cnode,num:integer;
  109.   mynode:array[0..6] of Ttreenode;
  110. begin
  111.  //初始化变量
  112.    SCodeFormat:=lbjs ;   //库位代码结构
  113.    SFirstNodeTxt:= '库位';  //首节点显示的文字
  114.    Screen.Cursor:=crHourGlass;
  115.    Tree.enabled:=true;
  116.    Tree.Items.Clear;
  117.    level:=0;
  118.    num:=1;
  119.  //设置根节点
  120.  mynode[level]:=Tree.Items.Add(Tree.TopItem,'全宗');
  121.  mynode[level].ImageIndex:=0;
  122.  mynode[level].SelectedIndex:=1;
  123.  //遍历数据表，利用编码字段记录排序规律，依次添加树节点
  124.  with treeDB do
  125.  begin
  126.     try
  127.       if not active then open;
  128.       first;
  129.       while not treedb.Eof do
  130.       begin
  131.         nodeId:=trim(fieldbyname('qz_dm').AsString);
  132.         nodeTxt:=nodeId+'-'+trim(fieldbyname('qz_mc').AsString);
  133.         level:=GetNodeLevel(SCodeFormat,nodeId);//获得节点层树
  134.         //再这里返回代码的层次数
  135.         if level>0 then
  136.         begin
  137.            //增加下一节点时，用添加子节点的方法可以轻松实现节点的层次关系
  138.            //注意，这里的父节点是用当前节点的上一级节点mynode[level-1]
  139.            mynode[level]:=tree.Items.AddChild(mynode[level-1],nodeTxt);
  140.            mynode[level].ImageIndex:=0;
  141.            mynode[level].SelectedIndex:=1;
  142.         end;//end if
  143.       next;//下一条纪录
  144.       end;//end while
  145.     finally;
  146.       close;
  147.     end;
  148.     mynode[0].Expand(false);
  149.     screen.Cursor:=crdefault;
  150.  end;//end with
  151. end;
  152. //--------------------------------装载树
  153. procedure Tsz_qz.ToolButton4Click(Sender: TObject);
  154. begin
  155.  if Tree.Selected.Text='全宗' then
  156.      Tree.Selected.Delete;
  157. end;
  159. procedure Tsz_qz.FormClose(Sender: TObject; var Action: TCloseAction);
  160. begin
  161.   dm.sz_qz.Active:=false;
  162.   dm.xt_lbjs.Active:=false;
  163.   action:=cafree;
  164.   sz_qz:=nil;
  165.   Tree.Free;
  166. end;
  168. procedure Tsz_qz.QuitExecute(Sender: TObject);
  169. begin
  170.  close;
  171. end;
  173. procedure Tsz_qz.SaveExecute(Sender: TObject);
  174. var
  175.   i,j:integer;
  176.   s1,s2:string;
  177.   subnode:TTreenode;//先建立一个TReeview使用的子对象
  178. begin
  179.  i:=length(edit1.Text);//编码规则
  180.  s1:=trim(dbedit1.Text);
  181.  s2:=s1+'-'+trim(dbedit2.Text);
  182.  if length(s1)<> i then
  183.  begin
  184.    application.MessageBox('编码规则不合要求','提示',mb_ok+mb_iconinformation);
  185.    exit;
  186.  end;
  187.  if trim(dbedit1.Text)='' then
  188.  begin
  189.    application.MessageBox('全宗代码不能为空','提示',mb_ok+mb_iconinformation);
  190.    exit;
  191.  end;
  192.   if trim(dbedit1.Text)='' then
  193.  begin
  194.    application.MessageBox('全宗代码不能为空','提示',mb_ok+mb_iconinformation);
  195.    exit;
  196.  end;
  197.  //以上对数据进行有效性验证  
  198.     //-----------------
  199.  dm.sz_qz.ApplyUpdates(0);
  200.  j:=dm.sz_qz.ApplyUpdates(0);
  201.  if j<>0 then
  202.  begin
  203.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  204.     exit;
  205.  end
  206.  else
  207.  begin
  208.     application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  209.     //------------------
  210.     tree.SetFocus;//在根目录下新建一个子标题
  211.     if DbEdit1.Color<>cl3dLight then
  212.     begin
  213.        subnode:=Tree.Items.AddChild(Tree.Items.GetFirstNode,s2);
  214.        //在根节点添加子节点
  215.        subnode.ImageIndex:=0;
  216.        subnode.SelectedIndex:=1;
  217.        //----------------
  218.     end
  219.     else
  220.     begin
  221.       Tree.Selected.EditText;//修改节点
  222.       Tree.Selected.Text:=DbEdit1.Text+'-'+DbEdit2.Text;
  223.     end;
  224.        dm.sz_qz.Close;
  225.        dm.sz_qz.CommandText:='select * from sz_qz';
  226.        dm.sz_qz.Open;
  227.        Dbedit1.Enabled:=true;
  228.        Dbedit1.Color:=clHighlightText;
  229.        add1.Enabled:=true;
  230.        ToolButton4.Enabled:=true;ToolButton5.Enabled:=true;
  231.        ToolButton6.Enabled:=true;ToolButton7.Enabled:=false;
  232.        N2.Enabled:=true;N1.Enabled:=true;N3.Enabled:=true;     
  233.  end;
  234. end;
  236. procedure Tsz_qz.FormCreate(Sender: TObject);
  237. var i:integer;
  238. begin
  239.   Dm.sz_qz.Close;
  240.   dm.sz_qz.CommandText:='select * from sz_qz';
  241.   dm.sz_qz.Open;
  242.   Dm.xt_lbjs.Close;
  243.   Dm.xt_lbjs.CommandText:='Select lb_dmgz,lbjs_sm from xt_lbjs where lb_dm='+''''+'sz_qz'+''''+'';
  244.   Dm.xt_lbjs.Open;
  245.   lbjs:=dm.xt_lbjs.fieldbyname('lbjs_sm').AsString;
  246.   Lb_dmgz:=dm.xt_lbjs.fieldbyname('lb_dmgz').asstring;
  247.   edit1.Text:=lb_dmgz;
  248.   loadtree(dm.sz_qz);
  249. end;
  251. procedure Tsz_qz.DeleteExecute(Sender: TObject);
  252. var s1,s2:string;
  253.     Epos:integer;
  254. begin
  255.    if Tree.Items[0].HasChildren<>false then
  256.    begin
  257.      if application.MessageBox('您确定要删除当前纪录吗?','警告',mb_okcancel+mb_iconquestion)=idok then
  258.      begin
  259.        s1:=Tree.Selected.Text;
  260.        Epos:=pos('-',s1);//取得'-'在节点名中的位置
  261.        s2:=copy(s1,0,Epos-1);//
  262.        tree.Selected.Delete;//删除树形表中数据
  263.        dm.sz_qz.Close;
  264.        dm.sz_qz.CommandText:='delete  from sz_qz where qz_dm='+''''+s2+''''+'';
  265.        dm.sz_qz.execute;
  266.        dm.sz_qz.Close;
  267.        dm.sz_qz.CommandText:='select * from sz_qz';
  268.        dm.sz_qz.Open;
  269.      end;
  270.    end
  271.    else
  272.    begin
  273.       application.MessageBox('当前表中没有数据，不能删除','提示',mb_ok+mb_iconinformation);
  274.       exit;
  275.    end;   
  276. end;
  278. procedure Tsz_qz.AddExecute(Sender: TObject);
  279. begin
  280.   Toolbutton5.Enabled:=false;//修改
  281.   Toolbutton6.Enabled:=false;//删除
  282.   Toolbutton7.Enabled:=true;//保存
  283.   N2.Enabled:=false;N1.Enabled:=false;N3.Enabled:=false;
  284.   dm.sz_qz.Close;
  285.   dm.sz_qz.CommandText:='select * from sz_qz where qz_dm='+''''+''''+'';
  286.   dm.sz_qz.Open;
  287.   tree.Enabled:=true;
  288. end;
  290. procedure Tsz_qz.DBEdit1KeyPress(Sender: TObject; var Key: Char);
  291. begin
  292.   if key=#13 then
  293.   dbedit2.SetFocus;
  294. end;
  296. procedure Tsz_qz.DBEdit2KeyPress(Sender: TObject; var Key: Char);
  297. begin
  298.   if key=#13 then
  299.      dbedit3.SetFocus;
  300. end;
  302. procedure Tsz_qz.DBEdit3KeyPress(Sender: TObject; var Key: Char);
  303. begin
  304.  if key=#13 then
  305.     dbedit4.SetFocus;
  306. end;
  308. procedure Tsz_qz.DBEdit4KeyPress(Sender: TObject; var Key: Char);
  309. begin
  310.    if key=#13 then
  311.       dbedit5.SetFocus;
  312. end;
  314. procedure Tsz_qz.DBEdit5KeyPress(Sender: TObject; var Key: Char);
  315. begin
  316.    if key=#13 then
  317.       dbedit6.SetFocus;
  318. end;
  320. procedure Tsz_qz.DBEdit6KeyPress(Sender: TObject; var Key: Char);
  321. begin
  322.   if key=#13 then
  323.      dbedit7.SetFocus;
  324. end;
  326. procedure Tsz_qz.RefreshExecute(Sender: TObject);
  327. begin
  328.  dm.sz_qz.Close;
  329.  dm.sz_qz.CommandText:='select * from sz_qz';
  330.  dm.sz_qz.Open;
  331.  if dm.sz_qz.RecordCount<>0 then
  332.   begin
  333.     Add1.Enabled:=true;ToolButton7.Enabled:=false;
  334.     ToolButton5.Enabled:=true;ToolButton6.Enabled:=true;
  335.   end
  336.  else
  337.   begin
  338.     add1.Enabled:=true;N1.Enabled:=true;
  339.   end;
  340. end;           
  342. procedure Tsz_qz.EditExecute(Sender: TObject);
  343. var s1,s2:string;
  344.     Epos:integer;
  345. begin
  346.    ToolButton7.Enabled:=true;toolbutton6.Enabled:=false;
  347.    Add1.Enabled:=false;Toolbutton5.enabled:=false;
  348.    N1.Enabled:=false;N3.Enabled:=false;N2.enabled:=false;
  349.    if tree.Items.Count<>0 then
  350.    if Tree.Items[0].HasChildren<>false then
  351.    begin
  352.        s1:=Tree.Selected.Text;
  353.        Epos:=pos('-',s1);//取得'-'在节点名中的位置
  354.        s2:=copy(s1,0,Epos-1);//
  355.        dm.sz_qz.Close;
  356.        dm.sz_qz.CommandText:='select * from sz_qz where qz_dm='+''''+s2+''''+'';
  357.        dm.sz_qz.Open;
  358.        Dbedit1.Enabled:=false;
  359.        DBEdit1.Color:=cl3DLight;
  360.    end
  361.    else
  362.    begin
  363.       application.MessageBox('当前表中没有数据，不能修改','提示',mb_ok+mb_iconinformation);
  364.       exit;
  365.    end;
  366. end;
  368. procedure Tsz_qz.N5Click(Sender: TObject);
  369. begin
  370.  if tree.Selected.HasChildren then
  371.  begin
  372.     if tree.Selected.Expanded then
  373.        application.MessageBox('已经处于展开状态','提示',mb_OK+mb_iconinformation)
  374.     else
  375.        tree.Selected.Expand(true);
  376.  end
  377.  else
  378.      application.MessageBox('当前节点没有子节点,不能展开','提示',mb_OK+mb_iconinformation);
  379. end;
  381. procedure Tsz_qz.N6Click(Sender: TObject);
  382. begin
  383.   if tree.Selected.HasChildren then
  384.     tree.Selected.Collapse(true)
  385.  else
  386.     application.MessageBox('当前节点没有子节点,不能叠起','提示',mb_OK+mb_iconinformation);
  387. end;
  389. procedure Tsz_qz.TreeClick(Sender: TObject);
  390. var
  391.    s1,s2:string;
  392.    i,Epos:integer;
  393. begin
  394.  if Tree.Items[0].HasChildren<>false then
  395.  begin   //选中和不选中的图片显示
  396.     for i:=0 to Tree.items.count-1 do
  397.     begin
  398.       s1:=Tree.Selected.Text;
  399.       Epos:=pos('-',s1);
  400.       s2:=copy(s1,0,Epos-1);
  401.       dm.sz_qz.Close;
  402.       dm.sz_qz.CommandText:='select * from sz_qz where qz_dm='+''''+s2+''''+'';
  403.       dm.sz_qz.Open;
  404.       ToolButton7.Enabled:=false;
  405.       ToolButton6.Enabled:=true;
  406.       ToolButton5.Enabled:=true;
  407.     end;
  408.  end;//end if
  409. end;
  411. procedure Tsz_qz.DBGridEh1CellClick(Column: TColumnEh);
  412. var
  413.   s1,s2:string;
  414.   i:integer;
  415. begin//--1单击每一行时，使树形控件也变化
  416.   s1:=DBGridEh1.Columns[0].DisplayText;
  417.   s2:=DBGridEh1.Columns[1].DisplayText;
  418.   Tree.FullExpand;
  419.   Tree.AlphaSort(true);
  420.   if Tree.Items[0].HasChildren<>false then
  421.   begin//end if
  422.     for i:=0 to Tree.items.count-1 do
  423.       if Tree.Items[i].Text=s1+'-'+s2 then
  424.      begin
  425.          Tree.Items[i].Selected:=true;
  426.          break;
  427.      end;//end for
  428.   end;//end if
  429. end;//--1
  432. procedure Tsz_qz.PrintExecute(Sender: TObject);
  433. begin
  434.  PrintDBGridEh1.Title.Text:='全宗管理';
  435.  PrintDBGridEh1.Preview;
  436.  printDBgridEh1.AfterGridText.text:=datetostr(date);
  437. end;
  441. end.