sy_ckjhdzd1_xd.dfm

省级集邮品管理ERP

object FrmY_CKJHDZD1_XD: TFrmY_CKJHDZD1_XD
  Left = 218
  Top = 174
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '选择请领单'
  ClientHeight = 343
  ClientWidth = 542
  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 Panel9: TPanel
    Left = 7
    Top = 9
    Width = 525
    Height = 296
    BevelOuter = bvNone
    TabOrder = 0
    object Splitter2: TSplitter
      Left = 0
      Top = 109
      Width = 525
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object P_XQ: TPanel
      Left = 0
      Top = 0
      Width = 525
      Height = 109
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Splitter1: TSplitter
        Left = 294
        Top = 0
        Width = 3
        Height = 109
        Cursor = crHSplit
      end
      object RxDBGrid2: TRxDBGrid
        Left = 0
        Top = 0
        Width = 294
        Height = 109
        Align = alLeft
        Color = clWhite
        DataSource = DataSource5
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = data.pm_Export
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'DWMC'
            Title.Alignment = taCenter
            Title.Caption = '单位名称'
            Width = 175
            Visible = True
          end>
      end
      object RxDBGrid1: TRxDBGrid
        Left = 297
        Top = 0
        Width = 228
        Height = 109
        Align = alClient
        Color = clWhite
        DataSource = DataSource4
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        PopupMenu = data.pm_Export
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        MultiSelect = True
        Columns = <
          item
            Expanded = False
            FieldName = 'QLDH'
            Title.Alignment = taCenter
            Title.Caption = '请领单号'
            Width = 134
            Visible = True
          end>
      end
    end
    object DBGrid4: TDBGrid
      Left = 0
      Top = 112
      Width = 525
      Height = 184
      Align = alClient
      Color = clWhite
      DataSource = DataSource3
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      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 = 196
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'XQZTS'
          Title.Alignment = taCenter
          Title.Caption = '需求总套数'
          Width = 147
          Visible = True
        end>
    end
  end
  object BitBtn1: TBitBtn
    Left = 360
    Top = 312
    Width = 75
    Height = 25
    Caption = '确定'
    Default = True
    ModalResult = 1
    TabOrder = 1
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 435
    Top = 312
    Width = 75
    Height = 25
    Cancel = True
    Caption = '取消'
    ModalResult = 2
    TabOrder = 2
    NumGlyphs = 2
  end
  object Qry_GXDWSJB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select DWDM,DWMC from TO_GXDWSJB')
    Left = 592
    Top = 82
  end
  object Qry_Five: TQuery
    CachedUpdates = True
    AfterScroll = Qry_FiveAfterScroll
    DatabaseName = 'yzpp'
    Filtered = True
    SQL.Strings = (
      
        'select  DISTINCT A.DWDM ,B.DWJC DWMC,A.ZT from TY_JJWXQB A, TGS_' +
        'GXDWSJB B'
      'where A.DWDM=B.DWDM ')
    Left = 30
    Top = 90
    object Qry_FiveDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JJWXQB.DWDM'
      Size = 8
    end
    object Qry_FiveDWMC: TStringField
      FieldName = 'DWMC'
      Origin = 'YZPP.TGS_GXDWSJB.DWMC'
      Size = 40
    end
    object Qry_FiveZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TY_JJWXQB.ZT'
      Size = 1
    end
  end
  object DataSource5: TDataSource
    DataSet = Qry_Five
    Left = 58
    Top = 90
  end
  object Qry_Four: TQuery
    CachedUpdates = True
    AfterScroll = Qry_FourAfterScroll
    DatabaseName = 'yzpp'
    Filtered = True
    SQL.Strings = (
      'select  DISTINCT QLDH,DWDM,ZT from TY_JJWXQB')
    Left = 262
    Top = 66
  end
  object DataSource4: TDataSource
    DataSet = Qry_Four
    Left = 296
    Top = 67
  end
  object Qry_Second: TQuery
    AutoCalcFields = False
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select PPMC,TDM,XQZTS,DWDM from TY_JJWXQB')
    Left = 254
    Top = 154
    object Qry_SecondPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TY_JJWXQB.PPMC'
      Size = 60
    end
    object Qry_SecondTDM: TStringField
      FieldName = 'TDM'
      Origin = 'YZPP.TY_JJWXQB.TDM'
      Size = 13
    end
    object Qry_SecondXQZTS: TFloatField
      FieldName = 'XQZTS'
      Origin = 'YZPP.TY_JJWXQB.XQZTS'
      DisplayFormat = '#,##'
    end
  end
  object DataSource3: TDataSource
    DataSet = Qry_Second
    Left = 288
    Top = 155
  end
end