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

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

Delphi控件源码

开发平台：

Delphi

am_dz_xzs.pas：源码内容
  1. unit am_dz_xzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, Grids, DBGridEh, Buttons, DB, DBClient;
  9. type
  10.   Tam_dz_xz = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     SpeedButton1: TSpeedButton;
  14.     SpeedButton2: TSpeedButton;
  15.     DBGridEh1: TDBGridEh;
  16.     DataSource1: TDataSource;
  17.     SpeedButton3: TSpeedButton;
  18.     procedure SpeedButton2Click(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  21.     procedure DBGridEh1DblClick(Sender: TObject);
  22.     procedure SpeedButton3Click(Sender: TObject);
  23.     procedure SpeedButton1Click(Sender: TObject);
  24.     procedure FormShow(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  31. var
  32.   am_dz_xz: Tam_dz_xz;
  34. implementation
  35. uses dms,u_public,am_jygl_bjs, am_dzbjs, ljszs;
  36. {$R *.dfm}
  38. procedure Tam_dz_xz.SpeedButton2Click(Sender: TObject);
  39. begin
  40.  if dm.V_DZ.RecordCount<>0 then
  41.   begin
  42.     am_jygl_bj.DBEditEh2.Text:=dbgrideh1.Columns[0].DisplayText;
  43.     close;
  44.   end;
  45. end;
  47. procedure Tam_dz_xz.FormCreate(Sender: TObject);
  48. begin
  49.   {Dm.am_dz.Active:=true;
  50.   dm.am_jygz.Active:=true;
  51.   DM.sz_zjlb.Active:=true;}
  52.   dm.V_DZ.Close;
  53.   dm.V_DZ.CommandText:='select * from v_dz';
  54.   dm.V_DZ.Open;
  55. end;
  57. procedure Tam_dz_xz.FormClose(Sender: TObject; var Action: TCloseAction);
  58. begin
  59.   Dm.am_dz.Active:=false;
  60.   dm.am_jygz.Active:=false;
  61.   DM.sz_zjlb.Active:=false;
  62.   dm.V_DZ.Active:=false;
  63.   action:=cafree;
  64.   am_dz_xz:=nil;
  65. end;
  67. procedure Tam_dz_xz.DBGridEh1DblClick(Sender: TObject);
  68. var
  69.   k:string;
  70. begin
  71.  if dm.V_DZ.RecordCount<>0 then
  72.   begin
  73.     k:=dbgrideh1.Columns[0].DisplayText;
  74.     am_jygl_bj.DBEditEh2.clear;
  75.     am_jygl_bj.DBEditEh2.text:=k;
  76.     close;
  77.   end;
  78. end;
  80. procedure Tam_dz_xz.SpeedButton3Click(Sender: TObject);
  81. begin
  82.  close;
  83. end;
  85. procedure Tam_dz_xz.SpeedButton1Click(Sender: TObject);
  86. begin
  87.   if am_dzbj=nil then
  88.   begin
  89.      am_dzbj:=Tam_dzbj.create(application);
  90.      dm.am_dz.Close;
  91.      dm.am_dz.CommandText:='select * from am_dz where dz_dm='+''''+''''+'';
  92.      dm.am_dz.Open;
  93.      am_dzbj.Label1.Caption:='增加读者';
  94.      am_dzbj.showmodal;
  95.   end;
  96. end;
  98. procedure Tam_dz_xz.FormShow(Sender: TObject);
  99. begin
  100. {  clientdataset1.Close;
  101.   clientdataset1.CommandText:='select * from v_dz';
  102.   clientdataset1.Open; }
  103. end;
  105. end.