ufrm_paramaintain.dfm

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

inherited frm_paramaintain: Tfrm_paramaintain
  Left = 184
  Top = 101
  Width = 556
  Height = 473
  Caption = 'frm_paramaintain'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Top = 177
    Width = 548
  end
  inherited CoolBar1: TCoolBar
    Width = 548
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 544
      end>
    inherited ToolBar1: TToolBar
      Width = 531
      inherited ToolButton18: TToolButton
        Left = 0
        Wrap = True
      end
      inherited tbSave: TToolButton
        Left = 0
        Top = 38
      end
      inherited tbUnsave: TToolButton
        Left = 30
        Top = 38
      end
      inherited ToolButton19: TToolButton
        Left = 60
        Top = 38
      end
      inherited tbConfirm: TToolButton
        Left = 67
        Top = 38
      end
      inherited tbUnconfirm: TToolButton
        Left = 97
        Top = 38
      end
      inherited ToolButton20: TToolButton
        Left = 127
        Top = 38
      end
      inherited tbPrint: TToolButton
        Left = 140
        Top = 38
      end
      inherited tbExcel: TToolButton
        Left = 170
        Top = 38
      end
      inherited tbHelp: TToolButton
        Left = 200
        Top = 38
      end
    end
  end
  inherited Page01: TPageControl
    Width = 548
    Height = 144
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Width = 540
        Height = 113
        inherited l_RecordCount: TLabel
          Left = 535
          Width = 114
          AutoSize = False
        end
        object Label1: TLabel
          Left = 32
          Top = 24
          Width = 60
          Height = 13
          Caption = #21443#25976#39006#21029#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 32
          Top = 61
          Width = 60
          Height = 13
          Caption = #21443#25976#35498#26126#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object acti: TDBText
          Left = 104
          Top = 88
          Width = 65
          Height = 17
          DataField = 'ACTI'
          DataSource = ds_master
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label10: TLabel
          Left = 35
          Top = 92
          Width = 48
          Height = 13
          Caption = #30906#35469#21542#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object F01: TDBEdit
          Tag = 1
          Left = 104
          Top = 21
          Width = 121
          Height = 21
          DataField = 'F01'
          DataSource = ds_master
          TabOrder = 0
        end
        object F02: TDBEdit
          Tag = 1
          Left = 104
          Top = 57
          Width = 121
          Height = 21
          DataField = 'F02'
          DataSource = ds_master
          TabOrder = 1
        end
      end
    end
  end
  inherited PanelDetail1: TPanel
    Top = 180
    Width = 548
    Height = 266
    inherited dbGrid: TdxDBGrid
      Width = 544
      Height = 262
      KeyField = 'D_SN'
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
      object dbc_d_sn: TdxDBGridColumn
        Caption = #24207#34399
        Sorted = csUp
        BandIndex = 0
        RowIndex = 0
        FieldName = 'D_SN'
      end
      object dbc_f01: TdxDBGridColumn
        Caption = #39006#21029
        Visible = False
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F01'
      end
      object dbc_f02: TdxDBGridColumn
        Caption = #35498#26126
        Width = 132
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F02'
      end
      object dbc_f03: TdxDBGridColumn
        Caption = #25976#23383#34920#31034
        Width = 78
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F03'
      end
    end
  end
  inherited Query1: TQuery
    Left = 8
    Top = 264
  end
  inherited qy_master: TQuery
    SQL.Strings = (
      'SELECT * FROM T_PARACLASS')
    Left = 40
    Top = 264
  end
  inherited ds_master: TDataSource
    Left = 72
    Top = 264
  end
  inherited qy_detail: TQuery
    SQL.Strings = (
      'SELECT * FROM T_PARAMETER WHERE F01='#39'309'#39)
    Left = 40
    Top = 296
  end
  inherited ds_detail: TDataSource
    Left = 72
    Top = 296
  end
end