谁有delphi做的登录窗体的代码发下

来源：百度知道 编辑：UC知道 时间：2024/05/15 12:33:22
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from tushu1 where id='''+combobox1.Text +''' and mima='''+edit1.Text +'''');
adoquery1.Close;
adoquery1.Open;
if adoquery1.RecordCount=1 then
begin
form1.Hide;
form2.Show;
end
else
begin
showmessage('你输入的用户名或密码错误');
end;
end;

我自己研究出来了。

这是我的商用软件登陆窗体源码（我的名字及电话号码为*）
unit sdlps;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, DBCtrls, ExtCtrls, Mask;

type
TPasswordDlg = class(TForm)
Label1: TLabel;
Password: TEdit;
OKBtn: TButton;
CancelBtn: TButton;
Label2: TLabel;
DBNavigator1: TDBNavigator;
Lusername: TLabel;
procedure OKBtnClick(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
PasswordDlg: TPasswordDlg;
FRetries:integer;

implementation

uses dmpas;
//客户端数据集
{$R *.dfm}

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
var
MaxRetries:Integer;
s:string;
Poped