uadmin.dfm

非长好的DELPHI办公系统 直接可以用

object frmAdmin: TfrmAdmin
  Left = 183
  Top = 162
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #29992#25143#31649#29702
  ClientHeight = 244
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 28
    Width = 419
    Height = 103
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object dgAdmin: TDBGridEh
      Left = 0
      Top = 0
      Width = 419
      Height = 103
      Align = alClient
      Ctl3D = True
      DataSource = dsadmin
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'uid'
          Footers = <>
          Title.Caption = #36134'  '#21495
          Width = 62
        end
        item
          EditButtons = <>
          FieldName = 'pwd'
          Footers = <>
          Title.Caption = #23494'  '#30721
          Width = 62
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'sys'
          Footers = <>
          Title.Caption = #31995'  '#32479
          Width = 45
        end
        item
          EditButtons = <>
          FieldName = 'des'
          Footers = <>
          Title.Caption = #25551'  '#36848
          Width = 164
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 131
    Width = 419
    Height = 113
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object lbluid: TLabel
      Left = 9
      Top = 28
      Width = 39
      Height = 13
      Caption = #24080' '#21495#65306
      Transparent = True
    end
    object lblpwd: TLabel
      Left = 147
      Top = 28
      Width = 39
      Height = 13
      Caption = #23494' '#30721#65306
      Transparent = True
    end
    object lblsys: TLabel
      Left = 277
      Top = 28
      Width = 39
      Height = 13
      Caption = #31995' '#32479#65306
      Transparent = True
    end
    object lbldes: TLabel
      Left = 9
      Top = 54
      Width = 39
      Height = 13
      Caption = #25551' '#36848#65306
      Transparent = True
    end
    object deUid: TDBEdit
      Left = 52
      Top = 20
      Width = 76
      Height = 21
      DataField = 'uid'
      DataSource = dsadmin
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 0
    end
    object dePwd: TDBEdit
      Left = 191
      Top = 20
      Width = 76
      Height = 21
      DataField = 'pwd'
      DataSource = dsadmin
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
    end
    object dbSys: TDBComboBox
      Left = 321
      Top = 22
      Width = 81
      Height = 19
      Style = csOwnerDrawFixed
      DataField = 'sys'
      DataSource = dsadmin
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      Items.Strings = (
        #21542
        #26159)
      TabOrder = 2
    end
    object deDes: TDBEdit
      Left = 52
      Top = 46
      Width = 356
      Height = 21
      DataField = 'des'
      DataSource = dsadmin
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 3
    end
    object btnAdd: TBitBtn
      Left = 3
      Top = 72
      Width = 76
      Height = 24
      Caption = #28155' '#21152
      TabOrder = 4
      OnClick = btnAddClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAADADADADADADADADDADADADADADADADAADADADADADADADADDADADA000ADA
        DADAADADAD030DADADADDADADA030ADADADAADA000030000ADADDAD033333330
        DADAADA000030000ADADDADADA030ADADADAADADAD030DADADADDADADA000ADA
        DADAADADADADADADADADDADADADADADADADAADADADADADADADAD}
    end
    object btnEdit: TBitBtn
      Left = 81
      Top = 72
      Width = 76
      Height = 24
      Caption = #32534' '#36753
      TabOrder = 5
      OnClick = btnEditClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAADADADADADADADAD444444444444DADA477777777774ADAD488888888084
        DADA480080080004ADAD488888888000DADA4800800800B70DAD4888888880B8
        0ADA44444444440B70AD4F44F44F440B80DA444444444440B70DDADADADADAD0
        B70AADADADADADAD0050DADADADADADA0550ADADADADADADA00D}
    end
    object btnDel: TBitBtn
      Left = 163
      Top = 72
      Width = 76
      Height = 24
      Caption = #21024' '#38500
      TabOrder = 6
      OnClick = btnDelClick
      Glyph.Data = {
        EE000000424DEE000000000000007600000028000000100000000F0000000100
        04000000000078000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888888888888888881F88881F8888888888888991F8888889F8888191F888881
        F888888199F88891F8888888191F819F88888888819199F88888888888919F88
        88888888891911F888888888191F89F88888889191F88819F88881919F888881
        9F88891F8888888819F88888888888888888}
    end
    object btnClose: TBitBtn
      Left = 338
      Top = 72
      Width = 76
      Height = 24
      Caption = #20851' '#38381
      TabOrder = 7
      OnClick = btnCloseClick
      Glyph.Data = {
        EE000000424DEE000000000000007600000028000000100000000F0000000100
        0400000000007800000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0FFFFFF
        FFFFFFFF00FFFFFFFFFFFFF030FFFFFFFFFFFF0330FFFFFFFFFF003330000000
        0FFFF03330FF0FFFFFFFF03300FF0FFFF4FFF03330FF0FFF44FFF03330FF0FF4
        4444F03330FF0F444444F03330FF0FF44444F0330FFF0FFF44FFF030FFFF0FFF
        F4FFF00FFFFF0FFFFFFFF00000000FFFFFFF}
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 419
    Height = 28
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object lbladmin: TLabel
      Left = 149
      Top = 0
      Width = 88
      Height = 21
      Caption = #29992#25143#31649#29702
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -21
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
  end
  object dsadmin: TDataSource
    DataSet = aqAdmin
    Left = 304
  end
  object aqAdmin: TADOQuery
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 352
    Top = 65528
    object aqAdminuid: TWideStringField
      FieldName = 'uid'
      Size = 32
    end
    object aqAdminpwd: TWideStringField
      FieldName = 'pwd'
      Size = 32
    end
    object aqAdminsys: TBooleanField
      FieldName = 'sys'
      OnGetText = aqAdminsysGetText
      OnSetText = aqAdminsysSetText
    end
    object aqAdmindes: TWideStringField
      FieldName = 'des'
      Size = 250
    end
  end
end