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

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

Delphi控件源码

开发平台：

Delphi

xt_yhz_ms.~pas：源码内容
  1. unit xt_yhz_ms;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, ToolWin, Grids, DBGridEh, StdCtrls, ExtCtrls, DB,
  8.   DBClient, DBGrids, XPBarMenu, PrnDbgeh;
  10. type
  11.   Txt_yhz = class(TForm)
  12.     CoolBar1: TCoolBar;
  13.     ToolBar1: TToolBar;
  14.     ToolButton1: TToolButton;
  15.     ToolButton2: TToolButton;
  16.     ToolButton3: TToolButton;
  17.     ToolButton4: TToolButton;
  18.     DataSource1: TDataSource;
  19.     ToolButton6: TToolButton;
  20.     ToolButton7: TToolButton;
  21.     DataSource2: TDataSource;
  22.     DataSource3: TDataSource;
  23.     XPBarMenu1: TXPBarMenu;
  24.     GroupBox1: TGroupBox;
  25.     DBGridEh1: TDBGridEh;
  26.     PrintDBGridEh1: TPrintDBGridEh;
  27.     procedure ToolButton1Click(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  30.     procedure ToolButton2Click(Sender: TObject);
  31.     procedure ToolButton3Click(Sender: TObject);
  32.     procedure ToolButton4Click(Sender: TObject);
  33.     procedure ToolButton7Click(Sender: TObject);
  34.     procedure DBGridEh1TitleClick(Column: TColumnEh);
  35.     procedure DBGridEh1DblClick(Sender: TObject);
  36.     procedure ToolButton6Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   xt_yhz: Txt_yhz;
  46. implementation
  48. uses yhz_bjs,dms,u_public;
  50. {$R *.dfm}
  52. procedure Txt_yhz.ToolButton1Click(Sender: TObject);
  53. begin
  54.  //DM.xt_yhz.Append;
  55.  dm.xt_yhz.Close;
  56.  dm.xt_yhz.CommandText:='select * from xt_UserGroup where yhz_dm='+''''+''''+'';
  57.  dm.xt_yhz.Open;
  58.  yhz_bj:=Tyhz_bj.create(application);
  59.  yhz_bj.showmodal;
  60.  yhz_bj.Label1.Caption:='增加用户组';
  61. end;
  63. procedure Txt_yhz.FormCreate(Sender: TObject);
  64. begin
  65.   DM.xt_yhz.Active:=true;
  66.   Dm.xt_js.Active:=true;
  67.   Dm.ug_js.Active:=true;
  68.   //  dm.xt_yhz.MasterSource:=datasource2;
  69. //  dm.xt_yhz.MasterFields:='js_dm';
  70. end;
  72. procedure Txt_yhz.FormClose(Sender: TObject; var Action: TCloseAction);
  73. begin
  74.   action:=cafree;
  75.   xt_yhz:=nil;
  76. end;
  78. procedure Txt_yhz.ToolButton2Click(Sender: TObject);
  79. var s:string;
  80. begin
  81.   s:=dm.ug_js.fieldbyname('yhz_dm').AsString;
  82.   yhz_bj:=Tyhz_bj.create(self);
  83.   yhz_bj.Label1.Caption:='修改用户组';
  84.   Dm.xt_yhz.Close;
  85.   dm.XT_yhz.CommandText:='select * from xt_UserGroup where yhz_dm='+''''+s+''''+'';
  86.   dm.xt_yhz.Open;
  87.   DM.xt_yhz.Edit;
  88.   yhz_bj.showmodal;
  89. end;
  91. procedure Txt_yhz.ToolButton3Click(Sender: TObject);
  92. var s:string;
  93. begin
  94.  s:=dm.ug_js.fieldbyname('yhz_dm').AsString;
  95.  if Dm.xt_yhz.RecordCount=0 then
  96.  begin
  97.     application.MessageBox('表中没有数据不能删除!','提示',mb_iconinformation+mb_defbutton1);
  98.     Abort;
  99.   end
  100.   else
  101.    if application.MessageBox('你确定删除吗？','警告',mb_okcancel+mb_iconquestion)=idok then
  102.    begin
  103.        {Dm.xt_yhz.Close;
  104.        dm.XT_yhz.CommandText:='select * from xt_UserGroup where yhz_dm='+''''+s+''''+'';
  105.        dm.xt_yhz.Open;
  106.        Dm.xt_yhz.Delete;
  107.        Dm.xt_yhz.ApplyUpdates(0);}
  108.        Dm.xt_yhz.Close;
  109.        dm.XT_yhz.CommandText:='delete xt_UserGroup where yhz_dm='+''''+s+''''+'';
  110.        dm.xt_yhz.Execute;
  111.        Dm.xt_yhz.Close;
  112.        dm.XT_yhz.CommandText:='select * from xt_UserGroup';
  113.        dm.xt_yhz.Open;
  114.        toolbutton4.Click;
  115.     end;
  116. end;
  118. procedure Txt_yhz.ToolButton4Click(Sender: TObject);
  119. begin
  120.  dm.ug_js.Close;
  121.  dm.ug_js.CommandText:='select * from ug_js';
  122.  dm.ug_js.Open;
  123. end;
  125. procedure Txt_yhz.ToolButton7Click(Sender: TObject);
  126. begin
  127.   close;
  128. end;
  130. procedure Txt_yhz.DBGridEh1TitleClick(Column: TColumnEh);
  131. begin
  132.    //  Dm.xt_yhz.IndexFieldNames:=Column.Field.FieldName;
  133. end;
  136. procedure Txt_yhz.DBGridEh1DblClick(Sender: TObject);
  137. begin
  138.   toolbutton2.Click;
  139. end;
  141. procedure Txt_yhz.ToolButton6Click(Sender: TObject);
  142. begin
  143.  PrintDBGridEh1.Preview;
  144. end;
  146. end.