deleteproduct.dfm

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

object DeleteProductFrm: TDeleteProductFrm
  Left = 177
  Top = 134
  Width = 491
  Height = 194
  Caption = #21024#38500#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 DeleteProductOk_BitBtn: TBitBtn
    Left = 280
    Top = 4
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #21024#38500
    TabOrder = 0
    OnClick = DeleteProductOk_BitBtnClick
    Kind = bkOK
  end
  object DeleteProductCancel_BitBtn: TBitBtn
    Left = 384
    Top = 4
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #36820#22238
    TabOrder = 1
    OnClick = DeleteProductCancel_BitBtnClick
    Kind = bkClose
  end
  object DeleteProduct_DBNavigator: TDBNavigator
    Left = 5
    Top = 4
    Width = 244
    Height = 25
    DataSource = DeleteProduct_DataSource
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    TabOrder = 2
  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 = DeleteProduct_DataSource
        TabOrder = 0
      end
    end
    object ProductName_DBEdit: TDBEdit
      Left = 82
      Top = 24
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'ProductName'
      DataSource = DeleteProduct_DataSource
      TabOrder = 1
    end
    object Spec_DBEdit: TDBEdit
      Left = 82
      Top = 53
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'Spec'
      DataSource = DeleteProduct_DataSource
      TabOrder = 2
    end
    object Unit_DBEdit: TDBEdit
      Left = 82
      Top = 82
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'Unit'
      DataSource = DeleteProduct_DataSource
      TabOrder = 3
    end
  end
  object DeleteProduct_Table: TTable
    Active = True
    DatabaseName = 'venditiondatabase'
    TableName = 'Product'
    Left = 240
    Top = 136
  end
  object DeleteProduct_DataSource: TDataSource
    DataSet = DeleteProduct_Table
    Left = 248
    Top = 72
  end
end