baseptype.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmBasePType: TfrmBasePType
  Left = 272
  Top = 147
  Caption = #20379#24212#21830#31867#21035#22522#30784#36164#26009
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 193
    Top = 38
    Width = 4
    Height = 303
  end
  object DBGrid1: TDBGrid [2]
    Left = 0
    Top = 38
    Width = 193
    Height = 303
    Align = alLeft
    DataSource = dsBaseInfo
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fCode'
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fName'
        Width = 100
        Visible = True
      end>
  end
  object Panel1: TPanel [3]
    Left = 197
    Top = 38
    Width = 339
    Height = 303
    Align = alClient
    TabOrder = 2
    object Panel2: TPanel
      Left = 16
      Top = 18
      Width = 305
      Height = 289
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object Label1: TLabel
        Left = 0
        Top = 26
        Width = 83
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #31867#21035#32534#21495#65306
      end
      object Label2: TLabel
        Left = 0
        Top = 59
        Width = 83
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #31867#21035#21517#31216#65306
      end
      object Label3: TLabel
        Left = -5
        Top = 90
        Width = 88
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #22791'    '#27880#65306
      end
      object DBEdit1: TDBEdit
        Left = 94
        Top = 23
        Width = 185
        Height = 21
        CharCase = ecUpperCase
        DataField = 'fCode'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 94
        Top = 55
        Width = 185
        Height = 21
        DataField = 'fName'
        DataSource = dsBaseInfo
        TabOrder = 1
      end
      object DBMemo1: TDBMemo
        Left = 94
        Top = 84
        Width = 185
        Height = 185
        DataField = 'fNotes'
        DataSource = dsBaseInfo
        TabOrder = 2
      end
    end
  end
  inherited ALToolbar: TActionList
    Top = 8
  end
  inherited QBaseInfo: TADOQuery
    AfterInsert = QBaseInfoAfterInsert
    SQL.Strings = (
      'Select * from tPType')
    Left = 408
    Top = 8
    object QBaseInfofCode: TWideStringField
      DisplayLabel = #31867#21035#32534#21495
      DisplayWidth = 15
      FieldName = 'fCode'
      OnValidate = QBaseInfofCodeValidate
      Size = 50
    end
    object QBaseInfofTypeName: TWideStringField
      DisplayLabel = #31867#21035#21517#31216
      DisplayWidth = 25
      FieldName = 'fName'
      Size = 50
    end
    object QBaseInfofNotes: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'fNotes'
      Visible = False
      Size = 50
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 440
    Top = 8
  end
  inherited QIsUnique: TADOQuery
    Active = True
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'code'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'Select fid from tPType where fcode=:code')
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fCode'#9'15'#9#31867#21035#32534#21495#9'F'
      'fName'#9'25'#9#31867#21035#21517#31216#9'F')
  end
end