xwjmunit1.dfm

小区物业管理系统 运行环境：DELPHI7.0和SQL Server2000 1、将文件DATA里的数据库XQ附加到SQL Server2000企业管理器中

object XWJM: TXWJM
  Left = 221
  Top = 78
  Width = 683
  Height = 688
  Caption = #20303#25143#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 32
    Top = 8
    Width = 633
    Height = 265
    TabOrder = 0
    object StaticText1: TStaticText
      Left = 32
      Top = 184
      Width = 88
      Height = 20
      Caption = #35831#36755#20837#26597#35810#20869#23481
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 136
      Top = 176
      Width = 361
      Height = 24
      TabOrder = 1
    end
    object GroupBox1: TGroupBox
      Left = 40
      Top = 64
      Width = 345
      Height = 89
      Caption = #26597#35810#26465#20214
      TabOrder = 2
      object RadioButton1: TRadioButton
        Left = 32
        Top = 40
        Width = 137
        Height = 17
        Caption = #25353#20303#25143#32534#21495
        TabOrder = 0
      end
    end
    object Button1: TButton
      Left = 528
      Top = 176
      Width = 73
      Height = 25
      Caption = #26597#35810
      TabOrder = 3
      OnClick = Button1Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 32
    Top = 272
    Width = 633
    Height = 257
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'username'
        Title.Caption = #21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'usertel'
        Title.Caption = #30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'userid'
        Title.Caption = #20303#25143#32534#21495
        Visible = True
      end>
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = adodm.XQconn
    ProcedureName = 'aaa;1'
    Parameters = <
      item
        Name = 'id'
        DataType = ftString
        Size = -1
        Value = Null
      end
      item
        Name = ' name'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    Left = 536
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 152
    Top = 336
  end
  object ADOTable1: TADOTable
    Connection = adodm.XQconn
    Left = 256
    Top = 336
  end
end