ammetermove_f.dfm

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

object F_AmmeterMove: TF_AmmeterMove
  Left = 192
  Top = 107
  Width = 534
  Height = 295
  Caption = '用户移表'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 32
    Top = 136
    Width = 72
    Height = 16
    Caption = '源 用 户:'
  end
  object Label2: TLabel
    Left = 280
    Top = 136
    Width = 72
    Height = 16
    Caption = '目标用户:'
  end
  object E_SHouseNo: TEdit
    Left = 112
    Top = 128
    Width = 121
    Height = 24
    TabOrder = 0
  end
  object E_DHouseNo: TEdit
    Left = 360
    Top = 128
    Width = 121
    Height = 24
    TabOrder = 1
    Text = 'E_DHouseNo'
  end
  object Memo1: TMemo
    Left = 24
    Top = 24
    Width = 473
    Height = 89
    Color = 11337727
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    Lines.Strings = (
      '    移表操作用在将一支(几支)属于源用户的电表直接转到目标用'
      ''
      '户下，不改变电表的任何的相关数值。'
      ''
      '    按下《移表》按钮前请认真核对用户号及相应的表号。')
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
  end
  object CB_AllAmmeter: TCheckBox
    Left = 112
    Top = 160
    Width = 121
    Height = 17
    Caption = '该户所有电表'
    TabOrder = 3
    OnClick = CB_AllAmmeterClick
  end
  object Bt_AmmeterMove: TButton
    Left = 112
    Top = 232
    Width = 75
    Height = 25
    Caption = '移表&M'
    TabOrder = 4
    OnClick = Bt_AmmeterMoveClick
  end
  object Button1: TButton
    Left = 360
    Top = 232
    Width = 75
    Height = 25
    Caption = '关闭&C'
    TabOrder = 5
    OnClick = Button1Click
  end
  object Panel: TPanel
    Left = 32
    Top = 176
    Width = 201
    Height = 41
    BevelOuter = bvNone
    TabOrder = 6
    object Label3: TLabel
      Left = 0
      Top = 17
      Width = 72
      Height = 16
      Caption = '表    号:'
    end
    object E_AmmeterNo: TEdit
      Left = 80
      Top = 9
      Width = 121
      Height = 24
      TabOrder = 0
    end
  end
end