ckdd1.dfm

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

object CKDD: TCKDD
  Left = 293
  Top = 224
  Width = 566
  Height = 388
  ActiveControl = DBGridEh1
  Caption = '仓库对调单'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 558
    Height = 119
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    OnResize = Panel1Resize
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 557
      Height = 131
      BevelOuter = bvNone
      TabOrder = 0
      object Shape1: TShape
        Left = 23
        Top = 12
        Width = 521
        Height = 75
        Brush.Color = clBtnShadow
        Pen.Color = clNavy
        Pen.Style = psClear
      end
      object Shape2: TShape
        Left = 19
        Top = 8
        Width = 521
        Height = 75
        Brush.Color = 15524050
        Pen.Color = clNavy
        Pen.Style = psInsideFrame
      end
      object Label1: TLabel
        Left = 24
        Top = 28
        Width = 48
        Height = 12
        Caption = '单  号：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label2: TLabel
        Left = 197
        Top = 28
        Width = 60
        Height = 12
        Caption = '开单日期：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label3: TLabel
        Left = 24
        Top = 59
        Width = 48
        Height = 12
        Caption = '调出仓：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label4: TLabel
        Left = 380
        Top = 59
        Width = 60
        Height = 12
        Caption = '业 务 员：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label5: TLabel
        Left = 197
        Top = 59
        Width = 60
        Height = 12
        Caption = '调 入 仓：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Ed1: TdxDBButtonEdit
        Left = 72
        Top = 20
        Width = 121
        Style.BorderColor = clNavy
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 0
        OnKeyDown = Ed1KeyDown
        DataField = 'code'
        DataSource = DataSource1
        ReadOnly = True
        Buttons = <
          item
            Default = True
          end>
        OnButtonClick = Ed1ButtonClick
        StoredValues = 64
        ExistButtons = True
      end
      object Ed2: TdxDBDateEdit
        Left = 257
        Top = 20
        Width = 121
        Style.BorderColor = clNavy
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 1
        OnKeyDown = Ed1KeyDown
        DataField = 'kdrq'
        DataSource = DataSource1
        ReadOnly = True
        DateOnError = deToday
        StoredValues = 64
      end
      object Ed3: TdxDBExtLookupEdit
        Left = 72
        Top = 51
        Width = 121
        Style.BorderColor = clNavy
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 2
        OnKeyDown = Ed1KeyDown
        DataField = 'dcckname'
        DataSource = DataSource1
        ReadOnly = True
        DBGridLayout = dxDBGridLayoutList1Item1
        StoredValues = 64
      end
      object Ed4: TdxDBExtLookupEdit
        Left = 440
        Top = 51
        Width = 91
        Style.BorderColor = clNavy
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 3
        OnKeyDown = Ed1KeyDown
        DataField = 'ywyname'
        DataSource = DataSource1
        ReadOnly = True
        DBGridLayout = dxDBGridLayoutList1Item2
        StoredValues = 64
      end
      object dxDBEdit1: TdxDBEdit
        Left = 440
        Top = 20
        Width = 87
        Color = 15524050
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Style.BorderColor = clNavy
        Style.BorderStyle = xbsThick
        Style.HotTrack = False
        Style.Shadow = False
        TabOrder = 4
        Alignment = taCenter
        DataField = 'zt'
        DataSource = DataSource1
        ReadOnly = True
        StoredValues = 65
      end
      object Bit2: TBitBtn
        Left = 3
        Top = 91
        Width = 69
        Height = 25
        Caption = '上单&U'
        TabOrder = 5
        OnClick = Bit2Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333FF3333333333333003333333333333F77F33333333333009033
          333333333F7737F333333333009990333333333F773337FFFFFF330099999000
          00003F773333377777770099999999999990773FF33333FFFFF7330099999000
          000033773FF33777777733330099903333333333773FF7F33333333333009033
          33333333337737F3333333333333003333333333333377333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object Bit3: TBitBtn
        Left = 72
        Top = 91
        Width = 69
        Height = 25
        Caption = '下单&D'
        TabOrder = 6
        OnClick = Bit3Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333FF3333333333333003333
          3333333333773FF3333333333309003333333333337F773FF333333333099900
          33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
          99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
          33333333337F3F77333333333309003333333333337F77333333333333003333
          3333333333773333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object Bit5: TBitBtn
        Left = 141
        Top = 91
        Width = 69
        Height = 25
        Caption = '新开单&N'
        TabOrder = 7
        OnClick = Bit5Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
          0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
          33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
      end
      object Bit6: TBitBtn
        Left = 210
        Top = 91
        Width = 69
        Height = 25
        Caption = '保存&S'
        Enabled = False
        TabOrder = 8
        OnClick = Bit6Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
          FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
          FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
          007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
          7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
          99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
          99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
          99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
          93337FFFF7737777733300000033333333337777773333333333}
        NumGlyphs = 2
      end
      object Bit7: TBitBtn
        Left = 279
        Top = 91
        Width = 69
        Height = 25
        Caption = '取消&C'
        Enabled = False
        TabOrder = 9
        OnClick = Bit7Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033338833333333333333333F333333333333
          0000333911833333983333333388F333333F3333000033391118333911833333
          38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
          911118111118333338F3338F833338F3000033333911111111833333338F3338
          3333F8330000333333911111183333333338F333333F83330000333333311111
          8333333333338F3333383333000033333339111183333333333338F333833333
          00003333339111118333333333333833338F3333000033333911181118333333
          33338333338F333300003333911183911183333333383338F338F33300003333
          9118333911183333338F33838F338F33000033333913333391113333338FF833
          38F338F300003333333333333919333333388333338FFF830000333333333333
          3333333333333333333888330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object Bit8: TBitBtn
        Left = 348
        Top = 91
        Width = 69
        Height = 25
        Caption = '删除&D'
        TabOrder = 10
        OnClick = Bit8Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF33333333333330003333333333333777333333333333
          300033FFFFFF3333377739999993333333333777777F3333333F399999933333
          3300377777733333337733333333333333003333333333333377333333333333
          3333333333333333333F333333333333330033333F33333333773333C3333333
          330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
          333333377F33333333FF3333C333333330003333733333333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
      end
      object BitBtn6: TBitBtn
        Left = 417
        Top = 91
        Width = 69
        Height = 25
        Caption = '打印&P'
        TabOrder = 11
        OnClick = BitBtn6Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          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 = {