Delphi控件源码

开发平台：

Delphi

am_dz_ajxzs.pas：源码内容

							unit am_dz_ajxzs;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DB, Grids, DBGridEh, Buttons, DBClient;
type
  Tam_dz_ajxz = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGridEh2: TDBGridEh;
    DataSource2: TDataSource;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ClientDataSet1: TClientDataSet;
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh2DblClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  am_dz_ajxz: Tam_dz_ajxz;
implementation
uses dms, am_jygl_bjs,Am_Yhgl_Zcs, am_ajjs_cxs, am_ajjss;
{$R *.dfm}
procedure Tam_dz_ajxz.SpeedButton3Click(Sender: TObject);
begin
 close;
end;
procedure Tam_dz_ajxz.FormCreate(Sender: TObject);
begin
  Clientdataset1.Close;
  Clientdataset1.CommandText:='select * from V_Ajxz';
  Clientdataset1.Open;
end;
procedure Tam_dz_ajxz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.V_ajgl_yxh.Active:=false;
  action:=cafree;
  am_dz_ajxz:=nil;
end;
procedure Tam_dz_ajxz.DBGridEh2DblClick(Sender: TObject);
begin
 am_jygl_bj.DBEdit2.Text:=Clientdataset1.fieldbyname('aj_xh').AsString;
 close;
end;
procedure Tam_dz_ajxz.SpeedButton2Click(Sender: TObject);
begin
 am_jygl_bj.DBEdit2.Text:=Clientdataset1.fieldbyname('aj_xh').AsString;
 close;
end;
procedure Tam_dz_ajxz.SpeedButton1Click(Sender: TObject);
begin
 if am_ajjs_cx=Nil then
  begin
    am_ajjs_cx:=Tam_ajjs_cx.create(self);
    am_ajjs_cx.ShowModal;
  end;
end;
end.

						