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

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

Delphi控件源码

开发平台：

Delphi

Xt_Qxszs.pas：源码内容
  1. unit Xt_Qxszs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, ExtCtrls, DB, StdCtrls, DBCtrlsEh, Buttons,
  8.   TFlatEditUnit, DBClient;
  10. type
  11.   TXt_Cdqx = class(TForm)
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     TabSheet2: TTabSheet;
  15.     TabSheet3: TTabSheet;
  16.     TabSheet4: TTabSheet;
  17.     TabSheet5: TTabSheet;
  18.     Panel1: TPanel;
  19.     DataSource1: TDataSource;
  20.     DBCheckBoxEh1: TDBCheckBoxEh;
  21.     DBCheckBoxEh2: TDBCheckBoxEh;
  22.     DBCheckBoxEh3: TDBCheckBoxEh;
  23.     DBCheckBoxEh4: TDBCheckBoxEh;
  24.     DBCheckBoxEh5: TDBCheckBoxEh;
  25.     DBCheckBoxEh6: TDBCheckBoxEh;
  26.     DBCheckBoxEh7: TDBCheckBoxEh;
  27.     DBCheckBoxEh8: TDBCheckBoxEh;
  28.     DBCheckBoxEh9: TDBCheckBoxEh;
  29.     DBCheckBoxEh10: TDBCheckBoxEh;
  30.     DBCheckBoxEh11: TDBCheckBoxEh;
  31.     Panel2: TPanel;
  32.     Panel3: TPanel;
  33.     DBCheckBoxEh17: TDBCheckBoxEh;
  34.     DBCheckBoxEh18: TDBCheckBoxEh;
  35.     DBCheckBoxEh19: TDBCheckBoxEh;
  36.     DBCheckBoxEh20: TDBCheckBoxEh;
  37.     DBCheckBoxEh21: TDBCheckBoxEh;
  38.     DBCheckBoxEh16: TDBCheckBoxEh;
  39.     DBCheckBoxEh15: TDBCheckBoxEh;
  40.     DBCheckBoxEh14: TDBCheckBoxEh;
  41.     DBCheckBoxEh13: TDBCheckBoxEh;
  42.     DBCheckBoxEh12: TDBCheckBoxEh;
  43.     DBCheckBoxEh22: TDBCheckBoxEh;
  44.     DBCheckBoxEh23: TDBCheckBoxEh;
  45.     DBCheckBoxEh24: TDBCheckBoxEh;
  46.     DBCheckBoxEh25: TDBCheckBoxEh;
  47.     DBCheckBoxEh28: TDBCheckBoxEh;
  48.     DBCheckBoxEh29: TDBCheckBoxEh;
  49.     DBCheckBoxEh30: TDBCheckBoxEh;
  50.     DBCheckBoxEh31: TDBCheckBoxEh;
  51.     Panel4: TPanel;
  52.     Choose: TSpeedButton;
  53.     AllSelect: TSpeedButton;
  54.     AllClear: TSpeedButton;
  55.     Save: TSpeedButton;
  56.     Quit: TSpeedButton;
  57.     Panel5: TPanel;
  58.     DBCheckBoxEh27: TDBCheckBoxEh;
  59.     Panel6: TPanel;
  60.     DBCheckBoxEh26: TDBCheckBoxEh;
  61.     DBCheckBoxEh39: TDBCheckBoxEh;
  62.     DBCheckBoxEh38: TDBCheckBoxEh;
  63.     DBCheckBoxEh37: TDBCheckBoxEh;
  64.     FlatEdit1: TFlatEdit;
  65.     Label1: TLabel;
  66.     FlatEdit2: TFlatEdit;
  67.     Panel7: TPanel;
  68.     Label2: TLabel;
  69.     DBCheckBoxEh32: TDBCheckBoxEh;
  70.     DBCheckBoxEh33: TDBCheckBoxEh;
  71.     DBCheckBoxEh34: TDBCheckBoxEh;
  72.     DBCheckBoxEh35: TDBCheckBoxEh;
  73.     DBCheckBoxEh36: TDBCheckBoxEh;
  74.     DBCheckBoxEh40: TDBCheckBoxEh;
  75.     DBCheckBoxEh41: TDBCheckBoxEh;
  76.     ClientDataSet1: TClientDataSet;
  77.     XTGL: TDBCheckBoxEh;
  78.     JCSJ: TDBCheckBoxEh;
  79.     AJGL: TDBCheckBoxEh;
  80.     JYGL: TDBCheckBoxEh;
  81.     BZCD: TDBCheckBoxEh;
  82.     procedure QuitClick(Sender: TObject);
  83.     procedure SaveClick(Sender: TObject);
  84.     procedure FormCreate(Sender: TObject);
  85.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  86.     procedure AllSelectClick(Sender: TObject);
  87.     procedure AllClearClick(Sender: TObject);
  88.     procedure FormShow(Sender: TObject);
  89.     procedure ChooseClick(Sender: TObject);
  90.   private
  91.     { Private declarations }
  92.   public
  93.     { Public declarations }
  94.   end;
  96. var
  97.   Xt_Cdqx: TXt_Cdqx;  
  98. implementation
  99. uses dms, am_yhz_xzs;
  100. {$R *.dfm}
  102. procedure TXt_Cdqx.QuitClick(Sender: TObject);
  103. begin
  104.   close;
  105. end;
  107. procedure TXt_Cdqx.SaveClick(Sender: TObject);
  108. var s_yhzdm:string;
  109. begin
  110.    s_yhzdm:=FlatEdit2.Text;//用户组代码
  111.    dm.xt_cdqx.Edit;
  112.    dm.xt_cdqx.FieldByName('yhz_dm').AsString:=FlatEdit2.Text;//用户组代码
  113.  if dm.xt_cdqx.ApplyUpdates(0)<=0 then
  114.   begin
  115.     application.MessageBox('菜单权限设置成功！','提示',mb_ok or mb_iconinformation);
  116.     Clientdataset1.Close;
  117.     Clientdataset1.CommandText:='Update xt_userGroup set yhz_qx=''已设置'' where yhz_dm='+''''+s_yhzdm+''''+'';
  118.     Clientdataset1.Execute;
  119.     Clientdataset1.Close;
  120.     Clientdataset1.CommandText:='select * from xt_UserGroup';
  121.     Clientdataset1.open;
  122.   end
  123.  else
  124.   begin
  125.     application.MessageBox('菜单权限设置失败！','提示',mb_ok or mb_iconinformation);
  126.     exit;
  127.   end;
  128. end;
  130. procedure TXt_Cdqx.FormCreate(Sender: TObject);
  131. begin
  132.  panel7.Visible:=true;
  133.  panel7.Cursor:=crHourGlass;
  134.  dm.xt_cdqx.Active:=true;
  135.  dm.xt_cdqx.Edit;
  136.  dbcheckboxeh1.Checked:=true;dbcheckboxeh2.Checked:=true;dbcheckboxeh3.Checked:=true;
  137.  dbcheckboxeh4.Checked:=true;dbcheckboxeh5.Checked:=true;dbcheckboxeh6.Checked:=true;
  138.  dbcheckboxeh7.Checked:=true;dbcheckboxeh8.Checked:=true;dbcheckboxeh9.Checked:=true;
  139.  dbcheckboxeh10.Checked:=true;dbcheckboxeh11.Checked:=true;dbcheckboxeh12.Checked:=true;
  140.  dbcheckboxeh13.Checked:=true;dbcheckboxeh14.Checked:=true;dbcheckboxeh15.Checked:=true;
  141.  dbcheckboxeh16.Checked:=true;dbcheckboxeh17.Checked:=true;dbcheckboxeh18.Checked:=true;
  142.  dbcheckboxeh19.Checked:=true;dbcheckboxeh20.Checked:=true;dbcheckboxeh21.Checked:=true;
  143.  dbcheckboxeh22.Checked:=true;dbcheckboxeh23.Checked:=true;dbcheckboxeh24.Checked:=true;
  144.  dbcheckboxeh25.Checked:=true;dbcheckboxeh26.Checked:=true;dbcheckboxeh27.Checked:=true;
  145.  dbcheckboxeh28.Checked:=true;dbcheckboxeh29.Checked:=true;dbcheckboxeh30.Checked:=true;
  146.  dbcheckboxeh31.Checked:=true;dbcheckboxeh32.Checked:=true;dbcheckboxeh33.Checked:=true;
  147.  dbcheckboxeh37.Checked:=true;dbcheckboxeh38.Checked:=true;dbcheckboxeh39.Checked:=true;
  148.  dbcheckboxeh34.Checked:=true;dbcheckboxeh35.Checked:=true;dbcheckboxeh36.Checked:=true;
  149.  dbcheckboxeh40.Checked:=true;dbcheckboxeh41.Checked:=true;xtgl.Checked:=true;
  150.  jcsj.Checked:=true;ajgl.Checked:=true;ajgl.Checked:=true;jygl.Checked:=true;
  151.  bzcd.Checked:=true;
  152. end;
  154. procedure TXt_Cdqx.FormClose(Sender: TObject; var Action: TCloseAction);
  155. begin
  156.  dm.xt_cdqx.Active:=false;
  157.  action:=cafree;
  158.  Xt_Cdqx:=nil;
  159. end;
  161. procedure TXt_Cdqx.AllSelectClick(Sender: TObject);
  162. begin
  163.  case pageControl1.ActivePageIndex of
  164.   0: begin//系统管理
  165.       dbcheckboxeh1.Checked:=true;dbcheckboxeh2.Checked:=true;dbcheckboxeh3.Checked:=true;
  166.       dbcheckboxeh4.Checked:=true;dbcheckboxeh5.Checked:=true;dbcheckboxeh6.Checked:=true;
  167.       dbcheckboxeh7.Checked:=true;dbcheckboxeh8.Checked:=true;dbcheckboxeh9.Checked:=true;
  168.       dbcheckboxeh10.Checked:=true;dbcheckboxeh11.Checked:=true;dbcheckboxeh33.Checked:=true;
  169.       dbcheckboxeh32.Checked:=true;xtgl.Checked:=true;
  170.      end;
  171.   1: begin//基础数据
  172.       dbcheckboxeh12.Checked:=true;
  173.       dbcheckboxeh13.Checked:=true;dbcheckboxeh14.Checked:=true;dbcheckboxeh15.Checked:=true;
  174.       dbcheckboxeh16.Checked:=true;dbcheckboxeh17.Checked:=true;dbcheckboxeh18.Checked:=true;
  175.       dbcheckboxeh19.Checked:=true;dbcheckboxeh20.Checked:=true;dbcheckboxeh21.Checked:=true;
  176.       dbcheckboxeh34.Checked:=true;dbcheckboxeh35.Checked:=true;dbcheckboxeh36.Checked:=true;
  177.       jcsj.Checked:=true;
  178.      end;
  179.   2: begin//案卷管理
  180.       dbcheckboxeh22.Checked:=true;dbcheckboxeh23.Checked:=true;dbcheckboxeh24.Checked:=true;
  181.       dbcheckboxeh25.Checked:=true;dbcheckboxeh28.Checked:=true;dbcheckboxeh29.Checked:=true;
  182.       dbcheckboxeh30.Checked:=true;dbcheckboxeh31.Checked:=true;dbcheckboxeh40.Checked:=true;
  183.       dbcheckboxeh41.Checked:=true;ajgl.Checked:=true;
  184.      end;
  185.   3: begin//借阅管理
  186.       dbcheckboxeh26.Checked:=true;dbcheckboxeh37.Checked:=true;
  187.       dbcheckboxeh38.Checked:=true;dbcheckboxeh39.Checked:=true;jygl.Checked:=true;
  188.      end;
  189.   4:begin//帮助
  190.       dbCheckBoxeh27.Checked:=true;bzcd.Checked:=true;
  191.      end;
  192.  end;//end case
  193. end;
  195. procedure TXt_Cdqx.AllClearClick(Sender: TObject);
  196. begin
  197. case pageControl1.ActivePageIndex of
  198.   0: begin//系统管理
  199.       dbcheckboxeh1.Checked:=false;dbcheckboxeh2.Checked:=false;dbcheckboxeh3.Checked:=false;
  200.       dbcheckboxeh4.Checked:=false;dbcheckboxeh5.Checked:=false;dbcheckboxeh6.Checked:=false;
  201.       dbcheckboxeh7.Checked:=false;dbcheckboxeh8.Checked:=false;dbcheckboxeh9.Checked:=false;
  202.       dbcheckboxeh10.Checked:=false;dbcheckboxeh11.Checked:=false;dbcheckboxeh33.Checked:=false;
  203.       dbcheckboxeh32.Checked:=false;XTGL.Checked:=false;
  204.      end;
  205.   1: begin//基础数据
  206.       dbcheckboxeh12.Checked:=false;
  207.       dbcheckboxeh13.Checked:=false;dbcheckboxeh14.Checked:=false;dbcheckboxeh15.Checked:=false;
  208.       dbcheckboxeh16.Checked:=false;dbcheckboxeh17.Checked:=false;dbcheckboxeh18.Checked:=false;
  209.       dbcheckboxeh19.Checked:=false;dbcheckboxeh20.Checked:=false;dbcheckboxeh21.Checked:=false;
  210.       dbcheckboxeh34.Checked:=false;dbcheckboxeh35.Checked:=false;dbcheckboxeh36.Checked:=false;
  211.       jcsj.Checked:=false;
  212.      end;
  213.   2: begin//案卷管理
  214.       dbcheckboxeh22.Checked:=false;dbcheckboxeh23.Checked:=false;dbcheckboxeh24.Checked:=false;
  215.       dbcheckboxeh25.Checked:=false;dbcheckboxeh28.Checked:=false;dbcheckboxeh29.Checked:=false;
  216.       dbcheckboxeh30.Checked:=false;dbcheckboxeh31.Checked:=false;dbcheckboxeh40.Checked:=false;
  217.       dbcheckboxeh41.Checked:=false;ajgl.Checked:=false;
  218.      end;
  219.   3: begin//借阅管理
  220.       dbcheckboxeh26.Checked:=false;dbcheckboxeh37.Checked:=false;
  221.       dbcheckboxeh38.Checked:=false;dbcheckboxeh39.Checked:=false;jygl.Checked:=false;
  222.      end;
  223.   4:begin//帮助
  224.       dbCheckBoxeh27.Checked:=false;bzcd.Checked:=false;
  225.      end;
  226.  end;//end case
  227. end;
  229. procedure TXt_Cdqx.FormShow(Sender: TObject);
  230. begin
  231.  panel7.Visible:=false;
  232.  panel7.Cursor:=crDefault;
  233. end;
  235. procedure TXt_Cdqx.ChooseClick(Sender: TObject);
  236. begin
  237.  if am_yhz_xz=nil then
  238.    begin
  239.      am_yhz_xz:=Tam_yhz_xz.create(self);
  240.      am_yhz_xz.showmodal;
  241.    end;
  242. end;
  244. end.