spfrm.dfm

程序用Delphi6编写

object frmSp: TfrmSp
  Left = 194
  Top = 63
  Width = 549
  Height = 540
  BorderIcons = [biSystemMenu]
  Caption = #21830#21697#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 541
    Height = 55
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 51
        Width = 537
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 524
      Height = 51
      AutoSize = True
      ButtonHeight = 51
      ButtonWidth = 39
      EdgeBorders = []
      Flat = True
      Images = frmMain.ImageList1
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #28155#21152
        ImageIndex = 0
        OnClick = ShowSpAdd
      end
      object ToolButton2: TToolButton
        Left = 39
        Top = 0
        AutoSize = True
        Caption = #21024#38500
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 78
        Top = 0
        AutoSize = True
        Caption = #20462#25913
        ImageIndex = 3
        OnClick = ToolButton3Click
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 494
    Width = 541
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object grdSp: TDBGridEh
    Left = 0
    Top = 55
    Width = 541
    Height = 439
    Align = alClient
    AutoFitColWidths = True
    DataSource = dmMain.dsSpSell
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
end