wpxg.dfm

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

object Frmwpxg: TFrmwpxg
  Left = 8
  Top = 93
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '物品修改'
  ClientHeight = 439
  ClientWidth = 774
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 14
  object ListBox1: TListBox
    Left = 5
    Top = 0
    Width = 113
    Height = 185
    ItemHeight = 14
    TabOrder = 0
    OnClick = ListBox1Click
  end
  object Panel1: TPanel
    Left = 123
    Top = 0
    Width = 645
    Height = 185
    BevelInner = bvRaised
    BevelOuter = bvLowered
    BiDiMode = bdLeftToRight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentBiDiMode = False
    ParentColor = True
    ParentFont = False
    TabOrder = 1
    object Label2: TLabel
      Left = 7
      Top = 13
      Width = 42
      Height = 14
      Caption = '供货商'
    end
    object Label3: TLabel
      Left = 456
      Top = 13
      Width = 56
      Height = 14
      Caption = '物品编码'
    end
    object Label5: TLabel
      Left = 232
      Top = 38
      Width = 56
      Height = 14
      Caption = '规    格'
    end
    object Label6: TLabel
      Left = 456
      Top = 37
      Width = 56
      Height = 14
      Caption = '单    位'
    end
    object Label7: TLabel
      Left = 7
      Top = 61
      Width = 56
      Height = 14
      Caption = '进    价'
    end
    object Label8: TLabel
      Left = 232
      Top = 62
      Width = 56
      Height = 14
      Caption = '售    价'
    end
    object Label9: TLabel
      Left = 456
      Top = 61
      Width = 49
      Height = 14
      Caption = '数   量'
    end
    object Label10: TLabel
      Left = 7
      Top = 157
      Width = 56
      Height = 14
      Caption = '进货日期'
    end
    object Label11: TLabel
      Left = 232
      Top = 133
      Width = 56
      Height = 14
      Caption = '库存下限'
    end
    object Label12: TLabel
      Left = 7
      Top = 86
      Width = 56
      Height = 14
      Caption = '批    号'
    end
    object Label13: TLabel
      Left = 7
      Top = 133
      Width = 56
      Height = 14
      Caption = '批准文号'
    end
    object Label14: TLabel
      Left = 232
      Top = 84
      Width = 56
      Height = 14
      Caption = '生产日期'
    end
    object Label16: TLabel
      Left = 456
      Top = 84
      Width = 70
      Height = 14
      Caption = '有效期(月)'
    end
    object Label17: TLabel
      Left = 7
      Top = 37
      Width = 56
      Height = 14
      Caption = '产    地'
    end
    object Label18: TLabel
      Left = 232
      Top = 110
      Width = 56
      Height = 14
      Caption = '类    别'
    end
    object Label19: TLabel
      Left = 7
      Top = 108
      Width = 56
      Height = 14
      Caption = '商    标'
    end
    object Label20: TLabel
      Left = 456
      Top = 133
      Width = 56
      Height = 14
      Caption = '加工单位'
    end
    object Label4: TLabel
      Left = 232
      Top = 13
      Width = 56
      Height = 14
      Caption = '物品名称'
    end
    object SpeedButton1: TSpeedButton
      Left = 200
      Top = 8
      Width = 23
      Height = 22
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object Label21: TLabel
      Left = 456
      Top = 108
      Width = 56
      Height = 14
      Caption = '包    装'
    end
    object wp_bm_edit: TEdit
      Left = 527
      Top = 8
      Width = 106
      Height = 22
      TabOrder = 2
    end
    object mc_edit: TEdit
      Left = 297
      Top = 8
      Width = 150
      Height = 22
      TabOrder = 1
    end
    object gg_edit: TEdit
      Left = 297
      Top = 32
      Width = 150
      Height = 22
      TabOrder = 4
    end
    object dw_edit: TEdit
      Left = 528
      Top = 32
      Width = 105
      Height = 22
      TabOrder = 5
    end
    object lb_edit: TEdit
      Left = 297
      Top = 104
      Width = 151
      Height = 22
      TabOrder = 13
    end
    object jj_edit: TEdit
      Left = 69
      Top = 56
      Width = 156
      Height = 22
      TabOrder = 6
      OnKeyPress = sl_editKeyPress
    end
    object dj_edit: TEdit
      Left = 296
      Top = 56
      Width = 151
      Height = 22
      TabOrder = 7
      OnKeyPress = sl_editKeyPress
    end
    object sl_edit: TEdit
      Left = 528
      Top = 56
      Width = 105
      Height = 22
      TabOrder = 8
      OnKeyPress = sl_editKeyPress
    end
    object yxq_edit: TEdit
      Left = 528
      Top = 80
      Width = 105
      Height = 22
      TabOrder = 11
      OnKeyPress = yxq_editKeyPress
    end
    object kcxx_edit: TEdit
      Left = 297
      Top = 128
      Width = 152
      Height = 22
      TabOrder = 16
    end
    object sb_edit: TEdit
      Left = 69
      Top = 104
      Width = 156
      Height = 22
      TabOrder = 12
    end
    object ph_edit: TEdit
      Left = 69
      Top = 80
      Width = 156
      Height = 22
      TabOrder = 9
    end
    object pzwh_edit: TEdit
      Left = 69
      Top = 128
      Width = 156
      Height = 22
      TabOrder = 15
    end
    object cd_edit: TEdit
      Left = 69
      Top = 32
      Width = 156
      Height = 22
      TabOrder = 3
    end
    object jgdw_edit: TEdit
      Left = 529
      Top = 128
      Width = 104
      Height = 22
      TabOrder = 17
    end
    object Edit1: TEdit
      Left = 69
      Top = 8
      Width = 132
      Height = 22
      TabOrder = 0
    end
    object bz_Edit: TEdit
      Left = 529
      Top = 104
      Width = 104
      Height = 22
      TabOrder = 14
    end
    object DateTimePicker2: TDateTimePicker
      Left = 69
      Top = 152
      Width = 156
      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 = 18
    end
    object MaskEdit1: TMaskEdit
      Left = 296
      Top = 80
      Width = 153
      Height = 22
      EditMask = '0000-00-00;1; '
      MaxLength = 10
      TabOrder = 10
      Text = '    -  -  '
    end
  end
  object Panel2: TPanel
    Left = -7
    Top = 189
    Width = 775
    Height = 34
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 32
      Top = 10
      Width = 72
      Height = 12
      Caption = '输入物品编码'
    end
    object Label15: TLabel
      Left = 264
      Top = 8
      Width = 159
      Height = 20
      Caption = '注:库存信息修改'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BitBtn2: TBitBtn
      Left = 680
      Top = 5
      Width = 75
      Height = 25
      Caption = '&X关闭'
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
    object bm_Edit: TEdit
      Left = 120
      Top = 7
      Width = 97
      Height = 20
      TabOrder = 0
      OnChange = bm_EditChange
    end
    object BitBtn3: TBitBtn
      Left = 584
      Top = 5
      Width = 75
      Height = 25
      Caption = '&E修改'
      TabOrder = 2
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
  end
  object DBGrid1: TDBGrid
    Left = 1
    Top = 228
    Width = 767
    Height = 205
    DataSource = DataSource_kc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
  end
  object Query_kc: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 160
    Top = 272
  end
  object Query_ckxx: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 280
    Top = 296
  end
  object DataSource_kc: TDataSource
    DataSet = Query_kc
    Left = 216
    Top = 312
  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 = 232
    Top = 264
  end
end