update_f.dfm

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

object F_Update: TF_Update
  Left = 192
  Top = 107
  Width = 745
  Height = 523
  Caption = #21319#32423#31383#21475
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 0
    Top = 153
    Width = 737
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 737
    Height = 153
    Align = alTop
    Color = clMenu
    DataSource = DM_Update.Ds_Update
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #25191#34892#24207#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35201#27714#29256#26412
        Width = 112
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29256#26412
        Width = 119
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35828#26126
        Width = 399
        Visible = True
      end>
  end
  object DBM_SQL: TDBMemo
    Left = 0
    Top = 156
    Width = 737
    Height = 299
    Align = alClient
    Color = clMenu
    DataField = 'SQL'#35821#21477
    DataSource = DM_Update.Ds_Update
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object Panel1: TPanel
    Left = 0
    Top = 455
    Width = 737
    Height = 41
    Align = alBottom
    TabOrder = 2
    object Panel2: TPanel
      Left = 545
      Top = 1
      Width = 191
      Height = 39
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object Bt_Close: TButton
        Left = 91
        Top = 0
        Width = 75
        Height = 39
        Caption = #20851#38381'&C'
        TabOrder = 0
        OnClick = Bt_CloseClick
      end
      object Bt_Update: TButton
        Left = 9
        Top = 0
        Width = 75
        Height = 39
        Hint = #21319#32423#21151#33021#24212#31649#29702#20154#21592#23436#25104#65292#35831#23567#24515#65281
        Caption = #21319#32423
        TabOrder = 1
        OnClick = Bt_UpdateClick
      end
    end
    object DBN_Update: TDBNavigator
      Left = 1
      Top = 1
      Width = 544
      Height = 39
      DataSource = DM_Update.Ds_Update
      Align = alClient
      TabOrder = 1
    end
  end
end