pfm_youhuid.~dfm

超市的销售

object fm_youhuid: Tfm_youhuid
  Left = 249
  Top = 100
  Width = 682
  Height = 470
  Caption = 'fm_youhuid'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 48
    Width = 52
    Height = 13
    Caption = '商品编码'
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 112
    Top = 48
    Width = 65
    Height = 13
    Caption = '商品条形码'
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 216
    Top = 152
    Width = 52
    Height = 13
    Caption = '促销方式'
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 16
    Top = 128
    Width = 78
    Height = 13
    Caption = '促销开始时间'
  end
  object Label5: TLabel
    Left = 16
    Top = 168
    Width = 78
    Height = 13
    Caption = '促销结束时间'
  end
  object Label6: TLabel
    Left = 16
    Top = 208
    Width = 104
    Height = 13
    Caption = '批量促销起始数量'
    FocusControl = DBEdit6
  end
  object Label7: TLabel
    Left = 16
    Top = 88
    Width = 78
    Height = 13
    Caption = '促销优惠单价'
    FocusControl = DBEdit4
  end
  object DBGrid1: TDBGrid
    Left = 296
    Top = 0
    Width = 481
    Height = 521
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = '宋体'
    TitleFont.Style = []
  end
  object RButton1: TRadioButton
    Left = 16
    Top = 8
    Width = 113
    Height = 17
    Caption = '限时促销'
    Checked = True
    TabOrder = 1
    TabStop = True
    OnClick = RButton1Click
  end
  object RButton2: TRadioButton
    Left = 144
    Top = 8
    Width = 113
    Height = 17
    Caption = '批量促销'
    TabOrder = 2
    OnClick = RButton2Click
  end
  object DBEdit1: TDBEdit
    Left = 16
    Top = 64
    Width = 49
    Height = 21
    DataField = 'spbm'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit2: TDBEdit
    Left = 112
    Top = 64
    Width = 89
    Height = 21
    DataField = 'sptxm'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit3: TDBEdit
    Left = 216
    Top = 168
    Width = 33
    Height = 21
    DataField = 'yhfs'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit6: TDBEdit
    Left = 16
    Top = 224
    Width = 64
    Height = 21
    DataField = 'yhnum'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 272
    Width = 220
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
    TabOrder = 7
  end
  object DTPicker1: TDateTimePicker
    Left = 16
    Top = 144
    Width = 185
    Height = 21
    CalAlignment = dtaLeft
    Date = 36691.6378590162
    Time = 36691.6378590162
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 8
  end
  object DTPicker2: TDateTimePicker
    Left = 16
    Top = 184
    Width = 186
    Height = 21
    CalAlignment = dtaLeft
    Date = 36691.6381336111
    Time = 36691.6381336111
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 9
  end
  object DBEdit4: TDBEdit
    Left = 16
    Top = 104
    Width = 118
    Height = 21
    DataField = 'yhdj'
    DataSource = DataSource1
    TabOrder = 10
  end
  object ADOQuery1: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    BeforePost = ADOQuery1BeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from tb_youhuid')
    Left = 232
    Top = 40
    object ADOQuery1spbm: TStringField
      FieldName = 'spbm'
      FixedChar = True
      Size = 6
    end
    object ADOQuery1sptxm: TStringField
      FieldName = 'sptxm'
      FixedChar = True
      Size = 13
    end
    object ADOQuery1yhfs: TStringField
      FieldName = 'yhfs'
      FixedChar = True
      Size = 4
    end
    object ADOQuery1yhdj: TBCDField
      FieldName = 'yhdj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1sttime: TDateTimeField
      FieldName = 'sttime'
    end
    object ADOQuery1endtime: TDateTimeField
      FieldName = 'endtime'
    end
    object ADOQuery1yhnum: TIntegerField
      FieldName = 'yhnum'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 232
    Top = 112
  end
end