stocksinglecheckfrm.~dfm

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

              EditButtons = <>
              FieldName = 'Maker'
              Footers = <>
              ReadOnly = True
              Title.Alignment = taCenter
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'PDCAddr'
              Footers = <>
              ReadOnly = True
              Title.Alignment = taCenter
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'FDATE'
              Footers = <>
              Title.Alignment = taCenter
              Width = 72
            end
            item
              EditButtons = <>
              FieldName = 'Posted'
              Footers = <>
              ReadOnly = True
              Title.Alignment = taCenter
            end>
        end
        object stPreview: TRzSizePanel
          Left = 0
          Top = 355
          Width = 786
          Height = 8
          Align = alBottom
          HotSpotHighlight = clFuchsia
          HotSpotVisible = True
          LockBar = True
          ParentColor = True
          SizeBarWidth = 7
          TabOrder = 1
          HotSpotClosed = True
          HotSpotPosition = 221
          object dbgPreview: TxDBGridEh
            Left = 0
            Top = 8
            Width = 786
            Height = 0
            Align = alClient
            ColumnDefValues.Title.Alignment = taCenter
            DataSource = DataSource2
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = GB2312_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -12
            FooterFont.Name = #23435#20307
            FooterFont.Style = []
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
            RowHeight = 16
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            TitleHeight = 15
          end
        end
      end
    end
  end
  object ptBkPanel: TFlatPanel
    Left = 0
    Top = 0
    Width = 788
    Height = 24
    Color = clMoneyGreen
    Align = alTop
    TabOrder = 1
    UseDockManager = True
    object FlatPanel2: TPanel
      Left = 739
      Top = 1
      Width = 48
      Height = 22
      Align = alRight
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
      object BtnWhatIs: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Visible = False
      end
      object BtnHelp: TFlatSpeedButton
        Left = 24
        Top = 2
        Width = 18
        Height = 18
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6000000000000CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D600000000000084
          0084848284000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6000000000000840084848284FFFFFFFFFFFFC6C3C6000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6000000000000840084848284FFFFFFFFFFFFFF
          FFFFFFFFFFC6C3C6C6C3C6000000CED3D6CED3D6CED3D6CED3D6000000840084
          848284FFFFFFFFFFFFFFFFFFC6C3C6848284000000C6C3C6C6C3C6C6C3C60000
          00CED3D6CED3D6CED3D6000000FFFFFFFFFFFFFFFFFFC6C3C684828400000084
          0084840084000000C6C3C6C6C3C6C6C3C6000000CED3D6CED3D6000000FFFFFF
          C6C3C6848284000000840084840084840084840084840084000000C6C3C6C6C3
          C6C6C3C6000000CED3D600000084828400000084008484008484008400FFFF84
          0084840084840084840084840084C6C3C6C6C3C6848284000000840084840084
          8400848400848400848400848400840082848400848400848400848400840000
          00C6C3C6848284CED3D6CED3D684008484008484008484008484008484008400
          FFFF00FFFF00FFFF840084840084840084000000848284CED3D6CED3D6CED3D6
          84008484008484008484008484008400828484008400828400FFFF8400848400
          84840084000000CED3D6CED3D6CED3D6CED3D684008484008484008484008400
          FFFF00828400828400FFFF840084840084840084840084000000CED3D6CED3D6
          CED3D6CED3D684008484008484008484008400FFFF00FFFF8400848400848400
          84840084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684008484008484
          0084840084840084840084840084000000CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6840084840084840084840084000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684
          0084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6}
      end
    end
    object FlatPanel3: TPanel
      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
        OnClick = BtnPopMenuClick
      end
    end
  end
  object cdsStockSingleCheck: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'Posted'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspStockSingleCheck'
    RemoteServer = DCOMConnection1
    AfterOpen = cdsStockSingleCheckAfterOpen
    BeforeInsert = cdsStockSingleCheckBeforeInsert
    BeforeEdit = cdsStockSingleCheckBeforeEdit
    BeforePost = cdsStockSingleCheckBeforePost
    AfterPost = cdsStockSingleCheckAfterPost
    AfterCancel = cdsStockSingleCheckAfterCancel
    BeforeDelete = cdsStockSingleCheckBeforeDelete
    AfterScroll = cdsStockSingleCheckAfterScroll
    Left = 232
    Top = 308
    object cdsStockSingleCheckItemNo: TAutoIncField
      FieldName = 'ItemNo'
      ReadOnly = True
    end
    object cdsStockSingleCheckFDATE: TDateTimeField
      FieldName = 'FDATE'
    end
    object cdsStockSingleCheckDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object cdsStockSingleCheckDepotNo: TStringField
      FieldName = 'DepotNo'
      ProviderFlags = []
      Size = 12
    end
    object cdsStockSingleCheckDepotName: TStringField
      FieldName = 'DepotName'
      ProviderFlags = []
    end
    object cdsStockSingleCheckBerthNo: TStringField
      FieldName = 'BerthNo'
      Size = 8
    end
    object cdsStockSingleCheckGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = cdsStockSingleCheckGoodsIDChange
      Size = 16
    end
    object cdsStockSingleCheckUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object cdsStockSingleCheckName: TStringField
      FieldName = 'Name'
      Size = 24
    end
    object cdsStockSingleCheckMaker: TStringField
      FieldName = 'Maker'
      Size = 12
    end
    object cdsStockSingleCheckPDCAddr: TStringField
      FieldName = 'PDCAddr'
      Size = 12
    end
    object cdsStockSingleCheckSpecs: TStringField
      FieldName = 'Specs'
    end
    object cdsStockSingleCheckGroupNo: TIntegerField
      FieldName = 'GroupNo'
    end
    object cdsStockSingleCheckBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object cdsStockSingleCheckQty: TBCDField
      FieldName = 'Qty'
      Precision = 12
      Size = 3
    end
    object cdsStockSingleCheckPosted: TBooleanField
      FieldName = 'Posted'
    end
  end
  object DataSource1: TDataSource
    DataSet = cdsStockSingleCheck
    Left = 320
    Top = 436
  end
  object DCOMConnection1: TDCOMConnection
    ServerGUID = '{57AB7479-B28A-45CE-B53F-F46EEAA34744}'
    ServerName = 'CkStockSvr.Stock'
    Left = 192
    Top = 272
  end
  object ImageList1: TImageList
    Left = 392
    Top = 436
    Bitmap = {
      494C01011D002200040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      000000000000360000002800000040000000900000000100180000000000006C
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000