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

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

Delphi控件源码

开发平台：

Delphi

am_dz_ajxzs.~pas：源码内容
  1. unit am_dz_ajxzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, DB, Grids, DBGridEh, Buttons, DBClient;
  9. type
  10.   Tam_dz_ajxz = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     DBGridEh2: TDBGridEh;
  14.     DataSource2: TDataSource;
  15.     SpeedButton1: TSpeedButton;
  16.     SpeedButton2: TSpeedButton;
  17.     SpeedButton3: TSpeedButton;
  18.     ClientDataSet1: TClientDataSet;
  19.     procedure SpeedButton3Click(Sender: TObject);
  20.     procedure FormCreate(Sender: TObject);
  21.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  22.     procedure DBGridEh2DblClick(Sender: TObject);
  23.     procedure SpeedButton2Click(Sender: TObject);
  24.     procedure SpeedButton1Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  31. var
  32.   am_dz_ajxz: Tam_dz_ajxz;
  34. implementation
  35. uses dms, am_jygl_bjs,Am_Yhgl_Zcs, am_ajjs_cxs, am_ajjss;
  36. {$R *.dfm}
  38. procedure Tam_dz_ajxz.SpeedButton3Click(Sender: TObject);
  39. begin
  40.  close;
  41. end;
  43. procedure Tam_dz_ajxz.FormCreate(Sender: TObject);
  44. begin
  45.   Clientdataset1.Close;
  46.   Clientdataset1.CommandText:='select * from V_Ajxz';
  47.   Clientdataset1.Open;
  48. end;
  50. procedure Tam_dz_ajxz.FormClose(Sender: TObject; var Action: TCloseAction);
  51. begin
  52.   dm.V_ajgl_yxh.Active:=false;
  53.   action:=cafree;
  54.   am_dz_ajxz:=nil;
  55. end;
  57. procedure Tam_dz_ajxz.DBGridEh2DblClick(Sender: TObject);
  58. begin
  59.  am_jygl_bj.DBEdit2.Text:=Clientdataset1.fieldbyname('aj_xh').AsString;
  60.  close;
  61. end;
  63. procedure Tam_dz_ajxz.SpeedButton2Click(Sender: TObject);
  64. begin
  65.  am_jygl_bj.DBEdit2.Text:=Clientdataset1.fieldbyname('aj_xh').AsString;
  66.  close;
  67. end;
  69. procedure Tam_dz_ajxz.SpeedButton1Click(Sender: TObject);
  70. begin
  71.  if am_ajjs_cx=Nil then
  72.   begin
  73.     am_ajjs_cx:=Tam_ajjs_cx.create(self);
  74.     am_ajjs_cx.ShowModal;
  75.   end;
  76. end;
  78. end.