exportfee_f.dfm

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

object F_ExportFee: TF_ExportFee
  Left = 313
  Top = 150
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '数据引出'
  ClientHeight = 255
  ClientWidth = 378
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 378
    Height = 214
    Align = alClient
    Color = 6973952
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    Lines.Strings = (
      '注：'
      '　　所有引出的数据都将放在 \MIS\Export这个目录'
      '下，将引出的文件通过任何方式拷贝到中心此即可使'
      '用，包括以下文件：'
      '  House.*'
      '  Fee.*'
      '  Transfer.*'
      '  Transfer_Fee.*')
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 214
    Width = 378
    Height = 41
    Align = alBottom
    TabOrder = 1
    object Bt_Close: TButton
      Left = 288
      Top = 8
      Width = 75
      Height = 25
      Cancel = True
      Caption = '关闭&C'
      Default = True
      TabOrder = 0
      OnClick = Bt_CloseClick
    end
    object Bt_Export: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = '引出&E'
      Default = True
      TabOrder = 1
      OnClick = Bt_ExportClick
    end
    object Bt_Result: TButton
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Caption = '结果&R'
      TabOrder = 2
      OnClick = Bt_ResultClick
    end
    object Bt_ExportDirect: TButton
      Left = 168
      Top = 8
      Width = 89
      Height = 25
      Hint = '转到输出文件目录'
      Caption = '转输出目录'
      TabOrder = 3
      OnClick = Bt_ExportDirectClick
    end
  end
end