1.dfmԴ?码说明? ˵??

dfmԴ?? ˵??

       大致思路是：做一个登录框Form1，两个Edit。码说明在Edit1中写入用户名，码说明y one源码在Edit2中写入密码！码说明程序自动到数据库中指写表查找用户名密码全对，码说明aspku源码即可。码说明threadloal源码

        首先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.