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

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

Delphi控件源码

开发平台：

Delphi

xt_rz_bjs.pas：源码内容
  1. unit xt_rz_bjs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, ComCtrls, DB, DBClient, XPBarMenu;
  9. type
  10.   Txt_rz_bj = class(TForm)
  11.     PageControl1: TPageControl;
  12.     TabSheet1: TTabSheet;
  13.     TabSheet2: TTabSheet;
  14.     Label1: TLabel;
  15.     DateTimePicker1: TDateTimePicker;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     DateTimePicker2: TDateTimePicker;
  19.     Label4: TLabel;
  20.     UpDown1: TUpDown;
  21.     Edit1: TEdit;
  22.     SpeedButton1: TSpeedButton;
  23.     SpeedButton2: TSpeedButton;
  24.     ClientDataSet1: TClientDataSet;
  25.     DataSource1: TDataSource;
  26.     XPBarMenu1: TXPBarMenu;
  27.     procedure SpeedButton2Click(Sender: TObject);
  28.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure SpeedButton1Click(Sender: TObject);
  31.     procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  38. var
  39.   xt_rz_bj: Txt_rz_bj;
  41. implementation
  43. uses xt_rzs;
  45. {$R *.dfm}
  47. procedure Txt_rz_bj.SpeedButton2Click(Sender: TObject);
  48. begin
  49.  close;
  50. end;
  52. procedure Txt_rz_bj.FormClose(Sender: TObject; var Action: TCloseAction);
  53. begin
  54.   action:=cafree;
  55.   xt_rz_bj:=nil;
  56. end;
  58. procedure Txt_rz_bj.FormCreate(Sender: TObject);
  59. begin
  60.  Clientdataset1.Active:=true;
  61. end;
  63. procedure Txt_rz_bj.SpeedButton1Click(Sender: TObject);
  64. var begin_time,end_time:string;
  65. begin
  66.  Clientdataset1.Close;
  67.  Clientdataset1.CommandText:='select * from xt_rz';
  68.  Clientdataset1.Open;
  69.  begin_time:=datetimetostr(DateTimePicker1.DateTime);
  70.  end_time:=datetimetostr(DateTimePicker2.DateTime);
  71.  case PageControl1.ActivePageIndex of
  72.   0: begin
  73.       if Clientdataset1.RecordCount=0 then
  74.         begin
  75.           application.MessageBox('当前表中没有数据'+#13#10+'不能删除','提示',mb_ok+mb_iconinformation);
  76.           exit;
  77.         end;
  78.      if  application.MessageBox('您确定要删除日志吗?','警告',mb_okcancel+mb_iconquestion)=Idok then
  79.         begin
  80.           Clientdataset1.Close;
  81.           Clientdataset1.CommandText:='P_rz'+''''+edit1.text+''''+'';
  82.           Clientdataset1.execute;
  83.           Clientdataset1.close;
  84.           Clientdataset1.CommandText:='select * from xt_rz';
  85.           Clientdataset1.Open;
  86.           xt_rz.ToolButton4.click;
  87.          end;//end if
  88.      end;
  89.   1: begin
  90.       if Clientdataset1.RecordCount=0 then
  91.         begin
  92.           application.MessageBox('当前表中没有数据'+#13#10+'不能删除','提示',mb_ok+mb_iconinformation);
  93.           exit;
  94.         end;
  95.       if  application.MessageBox('您确定要删除日志吗?','警告',mb_okcancel+mb_iconquestion)=Idok then
  96.         begin
  97.           Clientdataset1.Close;
  98.           clientdataset1.CommandText:='delete xt_rz where rz_czsj>='+''''+begin_time+''''+' and rz_czsj<='+''''+end_time+''''+'';
  99.           Clientdataset1.Execute;
  100.           Clientdataset1.Close;
  101.           Clientdataset1.CommandText:='select * from xt_rz';
  102.           Clientdataset1.Open;
  103.           xt_rz.ToolButton4.click;
  104.         end;//end if
  105.      end;
  106.  end;//end case
  107. end;
  109. procedure Txt_rz_bj.UpDown1Click(Sender: TObject; Button: TUDBtnType);
  110. var i:integer;
  111. begin
  112.  I:=StrToInt(edit1.Text);
  113.  inc(i);
  114.  edit1.Text:=IntToStr(I);
  115. end;
  117. end.