choose_fhd.dfm

省级集邮品管理ERP

inherited frmSJ_chooseJYFHD: TfrmSJ_chooseJYFHD
  Left = 257
  Top = 177
  Caption = '选择入库依据单'
  ClientHeight = 323
  ClientWidth = 482
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 58
    Width = 48
    Height = 12
    Caption = '依据单号'
  end
  object Label2: TLabel
    Left = 16
    Top = 122
    Width = 60
    Height = 12
    Caption = '依据单票品'
  end
  object Label3: TLabel
    Left = 276
    Top = 57
    Width = 48
    Height = 12
    Caption = '入库性质'
  end
  object Lbl_ckxz: TLabel
    Left = 16
    Top = 99
    Width = 48
    Height = 12
    Caption = 'Lbl_ckxz'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 15
    Top = 136
    Width = 450
    Height = 142
    DataSource = DS_ckfhpp
    PopupMenu = data.pm_Export
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'ZH'
        Title.Caption = '志号'
        Visible = True
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'PP'
        Title.Caption = '票品'
        Width = 168
        Visible = True
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'SL'
        Title.Caption = '数量'
        Width = 76
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'kf'
        Title.Caption = '库房'
        Width = 96
        Visible = True
      end>
  end
  object CBo_yjdh: TComboBox
    Left = 15
    Top = 71
    Width = 173
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 1
    OnClick = CBo_yjdhClick
  end
  object BitBtn1: TBitBtn
    Left = 302
    Top = 287
    Width = 75
    Height = 25
    Caption = '确定'
    Default = True
    TabOrder = 4
    OnClick = BitBtn1Click
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 389
    Top = 287
    Width = 75
    Height = 25
    Cancel = True
    Caption = '取消'
    ModalResult = 2
    TabOrder = 5
    NumGlyphs = 2
  end
  object DBLCB_rkxz: TDBLookupComboBox
    Left = 276
    Top = 71
    Width = 189
    Height = 20
    KeyField = 'RCKXZDM'
    ListField = 'RCKXZMC'
    ListSource = DS_rkxz
    TabOrder = 2
  end
  object RG_yf: TRadioGroup
    Left = 15
    Top = 14
    Width = 173
    Height = 33
    Caption = '入库单月份'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      '本月'
      '下月')
    TabOrder = 0
  end
  object DS_ckfhpp: TDataSource
    DataSet = Qry_tkfhpp
    Left = 152
    Top = 164
  end
  object DS_rkxz: TDataSource
    DataSet = Qry_rkxz
    Left = 380
    Top = 51
  end
  object Qry_rkxz: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select RCKXZDM, RCKXZMC '
      'from TGS_JRCKXZDM'
      'where'
      ' RCKXZDM like '#39'2%'#39)
    Left = 352
    Top = 51
  end
  object Qry_TMP: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      '')
    Left = 88
  end
  object USQL_fhpp: TUpdateSQL
    Left = 180
    Top = 164
  end
  object Qry_kf: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'select b.KFMC, b.KFDM from tgs_kfrydzb a,tgs_kfb b where a.kfdm=' +
        'b.kfdm and b.kfdm not in ('#39'-1'#39', '#39'-2'#39')'
      ' and a.ygdm=:YGDM')
    Left = 316
    Top = 163
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'YGDM'
        ParamType = ptUnknown
      end>
  end
  object DS_kf: TDataSource
    DataSet = Qry_kf
    Left = 344
    Top = 163
  end
  object SQLs_txfhpp: TSqlStrings
    jyp_Sql.Strings = (
      'select a.FHDH, '#39'   '#39' KFDM, a.TDM, a.SL, 0 MZ, a.SJ, a.ZK, '
      '  a.JSJ, c.DWDM, c.DWMC, b.ZH, b.TMC PP'
      ' from TK_JYCKPP a,TB_YZPPTXXB b, TK_JYFHD c '
      ' where c.FHDH = a.FHDH '
      '  and a.TDM=b.TDM '
      '  and a.FHDH=:FHDH')
    txp_Sql.Strings = (
      'select a.FHDH, '#39'   '#39' KFDM, a.TUDM TDM, a.CKZS SL, a.MZ, a.SJ, '
      '  a.ZK, a.JSJ, c.DWDM, c.DWMC, b.ZH, b.TMC PP '
      ' from TK_TXCKPP a,TB_YZPPXXB b, TK_TXFHD c '
      ' where c.FHDH = a.FHDH '
      '  and a.TUDM=b.TDM(+) '
      '  and a.FHDH=:FHDH')
    grp_Sql.Strings = (
      'select a.FHDH, '#39'   '#39' KFDM, a.TDM, a.SL, a.SJ, '
      '  a.ZK, a.JSJ, c.DWDM, c.DWMC, b.ZH, b.TMC PP '
      ' from TK_GRPCKPP a,TB_YZPPXXB b, TK_GRPFHD c '
      ' where c.FHDH = a.FHDH '
      '  and a.TDM=b.TDM(+) '
      '  and a.FHDH=:FHDH')
    Left = 96
    Top = 164
  end
  object Qry_tkfhpp: TQuery
    CachedUpdates = True
    DatabaseName = 'yzpp'
    RequestLive = True
    SQL.Strings = (
      'select a.FHDH, '#39' '#39' KFDM, a.TDM, a.SL, a.SJ, a.ZK, 0 MZ,'
      '  a.JSJ, c.DWDM, c.DWMC, b.ZH, b.TMC PP'
      ' from TK_JYCKPP a,TB_YZPPTXXB b, TK_JYFHD c '
      ' where c.FHDH = a.FHDH '
      '  and a.TDM=b.TDM ')
    UpdateObject = USQL_fhpp
    Left = 124
    Top = 164
    object Qry_tkfhppFHDH: TStringField
      FieldName = 'FHDH'
    end
    object Qry_tkfhppTDM: TStringField
      FieldName = 'TDM'
      Size = 13
    end
    object Qry_tkfhppSL: TFloatField
      FieldName = 'SL'
      DisplayFormat = '#,##'
    end
    object Qry_tkfhppMZ: TFloatField
      FieldName = 'MZ'
    end
    object Qry_tkfhppSJ: TFloatField
      FieldName = 'SJ'
    end
    object Qry_tkfhppZK: TFloatField
      FieldName = 'ZK'
    end
    object Qry_tkfhppJSJ: TFloatField
      FieldName = 'JSJ'
    end
    object Qry_tkfhppDWDM: TStringField
      FieldName = 'DWDM'
      Size = 8
    end
    object Qry_tkfhppDWMC: TStringField
      FieldName = 'DWMC'
    end
    object Qry_tkfhppZH: TStringField
      FieldName = 'ZH'
      Size = 11
    end
    object Qry_tkfhppPP: TStringField
      FieldName = 'PP'
      Size = 60
    end
    object Qry_tkfhppKFDM: TStringField
      FieldName = 'KFDM'
      FixedChar = True
      Size = 3
    end
    object Qry_tkfhppkf: TStringField
      FieldKind = fkLookup
      FieldName = 'kf'
      LookupDataSet = Qry_kf
      LookupKeyFields = 'KFDM'
      LookupResultField = 'KFMC'
      KeyFields = 'KFDM'
      Lookup = True
    end
  end
end