frmregion.dfm

物流供应链管理系统

object FormRegion: TFormRegion
  Left = 197
  Top = 152
  Width = 544
  Height = 375
  Caption = #34892#25919#21306#21010#32534#30721#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
  OnDeactivate = FormDeactivate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 40
    Top = 88
    Width = 48
    Height = 12
    Caption = #32534#21495'(&I):'
  end
  object Label2: TLabel
    Left = 296
    Top = 88
    Width = 48
    Height = 12
    Caption = #21517#31216'(&N):'
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 24
    Top = 16
    Width = 481
    Height = 41
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'regiondel'
    DataSource = DSRegion
    OnClick = LCDBOperatTool1Click
  end
  object DBEdtId: TDBEdit
    Left = 104
    Top = 88
    Width = 121
    Height = 20
    DataField = 'Id'
    DataSource = DSRegion
    TabOrder = 1
  end
  object DBEdtName: TDBEdit
    Left = 344
    Top = 88
    Width = 121
    Height = 20
    DataField = 'Name'
    DataSource = DSRegion
    TabOrder = 2
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 120
    Width = 521
    Height = 217
    DataSource = DSRegion
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object ADOTRegion: TADOTable
    CacheSize = 1000
    Connection = ADOCon
    MarshalOptions = moMarshalModifiedOnly
    TableName = 't_Region'
    Left = 176
    Top = 72
  end
  object DSRegion: TDataSource
    DataSet = ADOTRegion
    Left = 240
    Top = 80
  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 = 104
    Top = 32
  end
  object ADOQRegion: TADOQuery
    CacheSize = 10
    Connection = ADOCon
    CursorType = ctStatic
    MarshalOptions = moMarshalModifiedOnly
    Parameters = <
      item
        Name = 'id'
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select id from t_Region where id=:id')
    Left = 176
    Top = 128
  end
end