亚洲一区二区三区四区五区六-国产外围在线-全国最大成人免费视频-蜜桃成人在线视频-国产精品久久久爽爽爽麻豆色哟哟-国产67194-成人免费看黄网站yyy456-精品久久久久久一区二区-最新的国产成人精品2022-午夜免费网-少妇超碰-青草青草久热精品视频在线观看-成人免费黄网站-在线天堂av-女性自慰网站免费观看w

 TmrInit.Enabled := false;
    with qryComm do
    begin

        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Opreation_thing');
        Open;
        while not Eof do
        begin
            cmbUserName.Items.Add(trim(FieldByName('操作員姓名').AsString));
            Next;
        end;
    end;
    ClearData;
    cmbUserName.ItemIndex := RIniInt('MONITOR','LastLogon', -1);
    RefreshInPrk;
    comm1.CommName :='COM'+IntToStr(RiniInt('MONITOR','Ledcom1',0)+1);
    comm2.CommName :='COM'+IntToStr(RiniInt('MONITOR','Ledcom2',0)+1);
    comm3.CommName :='COM'+IntToStr(RiniInt('MONITOR','Ledcom3',0)+1);
  try
  comm1.StartComm;
  except
      ShowMessage('打開LED1串口錯誤，請檢查是否有其它程序占用端口,或者進入后更改端口并重起!');
  end;

  try
  comm2.StartComm;
  except
      ShowMessage('打開LED2串口錯誤，請檢查是否有其它程序占用端口,或者進入后更改端口并重起!');
  end;

   try
  comm3.StartComm;
  except
      ShowMessage('打開LED3串口錯誤，請檢查是否有其它程序占用端口,或者進入后更改端口并重起!');
  end;
    EditPsw.SetFocus;