pfm_datadel.dfm

来自「超市的销售」· DFM 代码 · 共 155 行

object fm_datadel: Tfm_datadel
  Left = 211
  Top = 255
  BorderStyle = bsDialog
  Caption = '过期数据删除'
  ClientHeight = 381
  ClientWidth = 537
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 537
    Height = 381
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '库存管理数据删除'
      object LBox1: TListBox
        Left = 0
        Top = 0
        Width = 189
        Height = 248
        Align = alLeft
        ItemHeight = 13
        TabOrder = 0
        OnClick = LBox1Click
      end
      object DBGrid1: TDBGrid
        Left = 288
        Top = 0
        Width = 241
        Height = 248
        Align = alRight
        DataSource = DataSource1
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 248
        Width = 529
        Height = 105
        Align = alBottom
        TabOrder = 2
        object Label1: TLabel
          Left = 148
          Top = 32
          Width = 46
          Height = 13
          Caption = '流水号<'
        end
        object Label2: TLabel
          Left = 152
          Top = 60
          Width = 7
          Height = 13
          Font.Charset = ANSI_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object BitBtn1: TBitBtn
          Left = 48
          Top = 24
          Width = 75
          Height = 25
          Caption = '删除'
          TabOrder = 0
          OnClick = BitBtn1Click
        end
        object Edit1: TEdit
          Left = 212
          Top = 28
          Width = 121
          Height = 21
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '销售日志删除'
      ImageIndex = 1
      object Label3: TLabel
        Left = 8
        Top = 32
        Width = 130
        Height = 13
        Caption = '选择销售日志过期时间'
      end
      object Label4: TLabel
        Left = 12
        Top = 60
        Width = 7
        Height = 13
      end
      object DTPicker1: TDateTimePicker
        Left = 176
        Top = 32
        Width = 129
        Height = 21
        CalAlignment = dtaLeft
        Date = 36702.6219882523
        Time = 36702.6219882523
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object BBtnxsrz: TBitBtn
        Left = 336
        Top = 32
        Width = 75
        Height = 25
        Caption = '开始删除'
        TabOrder = 1
        OnClick = BBtnxsrzClick
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'posdb'
    Left = 212
    Top = 36
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 252
    Top = 36
  end
  object Query2: TQuery
    DatabaseName = 'posdb'
    Left = 236
    Top = 104
  end
end