frmgoodscatemanage.dfm

物流供应链管理系统

object FormGoodsCate: TFormGoodsCate
  Left = 192
  Top = 127
  Width = 544
  Height = 375
  Caption = #36135#29289#31181#31867#32500#25252
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 32
    Top = 104
    Width = 48
    Height = 12
    Caption = #32534#21495'(&I):'
    FocusControl = DBEdtId
  end
  object Label2: TLabel
    Left = 248
    Top = 104
    Width = 54
    Height = 12
    Caption = #21517#31216'(&N)'#65306
    FocusControl = DBEdtName
  end
  object Label3: TLabel
    Left = 24
    Top = 128
    Width = 48
    Height = 12
    Caption = #22791#27880'(&R):'
    FocusControl = DBMemo1
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 24
    Top = 8
    Width = 489
    Height = 33
    VisibleBtn = [tbAdd, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'PurchaseDepartGoodsCateManage'
    DataSource = DSGoodsCate
  end
  object DBEdtId: TDBEdit
    Left = 88
    Top = 96
    Width = 121
    Height = 20
    DataField = 'Id'
    DataSource = DSGoodsCate
    TabOrder = 1
  end
  object DBEdtName: TDBEdit
    Left = 312
    Top = 96
    Width = 121
    Height = 20
    DataField = 'Name'
    DataSource = DSGoodsCate
    TabOrder = 2
  end
  object DBMemo1: TDBMemo
    Left = 24
    Top = 144
    Width = 497
    Height = 49
    DataField = 'Remark'
    DataSource = DSGoodsCate
    TabOrder = 3
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 200
    Width = 505
    Height = 137
    DataSource = DSGoodsCate
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 40
    Top = 56
    Width = 424
    Height = 25
    DataSource = DSGoodsCate
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    TabOrder = 5
  end
  object SocketConGoodsCate: TSocketConnection
    Connected = True
    ServerGUID = '{28A1C838-C5E4-4D19-AC4C-056F8C8B13B4}'
    ServerName = 'GoodsCateData.mtsGoodsCateObj'
    Address = '127.0.0.1'
    Left = 128
    Top = 96
  end
  object cdsGoodsCate: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspGoodsCate'
    RemoteServer = SocketConGoodsCate
    Left = 176
    Top = 96
    object cdsGoodsCateId: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'Id'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 10
    end
    object cdsGoodsCateName: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'Name'
    end
    object cdsGoodsCateRemark: TMemoField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      BlobType = ftMemo
    end
  end
  object DSGoodsCate: TDataSource
    DataSet = cdsGoodsCate
    Left = 232
    Top = 96
  end
end