sell.dfm

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

          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
          OnClick = Button1Click
        end
        object DBComboBox2: TDBComboBox
          Left = 80
          Top = 64
          Width = 121
          Height = 21
          DataField = 'ProductName'
          DataSource = DataSource1
          ItemHeight = 13
          TabOrder = 10
          OnChange = DBComboBox2Change
        end
        object DBComboBox3: TDBComboBox
          Left = 280
          Top = 64
          Width = 121
          Height = 21
          DataField = 'ProductCode'
          DataSource = DataSource1
          ItemHeight = 13
          TabOrder = 11
          OnChange = DBComboBox3Change
        end
      end
      object Button2: TButton
        Left = 176
        Top = 424
        Width = 75
        Height = 25
        Caption = #28155#21152#26032#21333
        TabOrder = 4
        OnClick = Button2Click
      end
      object Button4: TButton
        Left = 416
        Top = 424
        Width = 75
        Height = 25
        Caption = #36820'   '#22238
        TabOrder = 5
        OnClick = Button4Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26597#35810#38144#21806
      ImageIndex = 1
      OnShow = TabSheet2Show
      object GroupBox2: TGroupBox
        Left = 16
        Top = 40
        Width = 633
        Height = 121
        Caption = #26597#35810#26465#20214
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 40
          Top = 24
          Width = 113
          Height = 17
          Caption = #38144#21806#21333#21495
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object Edit4: TEdit
          Left = 352
          Top = 24
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object RadioButton2: TRadioButton
          Left = 264
          Top = 24
          Width = 81
          Height = 17
          Caption = #23458'        '#25143
          TabOrder = 2
        end
        object Edit5: TEdit
          Left = 352
          Top = 64
          Width = 121
          Height = 21
          TabOrder = 3
        end
        object RadioButton3: TRadioButton
          Left = 40
          Top = 64
          Width = 81
          Height = 17
          Caption = #38144#21806#26085#26399
          TabOrder = 4
        end
        object RadioButton4: TRadioButton
          Left = 264
          Top = 64
          Width = 81
          Height = 17
          Caption = #36135#21697#21517#31216'           '
          TabOrder = 5
        end
        object Button5: TButton
          Left = 504
          Top = 24
          Width = 75
          Height = 25
          Caption = #26597'    '#35810
          TabOrder = 6
          OnClick = Button5Click
        end
        object Button6: TButton
          Left = 504
          Top = 64
          Width = 75
          Height = 25
          Caption = #36820'    '#22238
          TabOrder = 7
          OnClick = Button6Click
        end
        object Edit3: TEdit
          Left = 120
          Top = 24
          Width = 121
          Height = 21
          TabOrder = 8
        end
        object DateTimePicker1: TDateTimePicker
          Left = 120
          Top = 64
          Width = 121
          Height = 21
          Date = 37909.522168171290000000
          Time = 37909.522168171290000000
          TabOrder = 9
        end
      end
      object GroupBox3: TGroupBox
        Left = 16
        Top = 216
        Width = 633
        Height = 273
        TabOrder = 1
        object DBGrid2: TDBGrid
          Left = 8
          Top = 24
          Width = 617
          Height = 225
          DataSource = DataSource2
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'SellID'
              Title.Alignment = taCenter
              Title.Caption = #38144#21806#21333#21495
              Width = 95
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ProductCode'
              Title.Alignment = taCenter
              Title.Caption = #36135#21697#26465#30721
              Width = 97
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ProductName'
              Title.Alignment = taCenter
              Title.Caption = #36135#21697#21517#31216
              Width = 56
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CustomerName'
              Title.Alignment = taCenter
              Title.Caption = #23458#25143
              Width = 76
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Spec'
              Title.Alignment = taCenter
              Title.Caption = #36135#21697#35268#26684
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Unit'
              Title.Alignment = taCenter
              Title.Caption = #35745#37327#21333#20301
              Width = 59
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RFSellPrice'
              Title.Alignment = taCenter
              Title.Caption = #21442#32771#21806#20215
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'UnitPrice'
              Title.Alignment = taCenter
              Title.Caption = #38144#21806#21333#20215
              Width = 54
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Quantity'
              Title.Alignment = taCenter
              Title.Caption = #38144#21806#25968#37327
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Payment'
              Title.Alignment = taCenter
              Title.Caption = #37329#39069
              Width = 57
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SellDate'
              Title.Alignment = taCenter
              Title.Caption = #38144#21806#26085#26399
              Visible = True
            end>
        end
      end
      object DBNavigator2: TDBNavigator
        Left = 32
        Top = 176
        Width = 400
        Height = 25
        DataSource = DataSource2
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 2
      end
      object Button7: TButton
        Left = 488
        Top = 176
        Width = 97
        Height = 25
        Caption = #25171#21360#26597#35810#32467#26524
        TabOrder = 3
        OnClick = Button7Click
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 224
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Sell')
    Left = 264
    Top = 8
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'Customer'
    Left = 344
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from Sell')
    Left = 408
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 440
    Top = 8
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'Product'
    Left = 304
    Top = 8
  end
end