frmjobtype.dfm

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· DFM 代码 · 共 59 行

inherited FormDataJobType: TFormDataJobType
  Left = 217
  Top = 137
  Caption = #24037#20316#32844#20301#20195#30721#31649#29702
  PixelsPerInch = 96
  TextHeight = 12
  inherited LCDBOperatTool1: TLCDBOperatTool
    DelConfirmId = 'DataJobType'
    OnClick = LCDBOperatTool1Click
  end
  inherited DBEdtId: TDBEdit
    DataField = 'Id'
  end
  inherited DBEdtName: TDBEdit
    DataField = 'Name'
  end
  inherited DBMemoRemark: TDBMemo
    DataField = 'Remark'
  end
  inherited ADOCon: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=GoodsManagementSystem_Data;Data Source=' +
      '127.0.0.1'
  end
  inherited ADOTable: TADOTable
    TableName = 't_JobType'
    object ADOTableId: TSmallintField
      FieldName = 'Id'
      Required = True
    end
    object ADOTableName: TWideStringField
      FieldName = 'Name'
      Required = True
      Size = 5
    end
    object ADOTableRemark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
    end
  end
  object ADOQ: TADOQuery
    Connection = ADOCon
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end>
    SQL.Strings = (
      'select * from t_JobType where id=:id')
    Left = 440
    Top = 64
  end
end