uinvmonth.dfm

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· DFM 代码 · 共 49 行

inherited fmInvMonth: TfmInvMonth
  Caption = #27599#26376#36827#38144#23384
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited OptionPanel: TPanel
    Visible = True
    inherited PnlProject: TPanel
      Visible = False
    end
    inherited PnlMonth: TPanel
      Visible = True
    end
    inherited PnlSelect: TPanel
      Width = 275
      inherited dxBtnSelect: TdxButtonEdit
        StoredValues = 2
        ExistButtons = True
      end
    end
  end
  inherited PageControl: TPageControl
    inherited TabBrowse: TTabSheet
      inherited DBGrid1: TdxDBGrid
        KeyField = #24180#24230
        Filter.Criteria = {00000000}
        OnCustomDrawCell = DBGrid1CustomDrawCell
      end
    end
  end
  inherited DataSource1: TDataSource
    DataSet = DMINV.CInvMonth
  end
  inherited SubAction: TActionList
    inherited AApprove: TAction
      OnExecute = AApproveExecute
    end
    inherited AConfirm: TAction
      Caption = #35745#31639
      OnExecute = AConfirmExecute
    end
  end
  inherited Menu3: TPopupMenu
    inherited Column: TMenuItem
      Visible = False
    end
  end
end