storeinfo.dfm

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

inherited f_storeinfo: Tf_storeinfo
  Left = -48
  Top = 160
  Caption = #29289#36164#22522#30784#20449#24687
  ClientHeight = 400
  ClientWidth = 725
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 264
    Top = 8
    Width = 200
    Height = 24
    Alignment = taCenter
    Caption = #29289#36164#22522#30784#20449#24687#31649#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 725
    Height = 89
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 37
      Top = 14
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #29289#36164#21517#31216
    end
    object Label2: TLabel
      Left = 37
      Top = 38
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #29289#36164#31616#30721
    end
    object Label3: TLabel
      Left = 61
      Top = 61
      Width = 36
      Height = 13
      AutoSize = False
      Caption = #35268#26684
    end
    object Label4: TLabel
      Left = 277
      Top = 13
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #40664#35748#20215#26684
    end
    object Label5: TLabel
      Left = 289
      Top = 37
      Width = 55
      Height = 13
      AutoSize = False
      Caption = #26465#24418#30721
    end
    object Label9: TLabel
      Left = 276
      Top = 62
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #22522#26412#21333#20301
    end
    object Label10: TLabel
      Left = 517
      Top = 15
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #37319#36141#21333#20301
    end
    object Label11: TLabel
      Left = 517
      Top = 39
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #25442#31639#20851#31995
    end
    object storename: TEdit
      Left = 104
      Top = 8
      Width = 105
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 0
      OnKeyDown = storenameKeyDown
    end
    object Nameshort: TEdit
      Left = 104
      Top = 33
      Width = 105
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 1
      OnKeyDown = storenameKeyDown
    end
    object Spec: TEdit
      Left = 104
      Top = 58
      Width = 105
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 2
      OnKeyDown = storenameKeyDown
    end
    object Defaultprice: TEdit
      Left = 341
      Top = 7
      Width = 108
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 3
      OnKeyDown = storenameKeyDown
      OnKeyPress = DefaultpriceKeyPress
    end
    object Barcode: TEdit
      Left = 342
      Top = 34
      Width = 107
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 4
      OnKeyDown = storenameKeyDown
      OnKeyPress = BarcodeKeyPress
    end
    object basicunit: TEdit
      Left = 342
      Top = 60
      Width = 107
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 5
      OnKeyDown = storenameKeyDown
    end
    object Stockunit: TEdit
      Left = 580
      Top = 9
      Width = 109
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 6
      OnKeyDown = storenameKeyDown
    end
    object Conversion: TEdit
      Left = 580
      Top = 36
      Width = 110
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 7
      OnKeyDown = storenameKeyDown
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 134
    Width = 725
    Height = 226
    Align = alBottom
    DataSource = StoreSource
    ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'storename'
        Title.Caption = #29289#36164#21517#31216
        Width = 101
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nameshort'
        Title.Caption = #29289#36164#31616#30721
        Width = 97
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'spec'
        Title.Caption = #35268#26684
        Width = 87
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'defaultprice'
        Title.Caption = #40664#35748#20215#26684
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'barcode'
        Title.Caption = #26465#24418#30721
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'basicunit'
        Title.Caption = #22522#26412#21333#20301
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'stockunit'
        Title.Caption = #37319#36141#21333#20301
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'conversion'
        Title.Caption = #25442#31639#20851#31995
        Width = 54
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 360
    Width = 725
    Height = 40
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Label7: TLabel
      Left = 6
      Top = 12
      Width = 107
      Height = 13
      AutoSize = False
      Caption = #35831#35774#32622#26597#35810#26465#20214
    end
    object Label8: TLabel
      Left = 190
      Top = 12
      Width = 19
      Height = 13
      AutoSize = False
      Caption = '='
    end
    object Add: TBitBtn
      Left = 378
      Top = 9
      Width = 75
      Height = 21
      Caption = #28155#21152
      TabOrder = 0
      OnClick = AddClick
    end
    object Cancel: TBitBtn
      Left = 462
      Top = 9
      Width = 75
      Height = 21
      Caption = #21462#28040
      TabOrder = 1
      OnClick = CancelClick
    end
    object Update: TBitBtn
      Left = 546
      Top = 9
      Width = 75
      Height = 21
      Caption = #20462#25913
      TabOrder = 2
      OnClick = UpdateClick
    end
    object Delete: TBitBtn
      Left = 630
      Top = 9
      Width = 75
      Height = 21
      Caption = #21024#38500
      TabOrder = 3
      OnClick = DeleteClick
    end
    object Field: TComboBox
      Left = 106
      Top = 8
      Width = 81
      Height = 22
      Style = csOwnerDrawFixed
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ItemHeight = 16
      TabOrder = 4
      OnKeyDown = storenameKeyDown
      Items.Strings = (
        #29289#36164#21517#31216
        #29289#36164#31616#30721
        #26465#24418#30721)
    end
    object Query: TBitBtn
      Left = 301
      Top = 9
      Width = 68
      Height = 21
      Caption = #26597#35810
      TabOrder = 5
      OnClick = QueryClick
    end
    object Value: TEdit
      Left = 202
      Top = 9
      Width = 81
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 6
    end
  end
  object StoreSource: TDataSource
    Left = 40
    Top = 240
  end
end