main.~dpr

tcp/ip通讯程序

program Project2;

uses
  Forms,
  Dialogs,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Login},
  Unit3 in 'Unit3.pas' {Init_Machine},
  MyFunction in 'MyFunction.pas';

{$R *.res}

var
    i :integer;
    mRun : boolean;
    mRet :integer;
begin
  Application.Initialize;
  Application.Title := 'GPRS,GSM,GPS终端服务软件';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TLogin, Login);
  mRun := False;
    for i:=0 to 2 do
    begin
        //设置用户输入的焦点
        if i = 0 then Login.ActiveControl := Login.Edit1
        else Login.ActiveControl := Login.Edit2;

        mRet := Login.ShowModal;
        //用户取消
        if mRet = 2 then break; //mrCancel
        //成功登录
        if mRet = 1 then        //mrOk
        begin
            mRun := True;
            Break;
        end;
        //用户名和口令不正确
        if mRet = 3 then       //mrAbort
        begin
            ShowMessage('你输入的用户名和口令不正确！');
        end;
    end;
    //登录三次错误
    if i = 3 then
    begin
        ShowMessage('你三次输入的用户名和口令都不正确，系统将退出！');
    end;

    if mRun then
    begin
      Application.CreateForm(TInit_Machine, Init_Machine);
      Application.Run;
    end else
      Form1.Destroy;
      Application.Terminate;
end.