selectarrearagefrm.dfm

来自「医药连锁经营管理系统源码」· DFM 代码 · 共 671 行 · 第 1/2 页

object FrmSelectArrearage: TFrmSelectArrearage
  Left = 244
  Top = 124
  BorderStyle = bsDialog
  Caption = #21378#21830#24212#20184#27454#26597#35810
  ClientHeight = 509
  ClientWidth = 720
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object RzPageControl1: TRzPageControl
    Left = 0
    Top = 64
    Width = 720
    Height = 445
    ActivePage = TabSheet1
    Align = alClient
    ShowFocusRect = False
    TabIndex = 0
    TabOrder = 0
    FixedDimension = 19
    object TabSheet1: TRzTabSheet
      Caption = #24212#20184#27454#21333#25454
      object dbgArrearage: TxDBGridEh
        Left = 0
        Top = 0
        Width = 716
        Height = 422
        Align = alClient
        DataSource = DsSelectArrearage
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'BillNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'FDate'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'InOutKind'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DepartID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DepartNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DepartName'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ProvNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ProvName'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'LinkMan'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'EmpNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Creater'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'CreateName'
            Footers = <>
          end>
      end
    end
    object TabSheet2: TRzTabSheet
      Caption = #24212#20184#27454#21333#25454#26126#32454
      object dbgArrearageDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 716
        Height = 422
        Align = alClient
        DataSource = DsSelectArrearageDtl
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = dbgArrearageDtlDblClick
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Price'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'TaxRate'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'UnTaxPrice'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'GoodsSum'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'TaxSum'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'CostPrice'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'CostAmount'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PItemNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PaidUp'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PayDone'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PayDoneDate'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Remark'
            Footers = <>
          end>
      end
    end
  end
  object RzPanel1: TRzPanel
    Left = 0
    Top = 0
    Width = 720
    Height = 64
    Align = alTop
    BorderInner = fsFlat
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdRight, sdBottom]
    ParentColor = True
    TabOrder = 1
    object Label1: TLabel
      Left = 440
      Top = 38
      Width = 60
      Height = 13
      Caption = #32456#27490#26085#26399#65306
    end
    object ckProvNo: TRzCheckBox
      Left = 12
      Top = 38
      Width = 79
      Height = 17
      AlignmentVertical = avBottom
      Caption = #20379#24212#21378#21830#65306
      HotTrack = True
      State = cbUnchecked
      TabOrder = 6
    end
    object ckBillNo: TRzCheckBox
      Left = 12
      Top = 9
      Width = 79
      Height = 17
      AlignmentVertical = avBottom
      Caption = #21333#25454#32534#21495#65306
      HotTrack = True
      State = cbUnchecked
      TabOrder = 0
    end
    object ckDate: TRzCheckBox
      Left = 244
      Top = 38
      Width = 79
      Height = 17
      AlignmentVertical = avBottom
      Caption = #36215#22987#26085#26399#65306
      HotTrack = True
      State = cbUnchecked
      TabOrder = 8
    end
    object dtpBeginDate: TRzDateTimePicker
      Left = 322
      Top = 37
      Width = 93
      Height = 19
      Date = 37588.844066493060000000
      Time = 37588.844066493060000000
      TabOrder = 9
      FlatButtons = True
      FrameHotStyle = fsFlat
      FrameVisible = True
    end
    object dtpEndDate: TRzDateTimePicker
      Left = 504
      Top = 37
      Width = 103
      Height = 19
      Date = 37588.844066493060000000
      Time = 37588.844066493060000000
      TabOrder = 10
      FlatButtons = True
      FrameHotStyle = fsFlat
      FrameVisible = True
    end
    object RzBitBtn2: TRzBitBtn
      Left = 620
      Top = 6
      Width = 78
      Caption = #26597#35810'(&Q)'