pfm_tuihuodsel.dfm

POS收银系统

object fm_tuihuodsel: Tfm_tuihuodsel
  Left = 210
  Top = 126
  Width = 537
  Height = 378
  Caption = 'fm_tuihuodsel'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 521
    Height = 137
    TabOrder = 0
    object Label1: TLabel
      Left = 13
      Top = 24
      Width = 36
      Height = 13
      Caption = '流水号'
    end
    object Label5: TLabel
      Left = 233
      Top = 24
      Width = 24
      Height = 13
      Caption = '日期'
    end
    object Label6: TLabel
      Left = 229
      Top = 56
      Width = 36
      Height = 13
      Caption = '操作员'
    end
    object Label7: TLabel
      Left = 13
      Top = 56
      Width = 36
      Height = 13
      Caption = '经办人'
    end
    object Label8: TLabel
      Left = 13
      Top = 80
      Width = 36
      Height = 13
      Caption = '审核人'
    end
    object BBtnOK: TBitBtn
      Left = 416
      Top = 64
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 0
      OnClick = BBtnOKClick
    end
    object BBtnCancel: TBitBtn
      Left = 416
      Top = 96
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 1
      OnClick = BBtnCancelClick
    end
    object DBEdit1: TDBEdit
      Left = 64
      Top = 22
      Width = 105
      Height = 21
      TabStop = False
      Color = clSilver
      Ctl3D = True
      DataField = 'lsh'
      DataSource = DataSource1
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
    end
    object DTPicker1: TDateTimePicker
      Left = 272
      Top = 24
      Width = 129
      Height = 21
      CalAlignment = dtaLeft
      Date = 36687.8078568056
      Time = 36687.8078568056
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 3
      OnChange = DTPicker1Change
    end
    object DBEdit2: TDBEdit
      Left = 64
      Top = 48
      Width = 73
      Height = 21
      DataField = 'jsrm'
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdit3: TDBEdit
      Left = 272
      Top = 56
      Width = 73
      Height = 21
      DataField = 'czym'
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBEdit4: TDBEdit
      Left = 64
      Top = 80
      Width = 73
      Height = 21
      DataField = 'shrm'
      DataSource = DataSource1
      TabOrder = 6
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 139
    Width = 257
    Height = 209
    Caption = '退货客户名称'
    TabOrder = 1
    object DBLBox1: TDBListBox
      Left = 2
      Top = 15
      Width = 253
      Height = 192
      Align = alClient
      DataField = 'khmc'
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 264
    Top = 139
    Width = 257
    Height = 209
    Caption = '退货接收单位（仓库或分店）'
    TabOrder = 2
    object DBLBox2: TDBListBox
      Left = 2
      Top = 15
      Width = 253
      Height = 192
      Align = alClient
      DataField = 'jsdw'
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object ADOQuery1: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 16
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 48
    Top = 112
  end
  object ADOSProc1: TADOStoredProc
    Connection = AdoDm.ADOConnection1
    ProcedureName = 'myproc_getlsh;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@chTable'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = 'tb_pfd'
      end
      item
        Name = '@intLsh'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end>
    Left = 216
    Top = 96
  end
  object ADOTable1: TADOTable
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    TableName = 'tb_tuihuod'
    Left = 176
    Top = 96
  end
end