ufrm_programmaintain_d.dfm

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

inherited frm_programmaintain_d: Tfrm_programmaintain_d
  Left = 135
  Top = 149
  Width = 624
  Height = 451
  Caption = 'frm_programmaintain_d'
  Position = poDesktopCenter
  WindowState = wsNormal
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Top = 201
    Width = 616
  end
  inherited CoolBar1: TCoolBar
    Width = 616
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 612
      end>
    inherited ToolBar1: TToolBar
      Width = 599
      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
      inherited tbother: TToolButton
        Left = 230
        Top = 38
      end
    end
  end
  inherited Page01: TPageControl
    Width = 616
    Height = 168
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Width = 608
        Height = 140
        inherited Bevel1: TBevel
          Width = 604
        end
        inherited l_RecordCount: TLabel
          Left = 514
          AutoSize = False
        end
        object Label1: TLabel
          Left = 41
          Top = 7
          Width = 60
          Height = 13
          Caption = #31243#24207#20195#30908#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object zb01: TDBText
          Left = 119
          Top = 6
          Width = 65
          Height = 17
          DataField = 'ZB01'
          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 = 54
          Width = 60
          Height = 13
          Caption = #31243#24207#20195#30908#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 = 102
          Width = 60
          Height = 13
          Caption = #31243#24207#20195#30908#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object zb02: TDBEdit
          Tag = 1
          Left = 120
          Top = 48
          Width = 121
          Height = 21
          CharCase = ecUpperCase
          DataField = 'ZB02'
          DataSource = ds_detail
          TabOrder = 0
        end
        object zb03: TDBEdit
          Left = 120
          Top = 99
          Width = 121
          Height = 21
          DataField = 'ZB03'
          DataSource = ds_detail
          TabOrder = 1
        end
      end
    end
  end
  inherited PanelDetail1: TPanel
    Top = 204
    Width = 616
    Height = 220
    inherited dbGrid: TdxDBGrid
      Width = 612
      Height = 216
      KeyField = 'D_SN'
      Filter.Criteria = {00000000}
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dbc_d_sn: TdxDBGridColumn
        Caption = #24207#34399
        Sorted = csUp
        Width = 39
        BandIndex = 0
        RowIndex = 0
        FieldName = 'D_SN'
        SummaryFooterType = cstCount
      end
      object dbc_zb01: TdxDBGridColumn
        Caption = #31243#24207#20195#34399
        Visible = False
        Width = 78
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ZB01'
      end
      object dbc_zb02: TdxDBGridColumn
        Caption = #21151#33021#20195#34399
        Width = 72
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ZB02'
      end
      object dbc_zb03: TdxDBGridColumn
        Caption = #21151#33021#35498#26126
        Width = 186
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ZB03'
      end
    end
  end
  inherited IList_tools: TImageList
    Bitmap = {
      494C010119001D00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600