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

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

Delphi控件源码

开发平台：

Delphi

yhz_bjs.pas：源码内容
  1. unit yhz_bjs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, StdCtrls, Mask, DBCtrls, Buttons;
  9. type
  10.   Tyhz_bj = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     Panel1: TPanel;
  14.     Label2: TLabel;
  15.     DBEdit1: TDBEdit;
  16.     Label3: TLabel;
  17.     DBEdit2: TDBEdit;
  18.     Label4: TLabel;
  19.     Label5: TLabel;
  20.     DBEdit4: TDBEdit;
  21.     Label6: TLabel;
  22.     Label7: TLabel;
  23.     Label8: TLabel;
  24.     SpeedButton1: TSpeedButton;
  25.     SpeedButton2: TSpeedButton;
  26.     js: TDBLookupComboBox;
  27.     procedure SpeedButton2Click(Sender: TObject);
  28.     procedure SpeedButton1Click(Sender: TObject);
  29.     procedure FormKeyPress(Sender: TObject; var Key: Char);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  36. var
  37.   yhz_bj: Tyhz_bj;
  39. implementation
  41. uses xt_yhz_ms, DMs;
  43. {$R *.dfm}
  45. procedure Tyhz_bj.SpeedButton2Click(Sender: TObject);
  46. begin
  47.   close;
  48. end;
  50. procedure Tyhz_bj.SpeedButton1Click(Sender: TObject);
  51. var i:integer;
  52. begin
  53.    if dbedit1.Text='' then
  54.    begin
  55.     application.MessageBox('用户组代码不能为空!','提示',mb_ok+mb_iconinformation);
  56.     exit;
  57.    end;
  58.    if dbedit2.Text='' then
  59.    begin
  60.     application.MessageBox('用户组名称不能为空!','提示',mb_ok+mb_iconinformation);
  61.     exit;
  62.    end;
  63.    if js.Text='' then
  64.    begin
  65.     application.MessageBox('角色不能为空!','提示',mb_ok+mb_iconinformation);
  66.     exit;
  67.    end;
  68.    Dm.xt_yhz.ApplyUpdates(0);
  69.    i:=Dm.xt_yhz.ApplyUpdates(0);
  70.    if i=0 then
  71.    begin
  72.       application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  73.       close;
  74.       xt_yhz.ToolButton4.Click;
  75.    end
  76.    else
  77.    begin
  78.      application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  79.      exit;
  80.    end;   
  81. end;
  83. procedure Tyhz_bj.FormKeyPress(Sender: TObject; var Key: Char);
  84. begin
  85.   if key=#13 then
  86.   begin
  87.      key:=#0;
  88.      perform(WM_NEXTDLGCTL,0,0);
  89.   end;
  90. end;
  92. end.