saleinputfrm.dfm

这是一个超市管理系统源代码,看上去还不错,大家看下

object SaleInputDlg: TSaleInputDlg
  Left = 279
  Top = 151
  BorderStyle = bsDialog
  Caption = 'SaleInputDlg'
  ClientHeight = 357
  ClientWidth = 545
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 72
    Height = 12
    Caption = #38144#21806#21592#32534#21495#65306
  end
  object Label2: TLabel
    Left = 16
    Top = 40
    Width = 60
    Height = 12
    Caption = #21830#21697#32534#21495#65306
  end
  object Label3: TLabel
    Left = 256
    Top = 48
    Width = 36
    Height = 12
    Caption = #25968#37327#65306
  end
  object EdtGoodId: TEdit
    Left = 88
    Top = 40
    Width = 145
    Height = 20
    TabOrder = 0
  end
  object BtnOK: TButton
    Left = 416
    Top = 40
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 2
    OnClick = BtnOKClick
  end
  object BtnNew: TButton
    Left = 408
    Top = 8
    Width = 75
    Height = 25
    Caption = #26032#22686'(&A)'
    TabOrder = 3
    OnClick = BtnNewClick
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 338
    Width = 545
    Height = 19
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object DBGridDisplay: TDBGrid
    Left = 0
    Top = 72
    Width = 537
    Height = 257
    DataSource = DMMain.DSMain
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyPress = DBGridDisplayKeyPress
    Columns = <
      item
        Expanded = False
        Title.Caption = #21830#21697#32534#21495
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        Title.Caption = #21830#21697#21517#31216
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        Title.Caption = #21830#21697#22411#21495
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        Title.Caption = #25968#37327
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        Title.Caption = #21333#20215
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        Title.Caption = #21512#35745#37329#39069
        Width = 80
        Visible = True
      end>
  end
  object EdtNum: TEdit
    Left = 304
    Top = 40
    Width = 97
    Height = 20
    TabOrder = 1
  end
  object CBSalesManId: TComboBox
    Left = 96
    Top = 0
    Width = 145
    Height = 20
    ItemHeight = 12
    TabOrder = 6
    OnKeyPress = CBSalesManIdKeyPress
  end
end