unitset.dfm

来自「这是为工商所开发的工商收费簿套打软件,借初学者学习」· DFM 代码 · 共 143 行

object SetForm: TSetForm
  Left = 413
  Top = 111
  BorderStyle = bsDialog
  Caption = #31995#32479#35774#32622
  ClientHeight = 358
  ClientWidth = 552
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LbSpeedButton1: TLbSpeedButton
    Left = 424
    Top = 296
    Width = 65
    Height = 33
    Alignment = taCenter
    Caption = #21462#28040
    Color = 16744448
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    LightColor = clAqua
    ParentColor = False
    ParentFont = False
    ShadowColor = clBlue
    Style = bsModern
    OnClick = LbSpeedButton1Click
  end
  object LbSpeedButton2: TLbSpeedButton
    Left = 336
    Top = 296
    Width = 65
    Height = 33
    Alignment = taCenter
    Caption = #30830#23450
    Color = 16744448
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    LightColor = clAqua
    ParentColor = False
    ParentFont = False
    ShadowColor = clBlue
    Style = bsModern
    OnClick = LbSpeedButton2Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 552
    Height = 281
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 136
      Top = 56
      Width = 97
      Height = 17
      AutoSize = False
      Caption = #27700#24179#20559#31227'('#27627#31859')'#65306
    end
    object Label2: TLabel
      Left = 136
      Top = 117
      Width = 97
      Height = 20
      AutoSize = False
      Caption = #22402#30452#20559#31227'('#27627#31859')'#65306
    end
    object Label3: TLabel
      Left = 88
      Top = 184
      Width = 369
      Height = 25
      AutoSize = False
      Caption = #35828#26126#65306#27700#24179#20559#31227#30340#20540#20026#36127#25968#26102#21521#24038#20559#31227#65292#27491#25968#26102#21521#21491#20559#31227#65307
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 128
      Top = 208
      Width = 369
      Height = 25
      AutoSize = False
      Caption = ' '#22402#30452#20559#31227#30340#20540#20026#36127#25968#26102#21521#19978#20559#31227#65292#27491#25968#26102#21521#19979#20559#31227#65307
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 128
      Top = 232
      Width = 369
      Height = 25
      AutoSize = False
      Caption = ' '#33509#26080#38656#20559#31227#26102#65292#23558#20540#35774#32622#20026'"0"'#65292#35831#19981#35201#35774#32622#20026#31354#20540#12290
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBEditX: TDBEdit
      Left = 240
      Top = 48
      Width = 121
      Height = 21
      DataField = 'X'#22352#26631
      DataSource = DataModule2.DataSourceSet
      TabOrder = 0
    end
    object DBEditY: TDBEdit
      Left = 240
      Top = 112
      Width = 121
      Height = 21
      DataField = 'Y'#22352#26631
      DataSource = DataModule2.DataSourceSet
      TabOrder = 1
    end
  end
end