pchexclude.dfm

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

            FieldName = 'Specs'
            Footers = <>
            ReadOnly = True
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            ReadOnly = True
          end
          item
            EditButtons = <>
            FieldName = 'CheckQty'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ExcludeQty'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ValidDate'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ExcludeCause'
            Footers = <>
            Width = 277
          end
          item
            EditButtons = <>
            FieldName = 'ProvGoodsID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Remark'
            Footers = <>
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 473
      Width = 778
      Height = 29
      DesignSize = (
        778
        29)
      object RzLabel21: TRzLabel
        Left = 14
        Top = 9
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #22791'  '#27880#65306
      end
      object RzLabel7: TRzLabel
        Left = 435
        Top = 9
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 483
        Top = 9
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'Creater'
        DataSource = DsPchExclude
      end
      object RzLabel16: TRzLabel
        Left = 562
        Top = 9
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 623
        Top = 9
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'CreatTime'
        DataSource = DsPchExclude
      end
      object RzDBEdit6: TRzDBEdit
        Left = 60
        Top = 5
        Width = 361
        Height = 19
        DataSource = DsPchExclude
        DataField = 'Remark'
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 558
    Top = 306
  end
  inherited ImageList1: TImageList
    Left = 409
    Top = 306
  end
  inherited ActionList1: TActionList
    Left = 484
    Top = 306
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmPchOrderQuery'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Visible = False
      ModuleFile = 'PurchBase.bpl;TFmPchCheckIn'
    end
    object ActFinish: TModlAction
      Category = 'Bill'
      Caption = #32467#26696
      ImageIndex = 28
      Visible = False
      Flag2 = 0
      Remark = 'R'
    end
  end
  inherited ImgPopMenu: TImageList
    Left = 328
    Top = 308
  end
  object DsPchExcludeDtl: TDataSource
    DataSet = CdsPchExcludeDtl
    Left = 417
    Top = 227
  end
  object CdsPchExcludeDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsPchExcludeAdsPchExcludeDtl
    IndexFieldNames = 'ItemNo'
    Params = <>
    BeforeInsert = CdsPchExcludeDtlBeforeInsert
    OnNewRecord = CdsPchExcludeDtlNewRecord
    Left = 322
    Top = 227
    object CdsPchExcludeDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchExcludeDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchExcludeDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsPchExcludeDtlGoodsIDChange
      Size = 16
    end
    object CdsPchExcludeDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsPchExcludeDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsPchExcludeDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsPchExcludeDtlCheckQty: TBCDField
      FieldName = 'CheckQty'
      Precision = 12
      Size = 3
    end
    object CdsPchExcludeDtlExcludeQty: TBCDField
      FieldName = 'ExcludeQty'
      Precision = 12
      Size = 3
    end
    object CdsPchExcludeDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchExcludeDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsPchExcludeDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object CdsPchExcludeDtlExcludeCause: TStringField
      FieldName = 'ExcludeCause'
      Size = 80
    end
    object CdsPchExcludeDtlProvGoodsID: TStringField
      FieldName = 'ProvGoodsID'
      Size = 16
    end
    object CdsPchExcludeDtlRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object DsPchExclude: TDataSource
    DataSet = CdsPchExclude
    Left = 237
    Top = 227
  end
  object CdsPchExclude: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'BillNo'
        ParamType = ptInput
        Value = 'null'
      end>
    ProviderName = 'DspPchExclude'
    RemoteServer = Comcnn
    AfterScroll = CdsPchExcludeAfterScroll
    OnNewRecord = CdsPchExcludeNewRecord
    OnReconcileError = CdsPchExcludeReconcileError
    Left = 155
    Top = 224
    object CdsPchExcludeBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchExcludeFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsPchExcludePBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsPchExcludeEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = CdsPchExcludeEmpNOChange
      Size = 8
    end
    object CdsPchExcludeEmpName: TStringField
      FieldName = 'EmpName'
      ProviderFlags = []
      Size = 12
    end
    object CdsPchExcludeProvNo: TStringField
      FieldName = 'ProvNo'
      OnChange = CdsPchExcludeProvNOChange
      Size = 8
    end
    object CdsPchExcludeProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object CdsPchExcludeLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsPchExcludeProvAddr: TStringField
      FieldName = 'ProvAddr'
      Size = 40
    end
    object CdsPchExcludeCarrKind: TStringField
      FieldName = 'CarrKind'
      Size = 12
    end
    object CdsPchExcludeCarrAddr: TStringField
      FieldName = 'CarrAddr'
      Size = 16
    end
    object CdsPchExcludeRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
    object CdsPchExcludeInvoice: TStringField
      FieldName = 'Invoice'
      Size = 12
    end
    object CdsPchExcludeAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsPchExcludeTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsPchExcludeCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsPchExcludeCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsPchExcludeMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsPchExcludeUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object CdsPchExcludeGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsPchExcludeAdsPchExcludeDtl: TDataSetField
      FieldName = 'AdsPchExcludeDtl'
    end
  end
  object Comcnn: TDCOMConnection
    ServerGUID = '{61EFC14A-805A-4497-9C53-2707D0E83759}'
    ServerName = 'CKPurchInBase.PurchInRDM'
    Left = 63
    Top = 227
  end
end