hwbs.dfm

药品进销存管理系统(Delphi版),适合中小企业管理

object Frmhwbs: TFrmhwbs
  Left = 36
  Top = 80
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '货物报损'
  ClientHeight = 450
  ClientWidth = 680
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Label5: TLabel
    Left = 11
    Top = 210
    Width = 56
    Height = 14
    Caption = '报损数量'
  end
  object Label6: TLabel
    Left = 11
    Top = 234
    Width = 56
    Height = 14
    Caption = '报损日期'
  end
  object Label7: TLabel
    Left = 11
    Top = 259
    Width = 42
    Height = 14
    Caption = '报损人'
  end
  object GroupBox1: TGroupBox
    Left = 304
    Top = 206
    Width = 373
    Height = 73
    Caption = '报损原因'
    TabOrder = 0
    object Memo1: TMemo
      Left = 8
      Top = 15
      Width = 353
      Height = 51
      Lines.Strings = (
        'Memo1')
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 680
    Height = 35
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    ParentColor = True
    TabOrder = 3
    object Label1: TLabel
      Left = 24
      Top = 11
      Width = 56
      Height = 14
      Caption = '选择仓库'
    end
    object Label3: TLabel
      Left = 264
      Top = 11
      Width = 56
      Height = 14
      Caption = '物品编码'
    end
    object SpeedButton2: TSpeedButton
      Left = 576
      Top = 6
      Width = 73
      Height = 25
      Caption = '退出'
      Flat = True
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object SpeedButton1: TSpeedButton
      Left = 456
      Top = 6
      Width = 23
      Height = 22
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object ComboBox1: TComboBox
      Left = 96
      Top = 7
      Width = 129
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 0
      OnChange = ComboBox1Change
    end
    object Edit1: TEdit
      Left = 344
      Top = 7
      Width = 113
      Height = 22
      CharCase = ecUpperCase
      ImeMode = imAlpha
      TabOrder = 1
      OnKeyPress = Edit1KeyPress
    end
  end
  object DBGrid2: TDBGrid
    Left = 8
    Top = 288
    Width = 665
    Height = 155
    DataSource = DataSource_bs
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'pm'
        Title.Caption = '品名'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gg'
        Title.Caption = '规格'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dw'
        Title.Caption = '单位'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bssl'
        Title.Caption = '报损数量'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bsrq'
        Title.Caption = '报损日期'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bsr'
        Title.Caption = '报损人'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bz'
        Title.Caption = '备注'
        Visible = True
      end>
  end
  object Edit2: TEdit
    Left = 72
    Top = 208
    Width = 129
    Height = 22
    TabOrder = 1
    OnKeyPress = Edit2KeyPress
  end
  object Edit3: TEdit
    Left = 72
    Top = 256
    Width = 129
    Height = 22
    TabOrder = 2
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 41
    Width = 665
    Height = 160
    Color = clWhite
    DataSource = DataSource_kc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
  end
  object BitBtn1: TBitBtn
    Left = 216
    Top = 216
    Width = 75
    Height = 25
    Caption = '添加'
    TabOrder = 6
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 216
    Top = 248
    Width = 75
    Height = 25
    Caption = '删除'
    TabOrder = 7
    OnClick = BitBtn2Click
  end
  object DateTimePicker1: TDateTimePicker
    Left = 73
    Top = 232
    Width = 128
    Height = 20
    CalAlignment = dtaLeft
    CalColors.BackColor = 100
    CalColors.TitleBackColor = 100
    Date = 37068.4814587963
    Time = 37068.4814587963
    DateFormat = dfLong
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 8
  end
  object Query_ckxx: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 344
    Top = 56
  end
  object Query_bs: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 240
    Top = 312
  end
  object DataSource_bs: TDataSource
    DataSet = Query_bs
    Left = 240
    Top = 368
  end
  object Query_kc: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 256
    Top = 56
  end
  object DataSource_kc: TDataSource
    DataSet = Query_kc
    Left = 256
    Top = 96
  end
  object Database: TDatabase
    AliasName = 'yygl'
    Connected = True
    DatabaseName = 'yygl'
    LoginPrompt = False
    Params.Strings = (
      'user name='#39#39
      'password='#39#39)
    SessionName = 'Default'
    TransIsolation = tiRepeatableRead
    Left = 304
    Top = 56
  end
end