cpkccx.~dfm

仓库管理信息系统

object frm_cpkccx: Tfrm_cpkccx
  Left = 189
  Top = 92
  AutoScroll = False
  Caption = '产品库存查询'
  ClientHeight = 424
  ClientWidth = 700
  Color = clActiveBorder
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 79
    Width = 700
    Height = 326
    Align = alClient
    DataSource = dm.cshds_cpkc
    Flat = True
    FooterColor = 16439211
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = '宋体'
    FooterFont.Style = []
    FooterRowCount = 1
    FrozenCols = 2
    PopupMenu = PopupMenu1
    ReadOnly = True
    SumList.Active = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    UseMultiTitle = True
    Columns = <
      item
        Color = 16773102
        DblClickNextVal = True
        EditButtons = <>
        FieldName = '产品id'
        Footers = <>
      end
      item
        Color = 16773102
        DblClickNextVal = True
        EditButtons = <>
        FieldName = '名称规格'
        Footers = <>
        Width = 207
      end
      item
        Color = clWhite
        DblClickNextVal = True
        EditButtons = <>
        FieldName = '单位'
        Footers = <>
        Width = 34
      end
      item
        EditButtons = <>
        FieldName = '初始余量'
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = '初始余额'
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = '进仓数量'
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = '进仓金额'
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = '出仓数量'
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = '出仓金额'
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = '库存数量'
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = '库存金额'
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        Color = clWhite
        EditButtons = <>
        FieldName = '分类'
        Footers = <>
      end
      item
        Color = clWhite
        EditButtons = <>
        FieldName = '备注'
        Footers = <>
      end>
  end
  object stb: TStatusBar
    Left = 0
    Top = 405
    Width = 700
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 700
    Height = 79
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 197
      Top = 0
      Width = 503
      Height = 79
      Align = alClient
      Caption = '查询项'
      TabOrder = 0
      object Label8: TLabel
        Left = 19
        Top = 20
        Width = 40
        Height = 13
        Caption = '产品ID'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 168
        Top = 19
        Width = 26
        Height = 13
        Caption = '分类'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 30
        Top = 55
        Width = 59
        Height = 13
        Caption = '数量\金额'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 62
        Top = 16
        Width = 89
        Height = 21
        TabOrder = 0
      end
      object Panel1: TPanel
        Left = 335
        Top = 8
        Width = 148
        Height = 68
        BevelInner = bvLowered
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 1
        object Label4: TLabel
          Left = 4
          Top = 27
          Width = 140
          Height = 13
          Caption = '--------------------'
        end
        object DBNavigator1: TDBNavigator
          Left = 4
          Top = 38
          Width = 140
          Height = 25
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
          Hints.Strings = (
            '第一条'
            '前一条'
            '下一条'
            '最后一条'
            '增加'
            '删除'
            '修改'
            '保存'
            '取消'
            '刷新')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object Button1: TButton
          Left = 80
          Top = 2
          Width = 67
          Height = 25
          Caption = ' 退出'
          TabOrder = 1
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 1
          Top = 2
          Width = 67
          Height = 25
          Caption = '执行查询'
          TabOrder = 2
          OnClick = Button2Click
        end
      end
      object slcb1: TComboBox
        Left = 178
        Top = 51
        Width = 40
        Height = 21
        BevelKind = bkTile
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ImeName = '王码五笔型'
        ItemHeight = 13
        ItemIndex = 0
        ParentFont = False
        TabOrder = 2
        Text = '>'
        Items.Strings = (
          '>'
          '='
          '<'
          '>='
          '<=')
      end
      object sled1: TSpinEdit
        Left = 218
        Top = 51
        Width = 67
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        MaxValue = 0
        MinValue = 0
        ParentFont = False
        TabOrder = 3
        Value = 0
      end
      object slxx1: TComboBox
        Left = 97
        Top = 51
        Width = 81
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 4
        Items.Strings = (
          ''
          '初始余量'
          '初始余额'
          '进仓数量'
          '进仓金额'
          '出仓数量'
          '出仓金额'
          '库存数量'
          '库存金额')
      end
      object dblkbox: TDBLookupComboboxEh
        Left = 197
        Top = 16
        Width = 121
        Height = 21
        EditButtons = <>
        KeyField = '类型ID'
        ListField = '类型名称'
        ListSource = dm.whcllxdmds
        TabOrder = 5
        Visible = True
      end
    end
    object GroupBox2: TGroupBox
      Left = 0
      Top = 0
      Width = 197
      Height = 79
      Align = alLeft
      Caption = '选择年份'
      TabOrder = 1
      object Label3: TLabel
        Left = 10
        Top = 22
        Width = 33
        Height = 13
        Caption = '年份:'
      end
      object jzts: TLabel
        Left = 7
        Top = 54
        Width = 169
        Height = 13
        Caption = '当年数据未结转，可重新整理'
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object nf_spe: TSpinEdit
        Left = 44
        Top = 17
        Width = 60
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        MaxValue = 0
        MinValue = 0
        ParentFont = False
        TabOrder = 0
        Value = 0
        OnChange = nf_speChange
      end
      object BitBtn1: TBitBtn
        Left = 114
        Top = 16
        Width = 75
        Height = 25
        Caption = '整理'
        TabOrder = 1
        OnClick = BitBtn1Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 
      'Microsoft Excel Workbook (*.xls)|*.XLS|Comma separated values (*' +
      '.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.R' +
      'TF|Text files (*.txt)|*.TXT'
    InitialDir = 'd:'
    Left = 234
    Top = 198
  end
  object MYPDBGEh: TPrintDBGridEh
    Options = [pghFitGridToPageWidth, pghRowAutoStretch]
    Page.BottomMargin = 2
    Page.LeftMargin = 2
    Page.RightMargin = 2
    Page.TopMargin = 2
    PageFooter.CenterText.Strings = (
      '  第 &[Page] 页       ')
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -13
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageFooter.LeftText.Strings = (
      '')
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -24
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    PrintFontName = '宋体'
    Units = MM
    Left = 303
    Top = 196
    BeforeGridText_Data = {
      7B5C727466315C616E73695C616E73696370673933365C64656666305C646566
      6C616E67313033335C6465666C616E676665323035327B5C666F6E7474626C7B
      5C66305C666E696C5C6663686172736574313334205C2763625C2763655C2763
      635C2765353B7D7D0D0A5C766965776B696E64345C7563315C706172645C7163
      5C6C616E67323035325C66305C6673343020255B62745D202020202020202020
      2020202020202020202020202020202020202020202020202020202020202020
      202020200D0A5C706172205C667332345C2762345C2766325C2764335C276131
      5C2763385C2764355C2763365C2764615C6C616E6731303333203A5C6C616E67
      32303532202020255B546F6461795D2020200D0A5C706172205C706172642025
      5B746A5D2020200D0A5C706172207D0D0A00}
    AfterGridText_Data = {
      7B5C727466315C616E73695C616E73696370673933365C64656666305C646566
      6C616E67313033335C6465666C616E676665323035327B5C666F6E7474626C7B
      5C66305C666E696C5C6663686172736574313334204D532053616E7320536572
      69663B7D7D0D0A5C766965776B696E64345C7563315C706172645C71635C6C61
      6E67323035325C66305C667332345C2764365C2763365C2762315C2765645C27
      63385C2763625C2761335C276261202020202020202020202020202020202020
      2020202020202020202020202020202020202020202020202020202020202020
      5C2763395C2766335C2762615C2763625C66733136200D0A5C706172207D0D0A
      00}
  end
  object PopupMenu1: TPopupMenu
    Left = 369
    Top = 193
    object N2: TMenuItem
      Action = FontEdit1
      Caption = '字体设置'
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N6: TMenuItem
      Action = FilePrintSetup1
      Caption = '打印设置'
    end
    object PrintSetup1: TMenuItem
      Action = PrintDlg1
      Caption = '打印'
    end
    object N1: TMenuItem
      Caption = '打印预览'
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = '导出数据'
      OnClick = N4Click
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object N8: TMenuItem
      Caption = '隐藏列'
      OnClick = N8Click
    end
    object N9: TMenuItem
      Caption = '取消隐藏'
      OnClick = N9Click
    end
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
      end>
    Left = 192
    Top = 197
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = '剪切'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = '复制'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = '粘贴'
      ImageIndex = 2
      ShortCut = 16470
    end
    object EditDelete1: TEditDelete
      Category = 'Edit'
      Caption = '&Delete'
      Hint = 'Delete|Erases the selection'
      ImageIndex = 5
      ShortCut = 46
    end
    object FilePrintSetup1: TFilePrintSetup
      Category = 'File'
      Caption = 'Print Set&up...'
      Hint = 'Print Setup'
      ImageIndex = 19
    end
    object FontEdit1: TFontEdit
      Category = 'Dialog'
      Caption = 'Select &Font...'
      Dialog.Font.Charset = DEFAULT_CHARSET
      Dialog.Font.Color = clWindowText
      Dialog.Font.Height = -11
      Dialog.Font.Name = 'MS Sans Serif'
      Dialog.Font.Style = []
      Dialog.MinFontSize = 0
      Dialog.MaxFontSize = 0
      Hint = '字体'
      ImageIndex = 21
      OnAccept = FontEdit1Accept
    end
    object ColorSelect1: TColorSelect
      Category = 'Dialog'
      Caption = 'Select &Color...'
      Dialog.Ctl3D = True
      Hint = '颜色'
      ImageIndex = 22
    end
    object PrintDlg1: TPrintDlg
      Category = 'Dialog'
      Caption = '&Print...'
      ImageIndex = 20
      ShortCut = 16464
    end
  end
end