uusergl.~dfm

在公司做的一个小的系统源代码

      5194A5253294A546529494FF00FFD4DC94A5465295A6D065294A8CA5292994A5
      2A329A5253394A542529494CE534A8CA5292994A52A3294A4A65294A8CA528A9
      94A52A3294A0A65290710745194A515276BC3BE2A52AACA232DECEFBD3484DA5
      201E50DC0B7CC29CA492918727DC93983B6850C92394549652943DC9F7254867
      294A86E4A524B394D2A3294A4A65294A8CA5292194A694D29A5253294A546529
      494CA5295194A5253294A542529494CA5295194A5253294A546529454BCA529A
      534A4A65294A8CA5292994A52A3294A4A65294A8CA5292994A52A3294A4A6529
      4A8CA52929FFD5D894A5465295A8D065294A8CA69494CE534A8CA5292994A52A
      3294A4A65294A8CA5292994A52A3294A4865294A8CA5292994A52A329A515339
      4D2A3294A4A65294A8CA52929236C2DF31E08CD707090AACA70E20C84084DB69
      31008D50D9703A1D0A24A6A51BAB23E8A8491CA3A8B9A0F2882AA45B92DC93AB
      238D5426343CA2849B92943DC94A54A49294A1CA794A94CF7252A1294A54A672
      94A84A52952994A52A3294A4A65294A84A529299CA52A1294A2A65294A8CA529
      2994A52A3294A4A65294A8CA5292994A52A3294A4A6529A534A69490CE534A8C
      A5292994A52A3294A4A7FFD6D494A546534AD573D94A529A529494BCA52A3294
      A4A65294A8CA5292994A52A3294A4A65294A8CA5292994A52A3294A4A5E53CA8
      CA69494CA5295194A5253294A546529494CA5295194A5153295365CE6F3A8429
      4A50A55B6DAF6B86853AA61C4190611597F677DE818A414EA2E683CA41C08D35
      4E82513AA3F9BF8A1991C885613100F28828A41294A99A81E3450731E3CD1B08
      54A52A1294A2A67294A84A529299CA52A1294A4A67294A84A5295299CA52A129
      4A4A67294A84A5292994A52A3294A4A6729A546529494CA5295194A5253294A5
      46529494CA5295194A5253294A546529494FFFD7D094A5465295ACE7B294A546
      529494BCA529A529494BCA52A3294A4865294A8CA5292994A52A3294A4A65294
      A8CA5292994A694D294A4A6529A534A69494CA5295194A5253294A546529494C
      A5295194A5253294A546529454CDAF734E851997B4E8ED0AAD294A045A6DBA08
      3A849536D8F6F05199900FD2107C934C536993241C0890652412C5CC69E4283A
      9FDD3F7A2A646D14D72C73790A32AD2896B5DC89478914D794A514D2D3C68A06
      978F028D8553194A522D78E428CA4865294A8CA528A994A52A32924A65294A8A
      5292994A52A3294A4A65294A8CA5292994A52A3294A4A65294A8CA5292994A52
      98071E04A97A567824A7FFD0B9294A8CA52B5DCE65294A8CA5292994A52A3294
      A4A652928CA5292994A52A3294A4A5E5294D294A4A5E5294D294A4A5E5295194
      A5253294A546529494C929514A5253294A54652494C929514A5252E94A8A7494
      BCA529A5324A65294CA8CA49299071074308ADC970FA42502524AAD56DC6DD5B
      B831F1539542549B63DBC140C53C4DD49566E491F484A236FACF783E69BC2536
      122498381E0CA7412A4C403C84E9914303533C131A59E611124ACAA909A3C0A6
      F41DE211D246CAA9AFE8D9E497A36782B0925C4514D6F4ACF04BD2B3C159492E
      22AA6B7A36787E29C536792B0925C45348050EEE4290A07728A91206A4C25655
      4C05358F12A41AD1C085137D63BCFC10CE49FCD1F7A544AAC361290A9BAD7BB4
      27E414754B84A389FFD1B3294A694D2B5DCE6494A64C8A994A52A3294A4A6529
      28A52829794A534A48A9794A5324929794A534A5292974A53269494CA5295149
      242E94A49A5252F294A64A5253294A54652494BA52992494BA52992494BA5299
      2494BA52992494BCA499324A652926949252F3E05485D63782541294949864BF
      B80548650EED55E534A1C21365B6326B3D8A7F5EAF154E524B842B88B77D5AFF
      007825EAD7FBC1529490E109E26EFAB5FEF04BD6ABF782A4925C015C4DCFB454
      3BA63935F9AA8923C211C45B2728766A89C971E0008094A5C2156521BAC3C9FB
      94649E4A8A528A1794932492974A532525253FFFD2B1F725F72F22496C39CFAE
      77EC9FC385E44924A7D7BEE4DF72F2249053EBBF725F72F2249153EBBF726FB9
      791A4921F5CFB92FB9791A4925F5DFB937DCBC8D2494FAE7DC97DCBC8D2494FA
      E7DC97DCBC8D2490FAE7DC98FC979224925F5C1F24BEE5E4692487D73EE4DF72
      F2449253EB9F726EDD979224929F5CFB931F92F2449253EB7F727FB9791A4929
      F5CFB937DCBC912492FAD9F925F72F2449243EB7F7243E4BC912494FADFDC9FE
      E5E4692497D6FEE4BB765E4892487D6FBF64BEE5E48924A7D6C7C92FB9792249
      29F5B3F24BB765E48924A7D6C7C92FB979224929F5BFB92FB979224929F5BFB9
      2FB979224929F5B1F24BBF65E48924A7D6FEE4BEE5E48924A7FFD9}
    Stretch = True
  end
  object Label1: TLabel
    Left = 45
    Top = 10
    Width = 56
    Height = 13
    Caption = #29992#25143#21517#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 44
    Top = 50
    Width = 58
    Height = 13
    Caption = #23494'  '#30721#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Edtuser: TEdit
    Left = 105
    Top = 7
    Width = 110
    Height = 20
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnKeyPress = EdtuserKeyPress
  end
  object Edtpwd: TEdit
    Left = 105
    Top = 46
    Width = 110
    Height = 20
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 1
    OnKeyPress = EdtpwdKeyPress
  end
  object DBGrid1: TDBGrid
    Left = 1
    Top = 127
    Width = 280
    Height = 186
    Anchors = [akLeft, akTop, akBottom]
    Color = clCream
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'id'
        Title.Alignment = taCenter
        Title.Caption = #32534#21495
        Width = 46
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'name'
        Title.Alignment = taCenter
        Title.Caption = #29992#25143#21517
        Width = 122
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'power'
        Title.Caption = #29992#25143#26435#38480
        Width = 85
        Visible = True
      end>
  end
  object bbtnsave: TBitBtn
    Left = 4
    Top = 83
    Width = 75
    Height = 25
    Caption = #20445#23384'(&S)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = bbtnsaveClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAAD0000000000000DD03300000088030AA03300000088030DD03300000088
      030AA03300000000030DD03333333333330AA03300000000330DD03088888888
      030AA03088888888030DD03088888888030AA03088888888030DD03088888888
      000AA03088888888080DD00000000000000AADADADADADADADAD}
  end
  object bbtndel: TBitBtn
    Left = 96
    Top = 83
    Width = 75
    Height = 25
    Caption = #21024#38500'(&D)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = bbtndelClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000CE0E0000D80E00001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777777777777777777777777777770F77770F7777777777777000F777777
      0F7777000F777770F777777000F77700F7777777000F700F77777777700000F7
      7777777777000F7777777777700000F777777777000F70F77777770000F77700
      F77770000F7777700F77700F7777777700F77777777777777777}
  end
  object bbtnclose: TBitBtn
    Left = 185
    Top = 83
    Width = 75
    Height = 25
    Caption = #20851#38381'(&C)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = bbtncloseClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888888808077708888888880807770880800008080777088888880008077
      7088888880088078708800808000807770888888000000777088888888008007
      7088888880008077708888888800800770888888888880000088888888888888
      8888888888884444888888888888488488888888888844448888}
  end
  object ADOQuery1: TADOQuery
    Connection = dm.ADOConnection1
    OnDeleteError = ADOQuery1DeleteError
    OnPostError = ADOQuery1PostError
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 82
    Top = 231
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 47
    Top = 231
  end
  object ADOQuery2: TADOQuery
    Connection = dm.ADOConnection1
    Parameters = <>
    Left = 144
    Top = 192
  end
end