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

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

Delphi控件源码

开发平台：

Delphi

xt_rzs.pas：源码内容
  1. unit xt_rzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, ToolWin, DB, Grids, DBGridEh, XPBarMenu, PrnDbgeh,
  8.   ExtCtrls, DBClient;
  10. type
  11.   Txt_rz = class(TForm)
  12.     CoolBar1: TCoolBar;
  13.     ToolBar1: TToolBar;
  14.     ToolButton1: TToolButton;
  15.     ToolButton3: TToolButton;
  16.     ToolButton4: TToolButton;
  17.     ToolButton2: TToolButton;
  18.     DataSource1: TDataSource;
  19.     ToolButton6: TToolButton;
  20.     XPBarMenu1: TXPBarMenu;
  21.     PrintDBGridEh1: TPrintDBGridEh;
  22.     Panel1: TPanel;
  23.     DBGridEh1: TDBGridEh;
  24.     ClientDataSet1: TClientDataSet;
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure ToolButton3Click(Sender: TObject);
  27.     procedure ToolButton4Click(Sender: TObject);
  28.     procedure ToolButton6Click(Sender: TObject);
  29.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  30.     procedure ToolButton2Click(Sender: TObject);
  31.     procedure ToolButton1Click(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  38. var
  39.   xt_rz: Txt_rz;
  41. implementation
  42. uses Dms, xt_rz_bjs;
  43. {$R *.dfm}
  45. procedure Txt_rz.FormCreate(Sender: TObject);
  46. begin
  47.   Clientdataset1.Active:=true;
  48. end;
  50. procedure Txt_rz.ToolButton3Click(Sender: TObject);
  51. begin
  52.  if xt_rz_bj=nil then
  53.   begin
  54.     xt_rz_bj:=Txt_rz_bj.create(self);
  55.     xt_rz_bj.showmodal;
  56.   end;  
  57. end;
  59. procedure Txt_rz.ToolButton4Click(Sender: TObject);
  60. begin
  61.  Clientdataset1.Close;
  62.  Clientdataset1.CommandText:='select * from xt_rz';
  63.  Clientdataset1.Open;
  64. end;
  66. procedure Txt_rz.ToolButton6Click(Sender: TObject);
  67. begin
  68.  close;
  69. end;
  71. procedure Txt_rz.FormClose(Sender: TObject; var Action: TCloseAction);
  72. begin
  73.  Clientdataset1.Active:=false;
  74.  action:=cafree;
  75.  xt_rz:=nil;
  76. end;
  78. procedure Txt_rz.ToolButton2Click(Sender: TObject);
  79. begin
  80.   printdbgrideh1.Title.Text:='系统日志表';
  81.   printdbgrideh1.AfterGridText.Text:=datetostr(date);
  82.   printdbgrideh1.Preview;
  83. end;
  85. procedure Txt_rz.ToolButton1Click(Sender: TObject);
  86. begin
  87.   if Clientdataset1.RecordCount=0 then
  88.         begin
  89.           application.MessageBox('当前表中没有数据'+#13#10+'不能删除','提示',mb_ok+mb_iconinformation);
  90.           exit;
  91.       end;
  92.   if application.MessageBox('您确定要清除所有日志吗?','警告',mb_ok+mb_iconinformation)=Idok then
  93.    begin
  94.      Clientdataset1.Close;
  95.      Clientdataset1.CommandText:='delete xt_rz where rz_xh<>'+''''+''''+'';
  96.      Clientdataset1.Execute;
  97.      Clientdataset1.Close;
  98.      Clientdataset1.CommandText:='select * from xt_rz';
  99.      Clientdataset1.Open;
  100.    end;
  101. end;
  103. end.