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

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

Delphi控件源码

开发平台：

Delphi

am_yhz_xzs.pas：源码内容
  1. unit am_yhz_xzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, Buttons, Grids, DBGridEh, ExtCtrls;
  9. type
  10.   Tam_yhz_xz = class(TForm)
  11.     Panel1: TPanel;
  12.     DBGridEh1: TDBGridEh;
  13.     Panel2: TPanel;
  14.     SpeedButton1: TSpeedButton;
  15.     SpeedButton2: TSpeedButton;
  16.     SpeedButton3: TSpeedButton;
  17.     DataSource1: TDataSource;
  18.     procedure FormCreate(Sender: TObject);
  19.     procedure SpeedButton2Click(Sender: TObject);
  20.     procedure SpeedButton3Click(Sender: TObject);
  21.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  22.     procedure DBGridEh1DblClick(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  29. var
  30.   am_yhz_xz: Tam_yhz_xz;
  32. implementation
  33. uses dms,u_public, Xt_Qxszs;
  34. {$R *.dfm}
  36. procedure Tam_yhz_xz.FormCreate(Sender: TObject);
  37. begin
  38.  dm.V_UandG.Close;
  39.  dm.v_uandg.CommandText:='P_yhz_xz';
  40.  dm.V_UandG.Open;
  41. end;
  43. procedure Tam_yhz_xz.SpeedButton2Click(Sender: TObject);
  44. begin
  45.  if dm.V_UandG.RecordCount<>0 then
  46.   begin
  47.     Xt_Cdqx.FlatEdit1.text:=dm.v_uandG.fieldbyname('yhz_mc').AsString;
  48.     Xt_Cdqx.FlatEdit2.text:=dm.v_uandG.fieldbyname('yhz_dm').AsString;
  49.     xt_cdqx.AllSelect.Enabled:=true;
  50.     xt_cdqx.AllClear.Enabled:=true;
  51.     xt_cdqx.Quit.Enabled:=true;
  52.     xt_cdqx.Save.Enabled:=true;
  53.     close;
  54.   end;
  55. end;
  57. procedure Tam_yhz_xz.SpeedButton3Click(Sender: TObject);
  58. begin
  59.  close;
  60. end;
  62. procedure Tam_yhz_xz.FormClose(Sender: TObject; var Action: TCloseAction);
  63. begin
  64.  dm.V_UandG.Active:=false;
  65.  action:=cafree;
  66.  am_yhz_xz:=nil;
  67. end;
  69. procedure Tam_yhz_xz.DBGridEh1DblClick(Sender: TObject);
  70. begin
  71.  if dm.V_UandG.RecordCount<>0 then
  72.   begin
  73.     Xt_Cdqx.FlatEdit1.text:=dm.v_uandG.fieldbyname('yhz_mc').AsString;
  74.     Xt_Cdqx.FlatEdit2.text:=dm.v_uandG.fieldbyname('yhz_dm').AsString;
  75.     xt_cdqx.AllSelect.Enabled:=true;
  76.     xt_cdqx.AllClear.Enabled:=true;
  77.     xt_cdqx.Quit.Enabled:=true;
  78.     xt_cdqx.Save.Enabled:=true;
  79.     close;
  80.   end;
  81. end;
  83. end.