queryarticleunit.dfm

Delphi 编写的"会员销售管理系统",源码全,数据库全,未经测试,请有兴趣的朋友自己测试!

object frm_queryarticle: Tfrm_queryarticle
  Left = 186
  Top = 489
  BorderStyle = bsDialog
  Caption = #21830#21697#36164#26009#26597#35810#31383#20307'....'
  ClientHeight = 492
  ClientWidth = 796
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 5
    Top = 0
    Width = 785
    Height = 97
    Caption = #22635#20889#21830#21697#22522#26412#20449#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label2: TLabel
      Left = 472
      Top = 24
      Width = 24
      Height = 13
      Caption = #31867#22411
    end
    object Label1: TLabel
      Left = 248
      Top = 24
      Width = 48
      Height = 13
      Caption = #21830#21697#21517#31216
    end
    object Label9: TLabel
      Left = 472
      Top = 60
      Width = 24
      Height = 13
      Caption = #20135#22320
    end
    object Label12: TLabel
      Left = 32
      Top = 24
      Width = 48
      Height = 13
      Caption = #21830#21697#32534#21495
    end
    object Label4: TLabel
      Left = 632
      Top = 28
      Width = 120
      Height = 13
      Caption = #65288#27880#65306#19981#22635#34920#31034#25152#26377#65289
    end
    object articletype: TEdit
      Left = 504
      Top = 20
      Width = 105
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      OnKeyPress = articletypeKeyPress
    end
    object articlename: TEdit
      Left = 304
      Top = 20
      Width = 153
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ParentFont = False
      TabOrder = 1
      OnKeyPress = articlenameKeyPress
    end
    object birthplace: TEdit
      Left = 504
      Top = 56
      Width = 105
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ParentFont = False
      TabOrder = 2
      OnKeyPress = birthplaceKeyPress
    end
    object b_query: TButton
      Left = 620
      Top = 56
      Width = 65
      Height = 21
      Caption = #26597'  '#35810
      TabOrder = 3
      OnClick = b_queryClick
    end
    object b_clear: TButton
      Left = 700
      Top = 56
      Width = 65
      Height = 21
      Caption = #28165'  '#23631
      TabOrder = 4
      OnClick = b_clearClick
    end
    object articleid: TEdit
      Left = 88
      Top = 20
      Width = 145
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 5
      OnKeyPress = articleidKeyPress
    end
    object GroupBox2: TGroupBox
      Left = 24
      Top = 40
      Width = 209
      Height = 49
      Caption = #21333#20215#65288#20803#65289
      TabOrder = 6
      object Label5: TLabel
        Left = 96
        Top = 20
        Width = 12
        Height = 13
        Caption = #33267
      end
      object lowPrice: TEdit
        Left = 8
        Top = 16
        Width = 81
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 0
        OnKeyPress = lowPriceKeyPress
      end
      object highPrice: TEdit
        Left = 112
        Top = 16
        Width = 81
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 1
        OnKeyPress = highPriceKeyPress
      end
    end
    object GroupBox3: TGroupBox
      Left = 240
      Top = 40
      Width = 217
      Height = 49
      Caption = #23384#36135
      TabOrder = 7
      object Label6: TLabel
        Left = 104
        Top = 20
        Width = 12
        Height = 13
        Caption = #33267
      end
      object lowStock: TEdit
        Left = 16
        Top = 16
        Width = 81
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 0
        OnKeyPress = lowStockKeyPress
      end
      object highStock: TEdit
        Left = 120
        Top = 16
        Width = 81
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 1
        OnKeyPress = highStockKeyPress
      end
    end
  end
  object GroupBox4: TGroupBox
    Left = 5
    Top = 96
    Width = 193
    Height = 41
    Caption = #35760#24405#27983#35272#25353#38062
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 18
      Top = 15
      Width = 164
      Height = 18
      DataSource = ds_article
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 0
    end
  end
  object GroupBox8: TGroupBox
    Left = 205
    Top = 96
    Width = 113
    Height = 41
    Caption = #20107#21153#22788#29702#25353#38062
    TabOrder = 2
    object b_modify: TButton
      Left = 16
      Top = 16
      Width = 41
      Height = 17
      Caption = #20462#25913
      TabOrder = 0
      OnClick = b_modifyClick
    end
    object b_del: TButton
      Left = 60
      Top = 16
      Width = 41
      Height = 17
      Caption = #21024#38500
      TabOrder = 1
      OnClick = b_modifyClick
    end
  end
  object GroupBox6: TGroupBox
    Left = 325
    Top = 96
    Width = 121
    Height = 41
    Caption = #25490#24207#26041#27861
    TabOrder = 3
    object asc: TRadioButton
      Left = 16
      Top = 16
      Width = 49
      Height = 17
      Caption = #21319#24207
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = ascClick
    end
    object desc: TRadioButton
      Left = 72
      Top = 18
      Width = 41
      Height = 13
      Caption = #38477#24207
      TabOrder = 1
      OnClick = descClick
    end
  end
  object GroupBox5: TGroupBox
    Left = 453
    Top = 96
    Width = 337
    Height = 41
    Caption = #25490#24207#20869#23481
    TabOrder = 4
    object id: TRadioButton
      Left = 40
      Top = 16
      Width = 41
      Height = 17
      Caption = #32534#21495
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = idClick
    end
    object name: TRadioButton
      Left = 109
      Top = 16
      Width = 41
      Height = 17
      Caption = #21517#31216
      TabOrder = 1
      OnClick = nameClick
    end
    object price: TRadioButton
      Left = 178
      Top = 16
      Width = 41
      Height = 17
      Caption = #21333#20215
      TabOrder = 2
      OnClick = priceClick
    end
    object stock: TRadioButton
      Left = 248
      Top = 16
      Width = 49
      Height = 17
      Caption = #23384#36135
      TabOrder = 3
      OnClick = stockClick
    end
  end
  object GroupBox7: TGroupBox
    Left = 5
    Top = 136
    Width = 785
    Height = 345
    Caption = #21830#21697#36164#26009
    TabOrder = 5
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 769
      Height = 321
      Color = clBtnShadow
      DataSource = ds_article
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
    end
  end
  object q_article: TADOQuery
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from foods ')
    Left = 117
    Top = 296
  end
  object ds_article: TDataSource
    DataSet = q_article
    Left = 165
    Top = 296
  end
end