unit6.dfm

仓库管理系统

object Form6: TForm6
  Left = 197
  Top = 137
  Width = 687
  Height = 480
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #20837#24211#20449#24687#26597#35810
  Color = clBtnFace
  Constraints.MaxHeight = 480
  Constraints.MaxWidth = 687
  Constraints.MinHeight = 480
  Constraints.MinWidth = 687
  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 GroupBox1: TGroupBox
    Left = 32
    Top = 16
    Width = 617
    Height = 49
    Caption = #26681#25454#21830#21697#32534#21495
    TabOrder = 0
    object Edit1: TEdit
      Left = 112
      Top = 16
      Width = 161
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
    end
    object Button1: TButton
      Left = 464
      Top = 16
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 32
    Top = 72
    Width = 617
    Height = 49
    Caption = #26681#25454#21830#21697#21517
    TabOrder = 1
    object Edit2: TEdit
      Left = 112
      Top = 16
      Width = 161
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
    end
    object Button2: TButton
      Left = 464
      Top = 16
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object RadioButton1: TRadioButton
    Left = 32
    Top = 136
    Width = 113
    Height = 17
    Caption = #27169#31946#26597#35810
    TabOrder = 2
  end
  object GroupBox3: TGroupBox
    Left = 24
    Top = 160
    Width = 633
    Height = 273
    Caption = #26597#35810#32467#26524
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 617
      Height = 249
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object RadioButton2: TRadioButton
    Left = 160
    Top = 136
    Width = 113
    Height = 17
    Caption = #31934#30830#26597#35810
    Checked = True
    TabOrder = 4
    TabStop = True
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;User ID=sa;Initial Catalog=course;Data Source=(local);U' +
      'se Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;' +
      'Workstation ID=AGAN;Use Encryption for Data=False;Tag with colum' +
      'n collation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 392
    Top = 128
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      
        'select Table2.spnum,spname,kindname,price,intime,innum,gysname f' +
        'rom Table2,Table5,Table6,Table7 where Table2.spnum like '#39#39'%'#39#39'+'#39#39 +
        #39'+edit1.Text+'#39#39#39'+'#39#39'%'#39#39' and Table2.spnum=Table6.spnum and Table2.' +
        'gysnum=Table5.gysnum and Table7.kindnum=Table6.kindnum')
    Left = 456
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 528
    Top = 128
  end
end