sell.dfm

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

object SellFrm: TSellFrm
  Left = 71
  Top = 47
  Width = 692
  Height = 528
  Caption = #36135#21697#38144#21806
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 684
    Height = 501
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #36135#21697#38144#21806
      OnShow = TabSheet1Show
      object DBGrid1: TDBGrid
        Left = 24
        Top = 248
        Width = 625
        Height = 161
        DataSource = DataSource1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        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 = #36135#21697#26465#30721
            Width = 96
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ProductName'
            Title.Alignment = taCenter
            Title.Caption = #36135#21697#21517#31216' '
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Spec'
            Title.Alignment = taCenter
            Title.Caption = #36135#21697#35268#26684
            Width = 76
            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 = 'CustomerName'
            Title.Alignment = taCenter
            Title.Caption = #23458#25143
            Width = 85
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Quantity'
            Title.Alignment = taCenter
            Title.Caption = #38144#21806#25968#37327
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'UnitPrice'
            Title.Alignment = taCenter
            Title.Caption = #38144#21806#21333#20215
            Width = 68
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Payment'
            Title.Alignment = taCenter
            Title.Caption = #37329#39069
            Width = 79
            Visible = True
          end>
      end
      object DBNavigator1: TDBNavigator
        Left = 72
        Top = 216
        Width = 504
        Height = 25
        DataSource = DataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 1
      end
      object Button3: TButton
        Left = 296
        Top = 424
        Width = 75
        Height = 25
        Caption = #25171#21360#27492#21806#21333
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = Button3Click
      end
      object GroupBox1: TGroupBox
        Left = 24
        Top = 24
        Width = 625
        Height = 185
        Caption = #38144#21806#20449#24687
        TabOrder = 3
        object Label1: TLabel
          Left = 16
          Top = 32
          Width = 57
          Height = 13
          Caption = #38144#21806#21333#21495'   '
        end
        object Label2: TLabel
          Left = 216
          Top = 32
          Width = 60
          Height = 13
          Caption = #38144#21806#26085#26399'    '
        end
        object Label3: TLabel
          Left = 424
          Top = 32
          Width = 45
          Height = 13
          Caption = #23458'       '#25143
        end
        object Label8: TLabel
          Left = 424
          Top = 72
          Width = 48
          Height = 13
          Caption = #36135#21697#35268#26684
        end
        object Label7: TLabel
          Left = 216
          Top = 72
          Width = 48
          Height = 13
          Caption = #36135#21697#26465#30721
        end
        object Label5: TLabel
          Left = 16
          Top = 152
          Width = 63
          Height = 13
          Caption = #38144#21806#25968#37327'     '
        end
        object Label6: TLabel
          Left = 424
          Top = 112
          Width = 63
          Height = 13
          Caption = #38144#21806#21333#20215'     '
        end
        object Label9: TLabel
          Left = 16
          Top = 112
          Width = 57
          Height = 13
          Caption = #35745#37327#21333#20301'   '
        end
        object Label10: TLabel
          Left = 216
          Top = 148
          Width = 57
          Height = 13
          Caption = #37329'         '#39069'  '
        end
        object Label4: TLabel
          Left = 16
          Top = 72
          Width = 57
          Height = 13
          Caption = #36135#21697#36873#25321'   '
        end
        object Label11: TLabel
          Left = 216
          Top = 112
          Width = 48
          Height = 13
          Caption = #21442#32771#21806#20215
        end
        object Edit1: TEdit
          Left = 80
          Top = 24
          Width = 121
          Height = 21
          Color = clScrollBar
          ReadOnly = True
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 280
          Top = 24
          Width = 121
          Height = 21
          Color = clScrollBar
          ReadOnly = True
          TabOrder = 1
        end
        object DBComboBox1: TDBComboBox
          Left = 488
          Top = 24
          Width = 121
          Height = 21
          DataField = 'CustomerName'
          DataSource = DataSource1
          ItemHeight = 13
          TabOrder = 2
        end
        object DBEdit1: TDBEdit
          Left = 488
          Top = 64
          Width = 121
          Height = 21
          Color = clScrollBar
          DataField = 'Spec'
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 3
        end
        object DBEdit2: TDBEdit
          Left = 80
          Top = 104
          Width = 121
          Height = 21
          Color = clScrollBar
          DataField = 'Spec'
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 4
        end
        object DBEdit3: TDBEdit
          Left = 280
          Top = 104
          Width = 121
          Height = 21
          Color = clScrollBar
          DataField = 'RFSellPrice'
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 5
        end
        object DBEdit4: TDBEdit
          Left = 488
          Top = 104
          Width = 121
          Height = 21
          DataField = 'UnitPrice'
          DataSource = DataSource1
          TabOrder = 6
          OnChange = DBEdit4Change
        end
        object DBEdit5: TDBEdit
          Left = 80
          Top = 144
          Width = 121
          Height = 21
          DataField = 'Quantity'
          DataSource = DataSource1
          TabOrder = 7
          OnChange = DBEdit5Change
        end
        object DBEdit6: TDBEdit
          Left = 280
          Top = 144
          Width = 121
          Height = 21
          Color = clScrollBar
          DataField = 'Payment'
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 8
        end
        object Button1: TButton
          Left = 424
          Top = 144
          Width = 97
          Height = 25
          Caption = #30830#35748#27492#36135#21697#38144#21806
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed