u_store.~dfm

1. 在IBConsole中添加两个用户LOGIN和MATER

        TabOrder = 0
        RowCount = 2
        object Label10: TLabel
          Left = 16
          Top = 16
          Width = 48
          Height = 13
          Caption = '编　号：'
        end
        object Label11: TLabel
          Left = 120
          Top = 16
          Width = 48
          Height = 13
          Caption = '经手人：'
        end
        object Label12: TLabel
          Left = 120
          Top = 40
          Width = 48
          Height = 13
          Caption = '时　间：'
        end
        object Label13: TLabel
          Left = 272
          Top = 16
          Width = 48
          Height = 13
          Caption = '备　注：'
        end
        object DBEdit6: TDBEdit
          Left = 16
          Top = 32
          Width = 89
          Height = 21
          DataField = 'ID'
          DataSource = DM_main.DS_export
          TabOrder = 0
        end
        object DBEdit7: TDBEdit
          Left = 168
          Top = 36
          Width = 89
          Height = 21
          DataField = 'ACT_DATE'
          DataSource = DM_main.DS_export
          TabOrder = 1
        end
        object DBEdit8: TDBEdit
          Left = 168
          Top = 12
          Width = 89
          Height = 21
          DataField = 'PERSON'
          DataSource = DM_main.DS_export
          TabOrder = 2
        end
        object DBMemo2: TDBMemo
          Left = 320
          Top = 8
          Width = 297
          Height = 49
          DataField = 'REMARK'
          DataSource = DM_main.DS_export
          TabOrder = 3
        end
      end
      object MaskEdit1: TMaskEdit
        Left = 80
        Top = 148
        Width = 129
        Height = 21
        EditMask = '!9999999999;1;_'
        MaxLength = 10
        TabOrder = 1
        Text = '          '
        OnChange = i_contact_idChange
      end
      object DBGrid3: TDBGrid
        Left = 8
        Top = 176
        Width = 201
        Height = 225
        DataSource = DM_main.DS_contact_items
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Caption = '记录编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PARTS'
            Title.Caption = '物品编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'AMOUNT'
            Title.Caption = '数量'
            Visible = True
          end>
      end
      object DBGrid4: TDBGrid
        Left = 264
        Top = 176
        Width = 393
        Height = 105
        DataSource = DM_main.DS_export_items
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Caption = '记录编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PARTS'
            Title.Caption = '物品编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'AMOUNT'
            Title.Caption = '数量'
            Visible = True
          end>
      end
      object GroupBox2: TGroupBox
        Left = 264
        Top = 296
        Width = 393
        Height = 105
        Caption = '详细信息'
        TabOrder = 4
        object Label16: TLabel
          Left = 16
          Top = 32
          Width = 36
          Height = 13
          Caption = '编号：'
        end
        object Label17: TLabel
          Left = 208
          Top = 32
          Width = 36
          Height = 13
          Caption = '物品：'
        end
        object Label18: TLabel
          Left = 208
          Top = 72
          Width = 36
          Height = 13
          Caption = '数量：'
        end
        object DBEdit9: TDBEdit
          Left = 40
          Top = 52
          Width = 121
          Height = 21
          DataField = 'ID'
          DataSource = DM_main.DS_export_items
          TabOrder = 0
        end
        object DBLookupComboBox2: TDBLookupComboBox
          Left = 248
          Top = 28
          Width = 121
          Height = 21
          DataField = 'PARTS'
          DataSource = DM_main.DS_export_items
          KeyField = 'ID'
          ListField = 'NAME'
          ListSource = DM_main.DS_parts
          TabOrder = 1
        end
        object DBEdit10: TDBEdit
          Left = 248
          Top = 68
          Width = 121
          Height = 21
          DataField = 'AMOUNT'
          DataSource = DM_main.DS_export_items
          TabOrder = 2
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '库存统计'
      ImageIndex = 2
      object Label19: TLabel
        Left = 24
        Top = 16
        Width = 60
        Height = 13
        Caption = '库存列表：'
      end
      object DBGrid5: TDBGrid
        Left = 16
        Top = 40
        Width = 233
        Height = 361
        DataSource = DM_main.DS_store
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '物品'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'AMOUNT'
            Title.Caption = '库存'
            Visible = True
          end>
      end
      object DBChart1: TDBChart
        Left = 264
        Top = 40
        Width = 385
        Height = 361
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.Text.Strings = (
          '库存统计')
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        Enabled = False
        TabOrder = 1
        object Series1: TPieSeries
          Marks.ArrowLength = 8
          Marks.Visible = True
          DataSource = DM_main.T_store
          SeriesColor = clRed
          XLabelsSource = 'NAME'
          Circled = True
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
          PieValues.ValueSource = 'AMOUNT'
        end
      end
      object Button1: TButton
        Left = 168
        Top = 8
        Width = 75
        Height = 25
        Caption = '重新统计'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 568
        Top = 8
        Width = 75
        Height = 25
        Caption = '打印统计图'
        TabOrder = 3
        OnClick = Button2Click
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 600
    Top = 0
    Width = 75
    Height = 25
    HelpContext = 500
    Caption = '&H帮助'
    TabOrder = 1
    Kind = bkHelp
  end
end