pfm_fdthdok.dfm

这是一个用DELPHI7开发的大型超市管理系统

object fm_fdthdok: Tfm_fdthdok
  Left = 144
  Top = 12
  Width = 760
  Height = 481
  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 = 325
    Align = alClient
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 201
      Top = 15
      Width = 3
      Height = 308
      Cursor = crHSplit
    end
    object TV1: TTreeView
      Left = 2
      Top = 15
      Width = 199
      Height = 308
      Align = alLeft
      Color = clInfoBk
      Indent = 19
      TabOrder = 0
      OnClick = TV1Click
    end
    object DBGrid1: TDBGrid
      Left = 204
      Top = 15
      Width = 546
      Height = 308
      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 = 325
    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 = 248
      Top = 60
      Width = 91
      Height = 13
      Caption = '提货商品数量：'
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 272
      Top = 28
      Width = 65
      Height = 13
      Caption = '商品名称：'
    end
    object Label3: TLabel
      Left = 548
      Top = 44
      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 = 344
      Top = 52
      Width = 64
      Height = 21
      DataField = 'spnum'
      DataSource = DataSource2
      TabOrder = 2
    end
    object BBtnRevise: TBitBtn
      Left = 344
      Top = 88
      Width = 105
      Height = 25
      Caption = '修改提货商品数量'
      TabOrder = 3
      OnClick = BBtnReviseClick
    end
    object BBtnThd: TBitBtn
      Left = 552
      Top = 88
      Width = 105
      Height = 25
      Caption = '生成提货单'
      TabOrder = 4
      OnClick = BBtnThdClick
    end
    object DBEdit2: TDBEdit
      Left = 344
      Top = 20
      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_fdthd.id,tab_fdthd.fdmc, tab_fdthd.spbm, t_spxx.sptxm' +
        ', tab_fdthd.spnum,tab_fdthd.oldspnum, t_spxx.spmc, '
      '      ISNULL'
      '          ((SELECT SUM(t_stocksp.spnum)'
      '          FROM t_stocksp'
      
        '          WHERE t_stocksp.spbm = tab_fdthd.spbm AND t_stocksp.ck' +
        'mc =:ckmc), 0) '
      '      AS stocknum'
      'FROM tab_fdthd INNER JOIN'
      '      t_spxx ON tab_fdthd.spbm = t_spxx.spbm')
    Left = 232
    Top = 120
    ParamData = <
      item
        DataType = ftString
        Name = 'ckmc'
        ParamType = ptUnknown
        Value = '0'
      end>
    object Query2id: TIntegerField
      FieldName = 'id'
      Visible = False
    end
    object Query2fdmc: TStringField
      FieldName = 'fdmc'
      Size = 16
    end
    object Query2spbm: TStringField
      FieldName = 'spbm'
      Size = 6
    end
    object Query2sptxm: TStringField
      FieldName = 'sptxm'
      FixedChar = True
      Size = 13
    end
    object Query2spnum: TFloatField
      FieldName = 'spnum'
    end
    object Query2spmc: TStringField
      FieldName = 'spmc'
    end
    object Query2stocknum: TIntegerField
      FieldName = 'stocknum'
    end
    object Query2oldspnum: TFloatField
      FieldName = 'oldspnum'
    end
  end
  object Table1: TTable
    AfterPost = Table1AfterPost
    DatabaseName = 'posdb'
    IndexFieldNames = 'id'
    MasterFields = 'id'
    MasterSource = DataSource1
    TableName = 'dbo.tab_fdthd'
    Left = 448
    Top = 333
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 448
    Top = 365
  end
end