a3.dfm

一个delphi开发的库存管理系统源代码

object fa3: Tfa3
  Left = 330
  Top = 142
  Width = 696
  Height = 480
  Caption = #29289#21697#20837#24211#35760#24405
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object dg_view: TDBGridEh
    Left = 0
    Top = 0
    Width = 688
    Height = 434
    Align = alClient
    DataSource = fdm.dsdlist
    FooterColor = clCream
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -14
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
    ParentShowHint = False
    ShowHint = False
    STFilter.Local = True
    STFilter.Visible = True
    SumList.Active = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyDown = dg_viewKeyDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'id'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'no'
        Footers = <
          item
            Value = #25805#20316':F11'#25171#21360' F12'#23548#20986
            ValueType = fvtStaticText
          end>
        Title.Caption = #21333#25454#32534#21495
        Title.TitleButton = True
        Width = 150
      end
      item
        EditButtons = <>
        FieldName = 'sname'
        Footers = <>
        Title.TitleButton = True
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'name'
        Footers = <
          item
            Alignment = taRightJustify
            Value = #21512#35745
            ValueType = fvtStaticText
          end>
        Title.Caption = #21830#21697#21517#31216
        Title.TitleButton = True
        Width = 150
      end
      item
        EditButtons = <>
        FieldName = 'num'
        Footers = <
          item
            FieldName = 'num'
            ValueType = fvtSum
          end>
        Title.Caption = #25968#37327
        Title.TitleButton = True
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'dandetail.inprc'
        Footers = <
          item
            FieldName = 'dandetail.inprc'
            ValueType = fvtAvg
          end>
        Title.Caption = #36827#20215
        Title.TitleButton = True
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = 'je'
        Footers = <
          item
            FieldName = 'je'
            ValueType = fvtSum
          end>
        Title.Caption = #37329#39069
        Title.TitleButton = True
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'sortname'
        Footers = <>
        STFilter.DataField = 'sortname'
        STFilter.KeyField = 'name'
        STFilter.ListField = 'name'
        STFilter.ListSource = fdm.dslist
        Title.Caption = #35268#26684
        Title.TitleButton = True
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'sortname1'
        Footers = <>
        STFilter.DataField = 'sortname1'
        STFilter.KeyField = 'name'
        STFilter.ListField = 'name'
        STFilter.ListSource = fdm.dsqslist1
        Title.Caption = #31867#21035
        Title.TitleButton = True
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'vname'
        Footers = <>
        STFilter.DataField = 'vname'
        STFilter.KeyField = 'name'
        STFilter.ListField = 'name'
        STFilter.ListSource = fdm.dsqvlist
        Title.Caption = #20379#24212#21830
        Title.TitleButton = True
        Width = 180
      end
      item
        EditButtons = <>
        FieldName = 'dandetail.memo'
        Footers = <>
        Title.Caption = #21830#21697#35828#26126
        Title.TitleButton = True
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'dandetail.memo2'
        Footers = <>
        Title.Caption = #36827#36135#35828#26126
        Title.TitleButton = True
        Width = 100
      end>
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 300
    Top = 110
  end
  object sd: TSaveDialog
    DefaultExt = '.XLS'
    Filter = 'Excel'#25991#20214'|*.xls'
    Title = #29289#21697#24211#23384#20445#23384#31383#21475
    Left = 328
    Top = 110
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 358
    Top = 112
  end
  object MainMenu1: TMainMenu
    Left = 274
    Top = 112
    object File1: TMenuItem
      Caption = #30456#20851#25805#20316
      GroupIndex = 3
      Hint = 'File related commands'
      object N1: TMenuItem
        Caption = #25171#21360#24211#23384#25968#25454
        OnClick = N1Click
      end
      object N2: TMenuItem
        Caption = #23548#20986#24211#23384#25968#25454
        OnClick = N2Click
      end
    end
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = dg_view
    Options = [pghColored]
    Page.BottomMargin = 2.000000000000000000
    Page.LeftMargin = 2.000000000000000000
    Page.RightMargin = 2.000000000000000000
    Page.TopMargin = 2.000000000000000000
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.CenterText.Strings = (
      #20986#20837#24211#25968#25454#35760#24405)
    PageHeader.Font.Charset = ANSI_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -29
    PageHeader.Font.Name = #23435#20307
    PageHeader.Font.Style = []
    Units = MM
    Left = 390
    Top = 114
  end
end