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

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

Delphi控件源码

开发平台：

Delphi

am_gdaj_cxs.pas：源码内容
  1. unit am_gdaj_cxs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, XPBarMenu, DB, DBClient, ImgList, ComCtrls, Grids, DBGridEh,
  8.   ExtCtrls, ToolWin;
  10. type
  11.   Tam_gdaj_cx = class(TForm)
  12.     CoolBar1: TCoolBar;
  13.     ToolBar1: TToolBar;
  14.     Add1: TToolButton;
  15.     xiugai: TToolButton;
  16.     dele1: TToolButton;
  17.     Panel1: TPanel;
  18.     DBGridEh1: TDBGridEh;
  19.     StatusBar1: TStatusBar;
  20.     ImageList1: TImageList;
  21.     DataSource1: TDataSource;
  22.     XPBarMenu1: TXPBarMenu;
  23.     ClientDataSet1: TClientDataSet;
  24.     procedure Add1Click(Sender: TObject);
  25.     procedure dele1Click(Sender: TObject);
  26.     procedure xiugaiClick(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   am_gdaj_cx: Tam_gdaj_cx;
  38. implementation
  40. uses Am_GdAjCxs, Am_Gdaj_ps, DMs, Am_Gdjs_Ps;
  42. {$R *.dfm}
  44. procedure Tam_gdaj_cx.Add1Click(Sender: TObject);
  45. begin
  46.    am_gdajcx:=TAm_gdajcx.create(application);
  47.    am_gdajcx.showmodal;
  48. end;
  50. procedure Tam_gdaj_cx.dele1Click(Sender: TObject);
  51. begin
  52.  Close;
  53. end;
  55. procedure Tam_gdaj_cx.xiugaiClick(Sender: TObject);
  56. begin
  57.   am_gdjs_P:=Tam_gdjs_P.create(application);
  58.   am_gdjs_P.quickrep1.preview;
  59. end;
  61. procedure Tam_gdaj_cx.FormCreate(Sender: TObject);
  62. begin
  63.  //dm.v_ajgd.active:=true;
  64.  Clientdataset1.Active:=false;
  65. end;
  67. procedure Tam_gdaj_cx.FormClose(Sender: TObject; var Action: TCloseAction);
  68. begin
  69.  action:=cafree;
  70.  am_gdaj_cx:=nil;
  71. // dm.V_AJGD.Active:=false;
  72.  Clientdataset1.Active:=true;
  73. end;
  75. end.