selectselsendoutfrm.dfm

群星医药系统源码

object FrmSelectSelSendOut: TFrmSelectSelSendOut
  Left = 298
  Top = 206
  BorderStyle = bsDialog
  Caption = #20986#24211#36890#30693#21333#25968#25454#26597#35810
  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 = TabSheet1
    Align = alClient
    ShowFocusRect = False
    TabIndex = 0
    TabOrder = 0
    FixedDimension = 19
    object TabSheet1: TRzTabSheet
      Caption = #20986#24211#36890#30693#21333#25454
      object dbgArrearage: TxDBGridEh
        Left = 0
        Top = 0
        Width = 716
        Height = 382
        Align = alClient
        DataSource = DsSelectSelSendOut
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
        ReadOnly = True
        RowHeight = 16
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        TitleHeight = 15
        Columns = <
          item
            EditButtons = <>
            FieldName = 'BillNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'FDate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'CustNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'CustName'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'EmpNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Creater'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'CreateName'
            Footers = <>
            Title.Alignment = taCenter
          end>
      end
    end
    object TabSheet2: TRzTabSheet
      Caption = #20986#24211#36890#30693#21333#26126#32454
      object dbgArrearageDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 716
        Height = 382
        Align = alClient
        DataSource = DsSelectSelSendOutDtl
        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]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
        ReadOnly = True
        RowHeight = 16
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        TitleHeight = 15
        OnDblClick = dbgArrearageDtlDblClick
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Price'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'TaxRate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'UnTaxprice'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'GoodsSum'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'TaxSum'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'ProdDate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'ValidDate'
            Footers = <>
            Title.Alignment = taCenter
          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 = #23458#25143#21333#20301#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