card.~dpr

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

program Card;

uses
  Forms,
  Dialogs,
  MainForm in 'MainForm.pas' {frmMain},
  CardDM in 'CardDM.pas' {DMMain: TDataModule},
  NewCardForm in 'NewCardForm.pas' {frmNewCard},
  LoseForm in 'LoseForm.pas' {frmLose},
  AddMoneyForm in 'AddMoneyForm.pas' {frmAddMoney},
  ConfigForm in 'ConfigForm.pas' {frmConfig},
  FunctionUnit in 'FunctionUnit.pas',
  ChangePasswordForm in 'ChangePasswordForm.pas' {frmchangePassword},
  CardLoginForm in 'CardLoginForm.pas' {Formcardlogin},
  CasualCardForm in 'CasualCardForm.pas' {frmCasualCard},
  ModifyForm in 'ModifyForm.pas' {frmModify},
  ModifyFeeForm in 'ModifyFeeForm.pas' {frmModifyFee};

{$R *.RES}

var
    i :integer;
    mRun : boolean;
    mRet :integer;
begin
    Application.Initialize;
    Application.CreateForm(TDMMain, DMMain);
    Application.CreateForm(TfrmMain, frmMain);
    Application.CreateForm(TFormcardlogin, Formcardlogin);
    mRun := False;
    for i:=0 to 2 do
    begin
        //设置用户输入的焦点
        if i = 0 then FormCardLogin.ActiveControl := FormCardLogin.Edit1
        else FormCardLogin.ActiveControl := FormCardLogin.Edit2;

        mRet := FormCardLogin.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(TfrmCasualCard, frmCasualCard);
        Application.CreateForm(TfrmNewCard, frmNewCard);
        Application.CreateForm(TfrmLose, frmLose);
        Application.CreateForm(TfrmAddMoney, frmAddMoney);
        Application.CreateForm(TfrmConfig, frmConfig);
        Application.CreateForm(TfrmChangePassword, frmChangePassword);
        Application.CreateForm(TfrmModify, frmModify);
        Application.CreateForm(TfrmModifyFee, frmModifyFee);
        Application.Run;
    end
    else Application.Terminate;
end.