denglu.dfm

有不足之处请指出

object dengluForm: TdengluForm
  Left = 271
  Top = 155
  Width = 341
  Height = 251
  BorderIcons = [biMinimize]
  Caption = #30331#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 333
    Height = 224
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clSkyBlue
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 58
      Top = 68
      Width = 80
      Height = 16
      Caption = #29992#25143#22995#21517#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 58
      Top = 112
      Width = 80
      Height = 16
      Caption = #29992#25143#23494#30721#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 111
      Top = 18
      Width = 120
      Height = 29
      Caption = #27426#36814#20351#29992
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -29
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 110
      Top = 17
      Width = 120
      Height = 29
      Caption = #27426#36814#20351#29992
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -29
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Edit2: TEdit
      Left = 143
      Top = 105
      Width = 137
      Height = 30
      AutoSize = False
      MaxLength = 16
      PasswordChar = '*'
      TabOrder = 1
      OnKeyPress = Edit2KeyPress
    end
    object ComboBox1: TComboBox
      Left = 143
      Top = 63
      Width = 137
      Height = 27
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 0
    end
    object Button1: TButton
      Left = 79
      Top = 161
      Width = 81
      Height = 41
      Caption = #30830#23450
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 184
      Top = 160
      Width = 81
      Height = 42
      Caption = #36864#20986
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = Button2Click
    end
  end
  object Query1: TQuery
    DatabaseName = 'stumanager'
    SQL.Strings = (
      'select * from yonghu;')
    Left = 24
    Top = 24
    object Query1Bianhao: TStringField
      FieldName = 'Bianhao'
      Origin = 'STUMANAGER."yonghu.DB".Bianhao'
      Size = 8
    end
    object Query1Xingming: TStringField
      FieldName = 'Xingming'
      Origin = 'STUMANAGER."yonghu.DB".Xingming'
      Size = 8
    end
    object Query1Quanxian: TStringField
      FieldName = 'Quanxian'
      Origin = 'STUMANAGER."yonghu.DB".Quanxian'
      Size = 8
    end
    object Query1Mima: TStringField
      FieldName = 'Mima'
      Origin = 'STUMANAGER."yonghu.DB".Mima'
      Size = 16
    end
  end
end