uunitlevel.dfm

专项拨款逐级下发系统的主要功能：对专项拨款申请系统审批通过的专项拨款进行资金下发和签收

object Fm_Level: TFm_Level
  Left = 523
  Top = 116
  BorderStyle = bsSingle
  Caption = #21333#20301#32423#21035
  ClientHeight = 345
  ClientWidth = 439
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 5
    Top = 1
    Width = 428
    Height = 336
    TabOrder = 0
    object Label2: TLabel
      Left = 17
      Top = 98
      Width = 63
      Height = 13
      Caption = #22791'         '#27880#65306
    end
    object Label1: TLabel
      Left = 16
      Top = 67
      Width = 60
      Height = 13
      Caption = #32423#21035#21517#31216#65306
    end
    object Label3: TLabel
      Left = 17
      Top = 35
      Width = 60
      Height = 13
      Caption = #32423#21035#32534#21495#65306
    end
    object But_save: TButton
      Left = 43
      Top = 281
      Width = 84
      Height = 35
      Caption = #20445#23384
      TabOrder = 0
      OnClick = But_saveClick
    end
    object But_create: TButton
      Left = 176
      Top = 281
      Width = 84
      Height = 35
      Caption = #21024#38500
      TabOrder = 1
      OnClick = But_createClick
    end
    object But_exit: TButton
      Left = 301
      Top = 281
      Width = 84
      Height = 35
      Caption = #36864#20986
      TabOrder = 2
      OnClick = But_exitClick
    end
    object DBEdit1: TDBEdit
      Left = 97
      Top = 32
      Width = 254
      Height = 21
      DataField = 'LID'
      DataSource = DM1.Levelsource
      ReadOnly = True
      TabOrder = 3
    end
    object DBEdit2: TDBEdit
      Left = 96
      Top = 63
      Width = 257
      Height = 21
      DataField = 'Level_name'
      DataSource = DM1.Levelsource
      TabOrder = 4
      OnChange = DBEdit2Change
    end
    object DBMemo1: TDBMemo
      Left = 96
      Top = 95
      Width = 257
      Height = 154
      DataField = 'level_remark'
      DataSource = DM1.Levelsource
      TabOrder = 5
      OnChange = DBEdit2Change
    end
  end
end