pfm_fdtcdok.dfm

POS收银系统

object fm_fdtcdok: Tfm_fdtcdok
  Left = 165
  Top = 22
  Width = 760
  Height = 478
  Caption = '处理分店提交的退仓单'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 752
    Height = 322
    Align = alClient
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 201
      Top = 15
      Width = 3
      Height = 305
      Cursor = crHSplit
    end
    object TV1: TTreeView
      Left = 2
      Top = 15
      Width = 199
      Height = 305
      Align = alLeft
      Color = clInfoBk
      Indent = 19
      TabOrder = 0
      OnClick = TV1Click
    end
    object DBGrid1: TDBGrid
      Left = 204
      Top = 15
      Width = 546
      Height = 305
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDrawDataCell = DBGrid1DrawDataCell
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 322
    Width = 752
    Height = 129
    Align = alBottom
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 272
      Top = 60
      Width = 130
      Height = 13
      Caption = '确认的退仓商品数量：'
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 268
      Top = 16
      Width = 65
      Height = 13
      Caption = '商品名称：'
    end
    object Label3: TLabel
      Left = 540
      Top = 40
      Width = 26
      Height = 13
      Caption = '提示'
    end
    object Label4: TLabel
      Left = 8
      Top = 16
      Width = 78
      Height = 13
      Caption = '退仓流水号：'
    end
    object Label5: TLabel
      Left = 24
      Top = 40
      Width = 65
      Height = 13
      Caption = '分店代码：'
    end
    object Label6: TLabel
      Left = 48
      Top = 64
      Width = 39
      Height = 13
      Caption = '日期：'
    end
    object Label7: TLabel
      Left = 24
      Top = 88
      Width = 65
      Height = 13
      Caption = '选择仓库：'
    end
    object DBEdit1: TDBEdit
      Left = 272
      Top = 80
      Width = 64
      Height = 21
      DataField = 'spnum'
      DataSource = DataSource2
      TabOrder = 2
    end
    object BBtnRevise: TBitBtn
      Left = 360
      Top = 80
      Width = 105
      Height = 25
      Caption = '修改退仓商品数量'
      TabOrder = 3
      OnClick = BBtnReviseClick
    end
    object BBtnThd: TBitBtn
      Left = 544
      Top = 80
      Width = 105
      Height = 25
      Caption = '生成退仓单'
      TabOrder = 4
      OnClick = BBtnThdClick
    end
    object DBEdit2: TDBEdit
      Left = 268
      Top = 32
      Width = 113
      Height = 21
      TabStop = False
      Color = clSilver
      DataField = 'spmc'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
    end
    object Edit1: TEdit
      Left = 96
      Top = 16
      Width = 121
      Height = 21
      TabStop = False
      Color = clSilver
      ReadOnly = True
      TabOrder = 1
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 96
      Top = 40
      Width = 121
      Height = 21
      TabStop = False
      Color = clSilver
      ReadOnly = True
      TabOrder = 0
    end
    object DateTimePicker1: TDateTimePicker
      Left = 96
      Top = 64
      Width = 121
      Height = 21
      CalAlignment = dtaLeft
      Date = 36697.6236447106
      Time = 36697.6236447106
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 6
    end
    object CbBox1: TComboBox
      Left = 96
      Top = 88
      Width = 121
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 7
      OnChange = CbBox1Change
    end
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 232
    Top = 192
  end
  object Query1: TQuery
    DatabaseName = 'posdb'
    Left = 184
  end
  object SProc1: TStoredProc
    DatabaseName = 'posdb'
    StoredProcName = 'myproc_getlsh;1'
    Left = 416
    Top = 331
    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
  object TabfdThd: TTable
    Left = 632
    Top = 339
  end
  object BatMove1: TBatchMove
    Destination = TabfdThd
    Mappings.Strings = (
      'spbm=spbm'
      'sptxm=sptxm'
      'spnum=spnum')
    Left = 600
    Top = 339
  end
  object Query2: TQuery
    AfterOpen = Query2AfterOpen
    DatabaseName = 'posdb'
    SQL.Strings = (
      
        'SELECT tab_fdtcd.id,tab_fdtcd.fdmc, tab_fdtcd.spbm, t_spxx.sptxm' +
        ', tab_fdtcd.spnum,tab_fdtcd.oldspnum, t_spxx.spmc,'
      'tab_fdtcd.ckmc,tab_fdtcd.djhm,tab_fdtcd.rq,tab_fdtcd.jsrm '
      'FROM tab_fdtcd INNER JOIN'
      
        '      t_spxx ON tab_fdtcd.spbm = t_spxx.spbm and tab_fdtcd.ckmc=' +
        ':ckmc')
    Left = 232
    Top = 120
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ckmc'
        ParamType = ptUnknown
      end>
    object Query2id: TIntegerField
      FieldName = 'id'
      Origin = 'POSDB."dbo.tab_fdtcd".id'
      Visible = False
    end
    object Query2fdmc: TStringField
      FieldName = 'fdmc'
      Origin = 'POSDB."dbo.tab_fdtcd".fdmc'
      FixedChar = True
      Size = 16
    end
    object Query2spbm: TStringField
      FieldName = 'spbm'
      Origin = 'POSDB."dbo.tab_fdtcd".spbm'
      FixedChar = True
      Size = 10
    end
    object Query2sptxm: TStringField
      FieldName = 'sptxm'
      Origin = 'POSDB."dbo.t_spxx".sptxm'
      FixedChar = True
      Size = 13
    end
    object Query2spnum: TFloatField
      FieldName = 'spnum'
      Origin = 'POSDB."dbo.tab_fdtcd".spnum'
    end
    object Query2oldspnum: TFloatField
      FieldName = 'oldspnum'
      Origin = 'POSDB."dbo.tab_fdtcd".oldspnum'
    end
    object Query2spmc: TStringField
      FieldName = 'spmc'
      Origin = 'POSDB."dbo.t_spxx".spmc'
    end
    object Query2ckmc: TStringField
      FieldName = 'ckmc'
      Origin = 'POSDB."dbo.tab_fdtcd".ckmc'
      FixedChar = True
      Size = 16
    end
    object Query2djhm: TStringField
      FieldName = 'djhm'
      Origin = 'POSDB."dbo.tab_fdtcd".djhm'
      FixedChar = True
      Size = 18
    end
    object Query2rq: TDateTimeField
      FieldName = 'rq'
      Origin = 'POSDB."dbo.tab_fdtcd".rq'
    end
    object Query2jsrm: TStringField
      FieldName = 'jsrm'
      Origin = 'POSDB."dbo.tab_fdtcd".jsrm'
      FixedChar = True
      Size = 10
    end
  end
  object Table1: TTable
    Active = True
    AfterPost = Table1AfterPost
    DatabaseName = 'posdb'
    IndexFieldNames = 'id'
    MasterFields = 'id'
    MasterSource = DataSource1
    TableName = 'dbo.tab_fdtcd'
    Left = 448
    Top = 333
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 448
    Top = 365
  end
end