selectgatheringfrm.~dfm

群星医药系统源码

object FrmSelectGathering: TFrmSelectGathering
  Left = 257
  Top = 187
  BorderStyle = bsDialog
  Caption = #23458#25143#24212#25910#27454#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 = #24212#25910#27454#21333#25454
      object dbgGathering: TxDBGridEh
        Left = 0
        Top = 0
        Width = 716
        Height = 382
        Align = alClient
        DataSource = DsSelectGathering
        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 = 'CustNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'CustName'
            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#25910#27454#21333#25454#26126#32454
      object dbgGatheringDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 716
        Height = 382
        Align = alClient
        DataSource = DsSelectGatheringDtl
        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 = dbgGatheringDtlDblClick
        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 = 'UnPaid'
            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 = 39
      Width = 60
      Height = 13
      Caption = #32456#27490#26085#26399#65306
    end
    object ckProvNo: TRzCheckBox
      Left = 12
      Top = 39
      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 = 11
      Width = 79
      Height = 17
      AlignmentVertical = avBottom
      Caption = #24080#27454#21333#21495#65306
      HotTrack = True
      State = cbUnchecked
      TabOrder = 0
    end
    object ckDate: TRzCheckBox
      Left = 244
      Top = 39
      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 = 36
      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)'