ufrm_level4_3.~dfm

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

inherited frm_level4_3: Tfrm_level4_3
  Caption = 'frm_level4_3'
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  inherited CoolBar1: TCoolBar
    inherited ToolBar1: TToolBar
      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 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
        Visible = False
      end
      inherited tbQuery: TToolButton
        Visible = False
      end
      inherited tbSave: TToolButton
        OnClick = tbSaveClick
      end
      inherited tbUnsave: TToolButton
        OnClick = tbUnsaveClick
      end
      inherited tbConfirm: TToolButton
        Visible = False
      end
      inherited tbUnconfirm: TToolButton
        Visible = False
      end
      inherited tbPrint: TToolButton
        Visible = False
        OnClick = tbPrintClick
      end
      inherited tbExcel: TToolButton
        OnClick = tbExcelClick
      end
      inherited tbHelp: TToolButton
        OnClick = tbHelpClick
      end
    end
  end
  inherited Page01: TPageControl
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        object l_RecordCount: TLabel
          Left = 537
          Top = 6
          Width = 85
          Height = 13
          Caption = 'l_RecordCount'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clTeal
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
      end
    end
  end
  inherited PanelDetail1: TPanel
    inherited dbGrid: TdxDBGrid
      DataSource = ds_detail
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoTabThrough, edgoVertThrough]
    end
  end
  object qy_master: TQuery [6]
    RequestLive = True
    Left = 8
    Top = 88
  end
  object qy_detail: TQuery [7]
    AfterOpen = qy_detailAfterOpen
    BeforeEdit = qy_detailBeforeEdit
    OnNewRecord = qy_detailNewRecord
    RequestLive = True
    Left = 40
    Top = 88
  end
  object ds_detail: TDataSource [8]
    AutoEdit = False
    DataSet = qy_detail
    Left = 72
    Top = 88
  end
end