xxwh.dfm

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

        Left = 520
        Top = 384
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 3
        OnClick = Button15Click
      end
    end
    object TabSheet9: TTabSheet
      Caption = #24037#27573#29289#36164#20301#32622#22686#21152
      ImageIndex = 8
      object Label19: TLabel
        Left = 324
        Top = 264
        Width = 111
        Height = 13
        Caption = #24037#27573#24211#25151#20301#32622#36755#20837'     '
      end
      object Label20: TLabel
        Left = 380
        Top = 328
        Width = 60
        Height = 13
        Caption = #21517#31216#30830#35748'    '
      end
      object Edit19: TEdit
        Left = 440
        Top = 256
        Width = 121
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 0
      end
      object Edit20: TEdit
        Left = 440
        Top = 320
        Width = 121
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 1
      end
      object Button16: TButton
        Left = 363
        Top = 384
        Width = 75
        Height = 25
        Caption = #30830#35748
        TabOrder = 2
        OnClick = Button16Click
      end
      object Button18: TButton
        Left = 520
        Top = 384
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 3
        OnClick = Button18Click
      end
    end
    object TabSheet10: TTabSheet
      Caption = #24037#27573#24211#25151#24211#21517#21024#38500
      ImageIndex = 9
      object Label21: TLabel
        Left = 378
        Top = 264
        Width = 60
        Height = 13
        Caption = #21517#31216#36873#25321'    '
        OnClick = Label21Click
      end
      object Label22: TLabel
        Left = 376
        Top = 328
        Width = 57
        Height = 13
        Caption = #21517#31216#30830#35748'   '
      end
      object ComboBox4: TComboBox
        Left = 440
        Top = 256
        Width = 145
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        ItemHeight = 0
        TabOrder = 0
      end
      object Edit21: TEdit
        Left = 440
        Top = 288
        Width = 145
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 1
        Visible = False
      end
      object Edit22: TEdit
        Left = 440
        Top = 320
        Width = 145
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 2
        OnChange = Edit22Change
      end
      object Button19: TButton
        Left = 363
        Top = 384
        Width = 75
        Height = 25
        Caption = #30830#35748
        TabOrder = 3
        OnClick = Button19Click
      end
      object Button20: TButton
        Left = 523
        Top = 384
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 4
        OnClick = Button20Click
      end
    end
    object TabSheet11: TTabSheet
      Caption = #24037#27573#29289#36164#20301#32622#21024#38500
      ImageIndex = 10
      object Label23: TLabel
        Left = 378
        Top = 264
        Width = 60
        Height = 13
        Caption = #21517#31216#36873#25321'    '
        OnClick = Label23Click
      end
      object Label24: TLabel
        Left = 376
        Top = 328
        Width = 57
        Height = 13
        Caption = #21517#31216#30830#35748'   '
      end
      object ComboBox5: TComboBox
        Left = 440
        Top = 256
        Width = 145
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        ItemHeight = 0
        TabOrder = 0
      end
      object Edit23: TEdit
        Left = 440
        Top = 288
        Width = 145
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 1
        Visible = False
      end
      object Edit24: TEdit
        Left = 440
        Top = 320
        Width = 145
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 2
        OnChange = Edit24Change
      end
      object Button21: TButton
        Left = 363
        Top = 384
        Width = 75
        Height = 25
        Caption = #30830#35748
        TabOrder = 3
        OnClick = Button21Click
      end
      object Button22: TButton
        Left = 523
        Top = 384
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 4
        OnClick = Button22Click
      end
    end
    object TabSheet7: TTabSheet
      Caption = #35774#22791#21517#31216#28155#21152
      ImageIndex = 6
      object Label13: TLabel
        Left = 328
        Top = 48
        Width = 54
        Height = 13
        Caption = #35268#26684#22411#21495'  '
      end
      object Label14: TLabel
        Left = 352
        Top = 344
        Width = 54
        Height = 13
        Caption = #35774#22791#21517#31216'  '
      end
      object Label15: TLabel
        Left = 352
        Top = 408
        Width = 54
        Height = 13
        Caption = #35774#22791#20301#32622'  '
      end
      object Label16: TLabel
        Left = 352
        Top = 376
        Width = 51
        Height = 13
        Caption = #35774#22791#20195#30721' '
      end
      object Edit13: TEdit
        Left = 400
        Top = 40
        Width = 121
        Height = 21
        TabOrder = 0
        OnChange = Edit13Change
      end
      object Edit14: TEdit
        Left = 416
        Top = 336
        Width = 121
        Height = 21
        TabOrder = 1
      end
      object Edit15: TEdit
        Left = 416
        Top = 368
        Width = 121
        Height = 21
        TabOrder = 2
      end
      object Button12: TButton
        Left = 336
        Top = 440
        Width = 75
        Height = 25
        Caption = #30830#35748
        TabOrder = 4
        OnClick = Button12Click
      end
      object Button13: TButton
        Left = 464
        Top = 440
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 5
        OnClick = Button13Click
      end
      object Edit16: TEdit
        Left = 416
        Top = 400
        Width = 121
        Height = 21
        TabOrder = 3
      end
      object DBGrid1: TDBGrid
        Left = 192
        Top = 88
        Width = 497
        Height = 225
        DataSource = DataSource6
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clRed
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
      end
    end
  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 = 20
    Top = 32
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      ''
      'select * from '#24037#27573#35774#22791#24402#31867)
    Left = 60
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 100
    Top = 32
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 100
    Top = 88
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection2
    CursorType = ctStatic
    DataSource = DataSource2
    Parameters = <>
    SQL.Strings = (
      'select * from '#29289#36164#31181#31867
      'select * from '#25910#36135#21333#20301)
    Left = 60
    Top = 88
  end
  object ADOConnection2: TADOConnection
    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 = 20
    Top = 88
  end
  object ADOConnection3: TADOConnection
    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 = 12
    Top = 136
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection3
    Parameters = <>
    SQL.Strings = (
      'select * from '#36134#26412#21495)
    Left = 60
    Top = 136
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 100
    Top = 136
  end
  object ADOConnection4: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=snqt3005;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=qtbkfcx;Data Source=SNQT'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 16
    Top = 184
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection4
    Parameters = <>
    Left = 64
    Top = 176
  end
  object ADOConnection5: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=snqt3005;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=qtbkfcx;Data Source=SNQT'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 16
    Top = 224
  end
  object ADOQuery5: TADOQuery
    Connection = ADOConnection5
    Parameters = <>
    Left = 72
    Top = 224
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 120
    Top = 160
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery5
    Left = 120
    Top = 216
  end
  object ADOConnection6: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=snqt3005;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=qtbkfcx;Data Source=snqt'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 264
  end
  object ADOQuery6: TADOQuery
    Connection = ADOConnection6
    Parameters = <>
    SQL.Strings = (
      'select * from '#24037#27573#35774#22791#24402#31867)
    Left = 80
    Top = 264
  end
  object DataSource6: TDataSource
    DataSet = ADOQuery6
    Left = 120
    Top = 264
  end
end