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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
新建 文本文档.txt
资源名称：xiaobai.rar　[点击查看]
上传用户：autowell
上传日期：2022-06-21
资源大小：16754k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

新建 文本文档.txt：源码内容
  1. unit Unit2;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, DB, ADODB, Mask;
  9. type
  10.   TForm2 = class(TForm)
  11.     Label1: TLabel;
  12.     RadioButton1: TRadioButton;
  13.     RadioButton2: TRadioButton;
  14.     Button1: TButton;
  15.     ADOQuery1: TADOQuery;
  16.     GroupBox1: TGroupBox;
  17.     Label2: TLabel;
  18.     Edit3: TEdit;
  19.     Label5: TLabel;
  20.     DataSource1: TDataSource;
  21.     DataSource2: TDataSource;
  22.     ADOQuery2: TADOQuery;
  23.     MaskEdit1: TMaskEdit;
  24.     procedure Button1Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  31. var
  32.   Form2: TForm2;
  34. implementation
  36. uses Unit3;
  38. {$R *.dfm}
  40. procedure TForm2.Button1Click(Sender: TObject);
  41. var
  42.   ad_name,ad_psd:string;
  43.   sno:string;
  44. begin
  45.    if not(radiobutton1.Checked) and not(radiobutton2.Checked) then
  46.     application.MessageBox('请选择登陆身份','确定',mb_ok);
  47.    if radiobutton1.Checked  then
  48.      begin
  49.      if  edit3.Text=''  then  application.MessageBox('请选择正确用户名登陆','确定',mb_ok);
  50.      adoquery1.Active:=true;
  51.      ad_name:=adoquery1.Fields[0].Value;
  52.      ad_psd:=adoquery1.Fields[1].Value;
  53.      if(edit3.Text=ad_name) and (maskedit1.Text=ad_psd)   then
  54.      begin
  55.       application.MessageBox('你已经成功登陆','确定',mb_ok);
  56.       form3.show;
  57.       end
  58.       else
  59.          application.MessageBox('用户名或密码','确定',mb_ok);
  60.      end;
  61.    if   radiobutton2.Checked  then
  62.      begin
  63.       if  edit3.Text=''  then  application.MessageBox('请选择正确用户名登陆','确定',mb_ok);
  64.       with    adoquery2 do
  65.       begin
  66.         close;
  67.         sql.Clear;
  68.         sql.Add('select * from student');
  69.         sql.Add('where');
  70.         sql.Add('sno='+ quotedstr(edit3.Text));
  71.         open;
  72.         active:=true;
  73.       end;
  74.       if adoquery2.Recordcount=0 then
  75.        application.MessageBox('用户名不存在','确定',mb_ok)
  76.       else
  77.         begin
  78.         sno:=adoquery2.Fields[0].Value;
  79.         if(edit3.Text=sno) and (maskedit1.Text=sno)    then
  80.         begin
  81.         application.MessageBox('成功登陆','确定',mb_ok);
  82.         form3.Show;
  83.         form2.edit3.Text:='';
  84.         form2.maskedit1.Text:='';
  85.         end
  86.         else
  87.         application.MessageBox('密码有误','确定',mb_ok);
  88.      end;
  89. end;
  90. end;
  91. end.