registerarticleunit.dfm

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

object frm_registerarticle: Tfrm_registerarticle
  Left = 247
  Top = 142
  BorderStyle = bsDialog
  Caption = #21830#21697#20449#24687#24405#20837
  ClientHeight = 519
  ClientWidth = 737
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 713
    Height = 161
    Caption = #22635#20889#21830#21697#22522#26412#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 60
      Height = 13
      Caption = #21830#21697#32534#21495':   '
    end
    object Label2: TLabel
      Left = 224
      Top = 72
      Width = 60
      Height = 13
      Caption = #23384'        '#36135':   '
    end
    object Label3: TLabel
      Left = 224
      Top = 32
      Width = 57
      Height = 13
      Caption = #21830#21697#21517#31216':  '
    end
    object Label4: TLabel
      Left = 456
      Top = 32
      Width = 60
      Height = 13
      Caption = #21830#21697#31867#22411':   '
    end
    object Label5: TLabel
      Left = 392
      Top = 72
      Width = 60
      Height = 13
      Caption = #21333'        '#20301':   '
    end
    object Label6: TLabel
      Left = 32
      Top = 120
      Width = 60
      Height = 13
      Caption = #20135'        '#22320':   '
    end
    object Label7: TLabel
      Left = 392
      Top = 120
      Width = 60
      Height = 13
      Caption = #29992'        '#36884':   '
    end
    object Label8: TLabel
      Left = 32
      Top = 72
      Width = 60
      Height = 13
      Caption = #21333'        '#20215':   '
    end
    object Label9: TLabel
      Left = 544
      Top = 72
      Width = 9
      Height = 16
      Caption = '*'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 368
      Top = 72
      Width = 9
      Height = 16
      Caption = '*'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label17: TLabel
      Left = 543
      Top = 128
      Width = 154
      Height = 13
      Caption = '('#35831#27880#24847':'#24102'*'#21495#20026#24517#22635#39033')       '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object articleid: TEdit
      Left = 88
      Top = 28
      Width = 121
      Height = 21
      Enabled = False
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      Text = 'articleid'
    end
    object articlename: TEdit
      Left = 288
      Top = 29
      Width = 121
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 1
      Text = 'articlename'
    end
    object articletype: TEdit
      Left = 536
      Top = 29
      Width = 121
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 2
      Text = 'articletype'
    end
    object num: TEdit
      Left = 288
      Top = 69
      Width = 81
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 3
      Text = 'num'
    end
    object birthplace: TEdit
      Left = 88
      Top = 117
      Width = 281
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 4
      Text = 'birthplace'
    end
    object use: TEdit
      Left = 448
      Top = 118
      Width = 73
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 5
      Text = 'use'
    end
    object price: TEdit
      Left = 88
      Top = 69
      Width = 121
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 6
      Text = 'price'
    end
    object b_add: TButton
      Left = 528
      Top = 95
      Width = 75
      Height = 25
      Caption = #24405#20837
      TabOrder = 7
      OnClick = b_addClick
    end
    object b_cancel: TButton
      Left = 616
      Top = 95
      Width = 75
      Height = 25
      Caption = #28165#23631
      TabOrder = 8
      OnClick = b_cancelClick
    end
    object units: TComboBox
      Left = 448
      Top = 69
      Width = 89
      Height = 21
      Style = csDropDownList
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 9
      Text = #35831#36873#25321#21333#20301
      Items.Strings = (
        #35831#36873#25321#21333#20301
        #21488
        #26020
        #29942
        #34955
        #30418
        #24352)
    end
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 184
    Width = 713
    Height = 265
    Color = clAppWorkSpace
    DataSource = ds_article
    ImeName = #26497#21697#20116#31508#36755#20837#27861
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 462
    Width = 193
    Height = 41
    Caption = #25490#24207#26041#27861
    TabOrder = 2
    object inc: TRadioButton
      Left = 16
      Top = 16
      Width = 65
      Height = 17
      Caption = #21319#24207
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = incClick
    end
    object desc: TRadioButton
      Left = 104
      Top = 16
      Width = 65
      Height = 17
      Caption = #38477#24207
      TabOrder = 1
      OnClick = descClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 256
    Top = 462
    Width = 393
    Height = 41
    Caption = #25490#24207#20869#23481
    TabOrder = 3
    object id: TRadioButton
      Left = 16
      Top = 16
      Width = 65
      Height = 17
      Caption = #32534#21495
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = idClick
    end
    object name: TRadioButton
      Left = 104
      Top = 16
      Width = 65
      Height = 17
      Caption = #21517#31216
      TabOrder = 1
      OnClick = nameClick
    end
    object articlelx: TRadioButton
      Left = 192
      Top = 16
      Width = 65
      Height = 17
      Caption = #31867#22411
      TabOrder = 2
      OnClick = articlelxClick
    end
    object dj: TRadioButton
      Left = 288
      Top = 16
      Width = 73
      Height = 17
      Caption = #21333#20215
      TabOrder = 3
      OnClick = djClick
    end
  end
  object t_article: TADOTable
    Connection = DataModule1.ADOConnection1
    TableName = 'foods'
    Left = 120
    Top = 8
  end
  object q_article: TADOQuery
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from foods')
    Left = 152
    Top = 8
  end
  object t_counter: TADOTable
    Connection = DataModule1.ADOConnection1
    Filter = 'id='#39'f'#39
    Filtered = True
    TableName = 'counter'
    Left = 208
    Top = 8
  end
  object ds_article: TDataSource
    DataSet = q_article
    Left = 184
    Top = 8
  end
end