欧美日韩国产精品一区综合在线-亚洲av在线播放网址大全-久久影院午夜伦手机不四虎卡-中文字幕人妻丝袜乱一区三区-97热精品视频免费视频-人妻少妇精彩视品一区二区三区-污污污网站在线免费看-忘忧草社区在线播放日本韩国-亚洲精品一区二区三区婷婷月

停車場(chǎng)系統(tǒng)源程序之初始化程序

來(lái)源:譽(yù)澄智能 2012/7/10 14:24:04??????點(diǎn)擊:

 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('打開(kāi)LED1串口錯(cuò)誤,請(qǐng)檢查是否有其它程序占用端口,或者進(jìn)入后更改端口并重起!');
  end;

  try
  comm2.StartComm;
  except
      ShowMessage('打開(kāi)LED2串口錯(cuò)誤,請(qǐng)檢查是否有其它程序占用端口,或者進(jìn)入后更改端口并重起!');
  end;

   try
  comm3.StartComm;
  except
      ShowMessage('打開(kāi)LED3串口錯(cuò)誤,請(qǐng)檢查是否有其它程序占用端口,或者進(jìn)入后更改端口并重起!');
  end;
    EditPsw.SetFocus;