denglu.~dfm

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

      8DCC4896A02C33514EB41D12A00A43D36314EF8FA29CDF9E2243D2A6AE14552D
      C6D096D142B706438CB88763BF07778F2C75A514A43FBA46669C912A72A2C2F0
      16B6717A2010EC36DDA7602857FAE5DDBDB4D99652D278901426C1B154524A5B
      909A0C3CE98D014AA62321A005B3BBD102BC535F6D1D457B12282BCA8514A487
      21B6B29DBDA05B8ADB7412903E01D2A5CCF525C9CA51667A8161F4BE8A16AB0A
      36F8149792D3732515533B66E1250EC59B08EDF32C50A2B1F0326C3739449D9F
      6CF2E0A4A562741FF5CFC07FD8826FF0392BF5B4C473B84DB587090C224B3B73
      8A65D1F0215BABDE2DED31FF00C689A71074DC9BF4CB697E6DFC07B4BFF9536C
      12306E0D7B626DEE05B1F0175412DEDA80B97DB0581ADBEEDBC7A7C026AC218D
      ADBF089896035B91E9F00DD95FC2D2021AC53810E8B119F8A9B672511638A78F
      E046A8F8004FB3713AE39202A3B07C99CFFB46179A4DF1B89F26E213E8CFFB42
      4FDFC88DA379FA8FDB07F1E3151FA67EB3F6C0FF00AD8C7563A9CFD7FB220B45
      E4342CB39FBBA371B48F8C537FBCE7EE7E364599C60DA9A1639FBBF8D9376718
      A40F802AE52CFE1C6293F003D19FC58C527A67E45C357F0C7D027F6E7F7A0909
      E4E9FA49FFDA0008010202063F0075CA923A6528512169AC7B172F9BF4FFDA00
      08010302063F00E063FFDA0008010101063F00FD9B7154FD9462AA7B2B1DAD57
      A4FC95604788EDDA2AF5DD7E1F6513727BC60FC4A79DD85B9671727E8E84E328
      5F6AE889634FF532FC17E261707A84832A731CBAEE53E5DAFA4D3774B93D31B5
      68B5CBD2D113B9F13E0859B61E469390C652DE8FB617A1F98444CDAD43569384
      88DCB49715A86ABFEE4650F2FB8B7E7B531991F693FCA54253F5C1E133FA86EE
      1D6729CE032ED8E2B49C4757D94A5846723E3A587D51198AB1DEEE5FC17B93EC
      3DB5D94846DDCB728E888918E9D2237408C8504B5DB96A87960BD9FBBFFB43EE
      A77212BD69A730DA69F8E53882DA8EF556F2BB9C2802BF31E895C9186E67EABA
      73F0ED9AAD50C4207E23A8749D3721E68486477A1EDBDD1167DD01A4EBF4DCFD
      4E9A229806A8F044C8B6F323A62A5EC3FEB8EB9CCE9BD7B203311650B633AB66
      38751CA7C876E098F49A154AB74BFC9190882E2A3715A6D5FBB0030D064CDC81
      423EE2F5CBA07DB3248F994090D2151103029FA9A2389400CB3EDC319D41A7F8
      AFC72C634077843A98971922451F15FBFA85AB2C82F35667197054ED13B4FCB1
      A4ADD7984243021DB6251B85F442911BFB508D9D6A3352B24F94F9A07EA363F8
      E25A723A472CD0847D310DCCE7DA8FB3628CC7AED7987218A8C8661FC7AE5FFB
      852BF2C01D30E4334DC7B50A1B36CB353B07D323AA3E29FAD1B20D6E1D3E050B
      62821E5E6D9ECC9DC9CF6511F0DA42FC6860403C9090ABF54AB9EE0D631F2C47
      1CD0D9B765EA09C67B39DB67D408AAFC659EDBC5B927EA1231340389508E646A
      97338ED09F8765EFC8A36C9C0D3C7660F1528B7966350F143A5D5BB20B807511
      C95366C31280ECCD70F547728C86043B6C83AF6FEE23EA12D07C6A3E881F1E93
      2C95EBF2C22C2279BA1B2F995ACE541D9AC31C415A4D2170BF296698ECAE1CE0
      44873050ABEEE991E182893432265E196C9F7216A21E53C47042230CBB38C4E7
      83647228DB9FFB96E927FB80FBB657A3BE05B9A625C353A40CB30AD419B4C003
      B2329E02ADBCE48DF9D672AF21BBB405EB549C4BD3319C50B91C0BB8DC465B19
      038107E88C72A81F143922A16B7CA23E69B75360DD0CCF660581C1E5BFC171CC
      EFED020AFC9073665EAB7F52A3381789A83C376C252380053EF250455AAFFF00
      48FF00E411E7B02CBFE35AA190694F81C428C0611A07ED22241C62CB49736665
      F7B213897073EBDE912CD097D140E78C900AB51B9426EFA6E07E4E173AFC7AF4
      42DDA2F7A468D97144CAB225C93993DA7C11890E0AD2C6767F97342E5A96B19B
      65C157A9F551F6EED2BD20E3F48CFE6830A00DFC3A0A9B65E6756660EA780AF1
      6EBFE3B7E6BBC327DEBF2DD2F33527B58821B7118AD76490462D489E610B773F
      A7738E079277A6FCBA6576E90211C78F046F9711F4C030A01850AD671271E828
      EE23E2A7ECA648943CD07CC66DD524B0E257E1F6959612B8450725F96EF9A4F5
      2713CD30C3B5DA5519846511AA3BB726B570903ED9070BFAD6448F02423F8AC0
      13C8C9C8425EE6E19076D11A004A88882F52ED460808860DD24E9723051BB649
      8CE0C41E3FC108DD22D5FF00BA068091F7054A8C993CA40732888CBF2C87D830
      F8AD320636CD45B8FF0014252F5360CB7F6D1327F05851D813535E49F4B876F1
      080906D4E0E9C81CD08876C0F15CA9D2C73474C3CAEE64F82701F37C0D304D6E
      738E74916AAFEA19481C6A5071A61BF34378CFB75D9F82E4B3E967E8AE0B9AA8
      719E4B061931418737582A770481EAC93EA641E448E39A13071CBA2BD14EE112
      5DD3921CE5FC50B91B4E0E0654A64B55D818C46259C7C546BE5357FF00243763
      DC4F1440F4C49FF25FF37DDC5E523FD2B731488FE62154BB5168981381C612C0
      F3519D971ED6EC8E97FB25FF00AA1177947E87B89290C46084655B70227731C7
      24000C05074CEC5C0F1B8348E0722A56678C4E93E14EE195A496CCF82123FEE5
      D3A89E0704CDD2CAD7B9881A6E340814A8CD465BFB845D42CC6B12403E084050
      43CA3C3AB303D51F344F10B9501DFDC23225995DBD2A88794739203775489604
      37C55CB194645B957B8532771F9AD4719C897E1975891885852E441F143B83A1
      DB51015B800CD11D7F6F7638BE99770ACDB21C6A07C11DCEC3975C487DB28925
      44F0EE08FD11729FAF741C34D39A81E03B8078555EB9FCB111F13B09C77C4FD1
      45F737C3B80792F713C5E6DF0D87D536E911F3EE011BE815C3BE6761F0531FAE
      5DC03F5F0513C4FD760EAE0CC4CF7025C8FD15B03739F8EC0ABBFEBEE04CF02A
      D72D87C95C3FABB812E4AD8FD3B0F1537CE5DC09B6E2140F0D8CB9F700B538A8
      0C698EC4F3EE01511BA8760797704A3CCEC09E1DC16458E25F634FEC93FFD9}
  end
  object Label4: TLabel
    Left = 26
    Top = 88
    Width = 542
    Height = 35
    Caption = ' '#29699' '#22242' '#37096' '#24037' '#27573' '#24211' '#25151' '#31243' '#24207'  '
    Font.Charset = GB2312_CHARSET
    Font.Color = clAqua
    Font.Height = -35
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel
    Left = 168
    Top = 176
    Width = 54
    Height = 13
    Caption = '  '#29992' '#25143' '#21517'  '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 173
    Top = 224
    Width = 48
    Height = 13
    Caption = #23494'      '#30721'  '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label7: TLabel
    Left = 521
    Top = 344
    Width = 32
    Height = 13
    Caption = 'Label7'
    Color = clRed
    ParentColor = False
    Transparent = True
  end
  object Label8: TLabel
    Left = 456
    Top = 344
    Width = 63
    Height = 13
    Caption = #29256#26412#21495'  '#31532'   '
    Transparent = True
  end
  object Label9: TLabel
    Left = 531
    Top = 344
    Width = 18
    Height = 13
    Caption = #29256'  '
    Transparent = True
  end
  object edit1: TEdit
    Left = 248
    Top = 168
    Width = 145
    Height = 21
    ImeName = #26497#21697#20116#31508#36755#20837#27861
    TabOrder = 0
  end
  object edit2: TEdit
    Left = 248
    Top = 216
    Width = 145
    Height = 21
    ImeName = #26497#21697#20116#31508#36755#20837#27861
    PasswordChar = '*'
    TabOrder = 1
  end
  object Edit3: TEdit
    Left = 248
    Top = 240
    Width = 145
    Height = 21
    ImeName = #26497#21697#20116#31508#36755#20837#27861
    TabOrder = 2
    Visible = False
  end
  object Button1: TButton
    Left = 144
    Top = 272
    Width = 75
    Height = 25
    Caption = #30830'   '#35748
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 360
    Top = 272
    Width = 75
    Height = 25
    Caption = #21462'   '#28040
    TabOrder = 4
    OnClick = Button2Click
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select * from '#20154#21592#34920)
    Left = 104
    Top = 24
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=snqt3005;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=qtbkfcx;Data Source=SNQT;Use Procedu' +
      're for Prepare=1;Auto Translate=True;Packet Size=4096;Workstatio' +
      'n ID=GB;Use Encryption for Data=False;Tag with column collation ' +
      'when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 64
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 144
    Top = 24
  end
end