pfm_sydsel.dfm

POS收银系统

object fm_sydsel: Tfm_sydsel
  Left = 239
  Top = 151
  Width = 557
  Height = 323
  Caption = '损溢单'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 265
    Top = 37
    Width = 284
    Height = 259
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 17
      Top = 24
      Width = 39
      Height = 13
      Caption = '流水号'
    end
    object Label5: TLabel
      Left = 29
      Top = 56
      Width = 26
      Height = 13
      Caption = '日期'
    end
    object Label6: TLabel
      Left = 17
      Top = 144
      Width = 39
      Height = 13
      Caption = '操作员'
    end
    object Label7: TLabel
      Left = 17
      Top = 120
      Width = 39
      Height = 13
      Caption = '经办人'
    end
    object Label8: TLabel
      Left = 17
      Top = 92
      Width = 39
      Height = 13
      Caption = '审核人'
    end
    object BBtnOK: TBitBtn
      Left = 68
      Top = 188
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 0
      OnClick = BBtnOKClick
    end
    object BBtnCancel: TBitBtn
      Left = 168
      Top = 188
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 1
      OnClick = BBtnCancelClick
    end
    object DTPicker1: TDateTimePicker
      Left = 76
      Top = 56
      Width = 121
      Height = 21
      CalAlignment = dtaLeft
      Date = 36687.8078568056
      Time = 36687.8078568056
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object Edit1: TEdit
      Left = 76
      Top = 20
      Width = 121
      Height = 21
      TabStop = False
      Color = clSilver
      ReadOnly = True
      TabOrder = 3
    end
    object Edit2: TEdit
      Left = 76
      Top = 144
      Width = 121
      Height = 21
      TabStop = False
      Color = clSilver
      MaxLength = 10
      ReadOnly = True
      TabOrder = 4
    end
    object Edit3: TEdit
      Left = 76
      Top = 116
      Width = 121
      Height = 21
      Color = clInfoBk
      MaxLength = 10
      ReadOnly = True
      TabOrder = 5
    end
    object Edit4: TEdit
      Left = 76
      Top = 88
      Width = 121
      Height = 21
      Color = clInfoBk
      MaxLength = 10
      ReadOnly = True
      TabOrder = 6
    end
    object BBtnjbr: TBitBtn
      Left = 200
      Top = 116
      Width = 25
      Height = 25
      TabOrder = 7
      OnClick = BBtnjbrClick
      Glyph.Data = {
        7E010000424D7E01000000000000760000002800000018000000160000000100
        0400000000000801000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
        0000000000080777777777777777777777700F77777777777777777777700F88
        888888888888888887700F88888888888888888887700F888888800000000888
        87700F88888880FFFFFF088887700F8888880FFFFFFFF08887700F888880FFFF
        FFFFF08887700F888880FFFFFFFFF08887700F88880FF0FFFFFFF08887700F88
        80FF00F0F0F0F08887700F88800080F0F0F0F08887700F88888880F0F0F0F088
        87700F88888880F0F0F0F08887700F88888880F0F0F0088887700F88888880F0
        F0F0888887700F8888888800F008888887700F88888888800888888887700F88
        888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
        0008}
      Layout = blGlyphBottom
    end
    object BBtnshr: TBitBtn
      Left = 200
      Top = 88
      Width = 25
      Height = 25
      TabOrder = 8
      OnClick = BBtnshrClick
      Glyph.Data = {
        7E010000424D7E01000000000000760000002800000018000000160000000100
        0400000000000801000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
        0000000000080777777777777777777777700F77777777777777777777700F88
        888888888888888887700F88888888888888888887700F888888800000000888
        87700F88888880FFFFFF088887700F8888880FFFFFFFF08887700F888880FFFF
        FFFFF08887700F888880FFFFFFFFF08887700F88880FF0FFFFFFF08887700F88
        80FF00F0F0F0F08887700F88800080F0F0F0F08887700F88888880F0F0F0F088
        87700F88888880F0F0F0F08887700F88888880F0F0F0088887700F88888880F0
        F0F0888887700F8888888800F008888887700F88888888800888888887700F88
        888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
        0008}
      Layout = blGlyphBottom
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 37
    Width = 265
    Height = 259
    Align = alLeft
    Caption = '仓库名称'
    TabOrder = 1
    object LBox1: TListBox
      Left = 2
      Top = 15
      Width = 261
      Height = 242
      Align = alClient
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 549
    Height = 37
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 2
    object Label2: TLabel
      Left = 12
      Top = 12
      Width = 105
      Height = 13
      Caption = '仓库商品损溢单'
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = '幼圆'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Query1: TQuery
    DatabaseName = 'posdb'
    Left = 228
    Top = 92
  end
  object SProc1: TStoredProc
    DatabaseName = 'posdb'
    StoredProcName = 'myproc_getlsh;1'
    Left = 228
    Top = 124
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = '@chTable'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = '@intLsh'
        ParamType = ptInputOutput
      end>
  end
end