stockinfm.~dfm

来自「群星医药系统源码」· ~DFM 代码 · 共 815 行 · 第 1/2 页

          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 49
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
            Title.Alignment = taCenter
            Width = 54
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'Price'
            Footers = <>
            Title.Alignment = taCenter
            Width = 69
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 72
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'BerthNo'
            Footers = <>
            Title.Alignment = taCenter
            Width = 55
          end
          item
            EditButtons = <>
            FieldName = 'GroupNo'
            Footers = <>
            Title.Alignment = taCenter
            Width = 63
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
            Title.Alignment = taCenter
            Width = 73
          end
          item
            EditButtons = <>
            FieldName = 'ProdDate'
            Footers = <>
            Title.Alignment = taCenter
            Width = 81
          end
          item
            EditButtons = <>
            FieldName = 'ValidDate'
            Footers = <>
            Title.Alignment = taCenter
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'Quality'
            Footers = <>
            PickList.Strings = (
              #21512#26684
              #19981#21512#26684)
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PItemNO'
            Footers = <>
            Title.Alignment = taCenter
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 430
      Width = 756
      Height = 32
      TabOrder = 0
      object Label11: TLabel
        Left = 580
        Top = 10
        Width = 36
        Height = 12
        Caption = #37329#39069#65306
      end
      object Label22: TLabel
        Left = 28
        Top = 10
        Width = 36
        Height = 12
        Caption = #22791#27880#65306
      end
      object Label9: TLabel
        Left = 400
        Top = 10
        Width = 60
        Height = 12
        Caption = #36135#21697#24635#25968#65306
      end
      object RzDBEdit21: TRzDBEdit
        Tag = -1
        Left = 617
        Top = 6
        Width = 104
        Height = 20
        DataSource = DsStockIn
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        Color = clWhite
        Ctl3D = True
        DisabledColor = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FrameHotStyle = fsFlat
        FrameVisible = True
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
      end
      object RzDBEdit10: TRzDBEdit
        Left = 68
        Top = 6
        Width = 293
        Height = 20
        DataSource = DsStockIn
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBEdit4: TRzDBEdit
        Tag = -1
        Left = 461
        Top = 6
        Width = 96
        Height = 20
        DataSource = DsStockIn
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        Color = clWhite
        Ctl3D = True
        DisabledColor = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FrameHotStyle = fsFlat
        FrameVisible = True
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 2
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 56
    Top = 196
  end
  inherited ImageList1: TImageList
    Left = 156
    Top = 196
  end
  inherited ActionList1: TActionList
    Left = 224
    Top = 196
    inherited ActInsert: TModlAction
      Visible = False
    end
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmStockInQry'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Visible = False
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 268
    Top = 296
  end
  inherited ImgPopMenu: TImageList
    Left = 348
    Top = 384
  end
  object CdsStockIn: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptInput
      end>
    ProviderName = 'DspStockIn'
    RemoteServer = DComConn
    AfterScroll = CdsStockInAfterScroll
    OnNewRecord = CdsStockInNewRecord
    OnReconcileError = CdsStockInReconcileError
    Left = 389
    Top = 217
    object CdsStockInBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsStockInFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsStockInDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsStockInDepotNo: TStringField
      FieldName = 'DepotNo'
      ProviderFlags = []
      OnChange = CdsStockInDepotNoChange
      Size = 12
    end
    object CdsStockInDepotName: TStringField
      FieldName = 'DepotName'
      ProviderFlags = []
    end
    object CdsStockInProvNo: TStringField
      FieldName = 'ProvNo'
      OnChange = CdsStockInProvNoChange
      Size = 8
    end
    object CdsStockInProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object CdsStockInPBillNO: TStringField
      FieldName = 'PBillNO'
    end
    object CdsStockInInOutKind: TIntegerField
      FieldName = 'InOutKind'
    end
    object CdsStockInEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = CdsStockInEmpNoChange
      Size = 8
    end
    object CdsStockInName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object CdsStockInAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsStockInGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsStockInGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsStockInRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
    object CdsStockInTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsStockInAdsStockInDtl: TDataSetField
      FieldName = 'AdsStockInDtl'
    end
    object CdsStockInCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsStockInMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsStockInGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsStockInCreattime: TDateTimeField
      FieldName = 'Creattime'
    end
  end
  object DsStockIn: TDataSource
    DataSet = CdsStockIn
    Left = 481
    Top = 217
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{57AB7479-B28A-45CE-B53F-F46EEAA34744}'
    ServerName = 'CkStockSvr.Stock'
    Left = 309
    Top = 217
  end
  object CdsStockInDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsStockInAdsStockInDtl
    Params = <>
    BeforeInsert = CdsStockInDtlBeforeInsert
    AfterPost = CdsStockInDtlAfterPost
    AfterDelete = CdsStockInDtlAfterPost
    OnNewRecord = CdsStockInDtlNewRecord
    Left = 389
    Top = 289
    object CdsStockInDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsStockInDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsStockInDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsStockInDtlGoodsIDChange
      Size = 16
    end
    object CdsStockInDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsStockInDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsStockInDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsStockInDtlQty: TBCDField
      FieldName = 'Qty'
      OnChange = CdsStockInDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsStockInDtlprice: TFloatField
      FieldName = 'Price'
      OnChange = CdsStockInDtlQtyChange
    end
    object CdsStockInDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsStockInDtlBerthNo: TStringField
      FieldName = 'BerthNo'
      Size = 8
    end
    object CdsStockInDtlGroupNo: TIntegerField
      FieldName = 'GroupNo'
    end
    object CdsStockInDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsStockInDtlProdDate: TDateTimeField
      FieldName = 'ProdDate'
    end
    object CdsStockInDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object CdsStockInDtlQuality: TStringField
      FieldName = 'Quality'
      Size = 12
    end
    object CdsStockInDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsStockInDtlPItemNO: TIntegerField
      FieldName = 'PItemNO'
    end
  end
  object DsStockInDtl: TDataSource
    DataSet = CdsStockInDtl
    Left = 481
    Top = 289
  end
end