停車場系統(tǒng)設置程序
來源:譽澄智能 2012/7/7 16:00:58??????點擊:
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('編號').AsString;
Item.SubItems.Add(trim(FieldBYName('設備名稱').AsString));
Item.SubItems.Add(FieldBYName('出入').AsString);
Item.SubItems.Add(FieldByName('設備類型').AsString);
Item.SubItems.Add(FieldBYName('所屬網絡').AsString);
Item.SubItems.Add(FieldBYName('所屬停車場編號').AsString);
Item.SubItems.Add(FieldBYName('視頻編號').AsString);
Item.SubItems.Add(FieldByName('圖像編號').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('編號').AsString;
Item.SubItems.Add(trim(FieldBYName('設備名稱').AsString));
Item.SubItems.Add(FieldBYName('出入').AsString);
Item.SubItems.Add(FieldByName('設備類型').AsString);
Item.SubItems.Add(FieldBYName('所屬網絡').AsString);
Item.SubItems.Add(FieldBYName('所屬停車場編號').AsString);
Item.SubItems.Add(FieldBYName('視頻編號').AsString);
Item.SubItems.Add(FieldByName('圖像編號').AsString);
Item.SubItems.Add(boa[FieldBYName('暫停使用').AsBoolean]);
Next;
end;
end;
- 上一篇:停車場系統(tǒng)源程序之初始化程序 2012/7/10
- 下一篇:停車場收費軟件源代碼 2012/7/6