pzhgen.dfm

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 1,153 行 · 第 1/3 页

inherited frmPzhGen: TfrmPzhGen
  Left = 73
  Top = 54
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = '凭证单自动生成'
  ClientHeight = 489
  ClientWidth = 697
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 467
    Width = 697
  end
  object PanelRight: TPanel
    Left = 0
    Top = 0
    Width = 697
    Height = 467
    Align = alClient
    Caption = ' '
    TabOrder = 1
    object pgcVoAct: TPageControl
      Left = 1
      Top = 1
      Width = 695
      Height = 465
      ActivePage = tsPz
      Align = alClient
      TabOrder = 0
      object tsVoAct: TTabSheet
        Caption = '凭证事物'
        ImageIndex = 2
        object Label1: TLabel
          Left = 10
          Top = 65
          Width = 54
          Height = 12
          Caption = '所属模块:'
        end
        object Bevel1: TBevel
          Left = 2
          Top = 382
          Width = 681
          Height = 16
          Anchors = [akLeft, akRight, akBottom]
          Shape = bsBottomLine
        end
        object Label11: TLabel
          Left = 10
          Top = 100
          Width = 54
          Height = 12
          Caption = '凭证事物:'
        end
        object clbVoAct: TCheckListBox
          Left = 10
          Top = 120
          Width = 460
          Height = 183
          Columns = 3
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 1
        end
        object scVocActModule: TSDComboBox
          Left = 70
          Top = 60
          Width = 160
          Height = 20
          Style = csDropDownList
          DropDownCount = 10
          ItemHeight = 12
          TabOrder = 0
          OnChange = scVocActModuleChange
          KeyItem = cbItem2
        end
        object btnVoNext: TBitBtn
          Left = 495
          Top = 406
          Width = 75
          Height = 22
          Anchors = [akRight, akBottom]
          Caption = '下一步(&N) >'
          TabOrder = 6
          OnClick = btnVoNextClick
          NumGlyphs = 2
        end
        object btnCancel: TBitBtn
          Left = 590
          Top = 406
          Width = 75
          Height = 22
          Anchors = [akRight, akBottom]
          Caption = '取消(&C)'
          TabOrder = 7
          OnClick = btnCancelClick
          Kind = bkCancel
        end
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 687
          Height = 36
          Align = alTop
          BevelOuter = bvNone
          Caption = ' '
          Color = clHighlightText
          TabOrder = 5
          object Label12: TLabel
            Left = 35
            Top = 15
            Width = 180
            Height = 12
            Caption = '选择需要生成自动凭证的凭证事物'
          end
          object Shape1: TShape
            Left = 10
            Top = 10
            Width = 16
            Height = 16
            Brush.Color = clRed
            Shape = stCircle
          end
        end
        object GroupBox1: TGroupBox
          Left = 480
          Top = 115
          Width = 191
          Height = 188
          Caption = 'ERP来源单据过滤条件'
          TabOrder = 4
          object Label2: TLabel
            Left = 55
            Top = 109
            Width = 18
            Height = 12
            Caption = '从:'
          end
          object Label8: TLabel
            Left = 55
            Top = 139
            Width = 18
            Height = 12
            Caption = '到:'
          end
          object deFrom: TDateEdit
            Left = 76
            Top = 106
            Width = 100
            Height = 20
            LineOffset = 2
            LineColor = clGreen
            LineVisible = False
            CDate = '2003-05-08'
            InitDate = '2003-05-08 08:30:47'
            ModalResult = 0
            TabOrder = 2
            Color = -2113929211
          end
          object deTo: TDateEdit
            Left = 76
            Top = 136
            Width = 100
            Height = 20
            LineOffset = 2
            LineColor = clGreen
            LineVisible = False
            CDate = '2003-05-08'
            InitDate = '2003-05-08 08:30:47'
            ModalResult = 0
            TabOrder = 3
            Color = -2113929211
          end
          object rbFMonth: TRadioButton
            Left = 16
            Top = 59
            Width = 141
            Height = 22
            Caption = '当前财务月份内的单据'
            Checked = True
            TabOrder = 0
            TabStop = True
            OnClick = rbFMonthClick
          end
          object rbSpecDate: TRadioButton
            Left = 16
            Top = 81
            Width = 113
            Height = 22
            Caption = '指定期间内的单据'
            TabOrder = 1
            OnClick = rbSpecDateClick
          end
          object cbWhere: TCheckBox
            Left = 5
            Top = 15
            Width = 156
            Height = 17
            Caption = '指定来源单据的条件范围'
            Checked = True
            State = cbChecked
            TabOrder = 4
            Visible = False
            OnClick = cbWhereClick
          end
        end
        object BitBtn1: TBitBtn
          Left = 20
          Top = 356
          Width = 75
          Height = 22
          Anchors = [akRight, akBottom]
          Caption = '全选(&A)'
          TabOrder = 2
          OnClick = BitBtn1Click
          Glyph.Data = {
            F2010000424DF201000000000000760000002800000024000000130000000100
            0400000000007C01000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
            3333333333388F3333333333000033334224333333333333338338F333333333
            0000333422224333333333333833338F33333333000033422222243333333333
            83333338F3333333000034222A22224333333338F33F33338F33333300003222
            A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
            38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
            2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
            0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
            333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
            33333A2224A2233333333338F338F83300003333333333A2224A333333333333
            8F338F33000033333333333A222433333333333338F338F30000333333333333
            A224333333333333338F38F300003333333333333A223333333333333338F8F3
            000033333333333333A3333333333333333383330000}
          NumGlyphs = 2
        end
        object btnUnSelectedAll: TBitBtn
          Left = 105
          Top = 356
          Width = 75
          Height = 22
          Anchors = [akRight, akBottom]
          Caption = '清除(&C)'
          TabOrder = 3
          OnClick = btnUnSelectedAllClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333333333333333333333333FFF33FF333FFF339993370733
            999333777FF37FF377733339993000399933333777F777F77733333399970799
            93333333777F7377733333333999399933333333377737773333333333990993
            3333333333737F73333333333331013333333333333777FF3333333333910193
            333333333337773FF3333333399000993333333337377737FF33333399900099
            93333333773777377FF333399930003999333337773777F777FF339993370733
            9993337773337333777333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
        end
      end
      object tsBill: TTabSheet
        Caption = '来源单据'
        object Label9: TLabel
          Left = 10
          Top = 370
          Width = 54
          Height = 12
          Caption = '数据浏览:'
        end
        object Bevel3: TBevel
          Left = 7
          Top = 382
          Width = 681
          Height = 16
          Anchors = [akRight, akBottom]
          Shape = bsBottomLine
        end
        object Label15: TLabel
          Left = 4
          Top = 46
          Width = 104
          Height = 12
          Caption = '来源单据主表视图'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
          Layout = tlBottom
        end
        object sgBill: TSDGrid
          Left = 0
          Top = 60
          Width = 687
          Height = 302
          ColCount = 8
          Ctl3D = False
          DefaultRowHeight = 18
          FixedColor = 8564917
          FixedCols = 0
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
          ParentCtl3D = False
          TabOrder = 0
          SelectColor = 12615680
          Columns = <
            item
              ColumnFont.Charset = DEFAULT_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = -12
              ColumnFont.Name = '宋体'
              ColumnFont.Style = []
              TitleString = '单据号'
              ColumnWidth = 0
            end
            item
              ColumnFont.Charset = DEFAULT_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = -12
              ColumnFont.Name = '宋体'
              ColumnFont.Style = []
              TitleString = '单据说明'
              ColumnWidth = 0
            end
            item
              ColumnFont.Charset = DEFAULT_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = -12
              ColumnFont.Name = '宋体'
              ColumnFont.Style = []
              TitleString = '制单日期'
              ColumnWidth = 0
            end
            item
              ColumnFont.Charset = DEFAULT_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = -12
              ColumnFont.Name = '宋体'
              ColumnFont.Style = []
              TitleString = '制单人'
              ColumnWidth = 0
            end
            item
              ColumnFont.Charset = GB2312_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = -12
              ColumnFont.Name = '宋体'
              ColumnFont.Style = []
              TitleString = '审核'
              ColumnWidth = 0
            end
            item
              ColumnFont.Charset = GB2312_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = -12
              ColumnFont.Name = '宋体'
              ColumnFont.Style = []
              TitleString = '审核人'
              ColumnWidth = 0
            end
            item
              ColumnFont.Charset = GB2312_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = -12
              ColumnFont.Name = '宋体'
              ColumnFont.Style = []
              TitleString = '审核日期'
              ColumnWidth = 0
            end
            item
              ColumnFont.Charset = GB2312_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = -12
              ColumnFont.Name = '宋体'
              ColumnFont.Style = []