⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ydcbtj.dfm

📁 营业用电管理系统(网络版)是本公司推出的新一代软件产品
💻 DFM
字号:
object Fcbtj: TFcbtj
  Left = 163
  Top = 145
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '抄表状态统计'
  ClientHeight = 319
  ClientWidth = 494
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 496
    Height = 320
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '抄表状态统计图'
      object Panel1: TPanel
        Left = 6
        Top = 3
        Width = 478
        Height = 284
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 0
        object SpeedButton1: TSpeedButton
          Left = 264
          Top = 248
          Width = 73
          Height = 25
          Caption = '打印'
          OnClick = SpeedButton1Click
        end
        object SpeedButton2: TSpeedButton
          Left = 344
          Top = 248
          Width = 73
          Height = 25
          Caption = '退出'
          OnClick = SpeedButton2Click
        end
        object DBGrid2: TDBGrid
          Left = 8
          Top = 8
          Width = 465
          Height = 233
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'QH'
              Title.Alignment = taCenter
              Title.Caption = '区号'
              Width = 61
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PQMC'
              Title.Alignment = taCenter
              Title.Caption = '片区名称'
              Width = 188
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'YHZS'
              Title.Alignment = taCenter
              Title.Caption = '用户总数'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'YCHS'
              Title.Alignment = taCenter
              Title.Caption = '已抄户数'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'WCHS'
              Title.Alignment = taCenter
              Title.Caption = '未号户数'
              Visible = True
            end>
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '未抄用户列表'
      ImageIndex = 1
      object Panel2: TPanel
        Left = 5
        Top = 6
        Width = 479
        Height = 281
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 0
        object SpeedButton3: TSpeedButton
          Left = 272
          Top = 248
          Width = 73
          Height = 25
          Caption = '打印'
          OnClick = SpeedButton3Click
        end
        object SpeedButton4: TSpeedButton
          Left = 360
          Top = 248
          Width = 73
          Height = 25
          Caption = '退出'
          OnClick = SpeedButton4Click
        end
        object TreeView1: TTreeView
          Left = 8
          Top = 8
          Width = 129
          Height = 233
          Indent = 19
          TabOrder = 0
          OnClick = TreeView1Click
        end
        object DBGrid1: TDBGrid
          Left = 144
          Top = 8
          Width = 329
          Height = 233
          DataSource = YDData.DSbzyhda
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'YD_HH'
              Title.Alignment = taCenter
              Title.Caption = '户号'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'YD_YHMC'
              Title.Alignment = taCenter
              Title.Caption = '用户名称'
              Width = 89
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'YD_YHDZ'
              Title.Alignment = taCenter
              Title.Caption = '用户地址'
              Width = 94
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'YD_CBY'
              Title.Alignment = taCenter
              Title.Caption = '抄表员'
              Visible = True
            end>
        end
      end
    end
  end
  object Table1: TTable
    Exclusive = True
    TableName = 'CBTJK'
    TableType = ttParadox
    Left = 320
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 368
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -