mainexport_f.dfm

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

object F_MainExport: TF_MainExport
  Left = 195
  Top = 103
  Width = 702
  Height = 551
  Caption = '嵩明县电力公司计收费中心系统'
  Color = 13687495
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object ImageBackground: TImage
    Left = 0
    Top = 41
    Width = 694
    Height = 439
    Align = alClient
    AutoSize = True
    Center = True
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 480
    Width = 694
    Height = 25
    Panels = <>
    SimplePanel = False
    SimpleText = '2001年05月18日'
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 694
    Height = 41
    ButtonHeight = 35
    Caption = 'ToolBar1'
    Color = 13425353
    ParentColor = False
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 0
      Top = 2
      Width = 65
      Height = 35
      Caption = '关闭'
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 65
      Top = 2
      Width = 64
      Height = 35
      Caption = '?'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object MainMenu: TMainMenu
    Left = 24
    Top = 104
    object N1: TMenuItem
      Caption = '&S 系统'
      object N2: TMenuItem
        Caption = '&L 注册...'
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = '&X 退出'
        OnClick = X1Click
      end
    end
    object N4: TMenuItem
      Caption = '&I 数据引入'
      object N5: TMenuItem
        Caption = '&S 供电所应收电费数据'
        OnClick = N5Click
      end
      object N7: TMenuItem
        Caption = '&B 银行代收电费数据'
      end
    end
    object N6: TMenuItem
      Caption = '&E 数据引出'
      object N8: TMenuItem
        Caption = '&B 银行代收电费数据'
      end
    end
    object N9: TMenuItem
      Caption = '&R 统计及报表'
      object N11: TMenuItem
        Caption = '&L 线损统计分析表'
      end
    end
    object O1: TMenuItem
      Caption = '&O 其它'
      object C1: TMenuItem
        Caption = '&C 背景色...'
        OnClick = C1Click
      end
      object P2: TMenuItem
        Caption = '&P 背景图...'
        OnClick = P2Click
      end
    end
    object H1: TMenuItem
      Caption = '&H 帮助'
      object M1: TMenuItem
        Caption = '&M 使用说明书'
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Caption = '&A 关于作者'
      end
    end
  end
  object OPD: TOpenPictureDialog
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 8
    Top = 48
  end
  object CD: TColorDialog
    Ctl3D = True
    Left = 48
    Top = 48
  end
end