storage_unit.~dfm

一个很不错的仓库管理系统,能容进各种软件中去,

inherited storage: Tstorage
  Left = 191
  Top = 137
  Caption = #24211#23384#26597#35810
  ClientHeight = 453
  ClientWidth = 713
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited palUp: TPanel
    Width = 713
    inherited palRightUp: TPanel
      Left = 618
    end
    inherited palUpMid: TPanel
      Width = 538
      inherited imgCaption: TImage
        Width = 538
      end
      inherited CoolBarMenu: TCoolBar
        Width = 538
        Bands = <
          item
            Control = ToolBarMenu
            ImageIndex = -1
            MinHeight = 23
            Width = 538
          end>
        inherited ToolBarMenu: TToolBar
          Width = 534
        end
      end
    end
  end
  inherited palDown: TPanel
    Top = 444
    Width = 713
    inherited imgRightDown: TImage
      Left = 703
    end
    inherited imgDownMin: TImage
      Width = 693
    end
  end
  inherited palLeft: TPanel
    Height = 394
    inherited imgLeft: TImage
      Height = 394
    end
  end
  inherited palRight: TPanel
    Left = 698
    Height = 394
    inherited imgRight: TImage
      Height = 394
    end
  end
  inherited palClient: TPanel
    Width = 688
    Height = 394
    object GroupBox1: TGroupBox
      Left = 0
      Top = 344
      Width = 673
      Height = 49
      Caption = #26597#35810
      TabOrder = 0
      object MIBtnOK: TMoveImgBtn
        Left = 408
        Top = 16
        Width = 25
        Height = 25
        Cursor = crHandPoint
        AutoSize = True
        Picture.Data = {
          07544269746D6170A2070000424DA20700000000000036000000280000001900
          00001900000001001800000000006C070000120B0000120B0000000000000000
          0000CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFC0C7C0
          C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF
          CFCFCFCFCFCFCFCFCFCFCFCFCF00CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF
          CFCFCFC0C7C0C0C7C0BFB8BFBFB8BFB0B0B0B0B0B0B0B0B0B0B0B0B0B0B0BFB8
          BFBFB8BFC0C7C0CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF00CFCFCFCFCFCF
          CFCFCFCFCFCFCFCFCFCFCFCFC0C7C0B0B0B0B0B0B0A0A0A09F989F9090908F88
          909090909090909090909F989FA0A0A0B0B0B0BFB8BFC0C7C0CFCFCFCFCFCFCF
          CFCFCFCFCF00CFCFCFCFCFCFCFCFCFCFCFCFC0C7C0BFB8BFB0B0B0A0A09F9090
          9080808070787060686060685F6068606068606F706F707870808080909090AF
          A8AFBFB8BFC0C7C0CFCFCFCFCFCFCFCFCF00CFCFCFCFCFCFCFCFCFC0C7C0BFB8
          BFAFA8AF9090907078806068605058504F504F4048404048404048404F50404F
          504F5F60506068607078708F888FA0A0A0BFB8BFCFCFCFCFCFCFCFCFCF00CFCF
          CFCFCFCFCFCFCFCFCFCFB0C7BF9F989FB0A090CFA890CFA890D0B090D0B090E0
          B8A0DFB89FB088709F886F3037304048405058505F605F6F706F8F888FAFA8AF
          C0C7C0CFCFCFCFCFCF00CFCFCFCFCFCFCFC7BFB0B0B0B0A090C0A08FBF9080BF
          9080B08870B08870B08870BF9080C0A08FDFB89FEFCFA0CFA890707050404840
          5058505F605F6F706F9F989FC0C7C0CFCFCFCFCFCF00CFCFCFC0C7C0BFB8CFA0
          9890BF9080B08870A0806FA0806FA0806FA0806F9F7860A0806FA0806FA0806F
          BF9080D0B090E0C7A090786F404840505850606860909090B0B0B0CFCFCFCFCF
          CF00CFCFCFBFCFC0A09890A0806FB08870A0806FA0806FA0806F9F78609F7860
          9F78609F78609F78609F886FA0806FB08870C0A08FE0C7A080705F4F504F5F60
          5F8F888FB0B0B0C0C7C0CFCFCF00CFCFCFB0B0B08F785FA0806FB08870A0806F
          B088702F2F2F0000001017109F7860A0806FA0806F9F78609F7860A0806FB088
          70CFA890D0B0903037305F605F808080AFA8AFC0C7C0CFCFCF00CFCFCF908880
          90786FB08870BF9080BF9880303730000000000000000000101710A0806FA080
          6FA0806F9F78609F7860A0806FB08870E0B8A09F886F5F605F808080AFA8AFC0
          C7C0CFCFCF00CFCFCF80705FA0806FC0A08FC0A08F3037300000000000004F50
          4F000700000000101F1FBF9080B08870A0806FA0806F9F7860A0806FC0A08FDF
          B89F5F605F808080AFA8AFC0C7C0CFCFCF00CFCFCF90786FBF9880DFB89F5058
          4F000000000000607060DFB89F90908F0007000000001F1F1FBF9080B08870A0
          806F9F886FA0806FBF9080D0B0905F605F8F888FB0B0B0C0C7C0CFCFCF00CFCF
          CFA0806FE0B8A0E0B8A05058500000006F706FF0D7AFF0D7AFF0D7AF9F989000
          0700000000101F10BF9080BF9080A0806FA0806FB08870C0A08F606860909090
          B0B0B0C0C7C0CFCFCF00CFCFCFBF9080EFCFA0F0D7AFF0D7AFFFDFBFFFDFBFFF
          F7C0FFF7C0FFFFCFFFDFBFA0A09F0007000000001F1F1FB08870B08870A0806F
          B08870B08870707870A0A0A0B0B0B0C0C7C0CFCFCF00CFCFCFD0B090EFCFA0F0
          D7AFFFF7C0FFFFCFFFFFDFFFFFDFFFFFEFFFFFDFFFFFCFFFDFBF9F9890000700
          0000000F0F0F9F7860B08870BF9080A0806F8F888FAFA8AFC0C7C0CFCFCFCFCF
          CF00CFCFCFCFA890EFCFA0FFDFBFFFF7C0FFFFCFFFFFEFFFFFFFFFFFFFFFFFFF
          FFFFDFFFF7C0F0D7AF8080800007000000001F1F1FA0806FB088709F886FA0A0
          9FB0B0B0C0C7C0CFCFCFCFCFCF00CFCFCFD0B8AFEFCFA0FFDFBFFFF7C0FFFFDF
          FFFFEFFFFFFFFFFFFFFFFFFFFFFFEFFFFFCFF0D7AFE0B8A08080802027200000
          005F605FBF98809F7860B0B0B0C0C7C0CFCFCFCFCFCFCFCFCF00CFCFCFC0C7B0
          E0C7A0FFDFBFFFFFCFFFFFDFFFFFEFFFFFFFFFFFFFFFFFFFFFFFEFFFFFCFFFDF
          BFEFCFA0DFB89F8F908F5F605FA0806FB08870908880BFB8BFCFCFCFCFCFCFCF
          CFCFCFCFCF00CFCFCFCFCFCFD0B8AFFFDFBFFFF7C0FFFFDFFFFFDFFFFFEFFFFF
          EFFFFFEFFFFFDFFFFFCFFFDFBFF0D7AFE0C7A0D0B090C0A08FA0806F90786FC0
          B8CFC0C7C0CFCFCFCFCFCFCFCFCFCFCFCF00CFCFCFCFCFCFCFC7BFDFC7AFFFDF
          BFFFFFCFFFFFDFFFFFDFFFFFDFFFFFDFFFFFCFFFF7C0FFDFBFEFCFA0E0B8A0D0
          B090B0887090786FB0A090CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF00CFCF
          CFCFCFCFCFCFCFCFC7BFDFC7AFFFDFBFFFF7C0FFFFCFFFFFCFFFFFCFFFF7C0FF
          DFBFF0D7AFEFCFA0D0B090A0806F90786FA0A0A0CFCFCFCFCFCFCFCFCFCFCFCF
          CFCFCFCFCFCFCFCFCF00CFCFCFCFCFCFCFCFCFCFCFCFCFC7BFD0B0A0E0DFB0FF
          DFBFFFDFBFFFDFBFF0D7AFF0D7AFE0B8A0CFA890A0806F908880B0B0AFCFCFCF
          CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF00CFCFCFCFCFCFCFCFCFCF
          CFCFCFCFCFCFCFCFCFC7BFD0B8AFE0C7A0EFCFA0EFCFA0DFB89FD0B0A0BFA88F
          B0B0B0CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF
          CF00CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF
          CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF
          CFCFCFCFCFCFCFCFCFCFCFCFCF00}
        OnClick = MIBtnOKClick
      end
      object lbBtnOK: TLabelBtn
        Left = 440
        Top = 22
        Width = 24
        Height = 12
        Cursor = crHandPoint
        Caption = #30830#23450
        Transparent = True
      end
      object Label1: TLabel
        Left = 208
        Top = 18
        Width = 48
        Height = 12
        Caption = #21830#21697#21495#65306
      end
      object Edit1: TEdit
        Left = 264
        Top = 16
        Width = 121
        Height = 20
        MaxLength = 5
        TabOrder = 0
        OnKeyPress = Edit1KeyPress
      end
    end
    object NewDBGrid1: TNewDBGrid
      Left = 0
      Top = 0
      Width = 688
      Height = 345
      Align = alTop
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      WZebra = True
      WFirstColor = 16252655
      WSecondColor = 16119033
      Columns = <
        item
          Expanded = False
          FieldName = 'goods_id'
          Title.Alignment = taCenter
          Title.Caption = #21830#21697#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Name'
          Title.Alignment = taCenter
          Title.Caption = #21830#21697#21517
          Width = 159
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Price'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = '1'
          Title.Alignment = taCenter
          Title.Caption = #24635#20179#24211
          Visible = True
        end
        item
          Expanded = False
          FieldName = '2'
          Title.Alignment = taCenter
          Title.Caption = #20179#24211'1'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '3'
          Title.Alignment = taCenter
          Title.Caption = #20179#24211'2'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '4'
          Title.Alignment = taCenter
          Title.Caption = #20179#24211'3'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '5'
          Title.Alignment = taCenter
          Title.Caption = #20179#24211'4'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '6'
          Title.Alignment = taCenter
          Title.Caption = #20179#24211'5'
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = qry
    Left = 160
    Top = 8
  end
  object qry: TADOQuery
    Connection = data.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from v_storage order by goods_id')
    Left = 192
    Top = 8
    object qrygoods_id: TStringField
      FieldName = 'goods_id'
      FixedChar = True
      Size = 5
    end
    object qryName: TStringField
      FieldName = 'Name'
      FixedChar = True
      Size = 30
    end
    object qryDSDesigner1: TIntegerField
      FieldName = '1'
    end
    object qryDSDesigner2: TIntegerField
      FieldName = '2'
    end
    object qryDSDesigner3: TIntegerField
      FieldName = '3'
    end
    object qryDSDesigner4: TIntegerField
      FieldName = '4'
    end
    object qryDSDesigner5: TIntegerField
      FieldName = '5'
    end
    object qryDSDesigner6: TIntegerField
      FieldName = '6'
    end
    object qryPrice: TBCDField
      FieldName = 'Price'
      DisplayFormat = '0.00'
      Precision = 19
    end
  end
  object qry1: TADOQuery
    Connection = data.ADOConnection1
    Parameters = <>
    Left = 280
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = qry1
    Left = 248
    Top = 8
  end
end