selgoodscheckacceptfrm.dfm

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

              #19981#21512#26684)
            Title.Alignment = taCenter
            Width = 63
          end
          item
            EditButtons = <>
            FieldName = 'checker'
            Footers = <>
            Title.Alignment = taCenter
            Width = 69
          end
          item
            EditButtons = <>
            FieldName = 'checkdate'
            Footers = <>
            Title.Alignment = taCenter
            Width = 75
          end
          item
            EditButtons = <>
            FieldName = 'accepter'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'remark'
            Footers = <>
            Title.Alignment = taCenter
            Width = 100
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 477
      Width = 778
      Height = 28
      object Label21: TLabel
        Left = 27
        Top = 7
        Width = 48
        Height = 12
        Caption = #22791'    '#27880
      end
      object RzLabel7: TRzLabel
        Left = 460
        Top = 8
        Width = 36
        Height = 12
        Caption = #21019#24314#32773
      end
      object RzDBLabel1: TRzDBLabel
        Left = 502
        Top = 5
        Width = 62
        Height = 14
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        BorderInner = fsFlat
        DataField = 'Creater'
        DataSource = DsGoodsCheckAccept
      end
      object RzLabel16: TRzLabel
        Left = 604
        Top = 9
        Width = 48
        Height = 12
        Caption = #21019#24314#26085#26399
      end
      object RzDBLabel2: TRzDBLabel
        Left = 656
        Top = 6
        Width = 62
        Height = 14
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        BorderInner = fsFlat
        DataField = 'CreatTime'
        DataSource = DsGoodsCheckAccept
      end
      object DBEdit16: TRzDBEdit
        Left = 83
        Top = 3
        Width = 326
        Height = 20
        DataSource = DsGoodsCheckAccept
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 0
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 52
    Top = 264
  end
  inherited ImageList1: TImageList
    Left = 128
    Top = 264
  end
  inherited ActionList1: TActionList
    Left = 188
    Top = 264
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
  end
  object DComConn: TDCOMConnection
    Connected = false
    ServerGUID = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 249
    Top = 228
  end
  object GoodsCheckAccept: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <>
    ProviderName = 'DspGoodsCheckAccept'
    RemoteServer = DComConn
    AfterScroll = GoodsCheckAcceptAfterScroll
    OnNewRecord = GoodsCheckAcceptNewRecord
    OnReconcileError = GoodsCheckAcceptReconcileError
    Left = 353
    Top = 228
    object GoodsCheckAcceptBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object GoodsCheckAcceptFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object GoodsCheckAcceptCheckKind: TSmallintField
      FieldName = 'CheckKind'
    end
    object GoodsCheckAcceptProvNo: TStringField
      FieldName = 'ProvNo'
      Size = 8
    end
    object GoodsCheckAcceptProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object GoodsCheckAcceptFullName: TStringField
      FieldName = 'FullName'
      Size = 40
    end
    object GoodsCheckAcceptPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object GoodsCheckAcceptRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object GoodsCheckAcceptAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object GoodsCheckAcceptTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object GoodsCheckAcceptCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object GoodsCheckAcceptCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object GoodsCheckAcceptMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object GoodsCheckAcceptGrup: TIntegerField
      FieldName = 'Grup'
    end
    object GoodsCheckAcceptAdsGoodsCheckAcceptDtl: TDataSetField
      FieldName = 'AdsGoodsCheckAcceptDtl'
    end
  end
  object DsGoodsCheckAccept: TDataSource
    DataSet = GoodsCheckAccept
    Left = 473
    Top = 228
  end
  object GoodsCheckAcceptDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = GoodsCheckAcceptAdsGoodsCheckAcceptDtl
    FetchOnDemand = False
    Params = <>
    BeforeInsert = GoodsCheckAcceptDtlBeforeInsert
    BeforePost = GoodsCheckAcceptDtlBeforePost
    AfterPost = GoodsCheckAcceptDtlAfterPost
    OnNewRecord = GoodsCheckAcceptDtlNewRecord
    OnReconcileError = GoodsCheckAcceptDtlReconcileError
    Left = 353
    Top = 288
    object GoodsCheckAcceptDtlbillno: TStringField
      FieldName = 'billno'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object GoodsCheckAcceptDtlitemno: TIntegerField
      FieldName = 'itemno'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object GoodsCheckAcceptDtlgoodsid: TStringField
      DisplayLabel = #33647#21697#32534#21495
      FieldName = 'goodsid'
      OnChange = GoodsCheckAcceptDtlgoodsidChange
      Size = 16
    end
    object GoodsCheckAcceptDtlname: TStringField
      DisplayLabel = #33647#21697#21517#31216
      FieldName = 'name'
      ProviderFlags = [pfInWhere]
      Size = 24
    end
    object GoodsCheckAcceptDtlspecs: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'specs'
      ProviderFlags = [pfInWhere]
    end
    object GoodsCheckAcceptDtlunit: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'unit'
      Size = 8
    end
    object GoodsCheckAcceptDtlbatchno: TStringField
      DisplayLabel = #29983#20135#25209#21495
      FieldName = 'batchno'
      Size = 12
    end
    object GoodsCheckAcceptDtlproddate: TDateTimeField
      DisplayLabel = #29983#20135#26085#26399
      FieldName = 'proddate'
    end
    object GoodsCheckAcceptDtlvaliddate: TDateTimeField
      DisplayLabel = #26377#25928#26085#26399
      FieldName = 'validdate'
    end
    object GoodsCheckAcceptDtleligiblecard: TStringField
      DisplayLabel = #21512#26684#35777
      FieldName = 'eligiblecard'
    end
    object GoodsCheckAcceptDtlqualitystate: TStringField
      DisplayLabel = #36136#37327#29366#20917
      FieldName = 'qualitystate'
    end
    object GoodsCheckAcceptDtlpackagestate: TStringField
      DisplayLabel = #21253#35013#29366#20917
      FieldName = 'packagestate'
    end
    object GoodsCheckAcceptDtllabelstate: TStringField
      DisplayLabel = #26631#31614#29366#20917
      FieldName = 'labelstate'
    end
    object GoodsCheckAcceptDtldirections: TStringField
      DisplayLabel = #35828#26126#20070#29366#20917
      FieldName = 'directions'
    end
    object GoodsCheckAcceptDtlcheckqty: TBCDField
      DisplayLabel = #39564#25910#25968#37327
      FieldName = 'checkqty'
      OnChange = GoodsCheckAcceptDtlcheckqtyChange
      Precision = 12
      Size = 3
    end
    object GoodsCheckAcceptDtleligibleqty: TBCDField
      DisplayLabel = #21512#26684#21697#25968#37327
      FieldName = 'eligibleqty'
      OnChange = GoodsCheckAcceptDtlcheckqtyChange
      Precision = 12
      Size = 3
    end
    object GoodsCheckAcceptDtlrejectqty: TBCDField
      DisplayLabel = #19981#21512#26684#25968#37327
      FieldName = 'rejectqty'
      Precision = 12
      Size = 3
    end
    object GoodsCheckAcceptDtlcheckverdict: TStringField
      DisplayLabel = #39564#25910#32467#35770
      FieldName = 'checkverdict'
      Size = 12
    end
    object GoodsCheckAcceptDtlchecker: TStringField
      DisplayLabel = #39564#25910#21592#31614#23383
      FieldName = 'checker'
      Size = 8
    end
    object GoodsCheckAcceptDtlcheckdate: TDateTimeField
      DisplayLabel = #31614#23383#26085#26399
      FieldName = 'checkdate'
    end
    object GoodsCheckAcceptDtlaccepter: TStringField
      DisplayLabel = #25910#36135#20154
      FieldName = 'accepter'
      Size = 8
    end
    object GoodsCheckAcceptDtlremark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'remark'
      Size = 40
    end
  end
  object DsGoodsCheckAcceptDtl: TDataSource
    DataSet = GoodsCheckAcceptDtl
    Left = 473
    Top = 288
  end
end