fujiafrm.dfm

程序用Delphi6编写

object frmFuJia: TfrmFuJia
  Left = 247
  Top = 160
  ActiveControl = grdSell
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #38468#21152#36153
  ClientHeight = 413
  ClientWidth = 542
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 273
    Top = 55
    Width = 4
    Height = 358
    Cursor = crHSplit
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 542
    Height = 55
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 51
        Width = 538
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 525
      Height = 51
      AutoSize = True
      ButtonHeight = 51
      ButtonWidth = 39
      EdgeBorders = []
      Flat = True
      Images = frmMain.ImageList1
      ShowCaptions = True
      TabOrder = 0
      object btnBuy: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #36141#20080
        ImageIndex = 0
        OnClick = btnBuyClick
      end
      object btnCancel: TToolButton
        Left = 39
        Top = 0
        AutoSize = True
        Caption = #21024#38500
        ImageIndex = 1
        OnClick = btnCancelClick
      end
      object btnEdit: TToolButton
        Left = 78
        Top = 0
        AutoSize = True
        Caption = #20462#25913
        ImageIndex = 3
        OnClick = btnEditClick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 55
    Width = 273
    Height = 358
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 271
      Height = 20
      Align = alTop
      BevelOuter = bvNone
      Caption = #21830#21697#28165#21333
      TabOrder = 0
    end
    object grdSell: TDBGridEh
      Left = 1
      Top = 21
      Width = 271
      Height = 336
      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, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnEnter = grdSellEnter
      Columns = <
        item
          EditButtons = <>
          FieldName = #21697#21517
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #21806#20215
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #36827#20215
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = #21333#20301
          Footers = <>
        end>
    end
  end
  object Panel2: TPanel
    Left = 277
    Top = 55
    Width = 265
    Height = 358
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 2
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 263
      Height = 20
      Align = alTop
      BevelOuter = bvNone
      Caption = #36141#20080#21830#21697
      TabOrder = 0
    end
    object grdBuy: TDBGridEh
      Left = 1
      Top = 21
      Width = 263
      Height = 336
      Align = alClient
      AutoFitColWidths = True
      DataSource = dmMain.dsSpBuy
      FooterColor = clInactiveCaption
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FooterRowCount = 1
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      SumList.Active = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnEnter = grdSellEnter
      Columns = <
        item
          EditButtons = <>
          FieldName = #21697#21517
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #25968#37327
          Footers = <
            item
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = [fsBold]
              Value = #24635#35745
              ValueType = fvtStaticText
            end>
        end
        item
          EditButtons = <>
          FieldName = #21512#35745
          Footers = <
            item
              FieldName = #21512#35745
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = [fsBold]
              ValueType = fvtSum
            end>
        end>
    end
  end
end