Tablemima.SetKey;//将表对应的数据集设置为查询状态

  i:=EditUser.ItemIndex;//素引号赋值

  Tablemima.FieldByName('用户').AsString:=EditUser.Items[i];

  Tablemima.GotoKey;//调用gotokey查找符合条件的记录

  If(EditUser.Items[i]=Tablemima.FieldByName('用户').AsString)

And

  (EditPassWord.text=Tablemima.FieldByName('口令').AsString)

   and (EditUser.text<>'') and (EditPassWord.text<>'')//条件

  Then

      Begin

      ModalResult:=mrOK;

          if zjm.N6.Enabled=true  then

      tz2.Show

      else hz2.Show;//调出第二次输入密码

   End

   Else

   Begin

   If TimeID>3 Then

      Begin

      Application.Terminate;大于三次则退出

   End

   Else If EditUser.Text<>

       Tablemima.FieldByName('用户').AsString Then//输入的用户找不到

        Begin

        Application.MessageBox('非法用户，请您输入正确的用户名',

                     '用户名',MB_OK+MB_ICONEXCLAMATION);//提示

        EditUser.SetFocus;//把焦点聚在输入用户的框中

        End

   Else//密码找不到时

        Begin

        Application.MessageBox('输入密码错误，请在输入一次',

                      '密码',MB_OK+MB_ICONEXCLAMATION);//提示

        EditPassWord.SetFocus;//把焦点聚在输入密码框中

        End

        end;

  EditPassWord.Text:='';//清空输入框

  EditUser.Text:='';// //清空输入框

end;

以下为在建From时把用户放到EditUser供用户选择

procedure Ttz1.FormCreate(Sender: TObject);

begin

   with  Tablemima do

  begin

    open;

    while not eof do

    begin

//搜索出用户加入到combobox中供用户选择

      EditUser.Items.Add(fieldbyname('用户').asstring);

      next;

    end;

  end;

end;

procedure Ttz1.EditUserChange(Sender: TObject);

begin

  EditPassWord.SetFocus;//当输入“用户”后，聚焦于要输入密码的框中

end;

 （2）、第二次输入密码

验证密码的我不在累述，把控制主界面的程序列出：

//显示“跳闸成功”信息

   Application.MessageBox('跳闸成功',

'信息',MB_OK+MB_ICONEXCLAMATION);

   beep;

下面设置Timer1、2、3、4、5为false是让图形不在动

   zjm.Timer1.Enabled:=false;

   zjm.Timer2.Enabled:=false;

   zjm.Timer3.Enabled:=false;

   zjm.Timer4.Enabled:=false;

   zjm.Timer5.Enabled:=false;

   zjm.N6.Enabled:=false;//让主界面中的“跳闸”菜单不能使用

   zjm.N7.Enabled:=true; //让主界面中的“合闸”菜单能使用

   zjm.Image21.Visible:=true;//显示

Image18、19、22、23、24、25为图形： Image25为图形：

   zjm.Image18.Visible:=false;//让图形隐藏

   zjm.Image24.Visible:=false; //让图形隐藏

   zjm.Image23.Visible:=false; //让图形隐藏

   zjm.Image25.Visible:=false; //让图形隐藏

   zjm.Image19.Visible:=false; //让图形隐藏

   zjm.Image22.Visible:=false; //让图形隐藏

   zjm.Label2.Caption:='';//把显示A相电流的标签清空

   zjm.Label4.Caption:=''; //把显示B相电流的标签清空

   zjm.Label6.Caption:=''; //把显示C相电流的标签清空

    zjm.Timer6.Enabled:=false;//不得到随机值

   zjm.Timer7.Enabled:=false; //不得到随机值

   zjm.Timer8.Enabled:=false; //不得到随机值

   zjm.sb2.Enabled:=false; 让主界面中的“跳闸”快捷键不能使用

   zjm.sb4.Enabled:=true; //让主界面中的“跳闸”快捷键能使用

zjm.Show;//显示主界面

5．3、查询实现

点击主界面中的“查询”按钮进入下面界面

 若图片无法显示请联系QQ752018766

（1）、事故记录查询