selectpchreceive1frm.dfm

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

object FrmSelectPchReceive1: TFrmSelectPchReceive1
  Left = 266
  Top = 225
  BorderStyle = bsDialog
  Caption = #26597#35810#20837#24211#36890#30693#21333#25968#25454
  ClientHeight = 469
  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 = 405
    ActivePage = TabSheet2
    Align = alClient
    ShowFocusRect = False
    TabIndex = 1
    TabOrder = 0
    FixedDimension = 19
    object TabSheet1: TRzTabSheet
      Caption = #20837#24211#36890#30693#21333#25454
      object dbgArrearage: TxDBGridEh
        Left = 0
        Top = 0
        Width = 716
        Height = 382
        Align = alClient
        DataSource = DsSelectPchReceive
        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 = 'ProvNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ProvName'
            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 = #20837#24211#36890#30693#21333#26126#32454
      object dbgArrearageDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 716
        Height = 382
        Align = alClient
        DataSource = DsSelectPchReceiveDtl
        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 = 'Unit'
            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 = 'BatchNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ProdDate'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ValidDate'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'WholeDepot'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'WholeDepotNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'WholeDepotName'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DepotID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DepotNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DepotName'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PItemNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PaidUp'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RetQty'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ProvGoodsID'
            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)'
      Color = 15791348
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      TabOrder = 11
      OnClick = RzBitBtn2Click
      DisabledIndex = 10
      ImageIndex = 1
      Images = ImageList1
    end
    object RzBitBtn1: TRzBitBtn
      Left = 620
      Top = 35
      Width = 78
      Caption = #36873#23450'(&S)'
      Color = 15791348
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      TabOrder = 12
      OnClick = RzBitBtn1Click
      DisabledIndex = 10
      ImageIndex = 0
      Images = ImageList1
    end
    object edProvNo: TRzEdit
      Left = 92
      Top = 37
      Width = 127
      Height = 21
      FrameHotStyle = fsFlat