storage.dfm

这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.

inherited sstorage: Tsstorage
  Left = -132
  Top = 81
  Width = 800
  Height = 570
  Caption = #20986#20837#24211#31649#29702
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poScreenCenter
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited palDown: TPanel
    Top = 534
    Width = 792
    inherited imgRightDown: TImage
      Left = 782
    end
    inherited imgDownMin: TImage
      Width = 772
    end
  end
  inherited palLeft: TPanel
    Height = 469
    inherited imgLeft: TImage
      Height = 469
    end
  end
  inherited palRight: TPanel
    Left = 777
    Height = 469
    inherited imgRight: TImage
      Height = 469
    end
  end
  inherited palToolbar: TPanel
    Width = 792
    inherited tiLocate: TTradeImg
      OnClick = tiLocateClick
    end
    inherited tiLast: TTradeImg
      OnClick = tiLastClick
    end
    inherited tiNext: TTradeImg
      OnClick = tiNextClick
    end
    inherited tiPrior: TTradeImg
      OnClick = tiPriorClick
    end
    inherited tiFirst: TTradeImg
      OnClick = tiFirstClick
    end
    object BitBtn1: TBitBtn
      Left = 536
      Top = 32
      Width = 75
      Height = 25
      Caption = #37319#36141#21069#24211#23384
      TabOrder = 0
      OnClick = BitBtn1Click
    end
  end
  object Panel1: TPanel
    Left = 10
    Top = 65
    Width = 767
    Height = 469
    Align = alClient
    BevelOuter = bvNone
    Color = 13619151
    TabOrder = 4
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 767
      Height = 137
      Align = alTop
      BevelOuter = bvNone
      Color = 13619151
      TabOrder = 0
      object Label7: TLabel
        Left = 24
        Top = 4
        Width = 52
        Height = 13
        Caption = 'I/O'#20195#21495#65306
        FocusControl = DBComboBox1
        Transparent = True
      end
      object Label1: TLabel
        Left = 24
        Top = 84
        Width = 60
        Height = 13
        Caption = #29289#26009#32534#21495#65306
        FocusControl = DBEdit1
        Transparent = True
      end
      object Label2: TLabel
        Left = 24
        Top = 44
        Width = 60
        Height = 13
        Caption = #29289#26009#21517#31216#65306
        Transparent = True
      end
      object Label3: TLabel
        Left = 248
        Top = 4
        Width = 48
        Height = 13
        Caption = #32463#25163#20154#65306
        FocusControl = DBEdit3
        Transparent = True
      end
      object Label4: TLabel
        Left = 248
        Top = 44
        Width = 60
        Height = 13
        Caption = #25805#20316#26085#26399#65306
        FocusControl = DBEdit4
        Transparent = True
      end
      object Label5: TLabel
        Left = 248
        Top = 84
        Width = 72
        Height = 13
        Caption = #20986#20837#24211#32534#21495#65306
        FocusControl = DBEdit5
        Transparent = True
      end
      object Label6: TLabel
        Left = 536
        Top = 44
        Width = 36
        Height = 13
        Caption = #25968#37327#65306
        FocusControl = DBEdit6
        Transparent = True
      end
      object Label8: TLabel
        Left = 536
        Top = 84
        Width = 60
        Height = 13
        Caption = #35760#24405#24207#21495#65306
        FocusControl = DBEdit7
      end
      object SpeedButton1: TSpeedButton
        Left = 400
        Top = 56
        Width = 23
        Height = 22
        Enabled = False
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
          00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
          0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9
          903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9
          9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890
          03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
          77037F3377777773337F088887707888870373F3337773F33373307880707088
          7033373FF737F73FF733337003303300733333777337FF777333333333000333
          3333333333777333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton1Click
      end
      object DBComboBox1: TDBComboBox
        Left = 24
        Top = 20
        Width = 73
        Height = 21
        Style = csDropDownList
        Color = clSilver
        DataField = 'Material_IO'
        DataSource = dm.d_mio
        ItemHeight = 13
        Items.Strings = (
          'I'
          'O')
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit1: TDBEdit
        Left = 24
        Top = 100
        Width = 108
        Height = 21
        Color = clSilver
        DataField = 'Material_ID'
        DataSource = dm.d_mio
        ReadOnly = True
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 248
        Top = 20
        Width = 134
        Height = 21
        Color = clSilver
        DataField = 'Person'
        DataSource = dm.d_mio
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 248
        Top = 60
        Width = 137
        Height = 21
        Color = clSilver
        DataField = 'Act_Date'
        DataSource = dm.d_mio
        ReadOnly = True
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 248
        Top = 100
        Width = 137
        Height = 21
        Color = clSilver
        DataField = 'Material_IOID'
        DataSource = dm.d_mio
        ReadOnly = True
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 536
        Top = 60
        Width = 134
        Height = 21
        Color = clSilver
        DataField = 'Material_Quantity'
        DataSource = dm.d_mio
        ReadOnly = True
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 536
        Top = 100
        Width = 73
        Height = 21
        Color = clSilver
        DataField = 'Note_Code'
        DataSource = dm.d_mio
        ReadOnly = True
        TabOrder = 6
      end
      object Button1: TButton
        Left = 528
        Top = 8
        Width = 75
        Height = 25
        Caption = #37319#36141#21518#24211#23384
        TabOrder = 7
        OnClick = Button1Click
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 23
        Top = 61
        Width = 145
        Height = 21
        Color = clSilver
        DataField = 'Material_Name'
        DataSource = dm.d_mio
        KeyField = 'MaterialM_Name'
        ListField = 'MaterialM_Name'
        ListSource = dm.d_materialmanager
        TabOrder = 8
        OnClick = DBLookupComboBox1Click
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 137
      Width = 767
      Height = 332
      Align = alClient
      BevelOuter = bvNone
      Color = 13619151
      TabOrder = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 767
        Height = 161
        Align = alTop
        DataSource = dm.d_mio
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Material_ID'
            Title.Caption = #29289#26009#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Material_Name'
            Title.Caption = #29289#26009#21517#31216
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Material_IO'
            Title.Caption = #20986#20837#24211#20195#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Person'
            Title.Caption = #32463#25163#20154
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Act_Date'
            Title.Caption = #25805#20316#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Material_IOID'
            Title.Caption = #20986#20837#24211#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Material_Quantity'
            Title.Caption = #25968#37327
            Visible = True
          end>
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 161
        Width = 767
        Height = 171
        Align = alClient
        Caption = #29289#26009#24211#23384#20449#24687#65306
        Color = 13619151
        ParentColor = False
        TabOrder = 1
        object DBGrid2: TDBGrid
          Left = 2
          Top = 15
          Width = 763
          Height = 154
          Align = alClient
          DataSource = dm.d_storaged
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'Material_ID'
              ImeMode = imHanguel
              Title.Caption = #29289#26009#32534#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Material_Name'
              Title.Caption = #29289#26009#21517#31216
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Material_Quantity'
              Title.Caption = #25968#37327
              Visible = True
            end>
        end
      end
    end
  end
  object ADOCommand1: TADOCommand
    Connection = dm.ADOConnection1
    Parameters = <>
    Left = 508
    Top = 30
  end
  object ADOCommand2: TADOCommand
    Connection = dm.ADOConnection1
    Parameters = <>
    Left = 492
    Top = 70
  end
end