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

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

Delphi控件源码

开发平台：

Delphi

am_ajlb_xzs.~pas：源码内容
  1. unit am_ajlb_xzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, DBClient, Buttons, Grids, DBGridEh, ExtCtrls;
  9. type
  10.   TAm_Ajlb_xz = class(TForm)
  11.     Panel1: TPanel;
  12.     DBGridEh2: TDBGridEh;
  13.     Panel2: TPanel;
  14.     SpeedButton1: TSpeedButton;
  15.     SpeedButton2: TSpeedButton;
  16.     SpeedButton3: TSpeedButton;
  17.     DataSource2: TDataSource;
  18.     ClientDataSet1: TClientDataSet;
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure DBGridEh2DblClick(Sender: TObject);
  21.     procedure SpeedButton2Click(Sender: TObject);
  22.     procedure SpeedButton3Click(Sender: TObject);
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.     procedure SpeedButton1Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  31. var
  32.   Am_Ajlb_xz: TAm_Ajlb_xz;
  34. implementation
  36. uses Am_Ajtzs, AM_ajlb_cxs;
  38. {$R *.dfm}
  40. procedure TAm_Ajlb_xz.FormCreate(Sender: TObject);
  41. begin
  42.   Clientdataset1.Close;
  43.   Clientdataset1.CommandText:='select * from sz_ajlb';
  44.   Clientdataset1.Open;
  45. end;
  47. procedure TAm_Ajlb_xz.DBGridEh2DblClick(Sender: TObject);
  48. begin
  49.  if Clientdataset1.recordcount<>0 then
  50.  begin
  51.     am_ajtz.DBEditeh2.Text:=Clientdataset1.fieldbyname('ajlb_dm').AsString;
  52.     close;
  53.  end;
  54. end;
  56. procedure TAm_Ajlb_xz.SpeedButton2Click(Sender: TObject);
  57. begin
  58.  if Clientdataset1.recordcount<>0 then
  59.  begin
  60.     Am_Ajtz.DBEditeh2.Text:=Clientdataset1.fieldbyname('ajlb_dm').AsString;
  61.     close;
  62.  end;
  63. end;
  65. procedure TAm_Ajlb_xz.SpeedButton3Click(Sender: TObject);
  66. begin
  67.  Close;
  68. end;
  70. procedure TAm_Ajlb_xz.FormClose(Sender: TObject; var Action: TCloseAction);
  71. begin
  72.  Clientdataset1.active:=false;
  73.  action:=cafree;
  74.  am_ajlb_xz:=nil;
  75. end;
  77. procedure TAm_Ajlb_xz.SpeedButton1Click(Sender: TObject);
  78. begin
  79.  if am_ajlb_cx=Nil then
  80.    begin
  81.     am_ajlb_cx:=Tam_ajlb_cx.create(application);
  82.     am_ajlb_cx.showmodal;
  83.    end;
  84. end;
  86. end.