editproduct.dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· DFM 代码 · 共 141 行

object EditProductFrm: TEditProductFrm
  Left = 174
  Top = 133
  Width = 494
  Height = 188
  Caption = #20462#25913#21830#21697#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object EditProduct_DBNavigator: TDBNavigator
    Left = 8
    Top = 8
    Width = 220
    Height = 25
    DataSource = EditProduct_DataSource
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    TabOrder = 0
  end
  object EditProductOk_BitBtn: TBitBtn
    Left = 264
    Top = 8
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #20462#25913
    TabOrder = 1
    OnClick = EditProductOk_BitBtnClick
    Kind = bkOK
  end
  object EditProductReturn_BitBtn: TBitBtn
    Left = 384
    Top = 8
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #36820#22238
    TabOrder = 2
    OnClick = EditProductReturn_BitBtnClick
    Kind = bkClose
  end
  object Product_GroupBox: TGroupBox
    Left = 10
    Top = 37
    Width = 471
    Height = 116
    Caption = #21830#21697#20449#24687
    TabOrder = 3
    object ProductName_Label: TLabel
      Left = 20
      Top = 24
      Width = 48
      Height = 13
      Caption = #21830#21697#21517#31216
    end
    object Spec_Label: TLabel
      Left = 20
      Top = 55
      Width = 48
      Height = 13
      Caption = #21830#21697#35268#26684
    end
    object Unit_Label: TLabel
      Left = 20
      Top = 87
      Width = 48
      Height = 13
      Caption = #21830#21697#21333#20301
    end
    object ProductRemark_GroupBox: TGroupBox
      Left = 248
      Top = 16
      Width = 209
      Height = 89
      Caption = #22791#27880#20449#24687
      TabOrder = 0
      object ProductRemark_DBEdit: TDBEdit
        Left = 15
        Top = 17
        Width = 183
        Height = 61
        Cursor = crIBeam
        AutoSize = False
        DataField = 'ProductRemark'
        DataSource = EditProduct_DataSource
        TabOrder = 0
      end
    end
    object ProductName_DBEdit: TDBEdit
      Left = 82
      Top = 24
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'ProductName'
      DataSource = EditProduct_DataSource
      TabOrder = 1
    end
    object Spec_DBEdit: TDBEdit
      Left = 82
      Top = 53
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'Spec'
      DataSource = EditProduct_DataSource
      TabOrder = 2
    end
    object Unit_DBEdit: TDBEdit
      Left = 82
      Top = 82
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'Unit'
      DataSource = EditProduct_DataSource
      TabOrder = 3
    end
  end
  object EditProduct_Table: TTable
    Active = True
    DatabaseName = 'venditiondatabase'
    TableName = 'Product'
    Left = 240
    Top = 120
  end
  object EditProduct_DataSource: TDataSource
    DataSet = EditProduct_Table
    Left = 240
    Top = 72
  end
end