userinfo.dfm

来自「好多上载非界面和非WEB源码」· DFM 代码 · 共 317 行

object userinfofrm: Tuserinfofrm
  Left = 301
  Top = 118
  Width = 792
  Height = 456
  Caption = #29992#25143#20449#24687#31649#29702
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 769
    Height = 369
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #22522#26412#20449#24687#32500#25252
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 761
        Height = 337
        Align = alTop
        BevelInner = bvLowered
        Color = clSkyBlue
        TabOrder = 0
        object rec_no: TLabel
          Left = 24
          Top = 248
          Width = 353
          Height = 41
          AutoSize = False
        end
        object Panel2: TPanel
          Left = 2
          Top = 2
          Width = 757
          Height = 231
          Align = alTop
          BevelInner = bvLowered
          Color = clSkyBlue
          TabOrder = 0
          object Label1: TLabel
            Left = 88
            Top = 32
            Width = 81
            Height = 33
            AutoSize = False
            Caption = #23398#29983#35777#21495#65306
          end
          object Label2: TLabel
            Left = 88
            Top = 80
            Width = 97
            Height = 33
            AutoSize = False
            Caption = #22995'        '#21517#65306
          end
          object Label3: TLabel
            Left = 440
            Top = 80
            Width = 89
            Height = 41
            AutoSize = False
            Caption = #24615'        '#21035#65306
          end
          object Label4: TLabel
            Left = 88
            Top = 128
            Width = 89
            Height = 33
            AutoSize = False
            Caption = #31995'         '#21035#65306
          end
          object Label5: TLabel
            Left = 88
            Top = 176
            Width = 81
            Height = 41
            AutoSize = False
            Caption = #19987'         '#19994#65306
          end
          object ComboBox1: TComboBox
            Left = 192
            Top = 32
            Width = 169
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 0
            OnChange = ComboBox1Change
          end
          object DBEdit1: TDBEdit
            Left = 192
            Top = 80
            Width = 169
            Height = 21
            DataField = #22995#21517
            DataSource = DataSource1
            TabOrder = 1
          end
          object DBEdit2: TDBEdit
            Left = 544
            Top = 80
            Width = 129
            Height = 21
            DataField = #24615#21035
            DataSource = DataSource1
            TabOrder = 2
          end
          object DBEdit3: TDBEdit
            Left = 192
            Top = 128
            Width = 481
            Height = 21
            DataField = #31995#21035
            DataSource = DataSource1
            TabOrder = 3
          end
          object DBEdit4: TDBEdit
            Left = 192
            Top = 176
            Width = 481
            Height = 21
            DataField = #19987#19994
            DataSource = DataSource1
            TabOrder = 4
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #30331#24405#26435#38480#32500#25252
      ImageIndex = 1
      object Panel3: TPanel
        Left = 8
        Top = 8
        Width = 385
        Height = 321
        BevelInner = bvLowered
        Color = clSkyBlue
        TabOrder = 0
        object Label9: TLabel
          Left = 16
          Top = 272
          Width = 153
          Height = 33
          AutoSize = False
        end
        object ListView1: TListView
          Left = 16
          Top = 16
          Width = 353
          Height = 241
          Color = clInfoBk
          Columns = <
            item
              AutoSize = True
              Caption = #29992#25143#21517
            end
            item
              AutoSize = True
              Caption = #29992#25143#26435#38480#32423#21035#30721
            end>
          GridLines = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnClick = ListView1Click
        end
        object BitBtn3: TBitBtn
          Left = 144
          Top = 272
          Width = 73
          Height = 33
          Caption = #21024#38500
          TabOrder = 1
          OnClick = BitBtn3Click
          Kind = bkCancel
        end
      end
      object GroupBox1: TGroupBox
        Left = 408
        Top = 8
        Width = 345
        Height = 321
        Caption = #32534#36753#29992#25143
        TabOrder = 1
        object Label6: TLabel
          Left = 40
          Top = 112
          Width = 65
          Height = 25
          AutoSize = False
          Caption = #29992'  '#25143'  '#21517#65306
        end
        object Label7: TLabel
          Left = 40
          Top = 160
          Width = 89
          Height = 49
          AutoSize = False
          Caption = #22270#20070#35777#21495#65306
        end
        object Label8: TLabel
          Left = 40
          Top = 208
          Width = 81
          Height = 49
          AutoSize = False
          Caption = #29992#25143#32423#21035#65306
        end
        object Panel4: TPanel
          Left = 2
          Top = 15
          Width = 341
          Height = 82
          Align = alTop
          BevelInner = bvLowered
          Color = clSkyBlue
          TabOrder = 0
          object r1: TRadioButton
            Left = 64
            Top = 24
            Width = 65
            Height = 33
            Caption = #20462#25913
            TabOrder = 0
            OnClick = r1Click
          end
          object r2: TRadioButton
            Left = 216
            Top = 24
            Width = 73
            Height = 33
            Caption = #28155#21152
            TabOrder = 1
            OnClick = r2Click
          end
        end
        object unamebox: TEdit
          Left = 120
          Top = 112
          Width = 169
          Height = 21
          Color = clInfoBk
          Enabled = False
          TabOrder = 1
        end
        object upwdbox: TEdit
          Left = 120
          Top = 160
          Width = 169
          Height = 21
          TabOrder = 2
        end
        object utypebox: TComboBox
          Left = 120
          Top = 208
          Width = 169
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 3
          Items.Strings = (
            #31649#29702#21592
            #19968#33324#29992#25143)
        end
        object BitBtn2: TBitBtn
          Left = 144
          Top = 264
          Width = 73
          Height = 33
          Caption = #30830#23450
          TabOrder = 4
          OnClick = BitBtn2Click
          Kind = bkOK
        end
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 368
    Top = 384
    Width = 73
    Height = 33
    Caption = #20851#38381
    TabOrder = 1
    Kind = bkClose
  end
  object Table1: TTable
    AfterScroll = Table1AfterScroll
    Left = 24
    Top = 392
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 64
    Top = 392
  end
end