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

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

Delphi控件源码

开发平台：

Delphi

Am_Yhgl_Zcs.~pas：源码内容
  1. unit Am_Yhgl_Zcs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, Mask, DBCtrlsEh, Buttons, DB, DBClient;
  9. type
  10.   TAm_Yhgl_Zc = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     GroupBox1: TGroupBox;
  14.     GroupBox2: TGroupBox;
  15.     GroupBox3: TGroupBox;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Label4: TLabel;
  19.     Label5: TLabel;
  20.     Label6: TLabel;
  21.     Label7: TLabel;
  22.     Label8: TLabel;
  23.     DBEditEh1: TDBEditEh;
  24.     DBEditEh2: TDBEditEh;
  25.     DBEditEh3: TDBEditEh;
  26.     DBEditEh4: TDBEditEh;
  27.     DBEditEh5: TDBEditEh;
  28.     DBEditEh7: TDBEditEh;
  29.     Label9: TLabel;
  30.     Label10: TLabel;
  31.     Label11: TLabel;
  32.     SpeedButton1: TSpeedButton;
  33.     SpeedButton2: TSpeedButton;
  34.     SpeedButton3: TSpeedButton;
  35.     DataSource1: TDataSource;
  36.     DBEditEh6: TDBEditEh;
  37.     procedure SpeedButton3Click(Sender: TObject);
  38.     procedure SpeedButton2Click(Sender: TObject);
  39.     procedure FormCreate(Sender: TObject);
  40.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  41.     procedure DBEditEh1KeyPress(Sender: TObject; var Key: Char);
  42.     procedure DBEditEh2KeyPress(Sender: TObject; var Key: Char);
  43.     procedure DBEditEh3KeyPress(Sender: TObject; var Key: Char);
  44.     procedure DBEditEh5KeyPress(Sender: TObject; var Key: Char);
  45.     procedure DBEditEh6KeyPress(Sender: TObject; var Key: Char);
  46.     procedure SpeedButton1Click(Sender: TObject);
  47.     procedure DBEditEh4Exit(Sender: TObject);
  48.     procedure DBEditEh4KeyPress(Sender: TObject; var Key: Char);
  49.     procedure DBEditEh6Exit(Sender: TObject);
  50.     procedure DBEditEh7KeyPress(Sender: TObject; var Key: Char);
  51.   private
  52.     { Private declarations }
  53.   public
  54.     { Public declarations }
  55.   end;
  57. var
  58.   Am_Yhgl_Zc: TAm_Yhgl_Zc;
  60. implementation
  61. uses dms,u_public,mainfrms, Am_Ygxzs;
  62. {$R *.dfm}
  64. procedure TAm_Yhgl_Zc.SpeedButton3Click(Sender: TObject);
  65. begin
  66.   close;
  67. end;
  69. procedure TAm_Yhgl_Zc.SpeedButton2Click(Sender: TObject);
  70. var s_dm:string;//员工代码
  71.     N:integer;//错误
  72. begin
  73.   if trim(dbediteh1.Text)='' then
  74.    begin
  75.      application.MessageBox('用户代码不能为空','提示',mb_ok+mb_iconinformation);
  76.      dbediteh1.SetFocus;
  77.      exit;
  78.    end;
  79.   if trim(dbediteh2.Text)='' then
  80.    begin
  81.      application.MessageBox('用户名称不能为空','提示',mb_ok+mb_iconinformation);
  82.      dbediteh2.SetFocus;
  83.      exit;
  84.    end;
  85.   if trim(dbediteh4.Text)='' then
  86.    begin
  87.      application.MessageBox('员工代码不能为空','提示',mb_ok+mb_iconinformation);
  88.      dbediteh4.SetFocus;
  89.      exit;
  90.    end;
  91.   if dbediteh7.Text<>dbediteh6.Text then
  92.    begin
  93.     application.MessageBox('密码输入不一致'+#13#10+'请检查密码','提示'mb_ok+mb_iconinformation);
  94.     exit;
  95.    end;
  96.   //有效性验证
  97.   dm.xt_user.FieldByName('user_password').AsString:=Encrypt(trim(dbediteh6.Text));
  98.   n:=dm.xt_user.ApplyUpdates(0);
  99.   if n<>0 then
  100.    begin
  101.      application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  102.      exit;
  103.    end
  104.   else
  105.    begin
  106.      application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  107.      close;
  108.    end;
  109. end;
  111. procedure TAm_Yhgl_Zc.FormCreate(Sender: TObject);
  112. begin
  113.  dm.sz_yg.Active:=true;
  114.  frm_name:='am_yhgl_zc';
  115. end;
  117. procedure TAm_Yhgl_Zc.FormClose(Sender: TObject; var Action: TCloseAction);
  118. begin
  119.  dm.sz_yg.Active:=false;
  120.  frm_name:='';
  121.  action:=cafree;
  122.  am_yhgl_zc:=nil;
  123. end;
  125. procedure TAm_Yhgl_Zc.DBEditEh1KeyPress(Sender: TObject; var Key: Char);
  126. begin
  127.  if key=#13 then
  128.     dbediteh2.SetFocus;
  129. end;
  131. procedure TAm_Yhgl_Zc.DBEditEh2KeyPress(Sender: TObject; var Key: Char);
  132. begin
  133.  if key=#13 then
  134.     dbediteh3.SetFocus;
  135. end;
  137. procedure TAm_Yhgl_Zc.DBEditEh3KeyPress(Sender: TObject; var Key: Char);
  138. begin
  139.  {if key=#13 then
  140.     speedButton1.Click;}
  141. end;
  143. procedure TAm_Yhgl_Zc.DBEditEh5KeyPress(Sender: TObject; var Key: Char);
  144. begin
  145.  if key=#13 then
  146.     dbediteh6.SetFocus;
  147. end;
  149. procedure TAm_Yhgl_Zc.DBEditEh6KeyPress(Sender: TObject; var Key: Char);
  150. begin
  151.  if key=#13 then
  152.     dbediteh7.SetFocus;
  153. end;
  155. procedure TAm_Yhgl_Zc.SpeedButton1Click(Sender: TObject);
  156. begin
  157.  if am_ygxz=nil then
  158.   begin
  159.     am_ygxz:=Tam_ygxz.create(self);
  160.     am_ygxz.showmodal;
  161.   end;
  162. end;
  164. procedure TAm_Yhgl_Zc.DBEditEh4Exit(Sender: TObject);
  165. var s,s_dm:string;
  166. begin
  167.   s:=trim(dbediteh4.Text);
  168.   if s<>'' then
  169.    begin
  170.      dm.sz_yg.Close;
  171.      dm.sz_yg.CommandText:='select * from sz_yg where yg_dm='+''''+s+''''+'';
  172.      dm.sz_yg.open;
  173.      if dm.sz_yg.RecordCount<>0 then
  174.       begin
  175.        s_dm:=trim(dm.sz_yg.FieldByName('yg_dm').AsString);
  176.          if s<>'' then
  177.             dbediteh5.Text:=s_dm
  178.       end
  179.      else
  180.       begin
  181.        application.MessageBox('当前表中没有该员工代码','提示',mb_ok+mb_iconinformation);
  182.        dbediteh4.Text:='';
  183.        dbediteh4.SetFocus;
  184.        exit;//end if
  185.       end;
  186.    end
  187.   else
  188.    begin
  189.      exit;
  190.    end;
  191. end;
  193. procedure TAm_Yhgl_Zc.DBEditEh4KeyPress(Sender: TObject; var Key: Char);
  194. begin
  195.  if key=#13 then
  196.     dbediteh6.SetFocus;
  197. end;
  199. procedure TAm_Yhgl_Zc.DBEditEh6Exit(Sender: TObject);
  200. begin
  201.   {if user_password<>dbediteh6.Text   then
  202.    begin
  203.      Application.MessageBox('旧密码错误！','提示',mb_ok+mb_iconinformation);
  204.      dbediteh6.Text:='';
  205.    end}//密码修改时用到
  206. end;
  208. procedure TAm_Yhgl_Zc.DBEditEh7KeyPress(Sender: TObject; var Key: Char);
  209. begin
  210.  if key=#13 then
  211.     speedButton2.Click;
  212. end;
  214. end.