有没有大神能够逐行解释一下代码?Delphi

来源:互联网 发布:淘宝网页显示不正常 编辑:程序博客网 时间:2024/06/05 00:44
object Form6: TForm6
  Left = 406
  Top = 589
  Width = 600
  Height = 500
  Caption = #35835#32773#26597#35810
  Color = clBtnFace
  Constraints.MaxHeight = 500
  Constraints.MaxWidth = 600
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 592
    Height = 134
    Align = alTop
    TabOrder = 0
    object Image1: TImage
      Left = 2
      Top = 15
      Width = 588
      Height = 117
      Align = alClient
      Picture.Data = {
        0A544A504547496D616765601E0000FFD8FFE000104A46494600010101004800
        480000FFDB0043000604040405040605050609060506090B080606080B0C0A0A
        0B0A0A0C100C0C0C0C0C0C100C0E0F100F0E0C1313141413131C1B1B1B1C2020
        2020202020202020FFDB0043010707070D0C0D181010181A1511151A20202020
        2020202020202020202020202020202020202020202020202020202020202020
        20202020202020202020202020FFC00011080075024C03011100021101031101
        FFC4001C0001000203010101000000000000000000000102030405060708FFC4
        0048100001030202050806080502040700000001000203041105120613213151
        14223241526171910715164281A1233343536292B1C1245472D1F082B21725E1
        E234356483A2C2F1FFC4001A0101010101010101000000000000000000000102
        03040506FFC40031110100020201020503030303050000000000011102031204
        21133141516105227114329181A1B172D1F0234262C1E1FFDA000C0301000211
        0311003F00FCB4A8202020202020202020202020202020202020202020202020
        2020202020202020202020202020202020202020202020202020202020202020
        2020202020202020202020202020202020202020202020202020202020202020
        2020202020202020202020202020202020202020202020202020202020202020
        20202020202020202020202020202020202020202020202020C94D4D3D554C54
        D0373CD3383236F12549265F531E883028228595988CE2AF56D338698C3731DF
        96E09B2E1E34BC3FAACBD21F285E87B840404040404040404040404040404040
        4040404040404040404040404040404040404040404040404040404040404040
        40404040404040404040404040404040401B77209CAEE0825B1CAFBE4639D976
        BAC09B78A06ADFD9281AB7F64A08CAEE083E87E8B305A6A6153A578A7D1D150B
        48A72EEB93B43C3A971DB3E8F27539FF00DB1E6E1692692E218DE313D787BE18
        5C72D3C4D3BA31B974C71A874D7AE318A7985A77101010101010101010101010
        1010101010101010101010101010101010101010101010101010101010101010
        10101010101010101010104B2D985F720DF8208DC2DD68C4CBE8F0E86E038CE8
        1B6A70DA76478AD30BC9237A6F7377B5DE3D4B8CE531954BC7E2E58E7DFC9F33
        9E972DF658EEB77AECF6C4B508B1B23420202020DB652D2491F32ADA24B6D8E5
        6B99E4E19879D944B7D55BA3D86E35A214DAA8621550C7F452C61B7CC06D6973
        77A8FCD7EAB3D3D44DCFDB2F11EAB6588CBCF1B0B7BF82E8FBBCDF4AC0B068B4
        6745267088C989624D0DC8D6DDE6E3636C36D97967EECBF0F2E53CF2F8701BE8
        834B04798D345CEE7584CCF7B6DBE6BD3D9EDA97ACA9F4551D7E054F07278283
        11840FA5E27AC3CB2F99728E513DFC9E6D7AB6C653ECC1857A12C3CC67D6B3C8
        D947540632C3E0482EF35D1E9C627D7B3D954E8668CC981C383CB439E869C011
        B1A5CD75C7BD769173E2BCFBF6F871CAA667E1D31D58B88EF477A110F30E1E45
        BB73C97FD42F973F55DFE9AA7FBFFB3A78387BBF37AFB8C88080808080808080
        8080808080808080808080808080808080808080808080808080808080808080
        808080822E10668A92AE6FA982493FA18E77E814B17761F5EDE953C8DFEA691F
        AA58C46195BBDB6414B154101010481741961A57CB347137A521CA001737F01B
        D44B6CCD83D4C6F746C7C72BDA6CE8C1CAF07BD9264729C93934DD04EC7657B1
        CD77070B1F9AAD36A9DB3F64AAC4D3D9683E91D56098903230BA867E654C63BF
        DE1DEB3B30E50F36DC627F2B7A43D1AE4789F2FA36E7C3B121AD89E06C0E3BC2
        9AE6E28D19F6EEF152D14B7DDB56DEAE4EAE01A118B639CA3913A3069C5CB642
        5B7EE6EC3B5672CA9C76F538E1E7EAE5CD84D54323A395A59230D9CC3BC10B4E
        B19C4B55D0C8DDE11BB4647F041B4EC23148E9D955253491D3C9F57339A435DE
        054738DB8CCD5C5BE83E8BB149236CD84CC6D73ACA7BFCD261F13EB3A2EB387A
        A380D1FADDD884EC8DB42CE7C8FE890FBEE206C3E4B1965E91E6CF47D44E5AEB
        D5EE28B04864AE871674E66019FC34603A30CBFC45FE2130C629F634E988EEE9
        495F4AD765749CE3C01FD97873FA9F4FDF1E5FC5BDB1AB25391C12BB3891C6DD
        EBC1AFE97A777DD86CCB28FE7FCB5E2CC7A33C716ADA6CEBDFB5B97D4E8FA38E
        9E26B2CB28F972CB2B6835929275B8848E6DCFD580C1E00ED2B3B3EA9A70CB8D
        F772C356597ACD305541831979F359D6DB99FB7FF95CA63D66ACFBC72FE32FF6
        633E9B0BEFFE5F9417BDDC404040404040404040404040404040404040404040
        4040404040404040404040404040404040404040412D69738346F3B020FA9E83
        FA20A5C469A1ADC5A77164DD0A78B67E672F2ECDF5E4B10E7698E90E17A3B8A5
        4609A3B82D3523E93E8E4C42A23134EE77596E7BB5BDDB16B0C672EF323C5D6E
        3F8E569FE2ABE794763390DFCA2CDF92ED18C42340EDDFB568648E10EEB41B31
        E1A5FD172B4C7374283451F58D36AEA7A69AF66C5505CCCDE12652CF32B3334E
        796EAF495AB74134AA919AC7503E687EFA9ED3B3CE3CCB3CE0C7AAD73EAE1C90
        CB1BB2C8C2C7765C2C7C96DDD5170506689D331ED923396461CCC70EA70DC544
        75AAE0388B1D88D302F9C006BA9BDE6FE31C5AA7939C4F1ECB61D5CF600D275B
        0FDDC803DBE46F6F82D714CA1EEF43FD979EB591D6536ADCEDB1D9D76661D5B7
        FEAB96FF001784F875CBE5C266A7BFED7D6207E1EF9434474CD923B6463D91B0
        FF00A367E8BE4EA8EBEFCF19FF009F8B7B30DBAB2F26F5761F438853886BA065
        445B0EADFB45FB97D9832889799C4FD1CE8BD454E7CADA38C0FAB84589F12E2E
        1F25E7DBD6EAD735965113ECE7FA7CA67B793161DA178760F24D5387D5EB222C
        E7C4E0337E61B3E4B9E5D669D9DB1CA393CDD6F4B971BF672F18D04A5C61F515
        B0BC32AC0BBE02000FB6F766B8B2F469D9DAA5E7E8F299C67DE18B46340692A3
        07AA82A68E291B3921B50729783DC778B2E9B226FB3B567977C5A345E86A4E52
        3964F0470B1F7B5F339C3C05ACB19F55AA26A72889FCBD1E16C98F677F4A740E
        BEBE8E18291D1CB1C7EE742DC2D7D8BA614F074FF4FCB4E5395F299791FF0087
        FA454188426082F50D3768610ED97DB7CB7B7C56DE8D98F28E331E6FA2D4E8A7
        AC30C14F34BABCC2EF6966D0FE37B85CA21E5D3F4DCB1AE39557A536306C22AB
        088751538B54560B00038746DD927315E1EB7AFD5AA6B29CA27E21F5B1D197BB
        A02091D77C52E736B5E66DFF004B2E7A71D3D4DE51DFF38A658671E53DFE5691
        D5118E74913621BF6381F926787518476CB5C63F8769CF0AEF6E7CF5B1EB2CE3
        2169162D6BFC8EDBD96B0CE73FDDE5FE5F2B6F518C65EB5F972E67C34AC73997
        17DC1E6E6E7BC5B72FA111CA5C3D7B3CD55BC3A7249B93BD7ABC9B887C29707D
        7101010101010101010101010101010101010101010101010101010101010101
        010101010101010101010107B3D12F4A58EE8FB5B0168ABA56EE63CD9C3C0AE5
        9E9891EB311F485E8CB4B221ED2E172415D6CBCBE26DA51C39F1F4ADF89A5728
        D79E3E4B6F3F36867A38AB39B0AD306D383BA2AE84FF00BDB97FDABA78997B23
        42A3D1D35A7F85D24C1EA59D475EE8CF9398AF8BF12357D87C4187FF0032C2CD
        BFF5918FD6CAF883341816A4FD36298733C2A33FFB1A56A33FCB138BA74D4F86
        31C09C4239ED6392289EE07BB9D916AE5C3287AEC29B8354389A23360B57B816
        39DA871E25B7D9E04AC658E5FEA87973F9EF0DD7E17A415528A6C430FA5C6987
        73CC6DBDBFAC6EF8ACE38633E534C63AE27F65C4B5EA7D0F6195A333282A30C9
        4F532464ACF2712AFDD1F2EF1FA88FFC9CB93D0662F19BC13C52B7A81391DE5B
        47CD6F17A62764F9C57F56E611E88F1B85C2AA1AB6D1D5466C39CE6BC7C5A08B
        2D4D33C72CA1E92A3D1DD04F0FFCD8524B57D753030D3484F1716735DF16AF9D
        D4753AF4CFEFE3F13DDA8E9F3F4730FA307C0E12514A25683B237101FE63FB2E
        DD2F5B8EDF2A9FC4FF00EBCDCB3D79C79C3DAC535032963C3EAA972398C19E39
        8076EEBCD620AE7D46FD984F6C3947BC4C5FF0EB8CEBC62A7B31D13F026622D1
        09D4D486EC6B5EE0DB702DE8F92BA3A9CE63EFC271F99663C38CBB4BADFC1CAE
        36746F775D9C0ABB3A0D3B279658C4CFBBD31B3DA559445083969F3DC7BABC1B
        E3574D97DBA672F98FF92E9FBBCE5C30E9692A4481A59F80EDE695E8D3B79472
        EF0FCF6DC67A7DBD9B988630DA1A2D65140C7BDDB48B8D9DE5A39C57D1D79727
        D29DF1C6F1F529B19A092944D54C113BDFB0B817E3D6BC39743D3E53DF08B635
        7D4F198B99FE1D66381883E1B39BBDA46EF35E99C38615AE23F1E50F7DDB0471
        80F71743131CFE938117778AF2EBD9D467359E18C47FA9270C3D3CDA55D8950F
        AC5B4ADAD9A3AA03EA6101CCB7175C597BF398C62E7C9E4DF373DB2CA27E298A
        A31CA982D10632A2571B036C961C4804AF3EADDCFBCC7DAF367F50E13C67BCCB
        1C98A57C8FE6BF2DF606B760FDD4F125C3F59B329F3AFC29466BB9286D5CCE9A
        524B9C5C6FE017876ECF132AF46F573E3F74DCB4E36CAD9247C8EBDCEC5F4A6A
        A2BD1C67CEDA98B52BA6607B0DB26C23F75AD3B7BB386DEEF393D23B59D25EBA
        7AE25F135C5F5440404040404040404040404040404040B140B140B141363C10
        32BB8206577028195DC1032BB8140CAEE05032BB8140C8EE050323FB250323FB
        2504E47F64A0647F64A06AE4EC940D5C9D9281AB93B2503572764A06AE4EC940
        D5C9D9281AB93B2503572764A09D53FB2504EA5DC0A0910ED17B81D6544B6C72
        4A3FBE90FF00ED5BFF00B225CAE29683B727E4FF00B954B9666D061AEFB578FF
        0047FDC89CA5B54B82E04FBF29A99DBD931460F98711FAA937E8CCEC96C7B258
        24BF518CE4E1CA295EDF9C66459BCBDBFB9E2CFB247A3CAC93FF000B88505470
        1AED59F294314F13DE24F1A191BE8D74BD8334745AE6F185F1C9FED7153C6C3D
        CF1B16C53601A43447E9A826678B5748CE25CE738977682BABA9EDACA39767E0
        27F65D3938E58C3E8D877A41D1CA6A48E3A89A4D681CE0DA63101DD61B0ACD3D
        3867110E8D0694E8D62B23994D56ED77DCBDA5AE3FD20EFF0082F95D5FD330CF
        2E53397F2EBFA98855DA65A2B4B3184D63CC8DD8E1AB9361EFD8175E8FA0C757
        94E5FD649EA225A73E9BBAA2BE3830C68740E701AD91A737C02F76CED0F9DD57
        5996331C7D65E86A2BE9E16BF5CE66665AF9B606DFB64EC0B8658E394778899F
        C3DB96FE3F96688031B6485F1C92482E1F7197FD36EA5CF3D59618FF00D28C79
        7CFF00F1D7098F5961A86D3C4DCF886AA3BF5ED175CF46BDD395ED8C3FA5DB1B
        A34FAB9B53EAD73DB250C7048E1D09C8325BBAC6C17AF39988AA78B3CF0C67ED
        A64A49646B0E760B9DEE86C3C89FDD7CADBDFB5E58E3F1DA61D34EFE3E96C78C
        6354785C644A6A6795CCD60635D6D9FD6372F574DD344657CB3CBF32EDBBADC6
        F87ACFB3C845A5CE9B17CB3197923CE5884C438B2FD448002F6EDD5DBB79BC1D
        563CFBFB3D0C94BAC2D3BA567D5BC7CAEBC919F1FC3C1194D5479B0025EF30C6
        00A8B5A680EC0F1D76EF5DEBF84E971BFBBCA7FB4B430EC0DFCADF3BDEF14B16
        D6477B5CF7B6FD4BA6CDBDAA3CDEF9CFB2FA4B1C95DA3B48F885BE99D60D53A6
        8F35E9F672D57F2BE198747A3D84CB5738CF5728DB7DFBB6342F0ECCA77E7C63
        CA1BBB64C1CD7CF4BCAAB45A7976B4F062F46DA8FB63D1F336E11E24CFBBA544
        5AE91E2C738DDE1DCBCFBE271C5BE936633331EADA95930A6748C1B73006FD4D
        E2B974DAA32BB7D09FD96D3742656386D1D92BDDCB8CBCB4D7A72F39A19073E3
        D8EEF6F1536E15DE3CA5C36615F872ABB09A8E52E31740ED175DF0DFDBBBB6BD
        D15DDF9F16DF78413641395048604171137FBA82C216222C2062A5AE29E3466D
        614D12B4725C52C3C1139320A385139320A3A7E087259B454FC11392E28A9B82
        B4725C51537044B95851D2F650B958525276544B95B9351F602A5CA75147D808
        5CA75547D8089DCC945F76877486D1FDCFC90EE90DA6EA83E4A9DD3921FE5FE4
        A227571FF2DF2082DA91FCAA09D43BAA90209E4B37552350B4F23A8FE55AAD16
        B7ABEAFF00966A52724FAB6B7F97679251CA13EAAAEFB867E54A3927D4F5FF00
        72DF24A39427D4D5FF0074DF24A4E509182577DDB7C928E70B7A8EB3B2DFCA94
        7384FA8AAF837F2A527384FA82AF80F24A3C43D4155C079252F33D9EABE03C82
        5278909F672AF80F209478907B3757D9F9251E242468D55F01E49478909F662A
        F80F24A3C584FB3157C479251E22C345EB3B43F2AB49E2B23746ABFAA41F9529
        3C48666E8FE283ED5BF9528F1219E2C23178CDD92B5A78816294CF387529EA34
        AE116657BC0E04970F237589D38CFA425C37A3C571DFB714D3F7BE065FCDB94A
        CFE9F1FC2766E458A8DD3513077C2F959F225E13C09F76599B360CF20B99246E
        E263865F9E563BE69C33F8946DBCE075643AADF1CAF68B35E62744EF8969374E
        394330A4706150CF14903DAC2C75DC43B30B756C2015662661C37EB9CABE25D3
        C5710C131181F4F572B9CC7FDA376588EBBAE51AB28F27A2E6DE426D1D8E37E6
        A6C4DA403CC26ED2BD112D726FD257E354B60EAC6D531A3749CFD9E3BD667563
        2E59EBC65D7A4C7E8B74CCD4BCED2E6ED17F92CF852C78730DB18DD1324BB666
        18CFBA778F8AE79E88986E2E14ADACC0EADEC74928B341691C415CF4EACB0673
        D579465EB0E0D4E138117668EA6E3811CE0BD98CCFABACE52EDD3E2F86C50B63
        325F26C693BCAE3969EEF0E3AF2F56BD5D5E15255475514DAB99A46623AFBD5D
        785457A3D78C4B72A31DC2E4A791824B39ED22EB31AEA5271ECC5458BE0CCC3E
        9E195D7740ECC07EEB39E1954D7AAE8C78EBE32D7AEC5F0DAEA86EB1E7511EDC
        BC4ADE9D3E1E3F2D656BD669050B62B4079FB87704C74F7EEF346899F363A7C7
        2846578243C7F856F2D77D9E58E933C72B87464D28C37914A36E73621BE0B8EA
        E9F8BEAC4DE1F2E7E1F8FC01D26B6F676D1E2176DBAED8E2CD538A61D290F613
        1CECDAC7DBE47B9728C328F985E370C6EC6A90F4D9CE53C2979FC17E665D9FA0
        104DD04828241417BA88B82A8BB4A22E0A22E0AA8C80AA8C80F7A88C8105DA88
        B80AA2E188275682DAA41223B20B86F72232343782ACB2B727642233B757D908
        ACCCD5F60232CADD5761AAA32B753D96F9844640E8380F344646C94FF850656C
        90772A94BB66A7EEF30853236A29BBBCD129905452FF008512A571514FD40A14
        B728A7EB6AB652795537779A252FCAA8FB90A5DB5347D944A9646CD4DD84297D
        6D2758F9844A94EB283FC210A9583B0F3EF21DD95ADA13EF1FF3E0A9DD904146
        773C8FF3C113BADC9693EF7F444EEB0A2A53F6C3CC21DD61414A4FD78F344B95
        C6194E7ED9BE685CAC30980FDAB7CD52E56F53407ED5BE689CA56180C27ED1BE
        694729646E8F447DF6A52729641A30C3EF851794ADECBC7F78D1F14394AC345E
        0FBD089C961A2D4DD72AA725868BD2FDF28725BD96A6036CA50E4C67476907DA
        92AD1C92CD1AA776E25296D91BA2D07592A25AFECB52AA587466806F42D8FD41
        870EB42E56F67687A8A25A0E8FD171085CA3D9DA6EE1F050E4AFB3B4D6BE608B
        C95768FD38F7C79216A9D1E8BB63C95392BECFC5F79F2513920E010F5CA7C91A
        B63F5253DFEB4F921C8382D2DAE64779216C5260F4F9BA6EF242DF9AD707DA10
        1010104DCA06677140CEEE282758FE28275CFE282C2A2442922A5E894B0AA912
        CE2B0AC938A2715B96CBC50E2B8AE978A2715C57CA8705C62132B69C57188CA9
        69C561894C96715BD672A5A7158627221C593D6AFEAB5D54E27AD27F14389EB5
        9B821C418ACBC12CE0C8CC564DE5B744E2CC315791D9438A797484EF052CE2B0
        AB9FA804B4A5C55D4F6554A668F10AA6FD9828532FACA576F611E0544A0563FF
        00FD552971592FE1F9A14BB6B25E0DF35529B2CC56A40FAB694296388B9DD287
        C9C8502B7F0382252C2B4F78F822532331091BB8FC8A14CBEB8A8DC5C08F0285
        2457DF7DBCDCAA532B6B63ED1F344A5856C63ED1DE611299998A01BA770F2429
        9D98A444F3EA481F04B4A6618B61CDDF3B9DE000FDD2D38AE348B0D66E6B9DE2
        FF00EC967095869853B7A1037E26FF00BA8705869ACBB9A1AD1DD654E0D98349
        AAE6239F6F2559E2F414315454C61CE9E46F7580F244A7463C1DBBDF2BDFDD75
        99CA212977E0CC79BEB1FE1748CE24A47AA5F1B8165DE3C56DCF386F8A4616ED
        07728D52C28692DD0DBC1265613A8A7B7472ACC4CFB2F151DAA6F46E7E2B4C4C
        2A2569EAB5B8AE732910D7AA0246F35F9480AE39C373ADCCD53F5B94BEFC485D
        19974192C2C1B4EC6AC39A9255C239D624F65688960F5DC0D932107BCA3A5227
        C51AC81C430F4948931C55A7C49B3B0B72F394CBB14DCA5ABEA7B768EB5A973C
        A5B8D9E33EE2C903E78434FD1DFB94C65B6A493C03DCF15A4691AE8F317E4D9B
        9A9324B9F55A414B1CC5997A28BC65F98D727DC10101010101010101010104A8
        2551282C0A0B66445814160E416CC8949CC826E889CC8199113995160F419048
        11176CA382232095BC10646CCDE0AA5320A86F02894C8DA91DE894C8DAAEF289
        4CADAA3C50A5C54FF9655171503FC082C271FE0416128EE4458483B905848852
        758852759E3E6852739EFF003444EB0F13E6A8DCA4A0ABAAB64D8DED12B33914
        E83B04A6A78C3EBAAF56385ED7F01BD679354D774F8047D164F39E24E50AF746
        27E23860E850ECFC52156A453D6545FC9B3F3392910310A23BE980F07B87F754
        A6C452E1EF3D1919E0E0EFD82ACCBB94705346039F3000EE67BC96E593B54D8D
        54C794411E58C76BFEA96C4B70E993211F4EF8C1E036A4D4A776BC9E9269586C
        D6E6F8DBFBA44437C6530FA4988F4D9E162B4717462D34A7963CE4160E2E360B
        9E75252A74CE98F41D98F14C31A6661BB0D79A96364CE2C7A82B95FA1C2D972C
        2E78CD27C2E98F2F5678C3698C881B83F35B5A6436EA3B9632BF469AB3125D97
        79EE52227D5C339B9A62969A431F376B82DC43718A21A1796F3CD89565235B3B
        70EA60DE803DE51D290EC3E178CA5832F05CE272F6561761B031E1ECE61E002E
        92C6530CBA99B7B1BBB8EC5988739C2D3F4C378B2315308150E75EE368D85739
        6B19B694D560B8B6DB5756A9C5C5B1110446C6C77342CB58E2F17535E4CCE39B
        7AD3D318BE46B93E888080808080808080808080825412A89BA09BA0B5D116BA
        0B5D04A09B8445904EC44104A09B9550CCE416123905B5CE445B5EE416152512
        96154852E2AC2A52C2B1BC544A5856378A1C5615ADE2A94B72E1C5138ADEB01C
        5138A462238A1C53EB16F692CE29F588ED259C4F58FE2438A46256236A1C5E8B
        0AD2CA66B1B1CA756E1D7D4573986A21AB8B72AA8A97D5D3482A627F535D7737
        FD2AE39138B92EAC95A6CF394F7ECFD56ED9E28E5C7B6852DCAFF12252EDAB68
        3B5C8537A9B15A467D602EE01B60AB3384B6FDAA6C62D044C677F48F99518F09
        AF51A4D57374A536E0AB51A9A67132EDEE46B882B19D650A6DC75EC84077DA9E
        88E08CD32478819A4E7BDCF777ED438BD0E10295EF689650D1D77296E32F7346
        CA3C800376DB6346C5CE36CDF91C1BCD9B0E8ACED82DD6BB433C586A348F0880
        FD24A077858CF08C97BB5FDADC20BB24526672CF851093E4D3A8D2FA0A6377BF
        9FEEB7FBADC39E1AFBB5E8B4DA9DE5E6E2C369375A9C9D382C3D2161D9F68D9D
        A056270C656A57AAD39A78A1CF18CCB5150CC4F768374F1D23C16B403BBC56AD
        67077A9749E2318325EFD7652D8E4DC83482927D8C241F059CE3E69A6D37118C
        EEE7298F6F5B41F53191B5A7E49965F12BC5A155241E1DEA44B9CE2F378B727A
        863DAD3770DD65B74C7B4BC3551CB3B8106E37A3D38BE6AB9BDA202020202020
        2020202020202020209B940CC503314121E7E08275A504EBBB904EB904EBD0A4
        F2844A4F284293CA421472908949E52D4293CA421C53CA5BC52CE27296F14B4E
        29E52C4B389CA189651AE8D0A35D1A149D746851AE8D0A4EBA356CA35D125946
        BA24B293AE892CA35B125948D6C6965275D1A2525B50D69B8758F714299BD675
        1B8CCF238137FD545A50D65F7907E011291CA47154A3947E2428E503B6871394
        7E32851CA7F1A594B0AAFC689C591B5AD1EF77A59C59A4C56271CC6E4F127F60
        A27163389BF707DBB86C5578B2C1884D719652AB330EED06298A4AE6C6DA993F
        31D812DCE61BB8D63B511C42979439C6DF48E254894C7179B9317767B990F9AB
        6E91833D1692B69A4CEE05FB2D6BA92996AB6BD5E3EEA891D238ED3D57DC1163
        5D350E226FB1E76EFDA8D7159989DBAD0E2E9D363333E310B9D767F9D6AB94EB
        8BB7A3C0F532481CE1CD6EF55C374F67AA86AE89B66B80B3B8A3CD844BB74959
        87B32C437FC15876C65D00E85DB77782C65AADA5F5D0347ECB38E78E3EA54B13
        E5A72375D6F1D98E5E4539D20C2CBDD9A3CA7AC91FBA9961F296D3A8C1705964
        CF95A6FD6A787F32DF27E7747D11010101010101010101010101010101010101
        0101010101010101010101010101010101010101010101010101010101010101
        0101010102E506FD21DC5218C9EAB07B4748F980E7ED53270C9E6EBAAA591CF9
        1C769DAABAE30E639EE277A3AAB728172817283247BD41DBC3A06EAF584FC169
        C3397A8C2A4CB499DA36A5BC9B62E5A0EC52A4CAE3755DA35C53BF438C554947
        9CF4983615999A739C5B7069C5758030B49EB373B57486B8BB741A453D4B039F
        136E562718F673B6ED2630F9DEF6EA8372F7AD444479318E56DDD7DC13977049
        F26D864CAE75F285E4F1B2261FFFD9}
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 134
    Width = 592
    Height = 332
    Align = alClient
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 2
      Top = 15
      Width = 588
      Height = 315
      ActivePage = TabSheet1
      Align = alClient
      Style = tsFlatButtons
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #20840#37096#26174#31034
        OnShow = TabSheet1Show
        object GroupBox3: TGroupBox
          Left = 0
          Top = 0
          Width = 377
          Height = 284
          Align = alLeft
          TabOrder = 0
          object DBGrid1: TDBGrid
            Left = 2
            Top = 15
            Width = 373
            Height = 267
            Align = alClient
            DataSource = DataSource1
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnCellClick = DBGrid1CellClick
          end
        end
        object GroupBox4: TGroupBox
          Left = 376
          Top = 0
          Width = 204
          Height = 284
          Align = alRight
          TabOrder = 1
          object Label1: TLabel
            Left = 5
            Top = 32
            Width = 32
            Height = 16
            Caption = #32534#21495
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label2: TLabel
            Left = 5
            Top = 69
            Width = 32
            Height = 16
            Caption = #22995#21517
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label3: TLabel
            Left = 5
            Top = 106
            Width = 32
            Height = 16
            Caption = #24615#21035
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label4: TLabel
            Left = 5
            Top = 144
            Width = 64
            Height = 16
            Caption = #36523#20221#35777#21495
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Edit1: TEdit
            Left = 72
            Top = 32
            Width = 121
            Height = 21
            TabOrder = 0
          end
          object Edit2: TEdit
            Left = 72
            Top = 69
            Width = 121
            Height = 21
            TabOrder = 1
          end
          object Edit3: TEdit
            Left = 72
            Top = 106
            Width = 121
            Height = 21
            TabOrder = 2
          end
          object Edit4: TEdit
            Left = 72
            Top = 144
            Width = 121
            Height = 21
            TabOrder = 3
          end
          object Button1: TButton
            Left = 64
            Top = 200
            Width = 75
            Height = 25
            Caption = #36820#22238
            TabOrder = 4
            OnClick = Button1Click
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #26465#20214#26597#35810
        ImageIndex = 1
        OnShow = TabSheet2Show
        object GroupBox5: TGroupBox
          Left = 0
          Top = 0
          Width = 580
          Height = 97
          Align = alTop
          TabOrder = 0
          object GroupBox6: TGroupBox
            Left = 48
            Top = 7
            Width = 353
            Height = 83
            Caption = #35831#36873#25321#26597#35810#26465#20214
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            object RadioButton1: TRadioButton
              Left = 24
              Top = 24
              Width = 73
              Height = 17
              Caption = #35835#32773#32534#21495
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -11
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
            end
            object RadioButton2: TRadioButton
              Left = 24
              Top = 56
              Width = 65
              Height = 17
              Caption = #35835#32773#22995#21517
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -11
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
            end
            object RadioButton3: TRadioButton
              Left = 205
              Top = 42
              Width = 49
              Height = 17
              Caption = #24615#21035
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -11
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              TabOrder = 2
            end
            object Edit5: TEdit
              Left = 92
              Top = 24
              Width = 100
              Height = 23
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -12
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              TabOrder = 3
            end
            object Edit6: TEdit
              Left = 92
              Top = 56
              Width = 100
              Height = 24
              TabOrder = 4
            end
            object ComboBox1: TComboBox
              Left = 252
              Top = 41
              Width = 60
              Height = 23
              Font.Charset = ANSI_CHARSET
              Font.Color = clRed
              Font.Height = -12
              Font.Name = 'Arial'
              Font.Style = []
              ItemHeight = 15
              ParentFont = False
              TabOrder = 5
              Items.Strings = (
                #30007
                #22899)
            end
          end
          object Button2: TButton
            Left = 409
            Top = 48
            Width = 67
            Height = 23
            Caption = #26597#35810
            TabOrder = 1
            OnClick = Button2Click
          end
          object Button3: TButton
            Left = 489
            Top = 48
            Width = 70
            Height = 23
            Caption = #36820#22238
            TabOrder = 2
            OnClick = Button3Click
          end
        end
        object TPanel
          Left = 0
          Top = 97
          Width = 401
          Height = 187
          Align = alLeft
          TabOrder = 1
          object DBGrid2: TDBGrid
            Left = 1
            Top = 1
            Width = 399
            Height = 185
            Align = alClient
            DataSource = DataSource1
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnCellClick = DBGrid2CellClick
          end
        end
        object Panel1: TPanel
          Left = 401
          Top = 97
          Width = 179
          Height = 187
          Align = alRight
          TabOrder = 2
          object Label5: TLabel
            Left = 5
            Top = 24
            Width = 32
            Height = 16
            Caption = #32534' '#21495
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label6: TLabel
            Left = 5
            Top = 64
            Width = 32
            Height = 16
            Caption = #22995' '#21517
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label7: TLabel
            Left = 5
            Top = 104
            Width = 32
            Height = 16
            Caption = #24615' '#21035
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label8: TLabel
            Left = 5
            Top = 144
            Width = 56
            Height = 16
            Caption = #36523#20221#35777#21495
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Edit7: TEdit
            Left = 56
            Top = 24
            Width = 100
            Height = 21
            TabOrder = 0
          end
          object Edit8: TEdit
            Left = 56
            Top = 61
            Width = 100
            Height = 21
            TabOrder = 1
          end
          object Edit9: TEdit
            Left = 56
            Top = 98
            Width = 100
            Height = 21
            TabOrder = 2
          end
          object Edit10: TEdit
            Left = 64
            Top = 144
            Width = 100
            Height = 21
            TabOrder = 3
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = #35760#24405#27983#35272
        ImageIndex = 2
        OnShow = TabSheet3Show
        object GroupBox7: TGroupBox
          Left = 0
          Top = 0
          Width = 580
          Height = 249
          Align = alTop
          TabOrder = 0
          object GroupBox9: TGroupBox
            Left = 2
            Top = 15
            Width = 367
            Height = 232
            Align = alLeft
            TabOrder = 0
            object DBGrid3: TDBGrid
              Left = 2
              Top = 15
              Width = 363
              Height = 215
              Align = alClient
              DataSource = DataSource1
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              OnCellClick = DBGrid3CellClick
            end
          end
          object GroupBox10: TGroupBox
            Left = 368
            Top = 15
            Width = 210
            Height = 232
            Align = alRight
            TabOrder = 1
            object Label9: TLabel
              Left = 13
              Top = 40
              Width = 36
              Height = 16
              Caption = #32534' '#21495
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Label10: TLabel
              Left = 13
              Top = 82
              Width = 36
              Height = 16
              Caption = #22995' '#21517
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Label11: TLabel
              Left = 13
              Top = 125
              Width = 36
              Height = 16
              Caption = #24615' '#21035
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Label12: TLabel
              Left = 13
              Top = 168
              Width = 64
              Height = 16
              Caption = #36523#20221#35777#21495
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Edit11: TEdit
              Left = 77
              Top = 40
              Width = 121
              Height = 21
              TabOrder = 0
            end
            object Edit12: TEdit
              Left = 77
              Top = 81
              Width = 121
              Height = 21
              TabOrder = 1
            end
            object Edit13: TEdit
              Left = 77
              Top = 122
              Width = 121
              Height = 21
              TabOrder = 2
            end
            object Edit14: TEdit
              Left = 77
              Top = 163
              Width = 121
              Height = 21
              TabOrder = 3
            end
            object Button4: TButton
              Left = 72
              Top = 200
              Width = 70
              Height = 23
              Caption = #36820#22238
              TabOrder = 4
              OnClick = Button4Click
            end
          end
        end
        object GroupBox8: TGroupBox
          Left = 0
          Top = 244
          Width = 580
          Height = 40
          Align = alBottom
          TabOrder = 1
          object Button5: TButton
            Left = 24
            Top = 11
            Width = 70
            Height = 23
            Caption = #31532#19968#20010
            TabOrder = 0
            OnClick = Button5Click
          end
          object Button6: TButton
            Left = 114
            Top = 11
            Width = 70
            Height = 23
            Caption = #19979#19968#20010
            TabOrder = 1
            OnClick = Button6Click
          end
          object Button7: TButton
            Left = 205
            Top = 11
            Width = 70
            Height = 23
            Caption = #19978#19968#20010
            TabOrder = 2
            OnClick = Button7Click
          end
          object Button8: TButton
            Left = 296
            Top = 11
            Width = 70
            Height = 23
            Caption = #26368#21518#19968#20010
            TabOrder = 3
            OnClick = Button8Click
          end
        end
      end
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\Data\BookManege.' +
      'mdb;Persist Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Reader')
    Left = 264
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 232
    Top = 80
  end
end
阅读全文
0 0