停車場(chǎng)系統(tǒng)設(shè)置程序
來源:譽(yù)澄智能 2012/7/7 16:00:58??????點(diǎn)擊:
with qryData do
begin
close;
SQL.Clear;
SQL.Add('SELECT * FROM JY_Park_Mech_info');
Open;
lvDev.Clear;
while not Eof do
begin
Item := lvDev.Items.Add;
Item.Caption := FieldByName('編號(hào)').AsString;
Item.SubItems.Add(trim(FieldBYName('設(shè)備名稱').AsString));
Item.SubItems.Add(FieldBYName('出入').AsString);
Item.SubItems.Add(FieldByName('設(shè)備類型').AsString);
Item.SubItems.Add(FieldBYName('所屬網(wǎng)絡(luò)').AsString);
Item.SubItems.Add(FieldBYName('所屬停車場(chǎng)編號(hào)').AsString);
Item.SubItems.Add(FieldBYName('視頻編號(hào)').AsString);
Item.SubItems.Add(FieldByName('圖像編號(hào)').AsString);
Item.SubItems.Add(boa[FieldBYName('暫停使用').AsBoolean]);
Next;
end;
end;
begin
close;
SQL.Clear;
SQL.Add('SELECT * FROM JY_Park_Mech_info');
Open;
lvDev.Clear;
while not Eof do
begin
Item := lvDev.Items.Add;
Item.Caption := FieldByName('編號(hào)').AsString;
Item.SubItems.Add(trim(FieldBYName('設(shè)備名稱').AsString));
Item.SubItems.Add(FieldBYName('出入').AsString);
Item.SubItems.Add(FieldByName('設(shè)備類型').AsString);
Item.SubItems.Add(FieldBYName('所屬網(wǎng)絡(luò)').AsString);
Item.SubItems.Add(FieldBYName('所屬停車場(chǎng)編號(hào)').AsString);
Item.SubItems.Add(FieldBYName('視頻編號(hào)').AsString);
Item.SubItems.Add(FieldByName('圖像編號(hào)').AsString);
Item.SubItems.Add(boa[FieldBYName('暫停使用').AsBoolean]);
Next;
end;
end;
- 上一篇:停車場(chǎng)系統(tǒng)源程序之初始化程序 2012/7/10
- 下一篇:停車場(chǎng)收費(fèi)軟件源代碼 2012/7/6