第1章    系统界面及功能的具体实现

在前面的章节里已经完成了系统开发环境，系统设计，数据库分析、物理设计，数据库也已经建立。下面就主要介绍各模块界面，以及基本功能的具体实现：

1.1                    系统登录界面

    如果用户名或密码错误，我们给出非法提示（如图5-2所示）。

其实现代码主要如下

begin

   UserID := Trim(MEdt_User.Text);

  if Trim(UserID) = '''' then

  Begin

    PopMsgDlg(''请输入用户名！'');

    MEdt_User.SetFocus;

    Exit;

  End;

  UserID := PerZeroStr(UserID,4);

  UserPWD := Trim(MEdt_PWD.Text);

  if Trim(UserPWD) = '''' then

  Begin

    PopMsgDlg(''密码不能为空！'');

    MEdt_PWD.SetFocus;

    Exit;

  end;

  if (Trim(UserPWD) = ''123456'') or (Length(Trim(UserPWD)) < 5) then

    PopMsgDlg(''您的密码过于简单，''+#10+''请您立即修改自己的密码，防止非法盗用！'');

  With ExecQry Do

  Begin

    //校验用户的登录信息

    if Active Then  Close;

    SQL.Clear;

    SQL.Add(''select *'');

    SQL.Add(''  from PUB_YHXXB'');

    SQL.Add('' where YXBZ=''''1'''''');

    SQL.Add(''   and YHBS_PK=''''''+UserID+'''''''');

    if UserPWD='''' then

      SQL.Add(''   and (YHMM Is Null or YHMM='''''''')'')

    else

      SQL.Add(''   and YHMM=''''''+UserPWD+'''''''');

    Open;

    if IsEmpty then //校验错误

      Begin

        PopMsgDlg(''用户名或口令错误！'');

        MEdt_PWD.SetFocus;

        MEdt_PWD.SelectAll;

        Exit;

      End

1.2                    系统主界面

    在通过用户身份验证后，就进入系统主见面（如图5-3所示）。

 

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167