sy_ckjhdzd_xd.dfm

省级集邮品管理ERP

      object GB_ZTS: TGroupBox
        Left = 364
        Top = 4
        Width = 158
        Height = 45
        Caption = '输入总套数'
        TabOrder = 3
        object Label2: TLabel
          Left = 131
          Top = 21
          Width = 12
          Height = 12
          Caption = '套'
        end
        object E_ZTS: TCurrencyEdit
          Left = 16
          Top = 16
          Width = 108
          Height = 21
          AutoSize = False
          DecimalPlaces = 0
          DisplayFormat = '#,##'
          TabOrder = 0
          ZeroEmpty = False
          OnKeyDown = E_ZTSKeyDown
        end
      end
      object GroupBox1: TGroupBox
        Left = 152
        Top = -61
        Width = 225
        Height = 45
        TabOrder = 4
        object CB_LX: TCheckBox
          Left = 13
          Top = 16
          Width = 49
          Height = 17
          Caption = '零售'
          Checked = True
          State = cbChecked
          TabOrder = 0
        end
        object CB_YD: TCheckBox
          Left = 62
          Top = 16
          Width = 49
          Height = 17
          Caption = '预订'
          Checked = True
          State = cbChecked
          TabOrder = 1
        end
        object CB_NC: TCheckBox
          Left = 167
          Top = 16
          Width = 49
          Height = 17
          Caption = '年册'
          TabOrder = 2
        end
        object CB_YP: TCheckBox
          Left = 115
          Top = 16
          Width = 49
          Height = 17
          Caption = '邮品'
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
      end
      object GroupBox2: TGroupBox
        Left = 390
        Top = -59
        Width = 132
        Height = 45
        Caption = '输入百分比（%）'
        TabOrder = 5
        object Label3: TLabel
          Left = 110
          Top = 20
          Width = 6
          Height = 12
          Caption = '%'
        end
        object CE_BFB: TCurrencyEdit
          Left = 16
          Top = 16
          Width = 84
          Height = 21
          AutoSize = False
          DecimalPlaces = 0
          DisplayFormat = '#,##'
          MaxValue = 100
          TabOrder = 0
          Value = 100
          ZeroEmpty = False
        end
      end
    end
    object TS_3: TTabSheet
      Caption = 'TS_3'
      ImageIndex = 2
      TabVisible = False
      object RxLabel1: TRxLabel
        Left = 272
        Top = 128
        Width = 89
        Height = 29
        Caption = '完成！'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -29
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Image1: TImage
        Left = 40
        Top = 48
        Width = 121
        Height = 121
      end
    end
  end
  object DS_YZPPTXXB: TDataSource
    AutoEdit = False
    DataSet = Qry_YZPPTXXB
    Left = 352
    Top = 185
  end
  object Qry_JJNFPJH: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'SELECT JHFPZTS DATA,DWDM FROM TY_JJNFPJH')
    Left = 160
    Top = 159
    object Qry_JJNFPJHDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JJNFPJH.DWDM'
      Size = 8
    end
    object Qry_JJNFPJHDATA: TFloatField
      FieldName = 'DATA'
      Origin = 'YZPP.TY_JJNFPJH.JHFPZTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNFPJHDWMC: TStringField
      FieldKind = fkLookup
      FieldName = 'DWMC'
      LookupDataSet = Qry_GXDWSJB
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'DWDM'
      Size = 40
      Lookup = True
    end
  end
  object DS_JJNFPJH: TDataSource
    AutoEdit = False
    DataSet = Qry_JJNFPJH
    Left = 128
    Top = 159
  end
  object Qry_GXDWSJB: TQuery
    AutoCalcFields = False
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select DWDM,DWJC DWMC from TGS_GXDWSJB')
    Left = 464
    Top = 131
  end
  object Qry_JJNFPJH1: TQuery
    AfterScroll = Qry_JJNFPJH1AfterScroll
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'SELECT DISTINCT JHH,PPMC FROM TY_JJNFPJH')
    Left = 80
    Top = 159
    object StringField3: TStringField
      FieldName = 'JHH'
      Origin = 'YZPP.TY_JJNFPJH.JHH'
      Size = 8
    end
    object StringField4: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TY_JJNFPJH.PPMC'
      Size = 60
    end
  end
  object DS_JJNFPJH1: TDataSource
    AutoEdit = False
    DataSet = Qry_JJNFPJH1
    Left = 48
    Top = 159
  end
  object Qry_Static: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select DWDM,DWMC from TO_GXDWSJB')
    Left = 436
    Top = 131
  end
  object Qry_KFB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'SELECT * FROM TGS_KFB')
    Left = 492
    Top = 131
    object Qry_KFBKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TGS_KFB.KFDM'
      Size = 3
    end
    object Qry_KFBKFMC: TStringField
      FieldName = 'KFMC'
      Origin = 'YZPP.TGS_KFB.KFMC'
      Size = 30
    end
  end
  object Qry_YZPPTXXB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'SELECT A.ZH ,A.MC PPMC,B.PPDM ,B.KFDM,B.KWH ,B.JJ ,B.YJ ,B.XJ ,B' +
        '.TS ,B.BZ, B.ZK, B.JSJ '
      'FROM TB_JYPTXXB A,TYS_YPPKC B '
      'WHERE A.TDM=B.PPDM')
    Left = 320
    Top = 185
    object Qry_YZPPTXXBZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_JYPTXXB.ZH'
      Size = 11
    end
    object Qry_YZPPTXXBPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TB_JYPTXXB.MC'
      Size = 60
    end
    object Qry_YZPPTXXBPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TYS_YPPKC.PPDM'
      Size = 15
    end
    object Qry_YZPPTXXBKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TYS_YPPKC.KFDM'
      Size = 3
    end
    object Qry_YZPPTXXBKWH: TStringField
      FieldName = 'KWH'
      Origin = 'YZPP.TYS_YPPKC.KWH'
      Size = 30
    end
    object Qry_YZPPTXXBJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TYS_YPPKC.JJ'
      OnGetText = Qry_YZPPTXXBJJGetText
    end
    object Qry_YZPPTXXBYJ: TFloatField
      FieldName = 'YJ'
      Origin = 'YZPP.TYS_YPPKC.YJ'
    end
    object Qry_YZPPTXXBXJ: TFloatField
      FieldName = 'XJ'
      Origin = 'YZPP.TYS_YPPKC.XJ'
      OnGetText = Qry_YZPPTXXBJJGetText
    end
    object Qry_YZPPTXXBTS: TFloatField
      FieldName = 'TS'
      Origin = 'YZPP.TYS_YPPKC.TS'
      DisplayFormat = '#,##'
    end
    object Qry_YZPPTXXBBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TYS_YPPKC.BZ'
      Size = 40
    end
    object Qry_YZPPTXXBKFMC: TStringField
      FieldKind = fkLookup
      FieldName = 'KFMC'
      LookupDataSet = Qry_KFB
      LookupKeyFields = 'KFDM'
      LookupResultField = 'KFMC'
      KeyFields = 'KFDM'
      Size = 40
      Lookup = True
    end
    object Qry_YZPPTXXBZK: TFloatField
      FieldName = 'ZK'
      Origin = 'YZPP.TYS_YPPKC.ZK'
    end
    object Qry_YZPPTXXBJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'YZPP.TYS_YPPKC.JSJ'
      OnGetText = Qry_YZPPTXXBJJGetText
    end
  end
end