急求一个Delphi7的程序

来源：百度知道 编辑：UC知道 时间：2024/05/28 11:03:07
通过组件应用设计的登录界面
需要用户名和密码进入的
还需要一个进度条。
谢谢！
急需~！

你现在工程中新建立一个窗体，下面所添加在窗体上的控件：
ActionManager1
Button1
Button2
Edit1
Edit2
SpeedButton1
SpeedButton2

在按下面这个代码做就没有问题了，
type
TFrm_dl = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
ActionManager1: TActionManager;
Action1: TAction;
Action2: TAction;
Button1: TButton;
Button2: TButton;
procedure Action1Execute(Sender: TObject);
procedure Action2Execute(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
这里加你命名的窗体的名称;

implementation
uses 这里加你设计用ADO连接数据库后的在delphi中形成的窗体的名称；
{$R *.dfm}

procedure 这里加你命名的窗体的名称.Action1Execute(Sender: