housecard_f.dfm

来自「县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数」· DFM 代码 · 共 134 行

object F_HouseCard: TF_HouseCard
  Left = 122
  Top = 53
  Width = 440
  Height = 291
  BorderIcons = []
  Caption = #29992#25143#34920#21345
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object DBG_Ammeter_Detail: TDBGrid
    Left = 0
    Top = 0
    Width = 432
    Height = 223
    Align = alClient
    Color = 12764836
    DataSource = DM_Table.Ds_HouseCard
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'F_DATE'
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_COUNT1'
        Width = 57
        Visible = True
      end
      item
        Color = 15527394
        Expanded = False
        FieldName = 'F_USEDCOUNT1'
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_COUNT2'
        Width = 58
        Visible = True
      end
      item
        Color = 15527394
        Expanded = False
        FieldName = 'F_USEDCOUNT2'
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_COUNT3'
        Width = 57
        Visible = True
      end
      item
        Color = 15527394
        Expanded = False
        FieldName = 'F_USEDCOUNT3'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_ADJUST_COUNT'
        Width = 48
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_NOTE'
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 223
    Width = 432
    Height = 41
    Align = alBottom
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 40
      Height = 16
      Caption = #25143#21495':'
    end
    object CB_StayOnTop: TCheckBox
      Left = 232
      Top = 13
      Width = 97
      Height = 17
      Caption = #24635#22312#26368#21069#38754
      TabOrder = 0
      OnClick = CB_StayOnTopClick
    end
    object E_HouseNo: TEdit
      Left = 48
      Top = 8
      Width = 105
      Height = 24
      TabOrder = 1
      Text = 'A01001*00011'
    end
    object Bt_Search: TButton
      Left = 152
      Top = 8
      Width = 75
      Height = 25
      Caption = #26597#35810'&S'
      TabOrder = 2
      OnClick = Bt_SearchClick
    end
  end
end