ufrmcnfgpara.dfm

水电管理系统,介绍了水电管理系统的基本结构和基本功能,对进行这方面的开发人员有一定帮助

object frmCnfgPara: TfrmCnfgPara
  Left = 301
  Top = 244
  BorderStyle = bsDialog
  Caption = '系统参数配置'
  ClientHeight = 172
  ClientWidth = 349
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 73
    Top = 36
    Width = 52
    Height = 13
    Caption = '单位名称'
  end
  object Label2: TLabel
    Left = 88
    Top = 72
    Width = 26
    Height = 13
    Caption = '密码'
  end
  object Image1: TImage
    Left = 32
    Top = 40
    Width = 41
    Height = 41
    Picture.Data = {
      055449636F6E0000010001002020100000000400E80200001600000028000000
      2000000040000000010004000000000000020000000000000000000000000000
      0000000000000000000080000080000000808000800000008000800080800000
      80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF0000000000000000000000000000000000000000000008000000000000
      0000000000000000078880000000000000000000000000800787803333333333
      3333370000007888070780BBBBBBBBBBBBBB873000007878008780BBBBBBBBBB
      BBBB8370000000787087808888888888888B873000000878078780BBBBBBBBBB
      BBBB8370000708780707808888888888888B873000007878007780BBBBBBBBBB
      BBBB8370000000787087808888888888888B873000000778708780BBBBBBBBBB
      BBBB8370000708780787808888888888888B873000070878078770BBBBBBBBBB
      BBBB8370000078787080708888888888888B8730000078770888880BBBBBBBBB
      BBBB83700007087088080870BBBBBBBBBBB08730007087088080888700000000
      0008837007088708880808870737373737373730708807088000808703737373
      7003737070888708807708870037373738303730708807088077088700333333
      3830330070880770880088703000000038300000708807770000070B30000000
      38300000070880087777073B3000000038300000007000087077003B30000000
      38300000000777777777003B3000000038300000000000777770003B83000003
      B83000000000000000000003B83000088300000000000000000000003BB3338B
      300000000000000000000000033BBBB000000000000000000000000000033330
      00000000FFEFFFFFFFC7FFFFFD800003F8800001F0000000F0000000F8400000
      F0000000E8000000F0000000F8400000F0400000E8000000E8000000F0500000
      F0800000E9280010D2507FE0A22800004A440000420000014A00000341003F0F
      40F03F0FA0003F0FDE043F0FE0043F0FF80C1E0FFC1E001FFFFF003FFFFF807F
      FFFFE1FF}
  end
  object edtUnitName: TEdit
    Left = 136
    Top = 32
    Width = 177
    Height = 21
    TabOrder = 0
    OnKeyPress = edtUnitNameKeyPress
  end
  object maskPw: TMaskEdit
    Left = 136
    Top = 64
    Width = 177
    Height = 21
    PasswordChar = '#'
    TabOrder = 1
    OnKeyPress = maskPwKeyPress
  end
  object BitBtn1: TBitBtn
    Left = 88
    Top = 127
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 216
    Top = 127
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object dsCfngPara: TDataSource
    DataSet = adoCfngPara
    Left = 8
    Top = 121
  end
  object adoCfngPara: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select UseUnitName, PassWd from CnfgPara')
    Left = 40
    Top = 121
  end
end