firstdealgoodsfrm.dfm

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

      Top = 243
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'FactoryPrice'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 18
    end
    object RzDBEdit19: TRzDBEdit
      Left = 96
      Top = 268
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'DealCompany'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 21
    end
    object RzDBEdit20: TRzDBEdit
      Left = 344
      Top = 268
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'LicenseNo'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 22
    end
    object RzDBEdit21: TRzDBEdit
      Left = 344
      Top = 243
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'FactPrice'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 19
    end
    object RzDBEdit22: TRzDBEdit
      Left = 592
      Top = 243
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'TradePrice'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 20
    end
    object RzDBEdit23: TRzDBEdit
      Left = 592
      Top = 268
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'BatchNo'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 23
    end
    object RzDBEdit24: TRzDBEdit
      Left = 96
      Top = 293
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'ShopCard'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 24
    end
    object RzDBEdit25: TRzDBEdit
      Left = 96
      Top = 318
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'CheckReport'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 27
    end
    object RzDBEdit26: TRzDBEdit
      Left = 344
      Top = 318
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'Samples'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 28
    end
    object RzDBEdit27: TRzDBEdit
      Left = 344
      Top = 293
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'Brand'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 25
    end
    object RzDBEdit28: TRzDBEdit
      Left = 592
      Top = 293
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'RegCard'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 26
    end
    object RzDBEdit29: TRzDBEdit
      Left = 592
      Top = 318
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'PackStatus'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 29
    end
    object RzDBEdit30: TRzDBEdit
      Left = 96
      Top = 343
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'LabelStatus'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 30
    end
    object RzDBEdit31: TRzDBEdit
      Left = 344
      Top = 343
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'Exponent'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 31
    end
    object RzDBEdit32: TRzDBEdit
      Left = 96
      Top = 369
      Width = 637
      Height = 20
      DataSource = dsMain
      DataField = 'ApplyReason'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 32
    end
    object RzDBEdit33: TRzDBEdit
      Tag = -1
      Left = 96
      Top = 418
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'CreaterName'
      ReadOnly = True
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 33
    end
    object RzDBEdit34: TRzDBEdit
      Tag = -1
      Left = 344
      Top = 418
      Width = 141
      Height = 20
      DataSource = dsMain
      DataField = 'MenderName'
      ReadOnly = True
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 34
    end
  end
  inherited ImageList1: TImageList
    Left = 684
  end
  inherited TBBackground1: TTBBackground
    Top = 40
  end
  inherited ActionList1: TActionList
    Left = 672
    Top = 36
    inherited ActSave: TAction
      Enabled = False
    end
    inherited ActCancel: TAction
      Enabled = False
    end
    object ActShowAudited: TModlAction
      Category = 'Bill'
      Caption = #26174#31034#24050#23457#26680#30340#35760#24405
      Hint = #26174#31034#24050#23457#26680#30340#39318#33829#33647#21697#35760#24405
      OnExecute = ActShowAuditedExecute
      Flag2 = 0
      Remark = 'Q'
    end
  end
  inherited pMenuOthers: TPopupMenu
    object mnuShowAudited: TMenuItem
      Action = ActShowAudited
    end
  end
  inherited ImgPopMenu: TImageList
    Left = 724
    Top = 24
  end
  inherited cdsMain: TckClientDataSet
    Params = <
      item
        DataType = ftInteger
        Name = 'RecState'
        ParamType = ptInput
      end>
    ProviderName = 'dspFirstDealGoods'
    RemoteServer = DCOMConnection1
    AfterScroll = cdsMainAfterScroll
    AfterRefresh = cdsMainAfterRefresh
    OnNewRecord = cdsMainNewRecord
    Left = 537
    Top = 191
    object cdsMainBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsMainDepartID: TIntegerField
      FieldName = 'DepartID'
    end
    object cdsMainDepartName: TStringField
      FieldName = 'DepartName'
      ProviderFlags = []
    end
    object cdsMainFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object cdsMainGoodsName: TStringField
      FieldName = 'GoodsName'
      Size = 24
    end
    object cdsMainSpecs: TStringField
      FieldName = 'Specs'
    end
    object cdsMainDoseType: TStringField
      FieldName = 'DoseType'
      Size = 16
    end
    object cdsMainUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object cdsMainProvName: TStringField
      FieldName = 'ProvName'
    end
    object cdsMainSuperior: TStringField
      FieldName = 'Superior'
    end
    object cdsMainBarCode: TStringField
      FieldName = 'BarCode'
      Size = 13
    end
    object cdsMainDescriptions: TStringField
      FieldName = 'Descriptions'
      Size = 255
    end
    object cdsMainCertificate: TStringField
      FieldName = 'Certificate'
      Size = 50
    end
    object cdsMainRatifyNo: TStringField
      FieldName = 'RatifyNo'
      Size = 40
    end
    object cdsMainQualityNo: TStringField
      FieldName = 'QualityNo'
      Size = 40
    end
    object cdsMainPackSpecs: TStringField
      FieldName = 'PackSpecs'
      Size = 40
    end
    object cdsMainUsefulLife: TBCDField
      FieldName = 'UsefulLife'
      Precision = 28
      Size = 5
    end
    object cdsMainStorageCondition: TStringField
      FieldName = 'StorageCondition'
      Size = 40
    end
    object cdsMainProducersTime: TStringField
      FieldName = 'ProducersTime'
      Size = 40
    end
    object cdsMainFactoryPrice: TBCDField
      FieldName = 'FactoryPrice'
      Precision = 28
      Size = 5
    end
    object cdsMainFactPrice: TBCDField
      FieldName = 'FactPrice'
      Precision = 28
      Size = 5
    end
    object cdsMainTradePrice: TBCDField
      FieldName = 'TradePrice'
      Precision = 28
      Size = 5
    end
    object cdsMainDealCompany: TStringField
      FieldName = 'DealCompany'
      Size = 100
    end
    object cdsMainLicenseNo: TStringField
      FieldName = 'LicenseNo'
      Size = 40
    end
    object cdsMainShopCard: TStringField
      FieldName = 'ShopCard'
      Size = 40
    end
    object cdsMainConfirmDocument: TStringField
      FieldName = 'ConfirmDocument'
      Size = 40
    end
    object cdsMainBrand: TStringField
      FieldName = 'Brand'
      Size = 40
    end
    object cdsMainRegCard: TStringField
      FieldName = 'RegCard'
      Size = 40
    end
    object cdsMainCheckReport: TStringField
      FieldName = 'CheckReport'
      Size = 40
    end
    object cdsMainSamples: TStringField
      FieldName = 'Samples'
      Size = 40
    end
    object cdsMainBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 40
    end
    object cdsMainPackStatus: TStringField
      FieldName = 'PackStatus'
      Size = 40
    end
    object cdsMainLabelStatus: TStringField
      FieldName = 'LabelStatus'
      Size = 40
    end
    object cdsMainExponent: TStringField
      FieldName = 'Exponent'
      Size = 40
    end
    object cdsMainApplyReason: TStringField
      FieldName = 'ApplyReason'
      Size = 100
    end
    object cdsMainBuyerNotion: TStringField
      FieldName = 'BuyerNotion'
      Size = 255
    end
    object cdsMainBuyerResult: TStringField
      FieldName = 'BuyerResult'
      Size = 8
    end
    object cdsMainBuyerID: TStringField
      FieldName = 'BuyerID'
      Size = 8
    end
    object cdsMainBuyer: TStringField
      FieldName = 'Buyer'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainOperationNotion: TStringField
      FieldName = 'OperationNotion'
      Size = 255
    end
    object cdsMainOperationResult: TStringField
      FieldName = 'OperationResult'
      Size = 8
    end
    object cdsMainOperationID: TStringField
      FieldName = 'OperationID'
      Size = 8
    end
    object cdsMainOperation: TStringField
      FieldName = 'Operation'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainQCNotion: TStringField
      FieldName = 'QCNotion'
      Size = 255
    end
    object cdsMainQCResult: TStringField
      FieldName = 'QCResult'
      Size = 8
    end
    object cdsMainQCID: TStringField
      FieldName = 'QCID'
      Size = 8
    end
    object cdsMainQC: TStringField
      FieldName = 'QC'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainPricerNotion: TStringField
      FieldName = 'PricerNotion'
      Size = 255
    end
    object cdsMainPricerResult: TStringField
      FieldName = 'PricerResult'
      Size = 8
    end
    object cdsMainPricerID: TStringField
      FieldName = 'PricerID'
      Size = 8
    end
    object cdsMainPricer: TStringField
      FieldName = 'Pricer'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainManagerNotion: TStringField
      FieldName = 'ManagerNotion'
      Size = 255
    end
    object cdsMainManagerResult: TStringField
      FieldName = 'ManagerResult'
      Size = 8
    end
    object cdsMainManagerID: TStringField
      FieldName = 'ManagerID'
      Size = 8
    end
    object cdsMainManager: TStringField
      FieldName = 'Manager'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainAudit: TBooleanField
      FieldName = 'Audit'
    end
    object cdsMainApprove: TBooleanField
      FieldName = 'Approve'
    end
    object cdsMainApprover: TStringField
      FieldName = 'Approver'
      Size = 8
    end
    object cdsMainApproverName: TStringField
      FieldName = 'ApproverName'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainApprovalDate: TDateTimeField
      FieldName = 'ApprovalDate'
    end
    object cdsMainCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object cdsMainCreaterName: TStringField
      FieldName = 'CreaterName'
      Size = 12
    end
    object cdsMainCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object cdsMainMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object cdsMainMenderName: TStringField
      FieldName = 'MenderName'
      Size = 12
    end
    object cdsMainUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object cdsMainGrup: TIntegerField
      FieldName = 'Grup'
    end
  end
  inherited DCOMConnection1: TDCOMConnection
    ServerGUID = '{9DD8AF63-6E5B-487A-9791-8E22E22D735A}'
    ServerName = 'SvrChainGSP.CoChainGSP'
    Left = 497
    Top = 191
  end
  inherited dsMain: TDataSource
    Left = 461
    Top = 191
  end
end