⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sy_ckjhdzd_xzpp.dfm

📁 省级集邮品管理ERP
💻 DFM
字号:
object FrmY_CKJHDZD_XZPP: TFrmY_CKJHDZD_XZPP
  Left = 132
  Top = 197
  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 = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 355
    Top = 11
    Width = 48
    Height = 12
    Caption = '库房号:'
  end
  object Label4: TLabel
    Left = 11
    Top = 11
    Width = 24
    Height = 12
    Caption = '查找'
  end
  object BitBtn1: TBitBtn
    Left = 360
    Top = 312
    Width = 75
    Height = 25
    Caption = '确定'
    Default = True
    ModalResult = 1
    TabOrder = 0
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 435
    Top = 312
    Width = 75
    Height = 25
    Cancel = True
    Caption = '取消'
    ModalResult = 2
    TabOrder = 1
    NumGlyphs = 2
  end
  object Edit1: TEdit
    Left = 40
    Top = 6
    Width = 89
    Height = 20
    ImeName = '微软拼音输入法 3.0'
    MaxLength = 10
    TabOrder = 2
    OnChange = Edit1Change
  end
  object CB_KFB: TFieldComboBox
    Left = 407
    Top = 6
    Width = 120
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 3
    OnChange = CB_KFBChange
  end
  object DBG_PP: TDBGrid
    Left = 5
    Top = 32
    Width = 532
    Height = 272
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    PopupMenu = data.pm_Export
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'KFMC'
        Title.Alignment = taCenter
        Title.Caption = '库房'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZH'
        Title.Alignment = taCenter
        Title.Caption = '志号'
        Width = 47
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PPMC'
        Title.Alignment = taCenter
        Title.Caption = '票品名称'
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JJ'
        Title.Alignment = taCenter
        Title.Caption = '进价(元)'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'XJ'
        Title.Alignment = taCenter
        Title.Caption = '销价(元)'
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZK'
        Title.Alignment = taCenter
        Title.Caption = '折扣'
        Width = 38
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSJ'
        Title.Alignment = taCenter
        Title.Caption = '结算价'
        Width = 48
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TS'
        Title.Alignment = taCenter
        Title.Caption = '套数'
        Width = 59
        Visible = True
      end>
  end
  object Qry_Static: 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 = 212
    Top = 164
    object Qry_StaticZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPTXXB.ZH'
      Size = 11
    end
    object Qry_StaticPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TB_YZPPTXXB.TMC'
      Size = 60
    end
    object Qry_StaticKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TYS_JYPPKC.KFDM'
      Size = 3
    end
    object Qry_StaticKWH: TStringField
      FieldName = 'KWH'
      Origin = 'YZPP.TYS_JYPPKC.KWH'
      Size = 30
    end
    object Qry_StaticJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TYS_JYPPKC.JJ'
      OnGetText = Qry_StaticJJGetText
    end
    object Qry_StaticYJ: TFloatField
      FieldName = 'YJ'
      Origin = 'YZPP.TYS_JYPPKC.YJ'
    end
    object Qry_StaticXJ: TFloatField
      FieldName = 'XJ'
      Origin = 'YZPP.TYS_JYPPKC.XJ'
      OnGetText = Qry_StaticJJGetText
    end
    object Qry_StaticTS: TFloatField
      FieldName = 'TS'
      Origin = 'YZPP.TYS_JYPPKC.TS'
      DisplayFormat = '#,##'
    end
    object Qry_StaticBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TYS_JYPPKC.BZ'
      Size = 40
    end
    object Qry_StaticKFMC: TStringField
      FieldKind = fkLookup
      FieldName = 'KFMC'
      LookupDataSet = Qry_KFB
      LookupKeyFields = 'KFDM'
      LookupResultField = 'KFMC'
      KeyFields = 'KFDM'
      Lookup = True
    end
    object Qry_StaticZK: TFloatField
      FieldName = 'ZK'
      Origin = 'YZPP.TYS_JYPPKC.ZK'
    end
    object Qry_StaticJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'YZPP.TYS_JYPPKC.JSJ'
      OnGetText = Qry_StaticJJGetText
    end
    object Qry_StaticPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TYS_YPPKC.PPDM'
      Size = 15
    end
  end
  object DataSource1: TDataSource
    DataSet = Qry_Static
    Left = 240
    Top = 164
  end
  object Qry_KFB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'SELECT * FROM TGS_KFB')
    Left = 244
    Top = 68
    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_Static1: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'SELECT A.ZH ZH ,A.TMC PPMC ,A.JHH JHH,B.PPDM PPDM ,B.KFDM KFDM,B' +
        '.KWH KWH ,B.JJ JJ ,B.YJ YJ ,B.XJ XJ ,B.TS TS ,B.BZ BZ FROM TB_YZ' +
        'PPTXXB A,TYS_GRPPKC B WHERE A.TDM=B.PPDM ')
    Left = 92
    Top = 172
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -