imst.dfm

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

object FrmImST: TFrmImST
  Left = 294
  Top = 235
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #29289#21697#20837#24211#21333
  ClientHeight = 452
  ClientWidth = 624
  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 cntTitleBar: TControlBar
    Left = 0
    Top = 0
    Width = 624
    Height = 45
    Align = alTop
    TabOrder = 0
    object ToolBar2: TToolBar
      Left = 11
      Top = 2
      Width = 607
      Height = 48
      Align = alClient
      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 ToolButton2: TToolButton
        Left = 0
        Top = 0
        Width = 2
        Caption = 'ToolButton1'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object btnSave: TToolButton
        Left = 2
        Top = 0
        AutoSize = True
        Caption = #20445#23384
        ImageIndex = 1
        OnClick = btnSaveClick
      end
      object btnNew: TToolButton
        Left = 41
        Top = 0
        AutoSize = True
        Caption = #26032#22686
        ImageIndex = 2
        OnClick = btnNewClick
      end
      object btnDelete: TToolButton
        Left = 80
        Top = 0
        AutoSize = True
        Caption = #21024#34892
        ImageIndex = 18
        OnClick = btnDeleteClick
      end
      object ToolButton7: TToolButton
        Left = 119
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object btnCheck: TToolButton
        Left = 127
        Top = 0
        AutoSize = True
        Caption = #23457#26680
        ImageIndex = 6
        OnClick = btnCheckClick
      end
      object btnUnCheck: TToolButton
        Left = 166
        Top = 0
        AutoSize = True
        Caption = #21453#23457#26680
        ImageIndex = 7
        OnClick = btnUnCheckClick
      end
      object ToolButton9: TToolButton
        Left = 219
        Top = 0
        Width = 8
        Caption = 'ToolButton9'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object btnQuit: TToolButton
        Left = 227
        Top = 0
        AutoSize = True
        Caption = #36864#20986
        ImageIndex = 15
        OnClick = btnQuitClick
      end
      object ToolButton10: TToolButton
        Left = 266
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 16
        Style = tbsSeparator
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 624
    Height = 44
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Label5: TLabel
      Left = 299
      Top = 17
      Width = 56
      Height = 14
      Caption = #20837#24211#26085#26399
      Color = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 107
      Top = 17
      Width = 56
      Height = 14
      Caption = #20837#24211#21333#21495
      Color = clActiveCaption
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label1: TLabel
      Left = 536
      Top = 16
      Width = 36
      Height = 13
      Caption = #24050#23457#26680
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object dtpBillDate: TdxDateEdit
      Left = 363
      Top = 12
      Width = 121
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imClose
      ParentFont = False
      Style.ButtonStyle = btsHotFlat
      TabOrder = 0
      Date = -700000
    end
    object edtBillNo: TdxEdit
      Left = 170
      Top = 12
      Width = 121
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imClose
      ParentFont = False
      Style.ButtonStyle = btsDefault
      TabOrder = 1
      ReadOnly = True
      StoredValues = 64
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 383
    Width = 624
    Height = 50
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Label2: TLabel
      Left = 25
      Top = 19
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #22791'  '#27880
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object edtcontext: TdxMemo
      Left = 88
      Top = 13
      Width = 513
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imClose
      ParentFont = False
      Style.ButtonStyle = btsSimple
      TabOrder = 0
      MaxLength = 255
      Lines.Strings = (
        '')
      Height = 25
      StoredValues = 2
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 433
    Width = 624
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 89
    Width = 624
    Height = 294
    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 = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    RowDoublecolor = clWindow
    RowSinglecolor = clCream
    SumList.Active = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnKeyPress = DBGridEh1KeyPress
    Columns = <
      item
        ButtonStyle = cbsDropDown
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #29289#21697#32534#30721
        Footer.Value = #21512#35745
        Footer.ValueType = fvtStaticText
        Footers = <>
        Width = 120
        OnEditButtonClick = DBGridEh1Columns0EditButtonClick
      end
      item
        ButtonStyle = cbsDropDown
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #29289#21697#21517#31216
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 120
        OnEditButtonClick = DBGridEh1Columns0EditButtonClick
      end
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #29289#21697#21333#20215
        Footers = <>
        ReadOnly = True
        Width = 120
      end
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #29289#21697#25968#37327
        Footers = <>
        Width = 120
        OnUpdateData = DBGridEh1Columns3UpdateData
      end
      item
        DisplayCurrency = False
        DisplayZero = False
        EditButtons = <>
        FieldName = #37329#39069
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = True
        Width = 120
      end>
  end
  object qurfree: TADOQuery
    Connection = Datamod.dbmain
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select max('#20837#24211#21333#21495') as a from '#29289#21697#20837#24211#20027#34920' where '
      #20837#24211#21333#21495' like '#39'%'#39)
    Left = 120
    Top = 240
  end
  object DataSource1: TDataSource
    DataSet = qurDetail
    Left = 232
    Top = 200
  end
  object qurDetail: TADOQuery
    Connection = Datamod.dbmain
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 264
    Top = 200
  end
end