kcgz1.dfm

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

          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        NumGlyphs = 2
      end
      object BitBtn3: TBitBtn
        Left = 486
        Top = 91
        Width = 69
        Height = 25
        Caption = '退出&X'
        ParentShowHint = False
        ShowHint = False
        TabOrder = 12
        OnClick = BitBtn3Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
          03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
          0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
          0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
          0333337F777FFFFF7F3333000000000003333377777777777333}
        NumGlyphs = 2
      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 = []
    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
        FieldName = 'spcode'
        Footers = <>
      end
      item
        FieldName = 'spname'
        ReadOnly = True
        Footers = <>
      end
      item
        FieldName = 'jldw'
        ReadOnly = True
        Footers = <>
      end
      item
        FieldName = 'bzgg'
        ReadOnly = True
        Width = 48
        Footers = <>
      end
      item
        FieldName = 'kcsl'
        ReadOnly = True
        Footers = <>
      end
      item
        FieldName = 'gzsl'
        Width = 66
        Footers = <>
      end
      item
        FieldName = 'yksl'
        ReadOnly = True
        Width = 69
        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'