xsthxt.~dfm

delphi+SQL编写的销售系统

        OnMouseUp = BitBtn3MouseUp
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
          33333333333F8888883F33330000324334222222443333388F3833333388F333
          000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
          F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
          223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
          3338888300003AAAAAAA33333333333888888833333333330000333333333333
          333333333333333333FFFFFF000033333333333344444433FFFF333333888888
          00003A444333333A22222438888F333338F3333800003A2243333333A2222438
          F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
          22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
          33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
          3333333333338888883333330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object BitBtn8: TBitBtn
        Left = 652
        Top = 5
        Width = 71
        Height = 24
        Cursor = crHandPoint
        Caption = #36864#20986
        DragCursor = crHandPoint
        TabOrder = 3
        OnMouseDown = BitBtn3MouseDown
        OnMouseUp = BitBtn3MouseUp
        Kind = bkClose
      end
    end
    object Edit4: TEdit
      Left = 85
      Top = 59
      Width = 118
      Height = 19
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      OnKeyDown = Edit4KeyDown
    end
    object Edit1: TEdit
      Left = 85
      Top = 83
      Width = 118
      Height = 19
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      OnKeyDown = Edit1KeyDown
    end
    object StringGrid1: TStringGrid
      Left = 2
      Top = 111
      Width = 758
      Height = 230
      Align = alBottom
      Color = 16777088
      ColCount = 9
      Ctl3D = False
      DefaultColWidth = 102
      DefaultRowHeight = 20
      FixedColor = 16755967
      FixedCols = 0
      RowCount = 2
      ParentCtl3D = False
      TabOrder = 3
      OnKeyDown = StringGrid1KeyDown
      OnKeyPress = StringGrid1KeyPress
      OnSelectCell = StringGrid1SelectCell
      OnSetEditText = StringGrid1SetEditText
      ColWidths = (
        102
        87
        63
        61
        50
        101
        95
        101
        84)
    end
    object DBGrid1: TDBGrid
      Left = 193
      Top = 132
      Width = 399
      Height = 131
      Color = 12910591
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 4
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlue
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Visible = False
      OnDblClick = DBGrid1DblClick
      OnKeyDown = DBGrid1KeyDown
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #21830#21697#32534#21495
          Title.Alignment = taCenter
          Width = 96
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #21830#21697#21517#31216
          Title.Alignment = taCenter
          Width = 85
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #35268#26684
          Title.Alignment = taCenter
          Width = 59
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #21333#20301
          Title.Alignment = taCenter
          Width = 51
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #36827#20215
          Title.Alignment = taCenter
          Width = 70
          Visible = True
        end>
    end
    object ListBox1: TListBox
      Left = 203
      Top = 82
      Width = 121
      Height = 151
      Color = 16777166
      ItemHeight = 13
      TabOrder = 5
      Visible = False
      OnDblClick = ListBox1DblClick
      OnKeyDown = ListBox1KeyDown
    end
    object Panel3: TPanel
      Left = 2
      Top = 341
      Width = 758
      Height = 34
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 6
      object Label8: TLabel
        Left = 11
        Top = 11
        Width = 63
        Height = 13
        Caption = #25240'         '#25187#65306
        Transparent = True
      end
      object Label6: TLabel
        Left = 140
        Top = 11
        Width = 60
        Height = 13
        Caption = #21697#31181#25968#37327#65306
        Transparent = True
      end
      object Label17: TLabel
        Left = 203
        Top = 12
        Width = 6
        Height = 13
        Caption = '0'
        Transparent = True
      end
      object Label12: TLabel
        Left = 241
        Top = 11
        Width = 60
        Height = 13
        Caption = #24635'  '#25968'  '#37327#65306
        Transparent = True
      end
      object Label18: TLabel
        Left = 305
        Top = 12
        Width = 6
        Height = 13
        Caption = '0'
        Transparent = True
      end
      object Label10: TLabel
        Left = 350
        Top = 11
        Width = 60
        Height = 13
        Caption = #24635'  '#37329'  '#39069#65306
        Transparent = True
      end
      object Label19: TLabel
        Left = 412
        Top = 12
        Width = 15
        Height = 13
        Caption = '0.0'
        Transparent = True
      end
      object Label11: TLabel
        Left = 458
        Top = 12
        Width = 60
        Height = 13
        Caption = #23454#20184#37329#39069#65306
        Transparent = True
      end
      object Label16: TLabel
        Left = 612
        Top = 10
        Width = 60
        Height = 13
        Caption = #20184#27454#26041#24335#65306
        Transparent = True
      end
      object Edit8: TEdit
        Left = 75
        Top = 9
        Width = 47
        Height = 19
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        Text = '1.0'
        OnExit = Edit8Exit
        OnKeyDown = Edit8KeyDown
        OnKeyPress = Edit8KeyPress
      end
      object ComboBox2: TComboBox
        Left = 675
        Top = 6
        Width = 68
        Height = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 1
        OnKeyPress = ComboBox2KeyPress
        Items.Strings = (
          #29616#37329
          #25346#36134
          #39044#20184
          #25903#31080)
      end
      object Edit2: TEdit
        Left = 520
        Top = 9
        Width = 69
        Height = 19
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
        Text = '0.00'
        OnExit = Edit2Exit
        OnKeyDown = Edit2KeyDown
        OnKeyPress = Edit8KeyPress
      end
    end
  end
  object DataSource1: TDataSource
    Left = 314
    Top = 282
  end
end