addbalance.dfm

餐饮管理源代码 使用BDE Administrator在本地机器上添加一个Paradox数据库别名命名为WorkData

object frmAddBalance: TfrmAddBalance
  Left = 250
  Top = 132
  BorderStyle = bsDialog
  Caption = #20250#21592#36164#37329#20805#20540'...'
  ClientHeight = 264
  ClientWidth = 403
  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 GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 169
    Height = 233
    Caption = #21442#29031#20449#24687
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 8
      Top = 17
      Width = 153
      Height = 208
      Color = clBtnShadow
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #20250#21592#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20250#21592#22995#21517
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 192
    Top = 8
    Width = 201
    Height = 161
    Caption = #22635#20837#36164#37329#20805#20540#20449#24687
    TabOrder = 1
    object Label1: TLabel
      Left = 24
      Top = 40
      Width = 48
      Height = 13
      Caption = #20250#21592#32534#21495
    end
    object TLabel
      Left = 24
      Top = 92
      Width = 48
      Height = 13
      Caption = #20805#20540#37329#39069
    end
    object id: TEdit
      Left = 88
      Top = 36
      Width = 81
      Height = 21
      TabOrder = 0
    end
    object sum: TEdit
      Left = 88
      Top = 88
      Width = 81
      Height = 21
      TabOrder = 1
    end
  end
  object Button1: TButton
    Left = 200
    Top = 200
    Width = 75
    Height = 25
    Caption = #20805'  '#20540
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 312
    Top = 200
    Width = 75
    Height = 25
    Caption = #20851'  '#38381
    ModalResult = 2
    TabOrder = 3
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'WorkData'
    TableName = 'member.DB'
    Left = 216
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 248
    Top = 128
  end
end