lx_delunit.dfm

使用delphi语言

object lx_delform: Tlx_delform
  Left = 206
  Top = 202
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #21462#28040#21033#24687#32467#31639
  ClientHeight = 152
  ClientWidth = 430
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 430
    Height = 152
    Align = alClient
    BevelInner = bvLowered
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 191
      Top = 21
      Width = 65
      Height = 13
      Caption = #35831#36873#25321#26465#20214
    end
    object Label2: TLabel
      Left = 82
      Top = 60
      Width = 65
      Height = 13
      Caption = #35831#22635#20889#24180#20221
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 226
      Top = 60
      Width = 65
      Height = 13
      Caption = #35831#22635#20889#26376#20221
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object BitBtn1: TBitBtn
      Left = 139
      Top = 101
      Width = 64
      Height = 24
      Caption = #30830#23450
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 243
      Top = 101
      Width = 64
      Height = 24
      Caption = #21462#28040
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object spinedit1: TMaskEdit
      Left = 149
      Top = 57
      Width = 64
      Height = 21
      EditMask = '9999;1;_'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 4
      ParentFont = False
      TabOrder = 2
      Text = '    '
      OnKeyDown = SpinEdit1KeyDown
    end
    object spinedit2: TMaskEdit
      Left = 294
      Top = 55
      Width = 64
      Height = 21
      EditMask = '99;1;_'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 2
      ParentFont = False
      TabOrder = 3
      Text = '  '
      OnKeyDown = SpinEdit2KeyDown
    end
  end
  object c: TADOCommand
    Connection = dm.gjjconn
    Parameters = <>
    Left = 64
    Top = 24
  end
end