ufrm_paramaintain_d.dfm

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

inherited frm_paramaintain_d: Tfrm_paramaintain_d
  Left = 196
  Top = 100
  Width = 560
  Height = 446
  Caption = 'frm_paramaintain_d'
  Position = poDesktopCenter
  WindowState = wsNormal
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Width = 552
  end
  inherited CoolBar1: TCoolBar
    Width = 552
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 548
      end>
    inherited ToolBar1: TToolBar
      Width = 535
      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 = 552
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Width = 544
        inherited Bevel1: TBevel
          Width = 540
        end
        inherited l_RecordCount: TLabel
          Left = 393
        end
        object Label1: TLabel
          Left = 25
          Top = 7
          Width = 60
          Height = 13
          Caption = #21443#25976#32232#34399#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object f01: TDBText
          Left = 103
          Top = 6
          Width = 65
          Height = 17
          DataField = 'F01'
          DataSource = ds_detail
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clFuchsia
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 41
          Top = 44
          Width = 36
          Height = 13
          Caption = #35498#26126#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 = 41
          Top = 74
          Width = 36
          Height = 13
          Caption = #29376#24907#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object f02: TDBEdit
          Tag = 1
          Left = 99
          Top = 37
          Width = 121
          Height = 21
          DataField = 'F02'
          DataSource = ds_detail
          TabOrder = 0
        end
        object f03: TDBEdit
          Left = 99
          Top = 69
          Width = 121
          Height = 21
          DataField = 'F03'
          DataSource = ds_detail
          TabOrder = 1
        end
      end
    end
  end
  inherited PanelDetail1: TPanel
    Width = 552
    Height = 183
    inherited dbGrid: TdxDBGrid
      Width = 548
      Height = 179
      KeyField = 'D_SN'
      Filter.Criteria = {00000000}
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dbc_d_sn: TdxDBGridColumn
        Caption = #24207#34399
        Sorted = csUp
        Width = 63
        BandIndex = 0
        RowIndex = 0
        FieldName = 'D_SN'
      end
      object dbc_f01: TdxDBGridColumn
        Caption = #39006#21029
        Visible = False
        Width = 47
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F01'
      end
      object dbc_f02: TdxDBGridColumn
        Caption = #21443#25976#35498#26126
        Width = 69
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F02'
      end
      object dbc_f03: TdxDBGridColumn
        Caption = #21443#25976#29376#24907
        Width = 85
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F03'
      end
    end
  end
  inherited qy_master: TQuery
    Top = 192
  end
  inherited qy_detail: TQuery
    DatabaseName = 'DT2_MPSS_0304'
    SQL.Strings = (
      'SELECT * FROM T_PARAMETER')
    Top = 192
  end
  inherited ds_detail: TDataSource
    Top = 192
  end
end