vipcust.dfm

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

      Height = 24
      Color = clMoneyGreen
      Align = alTop
      TabOrder = 2
      UseDockManager = True
      object ptCaption: TRzMarqueeStatus
        Left = 27
        Top = 1
        Width = 718
        Height = 22
        FillColor = clMoneyGreen
        FrameStyle = fsNone
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollSize = 2
      end
      object FlatPanel2: TPanel
        Left = 745
        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
  end
  object Commcnn: TDCOMConnection
    ServerGUID = '{403AC8CD-5ABD-48FE-B9EF-A683F4CDE525}'
    ServerName = 'RetailSvr.Retails'
    Left = 357
    Top = 225
  end
  object CdsRtlVipCust: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspVipCustomers'
    RemoteServer = Commcnn
    OnNewRecord = CdsRtlVipCustNewRecord
    OnReconcileError = CdsRtlVipCustReconcileError
    Left = 432
    Top = 225
    object CdsRtlVipCustVIPNo: TStringField
      FieldName = 'VIPNo'
      Size = 12
    end
    object CdsRtlVipCustRebate: TBCDField
      FieldName = 'Rebate'
      Precision = 8
      Size = 2
    end
    object CdsRtlVipCustName: TStringField
      FieldName = 'Name'
      Size = 8
    end
    object CdsRtlVipCustIDCard: TStringField
      FieldName = 'IDCard'
      Size = 18
    end
    object CdsRtlVipCustTel: TStringField
      FieldName = 'Tel'
      Size = 15
    end
    object CdsRtlVipCustMobile: TStringField
      FieldName = 'Mobile'
      Size = 15
    end
    object CdsRtlVipCustAddress: TStringField
      FieldName = 'Address'
      Size = 40
    end
    object CdsRtlVipCustPostCode: TStringField
      FieldName = 'PostCode'
      Size = 8
    end
    object CdsRtlVipCustRegDate: TDateTimeField
      FieldName = 'RegDate'
    end
    object CdsRtlVipCustRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
    object CdsRtlVipCustFlag: TStringField
      FieldName = 'Flag'
    end
  end
  object DsRtlVipCust: TDataSource
    DataSet = CdsRtlVipCust
    Left = 507
    Top = 222
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 587
    Top = 226
    object Refresh: TModlAction
      Caption = #21047#26032'(&R)'
      ImageIndex = 0
      OnExecute = RefreshExecute
      Flag2 = 0
      Remark = 'E'
    end
    object Addnew: TModlAction
      Caption = #26032#22686'(&A)'
      ImageIndex = 2
      OnExecute = AddnewExecute
      Flag2 = 0
      Remark = 'I'
    end
    object Edit: TModlAction
      Caption = #20462#25913'(&E)'
      ImageIndex = 3
      OnExecute = EditExecute
      Flag2 = 0
      Remark = 'U'
    end
    object Delete: TModlAction
      Caption = #21024#38500'(&D)'
      ImageIndex = 4
      OnExecute = DeleteExecute
      Flag2 = 0
      Remark = 'D'
    end
    object finds: TModlAction
      Caption = #26597#35810'(&F)'
      ImageIndex = 5
      Flag2 = 0
      Remark = 'Q'
    end
    object Print: TModlAction
      Caption = #25253#34920'(&P)'
      ImageIndex = 6
      OnExecute = PrintExecute
      Flag2 = 0
      Remark = 'P'
    end
    object ActExit: TModlAction
      Caption = #20851#38381'(&E)'
      ImageIndex = 7
      OnExecute = ActExitExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActFieldsLayOut: TModlAction
      Category = 'Module'
      Caption = #35774#32622#23383#27573#24067#23616'&L'
      OnExecute = ActFieldsLayOutExecute
      Flag2 = 0
    end
    object ActDataExport: TModlAction
      Category = 'Module'
      Caption = #25968#25454#23548#20986'(&X)'
      OnExecute = ActDataExportExecute
      Flag2 = 0
    end
  end
  object ImageList1: TImageList
    Left = 260
    Top = 228
    Bitmap = {
      494C01010C000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001002000000000000040
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000