changprice.dfm

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

object FrmChangPrice: TFrmChangPrice
  Left = 349
  Top = 166
  Width = 311
  Height = 153
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #33756#21697#20215#26684#35843#25972
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 44
    Top = 90
    Width = 72
    Height = 29
    Caption = #30830'  '#23450
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 176
    Top = 90
    Width = 72
    Height = 29
    Caption = #21462'  '#28040
    OnClick = SpeedButton2Click
  end
  object GroupBox1: TGroupBox
    Left = 3
    Top = 1
    Width = 292
    Height = 80
    Caption = #33756#21697#35843#20215
    TabOrder = 0
    object Label1: TLabel
      Left = 10
      Top = 19
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #33756#21697#31867#22411#65306
      Transparent = True
    end
    object Label2: TLabel
      Left = 160
      Top = 18
      Width = 52
      Height = 13
      AutoSize = False
      Caption = #21407#20215#26684#65306
      Transparent = True
    end
    object Label3: TLabel
      Left = 16
      Top = 45
      Width = 52
      Height = 13
      AutoSize = False
      Caption = #25240#25187#29575#65306
      Transparent = True
    end
    object Label4: TLabel
      Left = 160
      Top = 44
      Width = 52
      Height = 13
      AutoSize = False
      Caption = #35843#21518#20215#65306
      Transparent = True
    end
    object caipinlei: TComboBox
      Left = 71
      Top = 16
      Width = 79
      Height = 21
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      ItemHeight = 13
      TabOrder = 0
      OnChange = caipinleiChange
      Items.Strings = (
        #28857#21333
        #36192#19982
        #25171#25240)
    end
    object oldprice: TEdit
      Left = 210
      Top = 13
      Width = 74
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      ReadOnly = True
      TabOrder = 1
    end
    object newprice: TEdit
      Left = 209
      Top = 40
      Width = 76
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      ReadOnly = True
      TabOrder = 2
    end
    object zhekou: TComboBox
      Left = 70
      Top = 41
      Width = 81
      Height = 21
      Style = csDropDownList
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      ItemHeight = 13
      TabOrder = 3
      OnChange = zhekouChange
    end
  end
end