sell.~dfm

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

object frmSell: TfrmSell
  Left = 187
  Top = 579
  Width = 910
  Height = 520
  Caption = #38144#21806#31649#29702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar3: TCoolBar
    Left = 0
    Top = 0
    Width = 902
    Height = 44
    Bands = <>
    object SpeedButton43: TSpeedButton
      Left = 2
      Top = 0
      Width = 57
      Height = 39
      Caption = #36864#20986
      Flat = True
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000C40E0000C40E00000000000000000000CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6B7BBBD0F131700000C00001300001200
        051000001200050F00051100040F0000000810181F2525090303000009000001
        00030A0000008B8F91CED3D6CED3D6CED3D6CED3D6CED3D6D8DDDCB0BDCB161F
        7A00007B000B7D001279001279002572002273000F370000133A667EE2FFFF42
        5550000020000823000D2E00000A8B8E8ECED3D6CED3D6CED3D6CED3D6CED3D6
        CDD2D5DFE1DFAFBCC514227400096F00117300246B00206E000D300008200001
        18375F71D6FBF83F9390003B35000221000B2900000C8B8E8ECED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CCD2D5DFE1DFAFBCC60B1D74001D6D001E6D000B30
        00061F00072100001C355C6AD6FBF83F8D8B007F7B00413B00022200000F8B8E
        8DCED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CDD2D5D9DCDCB2BCC528
        3236263030252B22252E2A252B221F212050756BD2F8F83F8C8A007A7A00827D
        0042410001068B8E8FCED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CBCFD43F4526999B009296009296009296009190009ABE55C8EEFB3F
        8C8A007977007E7D00817C0023208B8587CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6C4CAD1464B2DD4CD26CFC525CFC525CFC525CFC2
        23C2DD71C3EAF83F8C8A007978007C7A007D780025228B8587CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6C2C9CF555740FFFA89FFE17D
        FFE37DFFE37DFFE175E8F2ADBEE7F03F8B89008281007E7C007E790025228B85
        87CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6C7CCD019
        18118E7C3DFFF47EFFDE73FFDF73FFDD6BE3EFA6BFE7F140918F00282700706C
        00807C0024218B8587CED3D6CED3D6CED3D6CED3D6CED3D6CDD2D5C8CCCFC8C9
        CCC8C9CCC2C0C30214150441478C7537FFF07BFFE174FFDD6BE3EFA6BFE7F133
        8886A4BCBC0C7F7B007D760025228B8587CED3D6CED3D6CED3D6CED3D6CED3D6
        B2B1B70200080013130011110010101729288DB9B9053037917537FFEE7AFFDF
        6CE3EFA6BFE7F13E8B890B8280017E7C00817C0024218B8587CED3D6CED3D6CE
        D3D6CED3D6CED3D6AABFAC1A7B2F5DC0BF5EB9B85EB8B76FBDBCEADADAA0D4D3
        164E557F703AFEDD6AE3EFA6BFE7F13F8C8A007977007C7A007D780025228B85
        87CED3D6CED3D6CED3D6CED3D6CED3D6A3C6AA3BA538E6DBDADFD5D4DDD3D2E7
        DFDEFFFFFFEAE4E32E646E51502BFDDA68E4F0A6BFE7F13F8C8A007978007D7B
        007F7A0025228B8587CED3D6CED3D6CED3D6CED3D6CED3D6ADACB30000001516
        1511111010100F3B3C3BD6D7D53C414A695326FFEA77FFE06DE3EFA6BEE6F036
        8886007877007D7B00807B0024218B8587CED3D6CED3D6CED3D6CED3D6CED3D6
        CACFD2AEB2B5A8ACAFA9ADAFA1A5A71616174D515864582AFAEA77FFE476FFDD
        6BDFE99FD0FCFDCDCECD198280007976007C770025228B8587CED3D6CED3D6CE
        D3D6CED3D6CED3D6CFD4D7D4D9DCD4D9DCD4D9DCCCD2D40C0D09685C2FFDED79
        FFE275FFDF73FFDF73FEDD6AD7EDAFDEFFFFCBCDCD168280007F7B0024218B85
        87CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6C3C9CF51
        533CFFF17BFFDE73FFDF73FFDF73FFDF73FFDF74FFDC66D5EDAEDDFFFFD0D0D0
        1C8783001E1B8D8688CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6C3C9CF4D4F39FFE877FFDF73FFDF73FFDF73FFDF73FFDF73FFDF74FF
        DC66D6EEB1E1FFFFCCD7D51F2E2C838284CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6C3C9CF4F503AFFF27BFFE977FFE977FFE977FFE9
        77FFE977FFE977FFE978FFE66BE4F7B3FBFFFF706768737779CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6C8CDD1333930484B34484A34
        484A34484A34484A34484A34484A34484A34494933494930414F492A2E279398
        98CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6}
      OnClick = SpeedButton43Click
    end
    object SB_Save: TSpeedButton
      Left = 60
      Top = 1
      Width = 57
      Height = 40
      Caption = #20445#23384
      Enabled = False
      Flat = True
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000C40E0000C40E00000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08E4D35A34E
        4AA24E499E4A449D6D67B4C4BEB8C1BBC0C8C3C3C9C4C0C5C0BDC3BDBBC0BBBD
        CCC7A0676296443F9647429E504B9E5847C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        AD955FAE5455D36B69D16A68C05F5C93635FADB0ADCBBCB9E8DFDCFFFEFDFEFF
        FFF2F5F2E6E9E6E4F3EFA95E5B962B29942D2BBB5452D169688E5839C0C0C0C0
        C0C0C0C0C0C0C0C0B78B6CD36568CC6666CE6767BE5C5C986363B08E8EBB6262
        C88888E0D0D0F9FDFDFBFBFBF0EFF0ECF7F7AC5F60972D2D952F2FB95353CE67
        67975147C0C0C0C0C0C0C0C0C0C0C0C0B68B6CCE6365CC6666CE6767BD5C5CA3
        6C6CC79494B53C3CBA6262C0AAAADBE0E0F8F8F8FCFCFCF9FFFFAF6363962D2D
        952F2FB95353CE6767975147C0C0C0C0C0C0C0C0C0C0C0C0B68B6CCE6365CC66
        66CE6767BC5B5BAB7474D1A0A0A42E2EAC5858A79292B5BBBBD7D8D8F6F6F6FF
        FFFFB26666962C2C952F2FB95353CE6767975147C0C0C0C0C0C0C0C0C0C0C0C0
        B68B6CCE6365CC6666CE6767BB5959AA7575D5ADADA33F3FB36B6BAB9B9BA6AC
        ACBABCBCD7D9D9FBFFFFB26666942A2A942E2EB95353CE6767975147C0C0C0C0
        C0C0C0C0C0C0C0C0B68B6CCE6365CC6666CE6767BE5C5CAC6F6FDBC0C0D2AAAA
        D6B1B1D1B5B5C0ABABBAA5A5C1ADADDCD5D5AE5F5F9B3232993333BB5555CE67
        67975147C0C0C0C0C0C0C0C0C0C0C0C0B68B6CCE6365CE6767CC6262C96060C4
        6464CB7979D18383D07F7FCB7575C36D6DBC6565BC6565C06B6BBD5C5CB95050
        B95050C65F5FCE6767975147C0C0C0C0C0C0C0C0C0C0C0C0B68B6CCD6263C15D
        5DC56F6FC97474CA7272C76C6CC66C6CC76D6DC76E6EC76E6EC96F6FC96E6EC8
        6C6CCB7474CD7979C56C6CC96565CF6767975147C0C0C0C0C0C0C0C0C0C0C0C0
        B78C6CC85D5EAC5353DECDCDDEC8C8DDC6C6DEC6C6DEC6C6DEC6C6DEC7C7DEC7
        C7E0C9C9E0C8C8DFC8C8E0C8C8E3CECECDA9A9C26363CF6767975147C0C0C0C0
        C0C0C0C0C0C0C0C0B78C6CC75B5DAE5A5AFEFFFFF6FBFBF9FDFDF9FDFDF9FDFD
        F9FDFDF9FDFDF9FDFDF9FDFDF9FDFDF9FDFDF8FCFCF8FFFFE1D7D7C16565CE66
        66975147C0C0C0C0C0C0C0C0C0C0C0C0B78C6CC75B5DAF5A5AFCFFFFF3F3F3EE
        EEEEEDEEEEEDEEEEEEEEEEEEEEEEEEEEEEEEEFEFEEEFEFEEEFEFEFEFEFF6F9F9
        DFD2D2C16565CE6666975147C0C0C0C0C0C0C0C0C0C0C0C0B78C6CC75B5DAF5A
        5AFCFFFFEDEDEDD7D7D7D6D6D6D7D7D7D7D7D7D8D8D8D8D8D8D9D9D9DADADAD9
        D9D9DDDDDDF2F4F4DED0D0C16464CE6666975147C0C0C0C0C0C0C0C0C0C0C0C0
        B78C6CC75B5DAF5A5AFCFFFFEEEEEEDBDBDBDADADADBDBDBDBDBDBDBDBDBDCDC
        DCDCDCDCDCDCDCDCDCDCE0E0E0F3F5F5DDCECEC16464CE6666975147C0C0C0C0
        C0C0C0C0C0C0C0C0B78C6CC75B5DAF5A5AFCFFFFEEEEEEDDDDDDDCDCDCDCDCDC
        DCDCDCDDDDDDDEDEDEDEDEDEDDDDDDDEDEDEE1E1E1F3F5F5DCCFCFC06464CE66
        66975147C0C0C0C0C0C0C0C0C0C0C0C0B78C6CC75B5DAF5A5AFCFFFFEDEDEDD6
        D6D6D5D5D5D6D6D6D6D6D6D6D6D6D7D7D7D7D7D7D8D8D8D7D7D7DBDBDBF2F5F5
        DBCECEC06464CE6666975147C0C0C0C0C0C0C0C0C0C0C0C0B78C6CC75B5DAF5A
        5AFCFFFFEDEDEDDBDBDBDBDADBDBDBDBDBDBDBDBDBDBDCDCDCDCDCDCDDDDDDDC
        DCDCDFDFDFF2F5F5DACDCDC06464CE6666975147C0C0C0C0C0C0C0C0C0C0C0C0
        B68D6BCA5D5DB15C59FFFFFFF7F9F7F8FBF8F8FBF8F8FBF8F8FBF8F8FBF8F8FB
        F8F8FBF8F8FBF8F8FBF8F7FBF7FBFFFDDAD2CFC26664D168678E5839C0C0C0C0
        C0C0C0C0C0C0C0C0B18D689D4A45974E48D4E3DECDD3CDCDD3CDCDD3CDCDD3CD
        CDD3CDCDD3CDCDD3CDCDD3CDCDD3CDCDD3CDCDD3CDCED8D2C7ADA8A35B559D57
        46C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
      OnClick = SB_SaveClick
    end
    object SpeedButton45: TSpeedButton
      Left = 118
      Top = 1
      Width = 57
      Height = 39
      Caption = #36807#28388
      Flat = True
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000C40E0000C40E000000000000000000000000FF0000FF
        0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
        FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
        00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
        0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
        FF0000FF0000FF0000FF0000FF0000FF0000FF7A92AD080A0C0A0D100A0D1001
        0101556E8A0000FF0000FF0000FF0000FF0000FF0000FF0000FF1A222A0F1419
        0B0E110E13170203040000FF0000FF0000FF0000FF0000FF536C87303F4F526B
        8558728F5E7A994D657E2C3948465B720000FF0000FF0000FF0000FF0000FF17
        1F262A37454C637C4D657E4F6780303F4F1C252E0000FF0000FF0000FF485E75
        13191F6682A19AADC1BFCBD8D0D9E2CBD5DF7891AC12181E57718E0000FF0000
        FF0000FF182028364658768FAB9DB0C3BAC7D5B1C0CF7790AC28344132415200
        00FF0000FF07090B4054697790AC9DB0C3B4C2D1BECAD7DEE4EBBFCBD841556A
        242E3A0000FF0000FF0000FF10151A6682A194A8BDAFBECEBFCBD8DAE1E8C1CD
        D96783A22733400000FF0000FF0F14194A61796884A397ABBFB4C2D1BAC7D5BF
        CBD8C4CFDB465B72222C380000FF0000FF202934232D395C77958CA1B9B0BFCF
        BAC7D5C1CDD9DAE1E8889EB627323F0000FF0000FF0C10144C637C5D79987A92
        AD9DB0C3B2C1D0BAC7D5A1B3C5475D740A0D100000FF0000FF0000002A364459
        73917C94AF9CAFC2B9C6D4B7C5D3BCC9D6839AB32935430000FF0000FF161D24
        3D50644F68825A75936D88A6718BA8839AB36884A327323F0E12160000FF0000
        FF080A0C1A232B4C647D5F7B9A7F96B094A8BDA0B2C5A5B6C84E667F1C252E00
        00FF0000FF0000FF1A232B2D3B4A556E8A4F6882526B85475D74242E3A2C3948
        212B360000FF0000FF38495B5E7A99182028405368536C87536C87566F8C526B
        851A232B2A37450000FF0000FF0000FFA0B2C532415227323F222C38212A3520
        29343342534E667F1E26300000FF0000FF405368E8ECF1516A84202934182028
        171E251921291B242C1B242C4F68820000FF0000FF0000FFDAE1E8E9EDF1C6D1
        DCA1B3C5718BA8607D9D5C77954A61791D252F0000FF0000FF3B4D60F0F3F6C6
        D1DC92A7BC768FAB6783A2546E894D657E2B38460000FF0000FF0000FF0000FF
        0000FFD6DEE6D3DBE4AABACB8198B2718BA85F7B9A536C8725303D2834412732
        3F475D74EFF2F5B4C2D18DA2B97C94AF708AA75E7A994053684960780000FF00
        00FF0000FF0000FF0000FFC7D2DDDFE5EBC5D0DBA2B4C6889EB66E89A64C647D
        2D3B4A0000000000003C4E62EAEEF2C4CFDB8BA0B8768FAB6884A3556E8A242F
        3B728CA90000FF0000FF0000FF0000FF0000FF0000FF8FA3BA7B93AE6B86A45A
        7593465C733A4C5F3241520B0F130E1317354556768FAB5E7A99566F8C536C87
        536C873A4B5E3342530000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
        FF7F96B0607D9D617E9E56708D5D7998303F4F29354338495B57718ED7DFE765
        81A05C7795597492495F772E3C4B768FAB0000FF0000FF0000FF0000FF0000FF
        0000FF0000FF0000FFE8ECF1DCE3EABFCBD8839AB36E89A637485A2E3C4B475D
        74556E8AE9EDF1AABACB889EB6768FAB4A617925303D0000FF0000FF0000FF00
        00FF0000FF0000FF0000FF0000FF0000FF0000FFD6DEE6B9C6D490A4BB6D88A6
        3C4E620506070E12164C647DE9EDF197ABBF768FAB6380A02E3C4B4C647D0000
        FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFDBE2E9C0
        CCD8A5B6C87A92AD394A5D0101010B0E114B627AE9EDF19BAEC27B93AE57718E
        2C39480000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
        FF0000FFC7D2DDD5DDE5AFBECE758EAA566F8C5D7998536C8794A8BDE3E8EE95
        A9BE758EAA41556A556E8A0000FF0000FF0000FF0000FF0000FF0000FF0000FF
        0000FF0000FF0000FF0000FF0000FFE1E7EDDEE4EB9AADC14A61794F6882768F
        AB6783A2D5DDE5ADBDCD6A85A338495B0000FF0000FF0000FF0000FF0000FF00
        00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFABBBCC869CB57891AC
        212A35879DB6DCE3EA889EB65D79985F7B9A2D3A49556E8A0000FF0000FF0000
        FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
        00FF758EAA5F7C9C5A75930000FF0000FF0000FF6884A3597391607D9D0000FF
        0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
        FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
        00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF}
    end
    object SB_Add: TSpeedButton
      Left = 176
      Top = 1
      Width = 57
      Height = 39
      Caption = #22686#21152
      Flat = True
      Glyph.Data = {
        96010000424D9601000000000000760000002800000018000000180000000100
        04000000000020010000430B0000430B0000100000001000000000000000FF00
        0000C0C0C0000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222
        2222222222222222222222222222222222222222222222222222222222222222
        2222222222222222222222222222221222222222222222222222221122222222
        2222222222222211122222222222222111111111111233322222222111111111
        1112333222222222222222111222222222222222222222112222222002222222
        2222221222222220022222222222222222222222222222222333222222222220
        0222222223332222222222200222222333333322222222222222222333333322
        2222220002222223333333222222220002222222233322222222222222222222
        2333222222222200022222222222222222222200022222222222222222222222
        2222222222222222222222222222222222222222222222222222}
      OnClick = SB_AddClick
    end
    object SB_Delete: TSpeedButton
      Left = 234
      Top = 1
      Width = 57
      Height = 39
      Caption = #21024#38500
      Flat = True
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000C40E0000C40E00000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0