storageinfo.dfm

物流管理系统是一个典型的数据库应用程序

inherited f_storageinfo: Tf_storageinfo
  Left = 239
  Top = 177
  Caption = #20179#24211#22522#30784#20449#24687
  ClientHeight = 268
  ClientWidth = 416
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 416
    Height = 268
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Panel2: TPanel
      Left = 2
      Top = 2
      Width = 412
      Height = 86
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object Label1: TLabel
        Left = 57
        Top = 21
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #20179#24211#21517#31216
      end
      object Label2: TLabel
        Left = 57
        Top = 47
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #20179#24211#31616#30721
      end
      object Add: TBitBtn
        Left = 234
        Top = 16
        Width = 75
        Height = 21
        Caption = #28155#21152
        TabOrder = 0
        OnClick = AddClick
      end
      object Update: TBitBtn
        Left = 234
        Top = 42
        Width = 75
        Height = 21
        Caption = #20462#25913
        TabOrder = 1
        OnClick = UpdateClick
      end
      object Cancel: TBitBtn
        Left = 318
        Top = 16
        Width = 75
        Height = 21
        Caption = #21462#28040
        TabOrder = 2
        OnClick = CancelClick
      end
      object Delete: TBitBtn
        Left = 318
        Top = 42
        Width = 75
        Height = 21
        Caption = #21024#38500
        TabOrder = 3
        OnClick = DeleteClick
      end
      object Storagename: TEdit
        Left = 120
        Top = 16
        Width = 105
        Height = 21
        BevelKind = bkFlat
        BorderStyle = bsNone
        TabOrder = 4
        OnKeyDown = StoragenameKeyDown
      end
      object Nameshort: TEdit
        Left = 120
        Top = 42
        Width = 105
        Height = 21
        BevelKind = bkFlat
        BorderStyle = bsNone
        TabOrder = 5
        OnKeyDown = StoragenameKeyDown
      end
    end
    object Panel4: TPanel
      Left = 2
      Top = 225
      Width = 412
      Height = 41
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Label3: TLabel
        Left = 16
        Top = 14
        Width = 107
        Height = 13
        AutoSize = False
        Caption = #35831#35774#32622#26597#35810#26465#20214
      end
      object Label4: TLabel
        Left = 201
        Top = 12
        Width = 19
        Height = 13
        AutoSize = False
        Caption = '='
      end
      object Query: TBitBtn
        Left = 318
        Top = 9
        Width = 73
        Height = 21
        Caption = #26597#35810
        TabOrder = 0
        OnClick = QueryClick
      end
      object Field: TComboBox
        Left = 114
        Top = 9
        Width = 81
        Height = 22
        Style = csOwnerDrawFixed
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        ItemHeight = 16
        TabOrder = 1
        OnKeyDown = StoragenameKeyDown
        Items.Strings = (
          #20179#24211#21517#31216
          #20179#24211#31616#30721)
      end
      object Value: TEdit
        Left = 216
        Top = 9
        Width = 81
        Height = 21
        BevelKind = bkFlat
        BorderStyle = bsNone
        TabOrder = 2
        OnKeyDown = StoragenameKeyDown
      end
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 88
      Width = 412
      Height = 137
      Align = alClient
      DataSource = Storagesource
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'Storagename'
          Title.Caption = #20179#24211#21517#31216
          Width = 115
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nameshort'
          Title.Caption = #20179#24211#31616#30721
          Width = 124
          Visible = True
        end>
    end
  end
  object Storagesource: TDataSource
    Left = 48
    Top = 160
  end
end