sysparafrm.~dfm

delphi 编制的服务器程序

inherited SysParaForm: TSysParaForm
  Left = 124
  Top = 163
  Caption = #31995#32479#21442#25968#35774#32622
  ClientHeight = 297
  ClientWidth = 542
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Top = 256
    Width = 542
    inherited sbadd: TSpeedButton
      Left = 460
      Visible = False
    end
    inherited sbdelete: TSpeedButton
      Left = 536
      Visible = False
    end
    inherited sbmodify: TSpeedButton
      Left = 4
    end
    inherited sbsave: TSpeedButton
      Left = 80
    end
    inherited sbcancel: TSpeedButton
      Left = 156
    end
    inherited sbquery: TSpeedButton
      Visible = False
    end
    inherited sbimport: TSpeedButton
      Left = 308
      Visible = False
    end
    inherited sbexit: TSpeedButton
      Left = 232
    end
  end
  inherited PageControl1: TPageControl
    Width = 542
    Height = 256
    ActivePage = TabSheet2
    TabIndex = 1
    inherited TabSheet1: TTabSheet
      inherited DBGrid1: TDBGrid
        Width = 534
        Height = 216
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'SysName'
            Title.Alignment = taCenter
            Width = 365
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'SysValue'
            Title.Alignment = taCenter
            Width = 125
            Visible = True
          end>
      end
    end
    inherited TabSheet2: TTabSheet
      inherited Panel2: TPanel
        Width = 534
        Height = 216
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    Connection = DmMain.ADOConnection1
    SQL.Strings = (
      'select * from sysPara')
    object ADOQuery1SysCode: TWideStringField
      FieldName = 'SysCode'
      ReadOnly = True
      Size = 2
    end
    object ADOQuery1SysName: TWideStringField
      DisplayLabel = #21442#25968
      FieldName = 'SysName'
      ReadOnly = True
      Size = 30
    end
    object ADOQuery1SysValue: TFloatField
      DisplayLabel = #21442#25968#20540
      FieldName = 'SysValue'
    end
  end
end