sell.dfm

学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码

        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C03333CC0000FF000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FFC0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C03333CC0066FF0000FF000099C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C03333CC3399FF0066FF00
        00CC000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C00000FFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C03333CC3399FF0000FF000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C00000FFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C00000CC3399FF0000CC000099C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C00000FF000099C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000CC0066FF000099
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF000099C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C00000CC0000FF000099C0C0C0C0C0C0C0C0C0C0C0C00000FF000099C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C00000CC0000FF000099C0C0C0C0C0C00000FF00
        0099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000CC0000FF0000
        990000FF000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C00000CC0000FF000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C00000CC0000FF0000990000CC000099C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C00000CC0000FF000099C0C0C0C0C0C00000CC00
        0099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000CC0000CC0000FF000099C0C0C0C0C0
        C0C0C0C0C0C0C00000CC000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000CC0000CC3399FF0000FF000099
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000CC000099C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000CC3399FF0066FF00
        00FF000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000CC
        000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000CC3399
        FF0066FF0000FF000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C00000CCC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C03333CC0000CC0000CC000099C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
      OnClick = SB_DeleteClick
    end
    object SpeedButton48: TSpeedButton
      Left = 292
      Top = 1
      Width = 57
      Height = 39
      Caption = #23436#25104
      Enabled = False
      Flat = True
      Glyph.Data = {
        96010000424D9601000000000000760000002800000018000000180000000100
        04000000000020010000430B0000430B00001000000010000000000000008400
        0000C6000000007B000084840000C6C60000424242007B7B7B0084848400C0C0
        C000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00999999999999
        9999999999999999999999999999999999999999988888888888888888999990
        000000000000000008999996AAAAAAAAAAAAAAAA08999996AAAAAAAAAAAAAAAA
        08999996AA559555555555AA08999996AA493344444444AA08999996AA93333A
        AAAAAAAA08999996A9333337555555AA08999996A3334733944444AA08999996
        AA3AAA7339AAAAAA08999996AA555553375555AA08999996AA444444339444AA
        08999996AAAAAAAAA33AAAAA08999996AA555555553955AA08999996AA444444
        444394AA08999996AAAAAAAAAAAA3AAA08999996AA222222222AA00009999996
        AA111111111AA0A099999996AAAAAAAAAAAAA009999999966666666666666099
        9999999999999999999999999999999999999999999999999999}
    end
    object SpeedButton49: TSpeedButton
      Left = 349
      Top = 1
      Width = 57
      Height = 39
      Caption = #24453#23450
      Enabled = False
      Flat = True
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000C40E0000C40E00000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0CC0000660033C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FF0000FF0000CC0000660033C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FF0000FF0000FF0000FF0000
        CC0000660033C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FF0000FF0000FF
        0000FF0000FF0000FF0000CC0000660033666666000000000000000000000000
        000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0FF0000FF0000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        CCCCCCCCCCCCCCCCCCCCCCCCCCCC000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FF0000FF0000FFFFFFCCFFFFCCFF
        FFCCFFFF99FFFF99FFFF99FFFF99FFFF99FFFFCCCCCC000000C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FF0000FF0000
        CCCCCC66666666666666666666666666666666666699FFFF99FFFFCCCCCC0000
        00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0FF0000FF0000FFFFFFCCFFFFCCFFFFCCFFFFCCFFFFCCFFFF99FFFF99FFFF
        99FFFFCCCCCC000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0FF0000FF0000FFFFFF66666666666666666666666666666666
        666666666666666699FFFFCCCCCC000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        FF0000C0C0C0C0C0C0C0C0C0FF0000FF0000666666FFFFFFFFFFFFFFFFFFCCFF
        FFFFFFFFCCFFFFCCFFFFCCFFFFCCFFFF99FFFFCCCCCC000000C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0FF0000FF0000FF0000FF0000C0C0C0666666FFFFFF
        666666666666666666666666666666666666CCFFFFCCFFFFCCFFFFCCCCCC0000
        00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0666666FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCFFFFCCFFFFCCFFFFCCFFFF
        CCFFFFCCCCCC000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0666666FFFFFF66666666666666666666666666666666
        6666666666666666CCFFFFCCCCCC000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0666666FFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFCCFFFFCCFFFFCCFFFFCCFFFFCCCCCC000000C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0666666FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCFFFFCCFFFFCCCCCC0000
        00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0666666FFFFFF666666666666666666666666FFFFFFFFFFFFFFFFFFFFFFFF
        CCFFFFCCCCCC000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0666666FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFCCFFFFCCCCCC000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C06666666666666666666666666666
        66666666666666666666666666666666666666666666000000C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
    end
  end
  object TVSell: TTreeView
    Left = 0
    Top = 44
    Width = 153
    Height = 423
    Align = alLeft
    AutoExpand = True
    Color = 15790320
    Images = ImageList1
    Indent = 19
    ReadOnly = True
    TabOrder = 1
    OnClick = TVSellClick
    Items.Data = {
      01000000210000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
      08CFFACADBD0C5CFA2}
  end
  object PC_Stock: TPageControl
    Left = 153
    Top = 44
    Width = 749
    Height = 423
    ActivePage = TB_Contract_List
    Align = alClient
    TabOrder = 2
    object TB_Contract_List: TTabSheet
      Caption = #38144#21806#21333#20449#24687
      object DB_Sell_hdr: TDBGrid
        Left = 0
        Top = 0
        Width = 741
        Height = 396
        Align = alClient
        Color = clCream
        DataSource = DS_Sell_hdr
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            Title.Caption = #38144#21806#32534#21495
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = #38144#21806#26085#26399
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = #23458#25143#21517#31216
            Width = 160
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = #38144#21806#31867#22411
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = #24212#25910#37329#39069
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = #23454#25910#37329#39069
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = #24405#20837#20154
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = #29366#24577
            Visible = False
          end
          item
            Expanded = False
            Title.Caption = #22791#27880
            Width = 200
            Visible = True
          end>
      end
    end
    object TB_Contract_Detail: TTabSheet
      Caption = #26126#32454#20449#24687
      ImageIndex = 1
      object GroupBox2: TGroupBox
        Left = 0