imstexp.dfm

一个仓库管理软件包括,仓库入库,仓库出库,库存信息,单据审核,反审核等功能.

object FrmImSTExp: TFrmImSTExp
  Left = 391
  Top = 129
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #29289#21697#20837#24211
  ClientHeight = 613
  ClientWidth = 862
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 862
    Height = 77
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 38
        Width = 858
      end
      item
        Control = Panel1
        ImageIndex = -1
        MinHeight = 33
        Width = 858
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 845
      Height = 38
      Align = alNone
      ButtonHeight = 37
      ButtonWidth = 49
      Caption = 'ToolBar1'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      Images = Datamod.imgButtonList
      ParentFont = False
      ShowCaptions = True
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Width = 2
        Caption = 'ToolButton1'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object btnFresh: TToolButton
        Left = 2
        Top = 0
        AutoSize = True
        Caption = #21047#26032
        ImageIndex = 0
        OnClick = btnFreshClick
      end
      object ToolButton2: TToolButton
        Left = 41
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object btnNew: TToolButton
        Left = 49
        Top = 0
        AutoSize = True
        Caption = #26032#22686
        ImageIndex = 2
        OnClick = btnNewClick
      end
      object btnEdit: TToolButton
        Left = 88
        Top = 0
        AutoSize = True
        Caption = #20462#25913
        ImageIndex = 3
        OnClick = btnEditClick
      end
      object btnDelete: TToolButton
        Left = 127
        Top = 0
        AutoSize = True
        Caption = #21024#38500
        ImageIndex = 5
        OnClick = btnDeleteClick
      end
      object ToolButton6: TToolButton
        Left = 166
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton7: TToolButton
        Left = 174
        Top = 0
        AutoSize = True
        Caption = #23457#26680
        ImageIndex = 6
        OnClick = ToolButton7Click
      end
      object ToolButton5: TToolButton
        Left = 213
        Top = 0
        AutoSize = True
        Caption = #21453#23457#26680
        ImageIndex = 7
        OnClick = ToolButton5Click
      end
      object ToolButton4: TToolButton
        Left = 266
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 17
        Style = tbsSeparator
      end
      object btnExit: TToolButton
        Left = 274
        Top = 0
        AutoSize = True
        Caption = #36864#20986
        ImageIndex = 15
        OnClick = btnExitClick
      end
      object ToolButton3: TToolButton
        Left = 313
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 16
        Style = tbsSeparator
      end
    end
    object Panel1: TPanel
      Left = 9
      Top = 40
      Width = 845
      Height = 33
      BevelOuter = bvNone
      TabOrder = 1
      object Label1: TLabel
        Left = 298
        Top = 11
        Width = 48
        Height = 13
        Caption = #24555#36895#26597#35810
      end
      object Label2: TLabel
        Left = 165
        Top = 14
        Width = 14
        Height = 14
        Caption = #33267
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label3: TLabel
        Left = 2
        Top = 11
        Width = 56
        Height = 14
        Caption = #21046#21333#26085#26399
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Edit1: TEdit
        Left = 354
        Top = 7
        Width = 121
        Height = 21
        TabOrder = 0
        OnChange = Edit1Change
      end
      object dtpDateEnd: TdxDateEdit
        Left = 181
        Top = 6
        Width = 100
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ImeMode = imClose
        ParentFont = False
        Style.ButtonStyle = btsHotFlat
        TabOrder = 1
        Date = -700000
      end
      object dtpDateStart: TdxDateEdit
        Left = 63
        Top = 6
        Width = 100
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ImeMode = imClose
        ParentFont = False
        Style.ButtonStyle = btsHotFlat
        TabOrder = 2
        Date = -700000
      end
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 77
    Width = 862
    Height = 517
    Align = alClient
    AutoFitColWidths = True
    CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.CurrencyFont.Color = clWindowText
    CurrencyStyle.CurrencyFont.Height = -11
    CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
    CurrencyStyle.CurrencyFont.Style = []
    CurrencyStyle.CurrencySymbol = #65509
    CurrencyStyle.CompartColor = clSilver
    CurrencyStyle.KilobitColor = clGreen
    CurrencyStyle.RadixColor = clRed
    CurrencyStyle.ShowMinus = True
    CurrencyStyle.ShowZero = False
    CurrencyStyle.MinusColor = clRed
    CurrencyStyle.Layout = tlCenter
    CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.HeadFont.Color = clWindowText
    CurrencyStyle.HeadFont.Height = -11
    CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
    CurrencyStyle.HeadFont.Style = []
    DataSource = DataSource1
    FixGridlinecolor = clGray
    Gridlinecolor = clGray
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    FooterDisplayStyle = False
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    RowDoublecolor = clWindow
    RowSinglecolor = clCream
    SumList.Active = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = btnEditClick
    Columns = <
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #20837#24211#21333#21495
        Footer.Value = #21512#35745
        Footer.ValueType = fvtStaticText
        Footers = <>
        Width = 140
      end
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #21333#25454#29366#24577
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 63
      end
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #21046#21333#20154
        Footers = <>
        Width = 112
      end
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #21046#21333#26085#26399
        Footers = <>
        Width = 116
      end
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #23457#26680#20154
        Footers = <>
        Width = 115
      end
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #23457#26680#26085#26399
        Footers = <>
        Width = 140
      end
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #22791#27880
        Footers = <>
        Width = 140
      end>
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 594
    Width = 862
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 248
    Top = 216
  end
  object ADOQuery1: TADOQuery
    Connection = Datamod.dbmain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from '#29289#21697#20837#24211#20027#34920)
    Left = 200
    Top = 224
  end
  object qurfree: TADOQuery
    Connection = Datamod.dbmain
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 208
    Top = 328
  end
  object qurfree2: TADOQuery
    Connection = Datamod.dbmain
    Parameters = <>
    Left = 432
    Top = 240
  end
end