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

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

Delphi控件源码

开发平台：

Delphi

am_yjdys.pas：源码内容
  1. unit am_yjdys;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, Grids, DBGridEh, DB,
  8.   DBClient;
  10. type
  11.   Tam_yjdy = class(TForm)
  12.     Panel1: TPanel;
  13.     DateTimePicker1: TDateTimePicker;
  14.     DateTimePicker2: TDateTimePicker;
  15.     Label1: TLabel;
  16.     RadioButton1: TRadioButton;
  17.     RadioButton2: TRadioButton;
  18.     SpeedButton1: TSpeedButton;
  19.     Panel2: TPanel;
  20.     DBGridEh1: TDBGridEh;
  21.     V_AJDY: TDataSource;
  22.     SpeedButton2: TSpeedButton;
  23.     SpeedButton3: TSpeedButton;
  24.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  25.     procedure RadioButton2Click(Sender: TObject);
  26.     procedure RadioButton1Click(Sender: TObject);
  27.     procedure SpeedButton1Click(Sender: TObject);
  28.     procedure SpeedButton2Click(Sender: TObject);
  29.     procedure SpeedButton3Click(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  36. var
  37.   am_yjdy: Tam_yjdy;
  39. implementation
  40. uses dms,u_public, Am_Yjcxs, am_yjqc_Ps;
  41. {$R *.dfm}
  43. procedure Tam_yjdy.FormClose(Sender: TObject; var Action: TCloseAction);
  44. begin
  45.   dm.V_yjDY.Active:=false;
  46.   action:=cafree;
  47.   am_yjdy:=nil;
  48. end;
  50. procedure Tam_yjdy.RadioButton2Click(Sender: TObject);
  51. begin
  52.   radiobutton1.Checked:=false;
  53.   datetimepicker1.Enabled:=false;
  54.   datetimepicker2.Enabled:=false;
  55. end;
  57. procedure Tam_yjdy.RadioButton1Click(Sender: TObject);
  58. begin
  59.   radiobutton2.Checked:=false;
  60.   datetimepicker1.Enabled:=true;
  61.   datetimepicker2.Enabled:=true;
  62. end;
  64. procedure Tam_yjdy.SpeedButton1Click(Sender: TObject);
  65. var date1,date2,Swhere:tdatetime;
  66. begin
  67.   if radiobutton1.Checked=true  then
  68.    begin
  69.      date1:=datetimepicker1.DateTime;
  70.      date2:=datetimepicker2.DateTime;
  71.      dm.v_yjdy.Close;
  72.      dm.V_YJDY.commandtext:='select * from v_yjdy  where ajyj_yjrq>='+''''+datetimetostr(date1)+''+''''+' and  '+' ajyj_yjrq<= '+''''+datetimetostr(date2)+''''+'';
  73.      dm.V_YJDY.Open;
  74.    end
  75.   else
  76.    if radiobutton2.checked=true then
  77.       begin
  78.         am_yjcx:=tam_yjcx.create(application);
  79.         am_yjcx.showmodal;
  80.       end;
  81. end;
  83. procedure Tam_yjdy.SpeedButton2Click(Sender: TObject);
  84. begin
  85.  am_yjqc_P:=Tam_yjqc_P.create(application);
  86.  am_yjqc_P.quickrep1.preview;
  87. end;
  89. procedure Tam_yjdy.SpeedButton3Click(Sender: TObject);
  90. begin
  91.  Close;
  92. end;
  94. end.