停車場(chǎng)系統(tǒng)源程序之初始化程序
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;
- 上一篇:停車場(chǎng)管理系統(tǒng)夏天應(yīng)該注意的問(wèn)題 2012/7/12
- 下一篇:停車場(chǎng)系統(tǒng)設(shè)置程序 2012/7/7