Delphi控件源码

开发平台：

Delphi

am_wjjss.~pas：源码内容

							unit am_wjjss;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPBarMenu, DB, DBClient, ImgList, ComCtrls, Grids, DBGridEh,
  ExtCtrls, ToolWin, PrnDbgeh;
type
  Tam_wjjs = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    Add1: TToolButton;
    xiugai: TToolButton;
    dele1: TToolButton;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    XPBarMenu1: TXPBarMenu;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure Add1Click(Sender: TObject);
    procedure dele1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure xiugaiClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  am_wjjs: Tam_wjjs;
implementation
uses am_wjcxs;
{$R *.dfm}
procedure Tam_wjjs.Add1Click(Sender: TObject);
begin
 if am_wjcx=NIl then
  begin
    am_wjcx:=Tam_wjcx.create(self);
    am_wjcx.showmodal;
  end;
end;
procedure Tam_wjjs.dele1Click(Sender: TObject);
begin
 close;
end;
procedure Tam_wjjs.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 action:=cafree;
 am_wjjs:=Nil;
 clientdataset1.Active:=false;
end;
procedure Tam_wjjs.xiugaiClick(Sender: TObject);
begin
 //PrintDBGridEh1.Preview;
 Am_Wjjs_P:=Tam_wjjs_P.create(application);
 am_wjjs_P.quickrep1.preview; 
end;
end.

						