registerarticle.dfm

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

object frmRegisterArticle: TfrmRegisterArticle
  Left = -4
  Top = -4
  Width = 808
  Height = 608
  Caption = #21830#21697#36164#26009#24405#20837
  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 = 785
    Height = 121
    Caption = #22635#20889#21830#21697#22522#26412#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 40
      Width = 48
      Height = 13
      Caption = #21830#21697#32534#21495
    end
    object Label2: TLabel
      Left = 224
      Top = 40
      Width = 48
      Height = 13
      Caption = #21830#21697#21517#31216
    end
    object Label4: TLabel
      Left = 600
      Top = 40
      Width = 24
      Height = 13
      Caption = #21333#20215
    end
    object Label3: TLabel
      Left = 424
      Top = 40
      Width = 48
      Height = 13
      Caption = #21830#21697#31867#22411
    end
    object Label5: TLabel
      Left = 144
      Top = 76
      Width = 24
      Height = 13
      Caption = #21333#20301
    end
    object TLabel
      Left = 248
      Top = 76
      Width = 24
      Height = 13
      Caption = #20135#22320
    end
    object Label6: TLabel
      Left = 448
      Top = 76
      Width = 24
      Height = 13
      Caption = #29992#36884
    end
    object Label7: TLabel
      Left = 712
      Top = 40
      Width = 18
      Height = 13
      Caption = '('#20803')'
    end
    object Label8: TLabel
      Left = 624
      Top = 96
      Width = 136
      Height = 13
      Caption = #65288#25171'*'#21495#30340#26159#24517#22635#30340#20449#24687#65289
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 392
      Top = 36
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 568
      Top = 36
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 704
      Top = 36
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 208
      Top = 72
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 40
      Top = 76
      Width = 24
      Height = 13
      Caption = #23384#36135
    end
    object Label15: TLabel
      Left = 128
      Top = 72
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object articleId: TEdit
      Left = 72
      Top = 36
      Width = 137
      Height = 21
      Color = cl3DLight
      ReadOnly = True
      TabOrder = 0
    end
    object articleName: TEdit
      Left = 280
      Top = 36
      Width = 113
      Height = 21
      TabOrder = 1
    end
    object price: TEdit
      Left = 632
      Top = 36
      Width = 73
      Height = 21
      TabOrder = 2
    end
    object articleType: TEdit
      Left = 480
      Top = 36
      Width = 89
      Height = 21
      TabOrder = 3
    end
    object units: TEdit
      Left = 176
      Top = 72
      Width = 33
      Height = 21
      TabOrder = 4
    end
    object birthplace: TEdit
      Left = 280
      Top = 72
      Width = 113
      Height = 21
      TabOrder = 5
    end
    object use: TEdit
      Left = 480
      Top = 72
      Width = 121
      Height = 21
      TabOrder = 6
    end
    object btnOk: TButton
      Left = 624
      Top = 72
      Width = 65
      Height = 21
      Caption = #24405'  '#20837
      TabOrder = 7
      OnClick = btnOkClick
    end
    object btnClear: TButton
      Left = 704
      Top = 72
      Width = 65
      Height = 21
      Caption = #28165'  '#23631
      TabOrder = 8
      OnClick = btnClearClick
    end
    object stock: TEdit
      Left = 72
      Top = 72
      Width = 57
      Height = 21
      TabOrder = 9
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 128
    Width = 785
    Height = 313
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Color = clBtnShadow
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 781
      Height = 309
      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 GroupBox3: TGroupBox
    Left = 8
    Top = 443
    Width = 209
    Height = 38
    Caption = #25490#24207#26041#27861
    TabOrder = 2
    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 GroupBox2: TGroupBox
    Left = 224
    Top = 443
    Width = 570
    Height = 38
    Caption = #25490#24207#20869#23481
    TabOrder = 3
    object id: TRadioButton
      Left = 56
      Top = 16
      Width = 41
      Height = 17
      Caption = #32534#21495
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = idClick
    end
    object name: TRadioButton
      Left = 189
      Top = 16
      Width = 41
      Height = 17
      Caption = #21517#31216
      TabOrder = 1
      OnClick = nameClick
    end
    object kind: TRadioButton
      Left = 322
      Top = 16
      Width = 41
      Height = 17
      Caption = #31867#22411
      TabOrder = 2
      OnClick = kindClick
    end
    object priceRadio: TRadioButton
      Left = 456
      Top = 16
      Width = 49
      Height = 17
      Caption = #21333#20215
      TabOrder = 3
      OnClick = priceRadioClick
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'WorkData'
    SQL.Strings = (
      'select * from goods')
    Left = 168
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 216
    Top = 104
  end
  object Table1: TTable
    DatabaseName = 'WorkData'
    TableName = 'goods.DB'
    Left = 264
    Top = 104
  end
end