城市路灯智能监控管理系统源码

城市路灯智能监控管理系统源码
unit UnitSuperUser;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, RzPanel, ComCtrls, RzListVw, Buttons;

type
  TFormSuperUser = class(TForm)
    ToolBar1: TRzToolbar;
    ListView1: TRzListView;
    btn1: TSpeedButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSuperUser: TFormSuperUser;

implementation

uses UnitData;

{$R *.dfm}

procedure TFormSuperUser.btn1Click(Sender: TObject);
var
  i: Integer;
  n: TListItem;
begin
  ListView1.Clear;
  for I := 0 to soList.Count - 1 do
  begin
    n := ListView1.Items.Add;
    n.Caption := soList.Items[i].SiteName;
    n.SubItems.Add(IntToStr(soList.Items[i].SiteID));
    n.SubItems.Add(IntToStr(soList.Items[i].SiteAddress));
    n.SubItems.Add(IntToStr(soList.Items[i].NodeAbsoluteIndex));
    n.SubItems.Add(IntToStr(soList.Items[i].Icon.Position.X));
    n.SubItems.Add(IntToStr(soList.Items[i].Icon.Position.Y));
object FormSuperUser: TFormSuperUser
  Left = 0
  Top = 0
  Caption = #36229#32423#29992#25143#19987#29992#31383#21475#65292#38386#20154#2124
7#36827#12290#36827#26469#20320#20063#30475#19981#25026#12290
  ClientHeight = 300
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  ob毕业论文http://www.youerw.comject ToolBar1: TRzToolbar
    Left = 0
    Top = 0
    Width = 635
    Height = 25
    AutoSize = True
    BorderInner = fsNone
    BorderOuter = fsGroove
    BorderSides = [sdTop]
    BorderWidth = 0
    Caption = #21047#26032
    TabOrder = 0
    ToolbarControls = (
      btn1)
    object btn1: TSpeedButton
      Left = 4
      Top = 2
      Width = 33
      Height = 23
      Caption = #21047#26032
      OnClick = btn1Click
    end
  end
  object ListView1: TRzListView
    Left = 0
    Top = 25
    Width = 635
    Height = 275
    Align = alClient
    Columns = <
      item
        Caption = #32456#31471#21517#31216
        Width = 60
      end
      item
        Caption = #32456#31471'ID'
      end
      item
        Alignment = taRightJustify
        Caption = 本文来自优文论文网原文请找QQ752018766;#32456#31471#22320#22336
        Width = 60
      end
      item
        Caption = #32477#23545#19979#26631
        Width = 60
      end
      item
        Caption = 'X'
      end
      item
        Caption = 'Y'
        Width = 334
      end>
    ColumnClick = False
    GridLines = True
    ReadOnly = True
    RowSelect = True
    TabOrder = 1
    ViewStyle = vsReport
    ExplicitTop = 29
    ExplicitHeight = 1400

[1] [2] 下一页