ckdd1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
          03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
          0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
          0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
          0333337F777FFFFF7F3333000000000003333377777777777333}
        NumGlyphs = 2
      end
      object Ed5: TdxDBExtLookupEdit
        Left = 257
        Top = 51
        Width = 121
        Style.BorderColor = clNavy
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 13
        OnKeyDown = Ed1KeyDown
        DataField = 'drckname'
        DataSource = DataSource1
        ReadOnly = True
        DBGridLayout = dxDBGridLayoutList1Item1
        StoredValues = 64
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 334
    Width = 558
    Height = 27
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    OnResize = Panel2Resize
    object Label7: TLabel
      Left = 8
      Top = 13
      Width = 36
      Height = 12
      Caption = '备注：'
      Transparent = True
      Layout = tlCenter
    end
    object Ed7: TdxDBEdit
      Left = 42
      Top = 6
      Width = 511
      Style.BorderColor = clNavy
      Style.BorderStyle = xbsSingle
      Style.Shadow = True
      TabOrder = 0
      OnKeyDown = Ed6KeyDown
      Alignment = taLeftJustify
      DataField = 'bz'
      DataSource = DataSource1
      ReadOnly = True
      StoredValues = 65
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 119
    Width = 558
    Height = 215
    LineColor = clNavy
    SelectedColor = clNavy
    SelectedFontColor = clWhite
    Align = alClient
    Color = 15524050
    DataSource = DataSource2
    FixedColor = clSilver
    Font.Charset = GB2312_CHARSET
    Font.Color = 7479077
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clRed
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = N9Click
    OnKeyDown = DBGridEh1KeyDown
    FooterRowCount = 1
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clRed
    FooterFont.Height = -14
    FooterFont.Name = '宋体'
    FooterFont.Style = []
    FooterColor = clSilver
    AutoFitColWidths = True
    SumList.Active = True
    OptionsEh = [dghHighlightFocus, dghClearSelection, dghEnterAsTab]
    CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.CurrencyFont.Color = clWindowText
    CurrencyStyle.CurrencyFont.Height = -11
    CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
    CurrencyStyle.CurrencyFont.Style = []
    CurrencyStyle.CurrencySymbol = '￥'
    CurrencyStyle.CompartColor = clSilver
    CurrencyStyle.KilobitColor = clGreen
    CurrencyStyle.RadixColor = clRed
    CurrencyStyle.ShowMinus = True
    CurrencyStyle.ShowZero = False
    CurrencyStyle.MinusColor = clRed
    CurrencyStyle.Layout = tlCenter
    CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.HeadFont.Color = clWindowText
    CurrencyStyle.HeadFont.Height = -11
    CurrencyStyle.HeadFont.Name = '楷体_GB2312'
    CurrencyStyle.HeadFont.Style = []
    OnGetEditText = DBGridEh1GetEditText
    OnSetEditText = DBGridEh1SetEditText
    Columns = <
      item
        ButtonStyle = cbsNone
        FieldName = 'spcode'
        Width = 53
        Footer.Alignment = taCenter
        Footer.Font.Charset = GB2312_CHARSET
        Footer.Font.Color = clNavy
        Footer.Font.Height = -14
        Footer.Font.Name = '宋体'
        Footer.Font.Style = [fsBold]
        Footer.ValueType = fvtStaticText
        Footer.Value = '合计'
        Footers = <>
      end
      item
        FieldName = 'spname'
        ReadOnly = True
        Width = 157
        Footers = <>
      end
      item
        FieldName = 'jldw'
        ReadOnly = True
        Width = 30
        Footers = <>
      end
      item
        FieldName = 'bzgg'
        ReadOnly = True
        Width = 33
        Footers = <>
      end
      item
        FieldName = 'js'
        Width = 40
        Footer.ValueType = fvtSum
        Footer.FieldName = 'js'
        Footers = <>
      end
      item
        FieldName = 'ss'
        Width = 41
        Footers = <>
      end
      item
        FieldName = 'sl'
        Width = 47
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        FieldName = 'jhj'
        Width = 49
        Footers = <>
      end
      item
        FieldName = 'je'
        ReadOnly = True
        Width = 62
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        FieldName = 'kcsl'
        Width = 53
        Footers = <>
      end>
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 208
    Top = 312
    Width = 200
    Height = 25
    DataSource = DataSource1
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    Visible = False
    object b1: TwwNavButton
      Left = 0
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to first record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b1'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsFirst
      OnUpdateState = b1UpdateState
    end
    object b2: TwwNavButton
      Left = 25
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to prior record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b2'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsPrior
      OnUpdateState = b1UpdateState
    end
    object b3: TwwNavButton
      Left = 50
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to next record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b3'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsNext
      OnUpdateState = b1UpdateState
    end
    object b4: TwwNavButton
      Left = 75
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to last record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b4'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsLast
      OnUpdateState = b1UpdateState
    end
    object b5: TwwNavButton
      Left = 100
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Insert new record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b5'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsInsert
      OnUpdateState = b1UpdateState
    end
    object b6: TwwNavButton
      Left = 125
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Post changes of current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b6'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 5
      Style = nbsPost
      OnUpdateState = b1UpdateState
    end
    object b7: TwwNavButton
      Left = 150
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Cancel changes made to current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b7'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 6
      Style = nbsCancel
      OnUpdateState = b1UpdateState
    end
    object b8: TwwNavButton
      Left = 175
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Delete current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b8'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 7
      Style = nbsDelete
      OnUpdateState = b1UpdateState
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 384
    Top = 80
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 152
    Top = 192
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    TableName = 'CKDA'
    Left = 384
    Top = 184
    object ADOTable3code: TStringField
      DisplayLabel = '仓库代码'
      FieldName = 'code'
      Size = 5
    end
    object ADOTable3name: TStringField
      DisplayLabel = '仓库名称'
      FieldName = 'name'
      Size = 200
    end
    object ADOTable3dz: TStringField
      DisplayLabel = '地址'
      FieldName = 'dz'
      Size = 200
    end
    object ADOTable3dh: TStringField
      DisplayLabel = '电话'
      FieldName = 'dh'
      Size = 50
    end
    object ADOTable3cz: TStringField
      DisplayLabel = '传真'
      FieldName = 'cz'
      Size = 50
    end
    object ADOTable3lxr: TStringField
      DisplayLabel = '联系人'
      FieldName = 'lxr'
      Size = 50
    end
    object ADOTable3bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
  end