frmwarehousemanage.dfm

物流供应链管理系统

object FormWareHouseManage: TFormWareHouseManage
  Left = 189
  Top = 129
  Width = 544
  Height = 375
  Caption = #20179#24211#20449#24687#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 24
    Top = 64
    Width = 36
    Height = 12
    Caption = #32534#21495#65306
  end
  object Label2: TLabel
    Left = 232
    Top = 72
    Width = 36
    Height = 12
    Caption = #21517#31216#65306
  end
  object Label3: TLabel
    Left = 24
    Top = 96
    Width = 36
    Height = 12
    Caption = #20301#32622#65306
  end
  object Label4: TLabel
    Left = 232
    Top = 104
    Width = 72
    Height = 12
    Caption = #36127#36131#20154#32534#21495#65306
  end
  object Label5: TLabel
    Left = 32
    Top = 136
    Width = 60
    Height = 12
    Caption = #37096#38376#32534#21495#65306
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 8
    Top = 8
    Width = 513
    Height = 33
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'DataWareHouseManage'
    DataSource = DSWareHoue
    OnModeChange = LCDBOperatTool1ModeChange
  end
  object DBEdit1: TDBEdit
    Left = 88
    Top = 64
    Width = 121
    Height = 20
    DataField = 'WarehouseId'
    DataSource = DSWareHoue
    Enabled = False
    ReadOnly = True
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 304
    Top = 64
    Width = 161
    Height = 20
    DataField = 'Name'
    DataSource = DSWareHoue
    TabOrder = 2
  end
  object DBEdit3: TDBEdit
    Left = 88
    Top = 96
    Width = 121
    Height = 20
    DataField = 'WareHousePosition'
    DataSource = DSWareHoue
    TabOrder = 3
  end
  object DBEdtPrincipal: TDBEdit
    Left = 304
    Top = 96
    Width = 161
    Height = 20
    DataField = 'PrincipalId'
    DataSource = DSWareHoue
    TabOrder = 4
  end
  object Button1: TButton
    Left = 480
    Top = 96
    Width = 41
    Height = 17
    Caption = '...'
    TabOrder = 5
    OnClick = Button1Click
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 160
    Width = 513
    Height = 177
    DataSource = DSWareHoue
    TabOrder = 6
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 104
    Top = 136
    Width = 129
    Height = 20
    DataField = 'DeparId'
    DataSource = DSWareHoue
    KeyField = 'Id'
    ListField = 'Id'
    ListSource = DSDepart
    TabOrder = 7
  end
  object ADOTWareHouse: TADOTable
    Connection = ADOCon
    CursorType = ctStatic
    TableName = 't_WareHouse'
    Left = 240
    Top = 64
  end
  object DSWareHoue: TDataSource
    DataSet = ADOTWareHouse
    Left = 280
    Top = 64
  end
  object ADOQ: TADOQuery
    Connection = ADOCon
    Parameters = <>
    Prepared = True
    Left = 240
    Top = 104
  end
  object ADOCon: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=GoodsManagementSystem_Data;Data Source=' +
      '127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 160
    Top = 96
  end
  object ADOTDepart: TADOTable
    Connection = ADOCon
    CursorType = ctStatic
    TableName = 't_Department'
    Left = 248
    Top = 168
  end
  object DSDepart: TDataSource
    DataSet = ADOTDepart
    Left = 296
    Top = 168
  end
end