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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
Uuser2.pas
资源名称：连锁药店源码.rar　[点击查看]
上传用户：jiete_yjc
上传日期：2010-02-11
资源大小：422k
文件大小：2k
源码类别：

医药行业

开发平台：

Delphi

Uuser2.pas：源码内容
  1. unit Uuser2;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Buttons;
  9. type
  10.   TFuser2 = class(TForm)
  11.     Label1: TLabel;
  12.     DBEdit1: TDBEdit;
  13.     Label2: TLabel;
  14.     DBEdit2: TDBEdit;
  15.     Label3: TLabel;
  16.     DBEdit3: TDBEdit;
  17.     Edit1: TEdit;
  18.     Label5: TLabel;
  19.     Bevel1: TBevel;
  20.     BitBtn1: TBitBtn;
  21.     BitBtn2: TBitBtn;
  22.     Memo1: TMemo;
  23.     procedure checkstr(Sender: TObject);
  24.     procedure Button2Click(Sender: TObject);
  25.     procedure FormShow(Sender: TObject);
  26.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  27.     procedure BitBtn1Click(Sender: TObject);
  28.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  29.       Shift: TShiftState);
  30.     procedure BitBtn2Click(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  37. var
  38.   Fuser2: TFuser2;
  40. implementation
  42. uses udm;
  44. {$R *.dfm}
  46. procedure TFuser2.checkstr(Sender: TObject);
  47. begin
  48. if trim((sender as Tdbedit).Text)='' then
  49.   begin
  50.      showmessage('此栏必须填写信息!');
  51.      (sender as tdbedit).SetFocus; 
  52.   end;
  53. end;
  55. procedure TFuser2.Button2Click(Sender: TObject);
  56. begin
  57.   adodm.tuser.Cancel;
  58.   close;
  59. end;
  61. procedure TFuser2.FormShow(Sender: TObject);
  62. begin
  63.   dbedit1.SetFocus;
  64. end;
  66. procedure TFuser2.FormClose(Sender: TObject; var Action: TCloseAction);
  67. begin
  68.   adodm.tuser.cancel;
  69. end;
  71. procedure TFuser2.BitBtn1Click(Sender: TObject);
  72. begin
  73.   if trim(dbedit1.Text)='' then
  74.   dbedit1.SetFocus else
  75.   if trim(dbedit2.Text)='' then
  76.   dbedit2.SetFocus else
  77.   if trim(dbedit3.Text)='' then
  78.   dbedit3.SetFocus else
  79.   if trim(edit1.Text)='' then
  80.   edit1.SetFocus else
  81.   if dbedit3.Text<>edit1.Text then
  82.   begin
  83.   showmessage('两次录入的密码不同，请确认密码！');
  84.   edit1.SetFocus;
  85.   end
  86.   else
  87.   begin
  89.   adodm.tuser.Post;
  90.   fuser2.ModalResult:=mrok;
  91.   end;
  92. end;
  94. procedure TFuser2.FormKeyDown(Sender: TObject; var Key: Word;
  95.   Shift: TShiftState);
  96. begin
  97.   if key=vk_return then
  98.   sendmessage(handle,wm_keydown,vk_tab,0);
  100. end;
  102. procedure TFuser2.BitBtn2Click(Sender: TObject);
  103. begin
  104. close;
  105. end;
  107. end.