ufrmsystem.dfm

本文件采用了c/s结构的分布式应用系统

object frmSystem: TfrmSystem
  Left = 192
  Top = 114
  BorderStyle = bsToolWindow
  Caption = #31995#32479#32500#25252
  ClientHeight = 409
  ClientWidth = 455
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object pcSystem: TPageControl
    Left = 8
    Top = 8
    Width = 433
    Height = 393
    ActivePage = TabSheet1
    TabOrder = 0
    object tabsheet: TTabSheet
      Caption = #28155#21152#29992#25143
      object Label1: TLabel
        Left = 16
        Top = 16
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #29992#25143#21517#31216
      end
      object Label2: TLabel
        Left = 16
        Top = 56
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #29992#25143#23494#30721
      end
      object Label3: TLabel
        Left = 16
        Top = 96
        Width = 89
        Height = 13
        AutoSize = False
        Caption = #37325#26032#36755#20837#23494#30721
      end
      object Label4: TLabel
        Left = 16
        Top = 136
        Width = 81
        Height = 13
        AutoSize = False
        Caption = #29992#25143#25805#20316#26435#38480
      end
      object Label5: TLabel
        Left = 152
        Top = 176
        Width = 145
        Height = 20
        AutoSize = False
        Caption = #31995#32479#29992#25143#20449#24687
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object edtusername: TEdit
        Left = 112
        Top = 16
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object edtpassword: TEdit
        Left = 112
        Top = 56
        Width = 121
        Height = 21
        TabOrder = 1
      end
      object edtRPassword: TEdit
        Left = 112
        Top = 96
        Width = 121
        Height = 21
        TabOrder = 2
      end
      object cbAuthority: TComboBox
        Left = 112
        Top = 136
        Width = 121
        Height = 21
        ItemHeight = 13
        TabOrder = 3
        Text = #31995#32479#31649#29702
        Items.Strings = (
          #20132#36153#31649#29702
          #32500#20462#31649#29702
          #20986#20837#31649#29702
          #25143#31821#31649#29702
          #31995#32479#31649#29702)
      end
      object Panel1: TPanel
        Left = 280
        Top = 56
        Width = 105
        Height = 81
        BevelInner = bvLowered
        TabOrder = 4
        object btnadd: TButton
          Left = 16
          Top = 8
          Width = 75
          Height = 25
          Caption = #28155'    '#21152
          TabOrder = 0
          OnClick = btnaddClick
        end
        object btnpost: TButton
          Left = 16
          Top = 48
          Width = 75
          Height = 25
          Caption = #20840#37096#25552#20132
          TabOrder = 1
          OnClick = btnpostClick
        end
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 200
        Width = 409
        Height = 161
        DataSource = dmclient.dssystem
        TabOrder = 5
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet1: TTabSheet
      Caption = #20462#25913#29992#25143#20449#24687
      ImageIndex = 1
      OnShow = TabSheet1Show
      object Label6: TLabel
        Left = 16
        Top = 24
        Width = 177
        Height = 13
        AutoSize = False
        Caption = #35831#36755#20837#38656#35201#20462#25913#30340#29992#25143#21517#31216
      end
      object Label7: TLabel
        Left = 16
        Top = 56
        Width = 73
        Height = 13
        AutoSize = False
        Caption = #29992#25143#26435#38480
      end
      object Label8: TLabel
        Left = 16
        Top = 88
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #29992#25143#21517#31216
      end
      object Label9: TLabel
        Left = 16
        Top = 128
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #26032#23494#30721
      end
      object Label10: TLabel
        Left = 16
        Top = 160
        Width = 105
        Height = 13
        AutoSize = False
        Caption = #20877#27425#36755#20837#26032#23494#30721
      end
      object Label11: TLabel
        Left = 112
        Top = 208
        Width = 185
        Height = 24
        AutoSize = False
        Caption = #31995#32479#29992#25143#20449#24687
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object btnFind: TButton
        Left = 336
        Top = 24
        Width = 75
        Height = 25
        Caption = #26597' '#25214'...'
        TabOrder = 0
        OnClick = btnFindClick
      end
      object cbauthority1: TComboBox
        Left = 192
        Top = 56
        Width = 121
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Text = #31995#32479#31649#29702
        Items.Strings = (
          #31995#32479#31649#29702
          #25143#31821#31649#29702
          #20986#20837#31649#29702
          #32500#20462#31649#29702
          #20132#36153#31649#29702)
      end
      object edtusername1: TEdit
        Left = 192
        Top = 88
        Width = 121
        Height = 21
        TabOrder = 2
      end
      object edtnewpassword: TEdit
        Left = 192
        Top = 120
        Width = 121
        Height = 21
        TabOrder = 3
      end
      object edtnewpassword1: TEdit
        Left = 192
        Top = 152
        Width = 121
        Height = 21
        TabOrder = 4
      end
      object btnchang: TButton
        Left = 336
        Top = 80
        Width = 75
        Height = 25
        Caption = #20462'    '#25913
        TabOrder = 5
        OnClick = btnchangClick
      end
      object btnApply: TButton
        Left = 336
        Top = 152
        Width = 75
        Height = 25
        Caption = #20840#37096#25552#20132
        TabOrder = 6
        OnClick = btnApplyClick
      end
      object DBGrid2: TDBGrid
        Left = 8
        Top = 240
        Width = 409
        Height = 120
        DataSource = dmclient.dssystem
        TabOrder = 7
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object btndelete: TButton
        Left = 336
        Top = 120
        Width = 75
        Height = 25
        Caption = #21024'     '#38500
        TabOrder = 8
        OnClick = btndeleteClick
      end
      object ComboBox1: TComboBox
        Left = 192
        Top = 16
        Width = 121
        Height = 21
        ItemHeight = 13
        TabOrder = 9
      end
    end
  end
end