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

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

Delphi控件源码

开发平台：

Delphi

Unit1.pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, ADODB, StdCtrls, ExtCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     RadioGroup1: TRadioGroup;
  12.     RadioButton1: TRadioButton;
  13.     RadioButton2: TRadioButton;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Edit1: TEdit;
  17.     Label3: TLabel;
  18.     Edit2: TEdit;
  19.     DataSource1: TDataSource;
  20.     Button1: TButton;
  21.     Button2: TButton;
  22.     ADOQuery1: TADOQuery;
  23.     ADOQuery2: TADOQuery;
  24.     DataSource2: TDataSource;
  25.     procedure Button1Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   Form1: TForm1;
  35. implementation
  36.     uses unit4;
  37. {$R *.dfm}
  39. procedure TForm1.Button1Click(Sender: TObject);
  40. var
  41.   adminName,adminPsw:String;
  42. begin
  43.    if not(RadioButton1.Checked) and not(RadioButton2.Checked) then
  44.       MessageDlg('请选择用户类型！！',mtWarning,[mbok],0)
  45.    else if RadioButton1.Checked=true then
  46.         begin
  47.              if (edit1.Text='') and (edit2.Text='') then
  48.                 MessageDlg('用户名或密码不能为空！！',mtWarning,[mbok],0);
  50.              adminName:=edit1.Text;
  51.              adminPsw:=edit2.Text;
  53.              with ADOQuery1 do
  54.              begin
  55.                   close;
  56.                   sql.Clear;
  57.                   sql.Add('select * from manager');
  58.                   sql.Add('where') ;
  59.                   sql.Add('用户名='+ quotedstr(edit1.Text));
  60.                   open;
  61.                   active:=true;
  63.              end;
  64.              if  ADOQuery1.RecordCount=0 then
  65.                  MessageDlg('用户不存在!!',mtWarning,[mbok],0)
  66.              else
  67.                 begin
  68.                     if edit2.Text=ADOQuery1.Fields[2].Value then
  69.                       begin
  70.                           MessageDlg('您已经成功登录系统!!',mtInformation,[mbok],0);
  71.                           form4.show;
  72.                           form1.Edit1.Text:='';
  73.                           form1.Edit2.Text:='';
  74.                       end
  75.                     else
  76.                       MessageDlg('密码有误！！',mtWarning,[mbok],0);
  78.                 end;
  80.         end;
  82. end;
  84. end.