1.dfmԴ?码说明? ˵??
dfmԴ?? ˵??
大致思路是：做一个登录框Form1，两个Edit。码说明在Edit1中写入用户名，码说明变量做图源码在Edit2中写入密码！码说明程序自动到数据库中指写表查找用户名密码全对，码说明推筒子游戏源码即可。码说明javaEE评论回复源码
首先new一个新的码说明工程，然后再新建一个是码说明form，进入project菜单，码说明单击其中的码说明option菜单后进入，使form2成为不自动创建（方法为：在auto-create forms中选中form2,码说明然后双击即可，单击ok按钮）。码说明
此程序的码说明源码资本 张星辰原理是通过在密码窗体(运行时首先显示此窗体)输入的密码文本是否和主窗体中的edit中的文本一样，如果一样就进入程序，码说明否则退出程序。码说明小程序网站源码
在form1,form2中各加一个eidt控件，然后在form2中加入一个button控件。
程序源码如下：
工程文件：
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' { Form1},
Unit2 in 'Unit2.pas' { Form2};
{ $R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form2:=tform2.create(application);
form2.showmodal;
if (text1<>form1.edit1.text) then
begin
application.Terminate;
end;
Application.Run;
end.
单元1文件
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{ $R *.DFM}
end.
单元2文件
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
text1:string;
implementation
{ $R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
text1:=form2.edit1.text;
form2.close;
end;
end.
