depotberthsfm.~dfm

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

      Left = 1
      Top = 1
      Width = 26
      Height = 22
      Align = alLeft
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object BtnPopMenu: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333330333333333333330603333333333330666033
          3333333306666603333333306666666033333300006660000333333330666033
          3333333330666033333333333066603333333333300000333333333333333333
          3333333333333333333333333333333333333333333333333333}
        ParentFont = False
      end
    end
  end
  object ActionList1: TActionList
    Left = 264
    Top = 120
    object ActRefresh: TModlAction
      Caption = #21047#26032'(&R)'
      ImageIndex = 0
      OnExecute = ActRefreshExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActRebuild: TModlAction
      Caption = 'ActRebuild'
      Flag2 = 0
      Remark = 'E'
    end
    object ActNew: TModlAction
      Caption = #26032#22686'(&N)'
      ImageIndex = 2
      OnExecute = ActNewExecute
      Flag2 = 0
      Remark = 'I'
    end
    object ActModify: TModlAction
      Tag = 3
      Caption = #20462#25913'(&E)'
      ImageIndex = 3
      OnExecute = ActModifyExecute
      Flag2 = 0
      Remark = 'U'
    end
    object ActDelete: TModlAction
      Caption = #21024#38500'(&D)'
      ImageIndex = 4
      OnExecute = ActDeleteExecute
      Flag2 = 0
      Remark = 'D'
    end
    object ActFind: TModlAction
      Caption = #26597#35810'(&Q)'
      ImageIndex = 5
      Flag2 = 0
      Remark = 'Q'
    end
    object ActNew1: TModlAction
      Caption = #26032#22686'(&N)'
      ImageIndex = 2
      OnExecute = ActNew1Execute
      Flag2 = 0
      Remark = 'I'
    end
    object ActModify1: TModlAction
      Caption = #20462#25913'(&E)'
      ImageIndex = 3
      OnExecute = ActModify1Execute
      Flag2 = 0
      Remark = 'U'
    end
    object ActDelete1: TModlAction
      Caption = #21024#38500'(&D)'
      ImageIndex = 4
      OnExecute = ActDelete1Execute
      Flag2 = 0
      Remark = 'D'
    end
    object ActFind1: TModlAction
      Caption = #26597#35810'(&Q)'
      ImageIndex = 5
      Flag2 = 0
      Remark = 'Q'
    end
    object ActRefresh1: TModlAction
      Caption = #21047#26032'(&R)'
      ImageIndex = 0
      Flag2 = 0
      Remark = 'E'
    end
  end
  object CdsDepots: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspDepots'
    RemoteServer = ComConn
    OnReconcileError = CdsDepotsReconcileError
    Left = 468
    Top = 72
    object CdsDepotsDepotID: TAutoIncField
      FieldName = 'DepotID'
    end
    object CdsDepotsDepotNo: TStringField
      FieldName = 'DepotNo'
      KeyFields = 'DepotNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 12
    end
    object CdsDepotsDepotName: TStringField
      FieldName = 'DepotName'
    end
    object CdsDepotsDefBerthNo: TStringField
      FieldName = 'DefBerthNo'
      Size = 8
    end
    object CdsDepotsSize: TBCDField
      FieldName = 'Size'
      Precision = 9
      Size = 3
    end
    object CdsDepotsLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsDepotsTEL: TStringField
      FieldName = 'TEL'
      Size = 12
    end
    object CdsDepotsFAX: TStringField
      FieldName = 'FAX'
      Size = 12
    end
    object CdsDepotsAREA: TStringField
      FieldName = 'AREA'
      Size = 16
    end
    object CdsDepotsADDR: TStringField
      FieldName = 'ADDR'
      Size = 60
    end
    object CdsDepotsRankDepot: TBooleanField
      FieldName = 'RankDepot'
    end
    object CdsDepotsStoreWhole: TBooleanField
      FieldName = 'StoreWhole'
    end
    object CdsDepotsStockUsable: TBooleanField
      FieldName = 'StockUsable'
    end
    object CdsDepotsRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
    object CdsDepotsDataUsable: TBooleanField
      FieldName = 'DataUsable'
    end
    object CdsDepotsCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsDepotsCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsDepotsMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsDepotsUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object CdsDepotsGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsDepotsDepotBerths: TDataSetField
      FieldName = 'DepotBerths'
    end
  end
  object DsDepots: TDataSource
    DataSet = CdsDepots
    Left = 546
    Top = 72
  end
  object DsDepotBerths: TDataSource
    DataSet = CdsDepotBerths
    Left = 552
    Top = 153
  end
  object ComConn: TDCOMConnection
    ServerGUID = '{F78419D0-1A07-4CED-9537-9C2591B52799}'
    ServerName = 'CkDepotBerthSvr.DepotBerths'
    Left = 381
    Top = 72
  end
  object CdsDepotBerths: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsDepotsDepotBerths
    Params = <>
    AfterScroll = CdsDepotBerthsAfterScroll
    Left = 474
    Top = 153
    object CdsDepotBerthsDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsDepotBerthsBerthNo: TStringField
      FieldName = 'BerthNo'
      Size = 8
    end
    object CdsDepotBerthsLength: TBCDField
      FieldName = 'Length'
      Precision = 9
      Size = 3
    end
    object CdsDepotBerthsWidth: TBCDField
      FieldName = 'Width'
      Precision = 9
      Size = 3
    end
    object CdsDepotBerthsHeight: TBCDField
      FieldName = 'Height'
      Precision = 9
      Size = 3
    end
    object CdsDepotBerthsLengthUnit: TStringField
      FieldName = 'LengthUnit'
      Size = 8
    end
    object CdsDepotBerthsHoldWeight: TBCDField
      FieldName = 'HoldWeight'
      Precision = 9
      Size = 3
    end
    object CdsDepotBerthsWeightUnit: TStringField
      FieldName = 'WeightUnit'
      Size = 8
    end
    object CdsDepotBerthsLocation: TStringField
      FieldName = 'Location'
      Size = 40
    end
    object CdsDepotBerthsCheckDesc: TStringField
      FieldName = 'CheckDesc'
      Size = 60
    end
    object CdsDepotBerthsStockUsable: TBooleanField
      FieldName = 'StockUsable'
    end
    object CdsDepotBerthsLastCheckDate: TDateTimeField
      FieldName = 'LastCheckDate'
    end
    object CdsDepotBerthsRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object cdssetting: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspSyssetting'
    RemoteServer = ComConn
    Left = 478
    Top = 238
    object cdssettingAutoUniteStk: TBooleanField
      FieldName = 'AutoUniteStk'
    end
    object cdssettingKindNoFormat: TStringField
      FieldName = 'KindNoFormat'
      Size = 12
    end
    object cdssettingDepartNoFormat: TStringField
      FieldName = 'DepartNoFormat'
      Size = 12
    end
    object cdssettingDepotNoFormat: TStringField
      FieldName = 'DepotNoFormat'
      Size = 12
    end
    object cdssettingFlag: TIntegerField
      FieldName = 'Flag'
    end
  end
end