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

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

Delphi控件源码

开发平台：

Delphi

am_yhgl_xgs.pas：源码内容
  1. unit am_yhgl_xgs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, ExtCtrls, Buttons, StdCtrls, Mask, DBCtrlsEh;
  9. type
  10.   Tam_yhgl_xg = class(TForm)
  11.     GroupBox1: TGroupBox;
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     Label4: TLabel;
  15.     Label9: TLabel;
  16.     Label10: TLabel;
  17.     DBEditEh1: TDBEditEh;
  18.     DBEditEh2: TDBEditEh;
  19.     DBEditEh3: TDBEditEh;
  20.     GroupBox2: TGroupBox;
  21.     Label5: TLabel;
  22.     Label6: TLabel;
  23.     Label11: TLabel;
  24.     SpeedButton1: TSpeedButton;
  25.     DBEditEh4: TDBEditEh;
  26.     DBEditEh5: TDBEditEh;
  27.     Label1: TLabel;
  28.     Image1: TImage;
  29.     SpeedButton2: TSpeedButton;
  30.     SpeedButton3: TSpeedButton;
  31.     DataSource1: TDataSource;
  32.     procedure SpeedButton3Click(Sender: TObject);
  33.     procedure SpeedButton2Click(Sender: TObject);
  34.     procedure DBEditEh1KeyPress(Sender: TObject; var Key: Char);
  35.     procedure DBEditEh2KeyPress(Sender: TObject; var Key: Char);
  36.     procedure DBEditEh3KeyPress(Sender: TObject; var Key: Char);
  37.     procedure SpeedButton1Click(Sender: TObject);
  38.     procedure FormCreate(Sender: TObject);
  39.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  40.     procedure DBEditEh4KeyPress(Sender: TObject; var Key: Char);
  41.     procedure DBEditEh4Exit(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  48. var
  49.   am_yhgl_xg: Tam_yhgl_xg;
  51. implementation
  53. uses DMs, Am_Ygxzs,u_public;
  55. {$R *.dfm}
  57. procedure Tam_yhgl_xg.SpeedButton3Click(Sender: TObject);
  58. begin
  59. close;
  60. end;
  62. procedure Tam_yhgl_xg.SpeedButton2Click(Sender: TObject);
  63. var s_dm:string;//员工代码
  64.     N:integer;//错误
  65. begin
  66.   if trim(dbediteh1.Text)='' then
  67.    begin
  68.      application.MessageBox('用户代码不能为空','提示',mb_ok+mb_iconinformation);
  69.      dbediteh1.SetFocus;
  70.      exit;
  71.    end;
  72.   if trim(dbediteh2.Text)='' then
  73.    begin
  74.      application.MessageBox('用户名称不能为空','提示',mb_ok+mb_iconinformation);
  75.      dbediteh2.SetFocus;
  76.      exit;
  77.    end;
  78.   if trim(dbediteh4.Text)='' then
  79.    begin
  80.      application.MessageBox('员工代码不能为空','提示',mb_ok+mb_iconinformation);
  81.      dbediteh4.SetFocus;
  82.      exit;
  83.    end;
  84.   //有效性验证
  85.   n:=dm.xt_user.ApplyUpdates(0);
  86.   if n<>0 then
  87.    begin
  88.      application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  89.      exit;
  90.    end
  91.   else
  92.    begin
  93.      application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  94.      close;
  95.    end;
  96. end;
  99. procedure Tam_yhgl_xg.DBEditEh1KeyPress(Sender: TObject; var Key: Char);
  100. begin
  101. if key=#13 then
  102.     dbediteh2.SetFocus;
  103. end;
  105. procedure Tam_yhgl_xg.DBEditEh2KeyPress(Sender: TObject; var Key: Char);
  106. begin
  107.  if key=#13 then
  108.     dbediteh3.SetFocus;
  109. end;
  111. procedure Tam_yhgl_xg.DBEditEh3KeyPress(Sender: TObject; var Key: Char);
  112. begin
  113.  if key=#13 then
  114.     dbediteh4.SetFocus;
  115. end;
  117. procedure Tam_yhgl_xg.SpeedButton1Click(Sender: TObject);
  118. begin
  119.  if am_ygxz=nil then
  120.   begin
  121.     am_ygxz:=Tam_ygxz.create(self);
  122.     am_ygxz.showmodal;
  123.   end;
  124. end;
  126. procedure Tam_yhgl_xg.FormCreate(Sender: TObject);
  127. begin
  128.  dm.sz_yg.Active:=true;
  129.  frm_name:='am_yhgl_xg';
  130. end;
  132. procedure Tam_yhgl_xg.FormClose(Sender: TObject; var Action: TCloseAction);
  133. begin
  134.  dm.sz_yg.Active:=false;
  135.  frm_name:='';
  136.  action:=cafree;
  137.  am_yhgl_xg:=nil;
  138. end;
  140. procedure Tam_yhgl_xg.DBEditEh4KeyPress(Sender: TObject; var Key: Char);
  141. begin
  142.  if key=#13 then
  143.     speedbutton2.Click;
  144. end;
  146. procedure Tam_yhgl_xg.DBEditEh4Exit(Sender: TObject);
  147. var s,s_dm:string;
  148. begin
  149.   {s:=trim(dbediteh4.Text);
  150.   if s<>'' then
  151.    begin
  152.      dm.sz_yg.Close;
  153.      dm.sz_yg.CommandText:='select * from sz_yg where yg_dm='+''''+s+''''+'';
  154.      dm.sz_yg.open;
  155.      if dm.sz_yg.RecordCount<>0 then
  156.       begin
  157.        s_dm:=trim(dm.sz_yg.FieldByName('yg_dm').AsString);
  158.          if s<>'' then
  159.             dbediteh5.Text:=s_dm
  160.       end
  161.      else
  162.       begin
  163.        application.MessageBox('当前表中没有该员工代码','提示',mb_ok+mb_iconinformation);
  164.        dbediteh4.Text:='';
  165.        dbediteh4.SetFocus;
  166.        exit;//end if
  167.       end;
  168.    end
  169.   else
  170.    begin
  171.      exit;
  172.    end; }
  173. end;
  175. end.