dierj.~dfm

库房管理程序,希望能给大家一点启发.这个小程序现在已经用在我们这里的工段,反应良好.

object Form2: TForm2
  Left = 201
  Top = 123
  Width = 561
  Height = 388
  Caption = 'dierj'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 553
    Height = 361
    Align = alClient
    Picture.Data = {
      0A544A504547496D616765F3F90000FFD8FFE000104A46494600010201004800
      480000FFED0DFC50686F746F73686F7020332E30003842494D03E90000000000
      7800030000004800480000000002D80228FFE1FFE202F902460347052803FC00
      020000004800480000000002D802280001000000640000000100030303000000
      01270F0001000100000000000000000000000068080019019000000000000000
      000000000000000000000000000000000000000000000000003842494D03ED00
      0000000010004800000001000200480000000100023842494D03F30000000000
      0800000000000000003842494D040A00000000000100003842494D2710000000
      00000A000100000000000000023842494D03F5000000000048002F6666000100
      6C66660006000000000001002F6666000100A1999A0006000000000001003200
      000001005A00000006000000000001003500000001002D000000060000000000
      013842494D03F80000000000700000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF03E800000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FF03E800000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF03E800
      000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF03E80000384249
      4D0408000000000010000000010000024000000240000000003842494D040900
      0000000C07000000010000008000000060000001800000900000000BEB001800
      01FFD8FFE000104A46494600010201004800480000FFFE002746696C65207772
      697474656E2062792041646F62652050686F746F73686F70A820342E3000FFEE
      000E41646F626500648000000001FFDB0084000C08080809080C09090C110B0A
      0B11150F0C0C0F1518131315131318110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C
      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C010D0B0B0D0E0D100E0E10140E
      0E0E14140E0E0E0E14110C0C0C0C0C11110C0C0C0C0C0C110C0C0C0C0C0C0C0C
      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0CFFC000110800600080030122
      00021101031101FFDD00040008FFC4013F000001050101010101010000000000
      0000030001020405060708090A0B010001050101010101010000000000000001
      0002030405060708090A0B1000010401030204020507060805030C3301000211
      0304211231054151611322718132061491A1B14223241552C16233347282D143
      07259253F0E1F163733516A2B283264493546445C2A3743617D255E265F2B384
      C3D375E3F3462794A485B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6
      F637475767778797A7B7C7D7E7F7110002020102040403040506070706053501
      00021103213112044151617122130532819114A1B14223C152D1F0332462E172
      8292435315637334F1250616A2B283072635C2D2449354A317644555367465E2
      F2B384C3D375E3F34694A485B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6
      D6E6F62737475767778797A7B7C7FFDA000C03010002110311003F00EB9980E7
      5DBC9F82D16303406952636756E8A44C4177D2ECA8C3188EBDD7DA2BF15F6B20
      69F1D1645DD1AE2E25A41F815BA49EF26548081204253C3199BD422DC2A7A7DB
      5FD291E455FA6A0D1A9D56818734EEECB2B23D425C1B0CDA752413FC53258863
      A23D569BB6DC69C851735AE10482B019D46D378A9ED12E200702477562AC9735
      ED0E83B84EE9911FF98A67BC0F4553672F0D9B4BDE61A3BFF72CF7678A9BB2BF
      64772D2E3F936AD1AAEFB502F226B03D80FF00AFE720FA353DFB0361EED25AD0
      63CFDC9928DD18E9695ABC969A2B73DC5CF734130D3ACFC02637DA74AD847990
      53B8D46DD92F0D1A0F6B781A2BCC6E2D4D04EA478C7FDF53FDB1D4A2DA159BED
      711244183208FCA8C711A47BF53E6ADE3D959712044EA81D42F2C692D4382223
      C576944CC0AC9909ED60ADBB5BA941C2BED7BBDDC2B56B5A75DC014D0018D80A
      7FFFD0EFE87831AF2A76EAE6991E3C1595D2B2FD47B41F82DA7101B21A0C7C95
      2C52E381F05C51E87F387E2A5BDA04170FC537A8089D8DFBFF00D8876595B753
      000E4984F240D6C29236C0491E32A9E702C3B808982674E12AF359693E8C6C1A
      6EEE4FF2553CA6D790F3AF1A027550E49DC74D7B240732FAEA6DA2CA839C4104
      3748D3F9437266EF18D6B769E0906789F6BBF3555CCE92E6E48B43DCDEDB8691
      FBBC2BD84FC9A3F9C70781FBE35FF382A97AD6CB9D4C2A9E30C0ADBEE71804F0
      0056AA6595B4CB8971E5DC0F8356766F59B69F4EB00346DD5D04EA7E2A555E2F
      AF7BDDB8F9953C671078413711E4B6916763DFEB0B2BB4FC377FB559AB2619B5
      EEF70D0CF2B373AF7177A75561FF0023FF007C6BD57AACCCC669B41907534BE7
      4FEAFE7B545C752349A7A4A64EA4A95988DB7959983D43ED9EFAA40061CD3CB4
      F815B3435C5BA024F90563118CC555841693B1994F1A2A9634B9E35D168E5D77
      CC9ADC1BE31A2ABE9A8F2475A02A921FFFD1EA3A6D06B20ADD0EDED96F3DC0D5
      500C15D73C2862E458EBA19AC73E0B371CBDBA89FD25E756DDD45C756BDCD1DD
      B023F2AC1EBF7D9557B6EB3D1A00DD6B811B881A8AD9F4BFAEF5D417B364B9C3
      FDAB92EA38E33B3ADBB21FB31A93F78FCD0CFDEDC9D9E3115A9F574B50686175
      A65F434E136CAE9DC5A4D8412E801DB9AE6B59F4B72D9A0B9EC0E5428AF073AC
      0DC7AFECCEAF4AD932C70E7E8FFA477E7FEFAD6A2BD8C0D3A3B8855C44F11FDD
      E895F6B5ED870593977B6BB9B53A5A3701BE44479ADD16D74900D55D8F201FD2
      49E75FA283D631EABB00BA9C6AEBBC912E6340E3DD09F921712411711A8FD8A0
      5A3B7D5F734823C8CAB15BE90CF4C813F0599818F757FCE0015B7F4FCEBE5D4D
      C2A1A8FA620E9FBAF51C493B0B5271834B89733DAFF155CE1DFEB0AE07BB8238
      F328F8EEBF1B6D5925AE74097B0CFDE16CE2E3B5F5979D77683E013E18864D06
      846EABA6B74FC0A2AB00ADBEE77D37F72AEE5753AB19E31AA8F53CF852C667A7
      7169593D6E97B727701A9320A9C938B15C051E2A3E08DCBA3FB55F5B66E876EE
      0010555C8B05865A0343BB059F517DAF6FAB3238D55E2CD8D0A339673144D81F
      6AAA9FFFD2EAF3330870A877E48EC0725471F21A36B2BD0BB81DC0EEE52B70CB
      9EF78F0007DFB90A9A2C6E5FD2DD00083A7F29656A059F989A64776BA5B6D6D0
      79110B93EB1D3B2DEF02D712DACFE8F6E807DCBAEA4ED609546FC8AECC938AE6
      03AF3DFC54B9B1C6518EBC32DBFBC500B83D2F11F63808FD237923491FBCB6B2
      6AB6B6B5E35701A9F30ACD145143BDA209E519CEA0B61EF8D7802652861A8912
      3EA2AB79BBEECCB1E6FBADC7A4B34AC5AF150247F5B76ED9F4D5CB329ADC0AFD
      6B2A739E5D0EA9DBDBA7B7E929751E9D5656AD111C02AAE7E06259874D3EBBEB
      B290EF68A5CE064CFD2DD5B54244A3C7DEBE632F9FD51FDE4F64CDAA97B1AE16
      06931BA4E834437D188E6875CE0D106498D0CE8D8FEAFBF72AB8D45B537524B4
      78AA19375B9177A6276F651190A17153A15E674EAC347A924876E8E01025A4FF
      00216FF43CEA727140ADD3B4910795C8B7A7D71EED4F8AD3E85B68CA7D5BA1AF
      123C9C3FF249F83298CC6828E8A2347AAB5B043C72876E460DADD996008EE67F
      EA9A955717435DC840CA2E025BB7E6D07F2ABD39FA491441DE24712D4950E8D4
      FBAB87BBB4CBBFEA906E75763896081E0B36FCFC8AF4861F3D8250F0F31F6584
      1FC34558E7040888803FAA38534FFFD3EEA87B092C71D48D07C11C515B6CDC07
      2B22B6DAECADDC41D16CB2D616C6BB87659F86424351B1D17955B1B7E906FC56
      7E65E297B5E6E680E1074EE3CD5F7B458CF0F8ACAEA38565D4BAA609772C3FCA
      1C2398C80B02D41AE337D5C90C6E45640D4F3FD544B1D63AD6B1960B23576DF1
      3FF98ACFC3C5147F39ADCFE5BF0FCDFEAB56AD16E2E2969BEC6B0B8F2E312557
      8DCB735AEA6D2DEA6A7068360F914F75546C3209D34417758C170735B6027E07
      FB958A6C0E130751A76568181F48225F8ADD5C3CECDC7A059B9A7D2DA440D5DF
      259585D57A339E747979FCD74F33FBDFD55D0F53C2A5EDD696B9B07734F727C5
      7099EEC4C3CB733EC204910EF001BB7731B23DCFBB6DBFF6E54AB4A1EA224637
      FA36175BD4DA68B44E334CB8CC93C37C3695671DB8F4D4F71D4F1FC573BD2FAB
      D3E98A5F4B83DC1AE7CFD005A49777DDE9FBBD9FB89759EB6D341C1C1A48B6C0
      07A91AB449DCEFE4BADFFA09B18EA4E9FB14F55D3BAB3322FF004C7BFF0035AF
      1CE9A6AAF6535C013303C4AE4FEA91763D8E7DFA40D954F07FD2387F57E8AEB6
      CC8AECA4A9B1CB8B1C84A5AEA420EEE65B49B0788F11AA8E2626CB0B8AD6AABA
      9D50E3841BA19A0109A71501227C556FFFD4EE21ADF737BA954D04FA92E07C88
      59F7DF71AE2A6971F247C7BF2C57A8737C8ACB8CC5EC6B75EDFF00B56D11CC77
      2AA5BD51A1DB4C01E48365D6BB96BCFCFF00D8A864E17AC7731E5AEF0294F348
      E80A806E5F5B1CEFB4D7A877F391E3FBC8AFAAF6E33AFA5A196B44B6CDAD27FE
      9872A38032287FA766AD3F72B06CEA18A4FD94B6DA8FF81B6481FD57A6C64352
      41D7F77F465FBC9702CFAD7F596A2FDD9C218623D2AE79FF008B577A5F59CACB
      22DCEB2CB64C35C5B0D9F2F4C35AB3FAC6165E6585E3A6D18EF77377ACF23FED
      96FD24DD2BEAFB85CC7DC5F66D209E58CD3B35ADF77FD24D3299AB9995773231
      FF00164AFA3D89B5B653E3A2E4FAEF4A7E53E4FE8DA0CEF3C8F82EBAB656CAA1
      ADD9F03FDEB333309D63B748B7C03B423FEFAA4CC09113B9080E0E2B2FA31FD1
      C57023BD963038FC7F3772CDCBE8F9D9776DF51DFBCF7B7DA1A3F7BDBF9DFB8B
      A97625C1BC36A6F72753FE6B558C718C19E9B7BFD227927C5CA11C5C5DBE8970
      F0C5F59ADAE77B2A1B582358F8AD3392ED84491A72267F0957C61E3BB5D12761
      D23C13B825BA96E9F90F73449244727FDA8F90EEEB3F232598CD869F82851936
      1ACD961D3B23C7E9E153FFD9003842494D040600000000000700030000000101
      00FFFE002746696C65207772697474656E2062792041646F62652050686F746F
      73686F70A820342E3000FFEE000E41646F626500640000000001FFDB0084000A
      07070708070A08080A0F0A080A0F120D0A0A0D1214101012101014110C0C0C0C
      0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C01
      0B0C0C15131522181822140E0E0E14140E0E0E0E14110C0C0C0C0C11110C0C0C
      0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
      FFC00011080258032003011100021101031101FFDD00040064FFC401A2000000
      0701010101010000000000000000040503020601000708090A0B010002020301
      0101010100000000000000010002030405060708090A0B100002010303020402
      0607030402060273010203110400052112314151061361227181143291A10715
      B14223C152D1E1331662F0247282F12543345392A2B26373C235442793A3B336
      17546474C3D2E2082683090A181984944546A4B456D355281AF2E3F3C4D4E4F4
      65758595A5B5C5D5E5F566768696A6B6C6D6E6F637475767778797A7B7C7D7E7
      F738485868788898A8B8C8D8E8F82939495969798999A9B9C9D9E9F92A3A4A5A
      6A7A8A9AAABACADAEAFA110002020102030505040506040803036D0100021103
      042112314105511361220671819132A1B1F014C1D1E1234215526272F1332434
      438216925325A263B2C20773D235E2448317549308090A18192636451A276474
      5537F2A3B3C32829D3E3F38494A4B4C4D4E4F465758595A5B5C5D5E5F5465666
      768696A6B6C6D6E6F6475767778797A7B7C7D7E7F738485868788898A8B8C8D8
      E8F839495969798999A9B9C9D9E9F92A3A4A5A6A7A8A9AAABACADAEAFAFFDA00
      0C03010002110311003F003C73996F3E50F21C2C50CE715595C5556338AA3613
      81211D11C05B228C8FA645B82A81819AEA62ADD315A75302697018A6975314B4
      7155290E163241CC7241A248297BE49A4A124C2C509277C5541F15516C095A71
      4358AAE04E2ABD5F0AAAAC98AAB2C98A15164C52AAB262AA8AF815515F14AA29
      38A5556B8190565181905551819855518B20A8A30320BC606417546297571575
      7156AB8ABAB850D62AD118A1630C5895365C2C4A8B2E162428BAE160545D70B1
      2A0EB8B15075C2843BAE2AA2CB8AA995C55720DF1545443A62A8C8F024225303
      30B8E2A5B18A85C314B78A5C7142DAE2AD16C50B4B6285A5B0ADADE58A1D5271
      56C2938AAF0B81952E000C55BE40629B5A64C516B4C98A2D69930ADAD32628B6
      8C98ADAC2F8A1697C55616C28584E2AB4838A161538AAC28714A99438AAD298A
      B5C315704C55784C555153155555C50AAA314AB28C095418A578C0C963614151
      7C2C1FFFD03C7CCB79F286930B14330DF155A14938AA2238F1545C4981202362
      14C05B023231916E0AEA322D81500C52EE38A5BE38AB74C52DD302AD230A1424
      C2C24839464834490920C935942C8B8B042C8B8550ECB8AA932E05585714B5C7
      15753155C06285EA30AAA28C555557155655C50AAAB812ACAB8A55957164AC8B
      81905655C0CC2B2AE064151570330A8062C9BC55D8AB58ABB15762AEC50D62AE
      C55AC55632E2C54D970B12145930B02145D70B12141D70B02A0E98A145D30B15
      064C52A650E2AD84DF1544C4B8AA2E35C0C8221060661B6A28A9341E2714143B
      EA1691F59391F05DF0D31E20A0DACC43EC46C7DC9031A5E355B2BFFAD3BA94E1
      C4546F5AEF4C693195A289C095A5B142C2D8516B6A4E2ADF138AB61314D2E0A0
      604D375031568C98516B0CB8A2D6197145AD32E2B6B4C98A16993156BD4C55AE
      7855AE47156EA4E2AEE35C55B09815BF4F1577A7855698B155A62C554DA2C55A
      F4B1438458AAE1162ABC478AAF098A55153025515714AA018A5BA604A9BE1625
      41CE162FFFD13F75CCB79F28774C58A818EA70A17A458A5111C5812022A38B03
      301151C781B004422645B00565181B02F0314B78ABB14B63025BA62AD118A142
      418430921A44C934908491324D6421A44C2C08433C78B143BC7850A4D19C52A6
      63C55AE1815DC3156C26155E13155554C50AA8A3155554C52ACA9812ACA98B25
      554C0C805754C0C805555C0CC05555C0C805E062C9BC52EC55D8ABB15762AEC5
      0D1651B12013D315B6F14B58A1D4C55AA62AB5971634A4C985890A4E985890A0
      E985810A2D1E160428B478A2949A3C50B0C5850E1162AAF1C781202E92E6DE0D