cjuserinfofm.dfm

一个电力部门的催缴费用系统

inherited FM_CjUserInfo: TFM_CjUserInfo
  Left = 111
  Top = 70
  Width = 672
  Height = 436
  Caption = '催缴用户详单'
  Font.Charset = GB2312_CHARSET
  Font.Height = -12
  Font.Name = '宋体'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object pnl_Top: TPanel
    Left = 0
    Top = 0
    Width = 664
    Height = 54
    Align = alTop
    BevelInner = bvLowered
    BorderWidth = 3
    TabOrder = 0
    object Label1: TLabel
      Left = 14
      Top = 20
      Width = 24
      Height = 12
      Caption = '帐号'
    end
    object Label2: TLabel
      Left = 142
      Top = 20
      Width = 48
      Height = 12
      Caption = '电话号码'
    end
    object Label3: TLabel
      Left = 286
      Top = 20
      Width = 48
      Height = 12
      Caption = '用户姓名'
    end
    object Label4: TLabel
      Left = 445
      Top = 20
      Width = 24
      Height = 12
      Caption = '类型'
    end
    object edt_CZH: TEdit
      Left = 40
      Top = 16
      Width = 95
      Height = 20
      TabOrder = 0
      Text = 'edt_CZH'
    end
    object edt_Telephone: TEdit
      Left = 193
      Top = 16
      Width = 85
      Height = 20
      TabOrder = 1
      Text = 'edt_Telephone'
    end
    object edt_UserName: TEdit
      Left = 336
      Top = 16
      Width = 102
      Height = 20
      TabOrder = 2
      Text = 'edt_UserName'
    end
    object btn_Query: TBitBtn
      Left = 586
      Top = 14
      Width = 66
      Height = 25
      Caption = '查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btn_QueryClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object cb_type: TComboBox
      Left = 472
      Top = 16
      Width = 104
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
      Items.Strings = (
        '所有用户'
        '已催缴用户'
        '未催缴用户'
        '今日催缴用户')
    end
  end
  object dbgd_Client: TDBGrid
    Left = 0
    Top = 54
    Width = 664
    Height = 313
    Align = alClient
    DataSource = DM_CommonData.Ds_CjTable
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDrawColumnCell = dbgd_ClientDrawColumnCell
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Telephone'
        Title.Alignment = taCenter
        Title.Caption = '电话号码'
        Width = 74
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CZH'
        Title.Alignment = taCenter
        Title.Caption = '帐号'
        Width = 86
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'UserName'
        Title.Alignment = taCenter
        Title.Caption = '用户名'
        Width = 66
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Qfee'
        Title.Alignment = taCenter
        Title.Caption = '欠费金额'
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CJ_SucNum'
        Title.Alignment = taCenter
        Title.Caption = '催缴成功次数'
        Width = 86
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Cj_FailNum'
        Title.Alignment = taCenter
        Title.Caption = '催缴失败次数'
        Width = 85
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Today_Num'
        Title.Alignment = taCenter
        Title.Caption = '今日催缴次数'
        Width = 90
        Visible = True
      end>
  end
  object pnl_Bottom: TPanel
    Left = 0
    Top = 367
    Width = 664
    Height = 42
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderWidth = 1
    BorderStyle = bsSingle
    TabOrder = 2
    object shp_warningColor: TShape
      Left = 535
      Top = 11
      Width = 91
      Height = 17
      Brush.Color = clRed
      Pen.Color = clBtnFace
      OnMouseDown = shp_warningColorMouseDown
    end
    object Label5: TLabel
      Left = 19
      Top = 13
      Width = 52
      Height = 12
      Caption = '总数量：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl_Num: TLabel
      Left = 75
      Top = 13
      Width = 7
      Height = 12
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 284
      Top = 13
      Width = 84
      Height = 12
      Caption = '高额欠费取值：'
    end
    object lbl_WarningVal: TLabel
      Left = 368
      Top = 13
      Width = 18
      Height = 12
      Caption = '100'
    end
    object Label8: TLabel
      Left = 426
      Top = 13
      Width = 108
      Height = 12
      Caption = '高额欠费警告颜色：'
    end
    object Label9: TLabel
      Left = 109
      Top = 13
      Width = 104
      Height = 12
      Caption = '高额欠费用户数：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl_largeQfeeNum: TLabel
      Left = 215
      Top = 13
      Width = 7
      Height = 12
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object sb_largeQfee: TSpeedButton
      Left = 393
      Top = 10
      Width = 18
      Height = 18
      Caption = '...'
      Flat = True
      OnClick = sb_largeQfeeClick
    end
  end
  object clrDlg_Warning: TColorDialog
    Ctl3D = True
    Color = clRed
    Left = 628
    Top = 375
  end
end