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

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

Delphi控件源码

开发平台：

Delphi

Am_Ygxzs.pas：源码内容
  1. unit Am_Ygxzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, Buttons, Grids, DBGridEh, ExtCtrls, DBClient;
  9. type
  10.   TAm_Ygxz = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     SpeedButton1: TSpeedButton;
  14.     SpeedButton2: TSpeedButton;
  15.     SpeedButton3: TSpeedButton;
  16.     DataSource1: TDataSource;
  17.     DBGridEh1: TDBGridEh;
  18.     ClientDataSet1: TClientDataSet;
  19.     procedure SpeedButton3Click(Sender: TObject);
  20.     procedure FormCreate(Sender: TObject);
  21.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  22.     procedure DBGridEh1DblClick(Sender: TObject);
  23.     procedure SpeedButton2Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  30. var
  31.   Am_Ygxz: TAm_Ygxz;
  33. implementation
  34. uses dms, Am_Yhgl_Zcs, am_yhgl_xgs,u_public;
  35. {$R *.dfm}
  37. procedure TAm_Ygxz.SpeedButton3Click(Sender: TObject);
  38. begin
  39.  close;
  40. end;
  42. procedure TAm_Ygxz.FormCreate(Sender: TObject);
  43. begin
  44.  //dm.v_yggl.active:=true;
  45.  dm.v_yggl.Close;
  46.  dm.v_yggl.CommandText:='select * from v_yggl';
  47.  dm.v_yggl.open;
  48. end;
  50. procedure TAm_Ygxz.FormClose(Sender: TObject; var Action: TCloseAction);
  51. begin
  52.  dm.v_yggl.Active:=false;
  53.  action:=cafree;
  54.  am_ygxz:=nil;
  55. end;
  57. procedure TAm_Ygxz.DBGridEh1DblClick(Sender: TObject);
  58. var s:string;
  59. begin
  60.   s:=dm.v_yggl.fieldbyname('yg_dm').AsString;
  61.   Clientdataset1.Close;
  62.   clientdataset1.CommandText:='select * from xt_user where user_ygdm='+''''+s+''''+'';
  63.   Clientdataset1.Open;
  64.   if clientdataset1.FieldByName('user_ygdm').AsString<>'' then
  65.   begin
  66.     application.MessageBox('一个员工只能对应一个用户，'+#13#10+'该用户资料已经存在','提示',mb_ok+mb_iconinformation);
  67.     exit;
  68.   end
  69.   else
  70.    begin//判断是修改还是增加
  71.     if frm_name='am_yhgl_zc' then
  72.      begin
  73.        Am_Yhgl_Zc.DBEditeh4.Text:=dm.v_yggl.fieldbyname('yg_dm').AsString;
  74.        am_yhgl_zc.dbediteh5.Text:=dm.v_yggl.fieldbyname('yg_xm').AsString;
  75.        close;
  76.      end
  77.     else
  78.      begin
  79.        Am_Yhgl_xg.DBEditeh4.Text:=dm.v_yggl.fieldbyname('yg_dm').AsString;
  80.        am_yhgl_xg.dbediteh5.Text:=dm.v_yggl.fieldbyname('yg_xm').AsString;
  81.        close;
  82.      end;
  83.    end;
  84. end;
  87. procedure TAm_Ygxz.SpeedButton2Click(Sender: TObject);
  88. var s:string;
  89. begin
  90.   s:=dm.v_yggl.fieldbyname('yg_dm').AsString;
  91.   Clientdataset1.Close;
  92.   clientdataset1.CommandText:='select * from xt_user where user_ygdm='+''''+s+''''+'';
  93.   Clientdataset1.Open;
  94.   if clientdataset1.FieldByName('user_ygdm').AsString<>'' then
  95.   begin
  96.     application.MessageBox('一个员工只能对应一个用户，'+#13#10+'该用户资料已经存在','提示',mb_ok+mb_iconinformation);
  97.     exit;
  98.   end
  99.   else
  100.    begin//判断是修改还是增加
  101.     if frm_name='am_yhgl_zc' then
  102.      begin
  103.        Am_Yhgl_Zc.DBEditeh4.Text:=dm.v_yggl.fieldbyname('yg_dm').AsString;
  104.        am_yhgl_zc.dbediteh5.Text:=dm.v_yggl.fieldbyname('yg_xm').AsString;
  105.        close;
  106.      end
  107.     else
  108.      begin
  109.        Am_Yhgl_xg.DBEditeh4.Text:=dm.v_yggl.fieldbyname('yg_dm').AsString;
  110.        am_yhgl_xg.dbediteh5.Text:=dm.v_yggl.fieldbyname('yg_xm').AsString;
  111.        close;
  112.      end;
  113.    end;
  114. end;
  116. end.