setright.dfm

中国移动集群网销售资料录入管理系统。 包含集群网用户录入

object FormSetRight: TFormSetRight
  Left = 290
  Top = 156
  Width = 400
  Height = 300
  Caption = #35774#32622#29992#25143#26435#38480
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 392
    Height = 273
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #35774#32622#29992#25143#26435#38480
      OnShow = TabSheet1Show
      object CheckListBox1: TCheckListBox
        Left = 0
        Top = 41
        Width = 384
        Height = 204
        Align = alClient
        ItemHeight = 13
        TabOrder = 0
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 384
        Height = 41
        Align = alTop
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 16
          Width = 57
          Height = 13
          AutoSize = False
          Caption = #36873#25321#29992#25143
        end
        object ComboBox1: TComboBox
          Left = 64
          Top = 8
          Width = 145
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          OnChange = ComboBox1Change
        end
        object Button1: TButton
          Left = 216
          Top = 8
          Width = 75
          Height = 25
          Caption = #20445#23384#35774#32622
          TabOrder = 1
          OnClick = Button1Click
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #29992#25143#31649#29702
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 384
        Height = 41
        Align = alTop
        TabOrder = 0
        object DBNavigator1: TDBNavigator
          Left = 10
          Top = 8
          Width = 230
          Height = 25
          DataSource = DX_User
          Ctl3D = True
          Hints.Strings = (
            #31532#19968#26465
            #21069#19968#26465
            #19979#19968#26465
            #26368#21518#19968#26465
            #28155#21152#26032#35760#24405
            #21024#38500#35813#35760#24405
            #32534#36753#35813#35760#24405
            #20445#23384
            #21462#28040#25913#21464
            #21047#26032)
          ParentCtl3D = False
          TabOrder = 0
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 41
        Width = 384
        Height = 204
        Align = alClient
        DataSource = DX_User
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Username'
            Title.Caption = #29992#25143#21517
            Width = 103
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Password'
            Title.Caption = #23494#30721
            Width = 119
            Visible = True
          end>
      end
    end
  end
  object DX_User: TDataSource
    DataSet = T_User
    Left = 124
    Top = 80
  end
  object T_User: TADOQuery
    Connection = DM.Conn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from Users')
    Left = 172
    Top = 80
    object T_Userid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object T_UserUsername: TWideStringField
      FieldName = 'Username'
      Size = 50
    end
    object T_UserPassword: TWideStringField
      FieldName = 'Password'
      Size = 50
    end
    object T_Usertag: TWideStringField
      FieldName = 'tag'
      Size = 50
    end
  end
end