export_f.dfm

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

object F_Export: TF_Export
  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
  PixelsPerInch = 96
  TextHeight = 16
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 378
    Height = 176
    Align = alClient
    Color = 6973952
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    Lines.Strings = (
      '注：'
      '　　所有引出的数据都将放在 \MIS\Export这个目录'
      '下，将引出的文件通过任何方式拷贝到中心此即可使'
      '用，包括以下文件：'
      '  House.*'
      '  Transfer.*'
      '  Transfer_Fee.*')
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 176
    Width = 378
    Height = 79
    Align = alBottom
    TabOrder = 1
    object Bt_Close: TButton
      Left = 288
      Top = 40
      Width = 75
      Height = 25
      Cancel = True
      Caption = '关闭&C'
      Default = True
      TabOrder = 0
      OnClick = Bt_CloseClick
    end
    object Bt_Export: TButton
      Left = 160
      Top = 40
      Width = 75
      Height = 25
      Caption = '引出&E'
      Default = True
      TabOrder = 1
      OnClick = Bt_ExportClick
    end
    object Bt_Result: TButton
      Left = 16
      Top = 40
      Width = 75
      Height = 25
      Caption = '结果&R'
      TabOrder = 2
      OnClick = Bt_ResultClick
    end
    object E_SelectDB: TEdit
      Left = 16
      Top = 8
      Width = 318
      Height = 24
      ReadOnly = True
      TabOrder = 3
      Text = '\MIS\Data\SMDLJF.GDB'
    end
    object Bt_SelectDB: TButton
      Left = 335
      Top = 8
      Width = 28
      Height = 25
      Caption = '...'
      TabOrder = 4
      OnClick = Bt_SelectDBClick
    end
  end
  object OD_SelectDB: TOpenDialog
    DefaultExt = 'SMDLJF*.GDB'
    Filter = '帐套数据库|SMDLJF*.GDB'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 328
    Top = 8
  end
end