transaction.dfm

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

object frmTransaction: TfrmTransaction
  Left = -4
  Top = -4
  Width = 808
  Height = 608
  Caption = #36141#20080#21830#21697'...'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 369
    Height = 161
    Caption = #22635#20889#36141#20080#30340#20449#24687
    TabOrder = 0
    object TLabel
      Left = 200
      Top = 72
      Width = 48
      Height = 13
      Caption = #20132#26131#26085#26399
    end
    object Label1: TLabel
      Left = 24
      Top = 40
      Width = 48
      Height = 13
      Caption = #20250#21592#32534#21495
    end
    object TLabel
      Left = 24
      Top = 72
      Width = 48
      Height = 13
      Caption = #21830#21697#32534#21495
    end
    object Label3: TLabel
      Left = 12
      Top = 104
      Width = 60
      Height = 13
      Caption = #32463#25163#20154#32534#21495
    end
    object Label5: TLabel
      Left = 200
      Top = 40
      Width = 48
      Height = 13
      Caption = #36141#20080#25968#37327
    end
    object time: TDateTimePicker
      Left = 256
      Top = 68
      Width = 81
      Height = 21
      CalAlignment = dtaLeft
      Date = 37642.8228886574
      Time = 37642.8228886574
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object employeeId: TEdit
      Left = 80
      Top = 100
      Width = 89
      Height = 21
      TabOrder = 1
    end
    object articleId: TEdit
      Left = 80
      Top = 68
      Width = 89
      Height = 21
      TabOrder = 2
    end
    object memberId: TEdit
      Left = 80
      Top = 36
      Width = 89
      Height = 21
      TabOrder = 3
    end
    object btnOk: TButton
      Left = 184
      Top = 108
      Width = 65
      Height = 21
      Caption = #32467'  '#31639
      TabOrder = 4
      OnClick = btnOkClick
    end
    object btnClear: TButton
      Left = 272
      Top = 108
      Width = 65
      Height = 21
      Caption = #28165'  '#23631
      TabOrder = 5
      OnClick = btnClearClick
    end
    object number: TSpinEdit
      Left = 256
      Top = 32
      Width = 57
      Height = 22
      MaxLength = 5
      MaxValue = 65535
      MinValue = 1
      TabOrder = 6
      Value = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 384
    Top = 0
    Width = 201
    Height = 161
    Caption = #20132#26131#26126#32454
    TabOrder = 1
    object Label6: TLabel
      Left = 23
      Top = 24
      Width = 60
      Height = 13
      Caption = #21830#21697#21517#31216#65306
    end
    object articleName: TLabel
      Left = 88
      Top = 24
      Width = 56
      Height = 13
      Caption = 'articleName'
    end
    object employeeName: TLabel
      Left = 88
      Top = 48
      Width = 73
      Height = 13
      Caption = 'employeeName'
    end
    object Label12: TLabel
      Left = 23
      Top = 72
      Width = 60
      Height = 13
      Caption = #21830#21697#37329#39069#65306
    end
    object payment: TLabel
      Left = 88
      Top = 72
      Width = 40
      Height = 13
      Caption = 'payment'
    end
    object Label14: TLabel
      Left = 23
      Top = 96
      Width = 60
      Height = 13
      Caption = #20248#24800#37329#39069#65306
    end
    object discount: TLabel
      Left = 88
      Top = 96
      Width = 40
      Height = 13
      Caption = 'discount'
    end
    object Label16: TLabel
      Left = 23
      Top = 120
      Width = 60
      Height = 13
      Caption = #24212#20184#37329#39069#65306
    end
    object needPay: TLabel
      Left = 88
      Top = 120
      Width = 42
      Height = 13
      Caption = 'needPay'
    end
    object Label4: TLabel
      Left = 35
      Top = 48
      Width = 48
      Height = 13
      Caption = #32463#25163#20154#65306
    end
  end
  object GroupBox3: TGroupBox
    Left = 592
    Top = 0
    Width = 201
    Height = 161
    Caption = #20250#21592#36164#26009
    TabOrder = 2
    object Label2: TLabel
      Left = 48
      Top = 24
      Width = 36
      Height = 13
      Caption = #22995#21517#65306
    end
    object memberName: TLabel
      Left = 96
      Top = 24
      Width = 65
      Height = 13
      Caption = 'memberName'
    end
    object Label18: TLabel
      Left = 24
      Top = 48
      Width = 60
      Height = 13
      Caption = #36164#37329#32467#20313#65306
    end
    object balance: TLabel
      Left = 96
      Top = 48
      Width = 38
      Height = 13
      Caption = 'balance'
    end
    object Label20: TLabel
      Left = 24
      Top = 72
      Width = 60
      Height = 13
      Caption = #27424#27454#37329#39069#65306
    end
    object deficiency: TLabel
      Left = 96
      Top = 72
      Width = 48
      Height = 13
      Caption = 'deficiency'
    end
    object Label22: TLabel
      Left = 24
      Top = 96
      Width = 60
      Height = 13
      Caption = #20250#21592#28857#25968#65306
    end
    object dot: TLabel
      Left = 96
      Top = 96
      Width = 15
      Height = 13
      Caption = 'dot'
    end
    object Label24: TLabel
      Left = 24
      Top = 120
      Width = 60
      Height = 13
      Caption = #20250#21592#32423#21035#65306
    end
    object level: TLabel
      Left = 96
      Top = 120
      Width = 22
      Height = 13
      Caption = 'level'
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 168
    Width = 785
    Height = 297
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Color = clBtnShadow
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 781
      Height = 293
      Align = alClient
      Color = clBtnShadow
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 467
    Width = 209
    Height = 38
    Caption = #25490#24207#26041#27861
    TabOrder = 4
    object asc: TRadioButton
      Left = 32
      Top = 16
      Width = 49
      Height = 17
      Caption = #21319#24207
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = ascClick
    end
    object desc: TRadioButton
      Left = 120
      Top = 16
      Width = 41
      Height = 17
      Caption = #38477#24207
      TabOrder = 1
      OnClick = descClick
    end
  end
  object GroupBox5: TGroupBox
    Left = 224
    Top = 467
    Width = 570
    Height = 38
    Caption = #25490#24207#20869#23481
    TabOrder = 5
    object id1: TRadioButton
      Left = 56
      Top = 16
      Width = 73
      Height = 17
      Caption = #20250#21592#32534#21495
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = id1Click
    end
    object id2: TRadioButton
      Left = 189
      Top = 16
      Width = 84
      Height = 17
      Caption = #21830#21697#32534#21495
      TabOrder = 1
      OnClick = id2Click
    end
    object id3: TRadioButton
      Left = 322
      Top = 16
      Width = 71
      Height = 17
      Caption = #21592#24037#32534#21495
      TabOrder = 2
      OnClick = id3Click
    end
    object d: TRadioButton
      Left = 456
      Top = 16
      Width = 49
      Height = 17
      Caption = #26085#26399
      TabOrder = 3
      OnClick = dClick
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 88
    Top = 304
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'WorkData'
    SQL.Strings = (
      'select * from mytransaction')
    Left = 136
    Top = 304
  end
  object Table1: TTable
    DatabaseName = 'WorkData'
    TableName = 'member.DB'
    Left = 232
    Top = 304
  end
  object Table2: TTable
    DatabaseName = 'WorkData'
    TableName = 'goods.db'
    Left = 184
    Top = 304
  end
  object Table3: TTable
    DatabaseName = 'WorkData'
    TableName = 'employee.DB'
    Left = 280
    Top = 304
  end
  object Table4: TTable
    DatabaseName = 'WorkData'
    TableName = 'mytransaction.db'
    Left = 336
    Top = 304
  end
  object Table5: TTable
    DatabaseName = 'WorkData'
    TableName = 'discount.DB'
    Left = 384
    Top = 304
  end
end