addfoodsunit.dfm

来自「一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.」· DFM 代码 · 共 170 行

object frm_addfoods: Tfrm_addfoods
  Left = 286
  Top = 205
  BorderStyle = bsDialog
  Caption = #21830#21697#36827#36135'....'
  ClientHeight = 298
  ClientWidth = 444
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 225
    Height = 281
    Caption = #21442#29031#20449#24687
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 209
      Height = 257
      Color = clAppWorkSpace
      DataSource = ds_article
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = #21830#21697#32534#21495
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21830#21697#22995#21517
          Title.Caption = #21830#21697#21517#31216
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23384#36135
          Width = 44
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 240
    Top = 8
    Width = 193
    Height = 281
    Caption = #22635#20889#21830#21697#36827#36135#20449#24687
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 57
      Height = 13
      Caption = #21830#21697#32534#21495':  '
    end
    object Label2: TLabel
      Left = 8
      Top = 72
      Width = 60
      Height = 13
      Caption = #21333'        '#20215':   '
    end
    object Label3: TLabel
      Left = 8
      Top = 112
      Width = 57
      Height = 13
      Caption = #36827#36135#25968#37327':  '
    end
    object stock: TLabel
      Left = 8
      Top = 152
      Width = 60
      Height = 13
      Caption = #23384'        '#36135':   '
    end
    object id: TEdit
      Left = 64
      Top = 29
      Width = 121
      Height = 21
      Enabled = False
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      Text = 'id'
    end
    object price: TEdit
      Left = 64
      Top = 69
      Width = 121
      Height = 21
      Enabled = False
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 1
      Text = 'price'
    end
    object num: TEdit
      Left = 64
      Top = 109
      Width = 105
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 2
      Text = '0'
    end
    object b_input: TButton
      Left = 16
      Top = 224
      Width = 75
      Height = 25
      Caption = #24405#20837
      TabOrder = 3
      OnClick = b_inputClick
    end
    object b_close: TButton
      Left = 104
      Top = 224
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 4
      OnClick = b_closeClick
    end
    object UpDown1: TUpDown
      Left = 169
      Top = 109
      Width = 15
      Height = 21
      Associate = num
      Max = 1000
      TabOrder = 5
    end
  end
  object t_article: TADOTable
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    TableName = 'foods'
    Left = 280
    Top = 264
  end
  object ds_article: TDataSource
    DataSet = t_article
    Left = 304
    Top = 264
  end
end