recordbatchdelfrm.dfm

一个电力企业的后台管理程序

object Form_BatchDel: TForm_BatchDel
  Left = 18
  Top = 142
  Width = 773
  Height = 355
  Caption = '电力客服历史记录批量删除窗口'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 765
    Height = 81
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 488
      Top = 15
      Width = 119
      Height = 22
      Caption = '统计历史记录情况'
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 488
      Top = 46
      Width = 119
      Height = 22
      Caption = '统计待删记录情况'
      OnClick = SpeedButton2Click
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 8
      Width = 177
      Height = 61
      Caption = '请选择操作项目'
      TabOrder = 0
      object CmBox_SelectItem: TComboBox
        Left = 16
        Top = 24
        Width = 145
        Height = 24
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 0
        OnKeyPress = CmBox_SelectItemKeyPress
        Items.Strings = (
          '故障报修历史记录'
          '用电申请历史记录'
          '用户投诉历史记录'
          '用户咨询历史记录'
          '受理话单历史记录')
      end
    end
    object GroupBox2: TGroupBox
      Left = 200
      Top = 8
      Width = 277
      Height = 62
      Caption = '请选择待删记录时间范围'
      TabOrder = 1
      object Label1: TLabel
        Left = 131
        Top = 26
        Width = 15
        Height = 15
        Caption = '至'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object DatePicker_Start: TDateTimePicker
        Left = 12
        Top = 24
        Width = 117
        Height = 21
        CalAlignment = dtaLeft
        Date = 36961.7237106481
        Time = 36961.7237106481
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object DatePicker_End: TDateTimePicker
        Left = 150
        Top = 23
        Width = 116
        Height = 21
        CalAlignment = dtaLeft
        Date = 36961.7240060995
        Time = 36961.7240060995
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
        OnChange = DatePicker_EndChange
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 81
    Width = 765
    Height = 247
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 765
      Height = 142
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 0
      object SpeedButton3: TSpeedButton
        Left = 539
        Top = 58
        Width = 65
        Height = 22
        Caption = '删除'
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 539
        Top = 109
        Width = 65
        Height = 22
        Caption = '关闭'
        OnClick = SpeedButton4Click
      end
      object GroupBox3: TGroupBox
        Left = 16
        Top = 10
        Width = 503
        Height = 123
        Caption = 'GroupBox3'
        TabOrder = 0
        object RxLbl_gzbxls: TRxLabel
          Left = 24
          Top = 24
          Width = 86
          Height = 13
          Caption = 'RxLbl_gzbxls'
        end
        object RxLbl_ykzxls: TRxLabel
          Left = 24
          Top = 42
          Width = 86
          Height = 13
          Caption = 'RxLbl_ykzxls'
        end
        object RxLbl_yhtsls: TRxLabel
          Left = 24
          Top = 62
          Width = 86
          Height = 13
          Caption = 'RxLbl_yhtsls'
        end
        object RxLbl_yhzxls: TRxLabel
          Left = 24
          Top = 80
          Width = 86
          Height = 13
          Caption = 'RxLbl_yhzxls'
        end
        object RxLbl_WillDel: TRxLabel
          Left = 40
          Top = 55
          Width = 106
          Height = 16
          Caption = 'RxLbl_WillDel'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object RxLbl_Hdls: TRxLabel
          Left = 24
          Top = 98
          Width = 86
          Height = 13
          Caption = 'RxLbl_yhzxls'
        end
      end
    end
    object GroupBox4: TGroupBox
      Left = 0
      Top = 212
      Width = 765
      Height = 35
      Align = alBottom
      Caption = '删除进程'
      TabOrder = 1
      object ProgressBar1: TProgressBar
        Left = 11
        Top = 18
        Width = 603
        Height = 8
        Min = 0
        Max = 100
        Smooth = True
        TabOrder = 0
      end
    end
  end
  object Qr_Del: TQuery
    DatabaseName = 'DBECSC'
    Left = 152
    Top = 89
  end
  object RxGradientCaption1: TRxGradientCaption
    Captions = <>
    FormCaption = '电力客服历史记录批量删除窗口'
    StartColor = 8454143
    Left = 560
    Top = 97
  end
end