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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   am_yjdy: Tam_yjdy;
  38. implementation
  39. uses dms,u_public, Am_Yjcxs, am_yjqc_Ps;
  40. {$R *.dfm}
  42. procedure Tam_yjdy.FormClose(Sender: TObject; var Action: TCloseAction);
  43. begin
  44.   dm.V_yjDY.Active:=false;
  45.   action:=cafree;
  46.   am_yjdy:=nil;
  47. end;
  49. procedure Tam_yjdy.RadioButton2Click(Sender: TObject);
  50. begin
  51.   radiobutton1.Checked:=false;
  52.   datetimepicker1.Enabled:=false;
  53.   datetimepicker2.Enabled:=false;
  54. end;
  56. procedure Tam_yjdy.RadioButton1Click(Sender: TObject);
  57. begin
  58.   radiobutton2.Checked:=false;
  59.   datetimepicker1.Enabled:=true;
  60.   datetimepicker2.Enabled:=true;
  61. end;
  63. procedure Tam_yjdy.SpeedButton1Click(Sender: TObject);
  64. var date1,date2,Swhere:tdatetime;
  65. begin
  66.   if radiobutton1.Checked=true  then
  67.    begin
  68.      date1:=datetimepicker1.DateTime;
  69.      date2:=datetimepicker2.DateTime;
  70.      dm.v_yjdy.Close;
  71.      dm.V_YJDY.commandtext:='select * from v_yjdy  where ajyj_yjrq>='+''''+datetimetostr(date1)+''+''''+' and  '+' ajyj_yjrq<= '+''''+datetimetostr(date2)+''''+'';
  72.      dm.V_YJDY.Open;
  73.    end
  74.   else
  75.    if radiobutton2.checked=true then
  76.       begin
  77.         am_yjcx:=tam_yjcx.create(application);
  78.         am_yjcx.showmodal;
  79.       end;
  80. end;
  82. procedure Tam_yjdy.SpeedButton2Click(Sender: TObject);
  83. begin
  84.  am_yjqc_P:=Tam_yjqc_P.create(application);
  85.  am_yjqc_P.quickrep1.preview;
  86. end;
  88. end.