简单登录程序代码.txt

简单的delphi udp聊天系统,简单的delphi udp聊天系统

procedure TForm2.BitBtn1Click(Sender: TObject);
var
retVal:integer;
begin
retVal:=mrNo;
if (Edit1.Text='a') and (Edit2.Text='b') then
begin
retVal:=mrYes;
end;
modalresult:=retVal;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
mm:=1;
application.Terminate;
end;
-------------------------------------------------------------------
procedure TMainForm.FormShow(Sender: TObject);
begin
form2:=tform2.Create(self);
if mm=1 then
begin
application.Terminate;
end
else if form2.ShowModal<>mrYes then
begin
application.MessageBox('请输入正确的用户名或密码！','温馨提示！！！',MB_OK);
application.Terminate;
end;
form2.Free;
end;