ufrm_level4_2.dfm

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· DFM 代码 · 共 176 行

inherited frm_level4_2: Tfrm_level4_2
  Left = 192
  Top = 103
  Width = 657
  Height = 283
  Caption = 'frm_level4_2'
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Top = 155
    Width = 649
  end
  inherited CoolBar1: TCoolBar
    Width = 649
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 645
      end>
    inherited ToolBar1: TToolBar
      Width = 632
      inherited tbExit: TToolButton
        OnClick = tbExitClick
      end
      inherited tbAdd: TToolButton
        OnClick = tbAddClick
      end
      inherited tbEdit: TToolButton
        OnClick = tbEditClick
      end
      inherited tbDelete: TToolButton
        OnClick = tbDeleteClick
      end
      inherited tbDetail: TToolButton
        OnClick = tbDetailClick
      end
      inherited tbFirst: TToolButton
        OnClick = tbFirstClick
      end
      inherited tbPrior: TToolButton
        OnClick = tbPriorClick
      end
      inherited tbNext: TToolButton
        OnClick = tbNextClick
      end
      inherited tbLast: TToolButton
        OnClick = tbLastClick
      end
      inherited tbRefresh: TToolButton
        OnClick = tbRefreshClick
      end
      inherited tbFilter: TToolButton
        OnClick = tbFilterClick
      end
      inherited tbQuery: TToolButton
        OnClick = tbQueryClick
      end
      inherited ToolButton18: TToolButton
        Left = 0
        Wrap = True
      end
      inherited tbSave: TToolButton
        Left = 0
        Top = 38
        OnClick = tbSaveClick
      end
      inherited tbUnsave: TToolButton
        Left = 30
        Top = 38
        OnClick = tbUnsaveClick
      end
      inherited ToolButton19: TToolButton
        Left = 60
        Top = 38
      end
      inherited tbConfirm: TToolButton
        Left = 67
        Top = 38
        OnClick = tbConfirmClick
      end
      inherited tbUnconfirm: TToolButton
        Left = 97
        Top = 38
        OnClick = tbUnconfirmClick
      end
      inherited ToolButton20: TToolButton
        Left = 127
        Top = 38
      end
      inherited tbPrint: TToolButton
        Left = 140
        Top = 38
        OnClick = tbPrintClick
      end
      inherited tbExcel: TToolButton
        Left = 170
        Top = 38
        OnClick = tbExcelClick
      end
      inherited tbHelp: TToolButton
        Left = 200
        Top = 38
        OnClick = tbHelpClick
      end
      inherited tbother: TToolButton
        Left = 230
        Top = 38
      end
    end
  end
  inherited Page01: TPageControl
    Width = 649
    Height = 122
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Width = 641
        Height = 91
        inherited l_RecordCount: TLabel
          Left = 542
          Top = 3
        end
      end
    end
  end
  inherited PanelDetail1: TPanel
    Top = 158
    Width = 649
    Height = 98
    inherited dbGrid: TdxDBGrid
      Width = 645
      Height = 94
      DataSource = ds_detail
      Filter.Criteria = {00000000}
    end
  end
  object Query1: TQuery
    AfterOpen = Query1AfterOpen
    DatabaseName = 'DT2_MPSS_0304'
    SQL.Strings = (
      '')
    Left = 104
    Top = 64
  end
  object qy_master: TQuery
    BeforeEdit = qy_masterBeforeEdit
    AfterPost = qy_masterAfterPost
    OnNewRecord = qy_masterNewRecord
    DatabaseName = 'DT2_MPSS_0304'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM TESTM_FILE')
    Left = 136
    Top = 64
  end
  object ds_master: TDataSource
    DataSet = qy_master
    Left = 168
    Top = 64
  end
  object qy_detail: TQuery
    DatabaseName = 'DT2_MPSS_0304'
    DataSource = ds_master
    RequestLive = True
    Left = 136
    Top = 112
  end
  object ds_detail: TDataSource
    DataSet = qy_detail
    Left = 168
    Top = 112
  end
end