frmgoodscate.dfm

物流供应链管理系统

object FormGoodsCate: TFormGoodsCate
  Left = 173
  Top = 144
  Width = 544
  Height = 375
  Caption = #36135#29289#31181#31867#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 = 40
    Top = 56
    Width = 48
    Height = 12
    Caption = #32534#21495'(&I):'
  end
  object Label2: TLabel
    Left = 248
    Top = 56
    Width = 48
    Height = 12
    Caption = #21517#31216'(&N):'
  end
  object Label3: TLabel
    Left = 40
    Top = 88
    Width = 54
    Height = 12
    Caption = #22791#27880'(&R)'#65306
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 8
    Top = 8
    Width = 505
    Height = 33
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DataSource = DSGoodsCate
  end
  object DBEdit1: TDBEdit
    Left = 96
    Top = 56
    Width = 121
    Height = 20
    DataField = 'Id'
    DataSource = DSGoodsCate
    Enabled = False
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 312
    Top = 56
    Width = 121
    Height = 20
    DataField = 'Name'
    DataSource = DSGoodsCate
    TabOrder = 2
  end
  object DBMemo1: TDBMemo
    Left = 32
    Top = 104
    Width = 473
    Height = 57
    DataField = 'Remark'
    DataSource = DSGoodsCate
    TabOrder = 3
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 176
    Width = 513
    Height = 161
    DataSource = DSGoodsCate
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object ADOTGoodsCate: TADOTable
    CursorType = ctStatic
    TableName = 't_GoodsCategory'
    Left = 224
    Top = 32
    object ADOTGoodsCateId: TWideStringField
      FieldName = 'Id'
      ReadOnly = True
      Size = 10
    end
    object ADOTGoodsCateName: TWideStringField
      FieldName = 'Name'
    end
    object ADOTGoodsCateRemark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
  end
  object DSGoodsCate: TDataSource
    DataSet = ADOTGoodsCate
    Left = 280
    Top = 32
  end
end