ss_zzjd.dfm

省级集邮品管理ERP

object Frm_ZZJD: TFrm_ZZJD
  Left = 74
  Top = 75
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '集邮票总帐校对'
  ClientHeight = 458
  ClientWidth = 691
  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 pnl_Top: TPanel
    Left = 0
    Top = 0
    Width = 691
    Height = 48
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object rxlbl_Title: TRxLabel
      Left = 1
      Top = 1
      Width = 689
      Height = 24
      Align = alTop
      Alignment = taCenter
      Caption = '集邮票总帐校对'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DWMC: TLabel
      Left = 11
      Top = 30
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object pnl_Option: TPanel
    Left = 0
    Top = 48
    Width = 691
    Height = 41
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 1
    object lbl_Sys_Use: TLabel
      Left = 22
      Top = 15
      Width = 84
      Height = 12
      Caption = '系统启用时间：'
    end
    object lbl_Sys_useYear: TLabel
      Left = 146
      Top = 15
      Width = 12
      Height = 12
      Caption = '年'
    end
    object lbl_Sys_UseMonth: TLabel
      Left = 185
      Top = 15
      Width = 12
      Height = 12
      Caption = '月'
    end
    object edt_Sys_use_Year: TEdit
      Left = 110
      Top = 11
      Width = 33
      Height = 20
      TabStop = False
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 0
      Text = '2000'
    end
    object edt_Sys_use_Month: TEdit
      Left = 157
      Top = 11
      Width = 25
      Height = 20
      TabStop = False
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 1
      Text = '12'
    end
    object pnl_HS: TPanel
      Left = 235
      Top = 7
      Width = 215
      Height = 28
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 2
      object rb_JJ_HS: TRadioButton
        Left = 12
        Top = 6
        Width = 83
        Height = 17
        Caption = '按进价核算'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = rb_JJ_HSClick
      end
      object rb_XJ_HS: TRadioButton
        Left = 114
        Top = 6
        Width = 85
        Height = 17
        Caption = '按销价核算'
        TabOrder = 1
        OnClick = rb_XJ_HSClick
      end
    end
  end
  object pnl_Body: TPanel
    Left = 0
    Top = 89
    Width = 691
    Height = 328
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 2
    object dbg_ZZJD: TDBGrid
      Left = 1
      Top = 1
      Width = 689
      Height = 326
      Align = alClient
      DataSource = ds_ZZJD
      PopupMenu = data.pm_Export
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '日期'
          Width = 49
          Visible = True
        end
        item
          Expanded = False
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '字 '
          Width = 26
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'zy'
          Title.Alignment = taCenter
          Title.Caption = '摘要'
          Width = 146
          Visible = True
        end
        item
          Expanded = False
          Title.Alignment = taCenter
          Title.Caption = '出入库单号'
          Width = 114
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'XJJSJE'
          Title.Alignment = taCenter
          Title.Caption = '增加/收进金额(元)'
          Width = 126
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JJJSJE'
          Title.Alignment = taCenter
          Title.Caption = '减少/销售金额(元)'
          Width = 117
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JJYE'
          Title.Alignment = taCenter
          Title.Caption = '余额(元)'
          Visible = True
        end>
    end
  end
  object pnl_Bottom: TPanel
    Left = 0
    Top = 417
    Width = 691
    Height = 41
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 3
    object bbtn_Print: TBitBtn
      Left = 484
      Top = 8
      Width = 75
      Height = 25
      Caption = '打印(&P)'
      TabOrder = 0
      OnClick = bbtn_PrintClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003388888888888888307777777777777708F33333333333338077777777777
        77708FFFFFFFFFFFFFF8000000000000000088888888888888880F7F7F7F7F7F
        7F708F333333333333F807F7F7F7F7F7F9F08F333333333338380F7F7F7F7F7F
        7F708FFFFFFFFFFFFFF8000000000000000088888888888888883330FFFFFFFF
        03333338F3FFFF3F8F333330F0000F0F03333338F88883838F333330FFFFFFFF
        03333338F3FF3FFF8F333330F00F000003333338F883888883333330FFFF0FF0
        33333338F3F38F3833333330F07F0F0333333338F8338F8333333330FFFF0033
        33333338FFFF8833333333300000033333333338888883333333}
      NumGlyphs = 2
    end
    object bbtn_Exit: TBitBtn
      Left = 589
      Top = 8
      Width = 75
      Height = 25
      Caption = '退出(&X)'
      TabOrder = 1
      Kind = bkClose
    end
  end
  object SQLStr: TSqlStrings
    jyp_Sql.Strings = (
      
        'Select JJZJJE/100 JJZJJE,XJZJJE/100 XJZJJE,JJJSJE/100 JJJSJE,XJJ' +
        'SJE/100 XJJSJE,JJYE/100 JJYE,XJYE/100 XJYE,:l_zy ZY From TYS_JYP' +
        'ZZYEB'
      'Where ND=:l_nd and YF=:l_yf')
    txp_Sql.Strings = (
      
        'Select JJZJJE/100 JJZJJE,XJZJJE/100 XJZJJE,JJJSJE/100 JJJSJE,XJJ' +
        'SJE/100 XJJSJE,JJYE/100 JJYE,XJYE/100 XJYE,:l_zy ZY From TYS_TXP' +
        'ZZYEB'
      'Where ND=:l_nd and YF=:l_yf')
    yp_Sql.Strings = (
      
        'Select JJZJJE/100 JJZJJE,XJZJJE/100 XJZJJE,JJJSJE/100 JJJSJE,XJJ' +
        'SJE/100 XJJSJE,JJYE/100 JJYE,XJYE/100 XJYE,:l_zy ZY From TYS_YPZ' +
        'ZYEB '
      'Where ND=:l_nd and YF=:l_yf')
    grp_Sql.Strings = (
      
        'Select JJZJJE/100 JJZJJE,XJZJJE/100 XJZJJE,JJJSJE/100 JJJSJE,XJJ' +
        'SJE/100 XJJSJE,JJYE/100 JJYE,XJYE/100 XJYE,:l_zy ZY From TYS_GRP' +
        'ZZYEB'
      'Where ND=:l_nd and YF=:l_yf')
    Left = 484
    Top = 56
  end
  object qry_Tmp: TQuery
    DatabaseName = 'yzpp'
    Left = 514
    Top = 56
  end
  object qry_ZZJD: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'Select JJZJJE,XJZJJE,JJJSJE,XJJSJE,JJYE,XJYE,:l_zy ZY From TYS_J' +
        'YPZZYEB')
    Left = 542
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'l_zy'
        ParamType = ptUnknown
      end>
  end
  object ds_ZZJD: TDataSource
    DataSet = qry_ZZJD
    Left = 570
    Top = 56
  end
end