product.dfm

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

object ProductFrm: TProductFrm
  Left = 171
  Top = 70
  Width = 560
  Height = 477
  Caption = #36135#21697#36164#26009
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 24
    Top = 24
    Width = 513
    Height = 137
    Caption = #36135#21697#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 66
      Height = 13
      Caption = #36135#21697#26465#24418#30721'  '
    end
    object Label2: TLabel
      Left = 184
      Top = 32
      Width = 48
      Height = 13
      Caption = #36135#21697#21517#31216
    end
    object Label3: TLabel
      Left = 344
      Top = 32
      Width = 48
      Height = 13
      Caption = #25340#38899#39318#23383
    end
    object Label4: TLabel
      Left = 16
      Top = 64
      Width = 57
      Height = 13
      Caption = #36135' '#21697' '#35268' '#26684
    end
    object Label5: TLabel
      Left = 184
      Top = 64
      Width = 48
      Height = 13
      Caption = #35745#37327#21333#20301
    end
    object Label6: TLabel
      Left = 344
      Top = 64
      Width = 48
      Height = 13
      Caption = #21442#32771#36827#20215
    end
    object Label7: TLabel
      Left = 16
      Top = 96
      Width = 60
      Height = 13
      Caption = #21442'  '#32771#21806' '#20215' '
    end
    object Label8: TLabel
      Left = 184
      Top = 96
      Width = 48
      Height = 13
      Caption = #24211#23384#19979#38480
    end
    object Label9: TLabel
      Left = 344
      Top = 96
      Width = 48
      Height = 13
      Caption = #24211#23384#19978#38480
    end
    object DBEdit1: TDBEdit
      Left = 80
      Top = 24
      Width = 97
      Height = 21
      DataField = 'ProductCode'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 240
      Top = 24
      Width = 97
      Height = 21
      DataField = 'ProductName'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 400
      Top = 24
      Width = 97
      Height = 21
      DataField = 'ProductPYSZ'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 80
      Top = 56
      Width = 97
      Height = 21
      DataField = 'Spec'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 240
      Top = 56
      Width = 97
      Height = 21
      DataField = 'Unit'
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 400
      Top = 56
      Width = 97
      Height = 21
      DataField = 'RFStockPrice'
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBEdit7: TDBEdit
      Left = 80
      Top = 88
      Width = 97
      Height = 21
      DataField = 'RFSellPrice'
      DataSource = DataSource1
      TabOrder = 6
    end
    object DBEdit8: TDBEdit
      Left = 240
      Top = 88
      Width = 97
      Height = 21
      DataField = 'MinSto'
      DataSource = DataSource1
      TabOrder = 7
    end
    object DBEdit9: TDBEdit
      Left = 400
      Top = 88
      Width = 97
      Height = 21
      DataField = 'MaxSto'
      DataSource = DataSource1
      TabOrder = 8
    end
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 216
    Width = 513
    Height = 193
    Caption = #36135#21697#21015#34920
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 24
      Top = 24
      Width = 457
      Height = 153
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'ProductCode'
          Title.Alignment = taCenter
          Title.Caption = #26465#24418#30721
          Width = 95
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ProductName'
          Title.Alignment = taCenter
          Title.Caption = #36135#21697#21517#31216
          Width = 96
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ProductPYSZ'
          Title.Alignment = taCenter
          Title.Caption = #25340#38899#39318#23383
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Spec'
          Title.Alignment = taCenter
          Title.Caption = #36135#21697#35268#26684
          Width = 83
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Unit'
          Title.Alignment = taCenter
          Title.Caption = #35745#37327#21333#20301
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RFStockPrice'
          Title.Alignment = taCenter
          Title.Caption = #21442#32771#36827#20215
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RFSellPrice'
          Title.Alignment = taCenter
          Title.Caption = #21442#32771#21806#20215
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MinSto'
          Title.Alignment = taCenter
          Title.Caption = #24211#23384#19979#38480
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MaxSto'
          Title.Alignment = taCenter
          Title.Caption = #24211#23384#19978#38480
          Visible = True
        end>
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 40
    Top = 176
    Width = 344
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
    TabOrder = 2
  end
  object Button1: TButton
    Left = 416
    Top = 176
    Width = 75
    Height = 25
    Caption = #36820'      '#22238
    TabOrder = 3
    OnClick = Button1Click
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 168
    Top = 8
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'Product'
    Left = 208
    Top = 8
  end
end