sy_ckjhdzd_xd.dfm

省级集邮品管理ERP

object FrmY_CKJHDZD_XD: TFrmY_CKJHDZD_XD
  Left = 247
  Top = 110
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '选择请领单或单位'
  ClientHeight = 389
  ClientWidth = 565
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object BitBtn1: TBitBtn
    Left = 352
    Top = 352
    Width = 75
    Height = 25
    Caption = '确定'
    Default = True
    ModalResult = 1
    TabOrder = 0
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 448
    Top = 352
    Width = 75
    Height = 25
    Cancel = True
    Caption = '取消'
    ModalResult = 2
    TabOrder = 1
    NumGlyphs = 2
  end
  object pgc_Select: TPageControl
    Left = 11
    Top = 13
    Width = 542
    Height = 331
    ActivePage = TabSheet1
    Style = tsFlatButtons
    TabOrder = 2
    OnChange = pgc_SelectChange
    object tbs_PP: TTabSheet
      TabVisible = False
    end
    object tbs_DW: TTabSheet
      ImageIndex = 1
      TabVisible = False
    end
    object TabSheet1: TTabSheet
      Caption = '参照需求'
      ImageIndex = 2
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 534
        Height = 301
        Align = alClient
        BevelOuter = bvLowered
        Caption = 'Panel2'
        TabOrder = 0
        object Label3: TLabel
          Left = 1
          Top = 1
          Width = 532
          Height = 12
          Align = alTop
          Caption = '下级零星请领单'
        end
        object Label4: TLabel
          Left = 1
          Top = 134
          Width = 532
          Height = 12
          Align = alTop
          Caption = '请领单明细'
        end
        object DBGrid3: TDBGrid
          Left = 1
          Top = 13
          Width = 532
          Height = 121
          Align = alTop
          Color = clWhite
          DataSource = DataSource5
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'QLDH'
              Title.Alignment = taCenter
              Title.Caption = '请领单号'
              Width = 213
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DWMC'
              Title.Alignment = taCenter
              Title.Caption = '单位名称'
              Width = 177
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'HJJE'
              Title.Alignment = taCenter
              Title.Caption = '合计金额(元)'
              Width = 104
              Visible = True
            end>
        end
        object DBG_LXQL: TDBGrid
          Left = 1
          Top = 146
          Width = 532
          Height = 154
          Align = alClient
          Color = clWhite
          DataSource = DataSource4
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'PPMC'
              Title.Alignment = taCenter
              Title.Caption = '票品名称'
              Width = 218
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MZ'
              Title.Alignment = taCenter
              Title.Caption = '面值(元)'
              Width = 62
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'XJ'
              Title.Alignment = taCenter
              Title.Caption = '销价(元)'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SL'
              Title.Alignment = taCenter
              Title.Caption = '需求数量'
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'KCSL'
              Title.Alignment = taCenter
              Title.Caption = '库存数量'
              Width = 68
              Visible = True
            end>
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '不参照需求'
      ImageIndex = 3
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 534
        Height = 301
        Align = alClient
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 0
        object Label2: TLabel
          Left = 4
          Top = 4
          Width = 60
          Height = 12
          Caption = '选择单位：'
        end
        object DBGrid1: TDBGrid
          Left = 1
          Top = 19
          Width = 532
          Height = 281
          Align = alBottom
          DataSource = DataSource1
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'DWJC'
              Title.Alignment = taCenter
              Title.Caption = '单位名称'
              Width = 158
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'LXR'
              Title.Alignment = taCenter
              Title.Caption = '联系人'
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DH'
              Title.Alignment = taCenter
              Title.Caption = '电话'
              Width = 108
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'EMAIL'
              Title.Alignment = taCenter
              Title.Caption = 'E_Mail'
              Width = 154
              Visible = True
            end>
        end
      end
    end
  end
  object DataSource5: TDataSource
    AutoEdit = False
    DataSet = Qry_LXQL1
    Left = 69
    Top = 79
  end
  object Qry_LXQL1: TQuery
    AfterScroll = Qry_LXQL1AfterScroll
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select A.QLDH,A.DWDM,A.DWMC,sum(A.JE) HJJE from tys_txpqld A, TY' +
        'S_TXPCKJHDB B'
      
        'where A.QLDH=B.BZ(+) and B.BZ IS null and A.ZT='#39'0'#39' and dwdm <> :' +
        'dwdm and nd =:nd and yf=:yf'
      'group by A.QLDH,A.DWDM,A.DWMC')
    Left = 41
    Top = 79
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'dwdm'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'nd'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'yf'
        ParamType = ptUnknown
      end>
    object Qry_LXQL1QLDH: TStringField
      FieldName = 'QLDH'
      Origin = 'YZPP.TYS_TXPQLD.QLDH'
      Size = 16
    end
    object Qry_LXQL1DWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TYS_TXPQLD.DWDM'
      Size = 8
    end
    object Qry_LXQL1DWMC: TStringField
      FieldName = 'DWMC'
      Origin = 'YZPP.TYS_TXPQLD.DWMC'
      Size = 40
    end
    object Qry_LXQL1HJJE: TFloatField
      FieldName = 'HJJE'
      Origin = 'YZPP.TYS_TXPQLD.JE'
      OnGetText = Qry_LXQLMZGetText
    end
  end
  object Qry_LXQL: TQuery
    CachedUpdates = True
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select a.qldh,a.ppdm,a.dwdm,a.ppmc,a.mz,a.sl,b.ts kcsl,b.XJ,b.KF' +
        'DM'
      ' from tys_txpqld a, tys_TXPPKC b'
      ' Where a.PPDM=b.PPDM(+)'
      '  and a.QLDH=:QLDH'
      ''
      ' ')
    Left = 45
    Top = 216
    ParamData = <
      item
        DataType = ftString
        Name = 'QLDH'
        ParamType = ptUnknown
        Value = #39'1'#39
      end>
    object Qry_LXQLPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TYS_TXPQLD.PPDM'
      Size = 13
    end
    object Qry_LXQLDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TYS_TXPQLD.DWDM'
      Size = 8
    end
    object Qry_LXQLPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TYS_TXPQLD.PPMC'
      Size = 60
    end
    object Qry_LXQLMZ: TFloatField
      FieldName = 'MZ'
      Origin = 'YZPP.TYS_TXPQLD.MZ'
      OnGetText = Qry_LXQLMZGetText
    end
    object Qry_LXQLSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TYS_TXPQLD.SL'
      OnGetText = Qry_LXQLKCSLGetText
      DisplayFormat = '#,##'
    end
    object Qry_LXQLQLDH: TStringField
      FieldName = 'QLDH'
      Origin = 'YZPP.TYS_TXPQLD.QLDH'
      Size = 16
    end
    object Qry_LXQLKCSL: TFloatField
      FieldName = 'KCSL'
      OnGetText = Qry_LXQLKCSLGetText
      DisplayFormat = '#,##'
    end
    object Qry_LXQLXJ: TFloatField
      FieldName = 'XJ'
      OnGetText = Qry_LXQLXJGetText
    end
    object Qry_LXQLKFDM: TStringField
      FieldName = 'KFDM'
      Size = 3
    end
  end
  object DataSource4: TDataSource
    AutoEdit = False
    DataSet = Qry_LXQL
    Left = 73
    Top = 216
  end
  object Qry_GXDWSJB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select DWDM,DWMC from TO_GXDWSJB')
    Left = 592
    Top = 82
  end
  object DataSource1: TDataSource
    DataSet = Qry_DW
    Left = 294
    Top = 149
  end
  object Qry_DW: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select *'
      ' from TGS_GXDWSJB'
      ' where ZJXJ='#39'1'#39' and FHDX='#39'1'#39' and TXYW='#39'1'#39
      ' order by PXM')
    Left = 266
    Top = 149
  end
end