f_loss.dfm

仓库管理系统 仓库管理系统

object dfmloss: Tdfmloss
  Left = 33
  Top = 105
  Width = 634
  Height = 466
  Caption = #30424#28857#25439#30410
  Color = clBtnFace
  DefaultMonitor = dmDesktop
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 420
    Width = 626
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 395
    Width = 626
    Height = 25
    Align = alBottom
    TabOrder = 1
    object postbtn: TBitBtn
      Left = 1
      Top = 0
      Width = 75
      Height = 25
      Caption = #26174#31034#25439#30410
      ModalResult = 1
      TabOrder = 0
      OnClick = postbtnClick
      NumGlyphs = 2
    end
    object BitBtn1: TBitBtn
      Left = 76
      Top = 0
      Width = 75
      Height = 25
      Caption = #26356#26032#24211#23384
      TabOrder = 1
      OnClick = BitBtn1Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 365
    Width = 626
    Height = 30
    Align = alBottom
    TabOrder = 2
    object Label3: TLabel
      Left = 11
      Top = 9
      Width = 39
      Height = 13
      Caption = #37096#38376#21495
    end
    object Label1: TLabel
      Left = 144
      Top = 9
      Width = 52
      Height = 13
      Caption = #30424#28857#26085#26399
    end
    object Label2: TLabel
      Left = 336
      Top = 9
      Width = 78
      Height = 13
      Caption = #30424#28857#26356#26032#26085#26399
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 53
      Top = 5
      Width = 72
      Height = 21
      KeyField = 'bmh'
      ListField = 'bmh'
      ListSource = DataSource2
      TabOrder = 0
    end
    object DateTimePicker1: TDateTimePicker
      Left = 200
      Top = 5
      Width = 113
      Height = 21
      CalAlignment = dtaLeft
      Date = 37347.4124848843
      Time = 37347.4124848843
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object DateTimePicker2: TDateTimePicker
      Left = 423
      Top = 5
      Width = 114
      Height = 21
      CalAlignment = dtaLeft
      Date = 37349.4294177199
      Time = 37349.4294177199
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 626
    Height = 365
    Align = alClient
    TabOrder = 3
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 240
      Height = 363
      Align = alLeft
      Caption = #30424#28857#27719#24635#34920
      TabOrder = 0
      object DBGridEh1: TDBGridEh
        Left = 2
        Top = 15
        Width = 236
        Height = 346
        Align = alClient
        DataSource = DataSource1
        FooterColor = clYellow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        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 = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'bmh'
            Footer.Value = #21512#35745#65306
            Footer.ValueType = fvtStaticText
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #37096#38376#21495
            Width = 54
          end
          item
            EditButtons = <>
            FieldName = 'clabel'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21697#29260
            Width = 53
          end
          item
            EditButtons = <>
            FieldName = 'spbh'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21830#21697#32534#30721
            Width = 74
          end
          item
            EditButtons = <>
            FieldName = 'cnumber'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25968#37327
            Width = 39
          end>
      end
    end
    object GroupBox2: TGroupBox
      Left = 241
      Top = 1
      Width = 384
      Height = 363
      Align = alClient
      Caption = #25439#30410#23545#29031#34920
      TabOrder = 1
      object DBGridEh2: TDBGridEh
        Left = 2
        Top = 15
        Width = 380
        Height = 346
        Align = alClient
        DataSource = DataSource6
        FooterColor = clYellow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        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 = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'bmh'
            Footer.Value = #21512#35745#65306
            Footer.ValueType = fvtStaticText
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #37096#38376#21495
          end
          item
            EditButtons = <>
            FieldName = 'clabel'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21697#29260
            Width = 68
          end
          item
            EditButtons = <>
            FieldName = 'spbh'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21830#21697#32534#30721
            Width = 83
          end
          item
            EditButtons = <>
            FieldName = 'dqsl'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #24211#23384#25968
            Width = 50
          end
          item
            EditButtons = <>
            FieldName = 'cnumber'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #30424#28857#25968
            Width = 61
          end
          item
            EditButtons = <>
            FieldName = 'cps'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25439#30410
            Width = 53
          end>
      end
    end
  end
  object DataSource2: TDataSource
    DataSet = Atblbranch
    Left = 200
    Top = 48
  end
  object Atblbranch: TADOTable
    Active = True
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    TableName = 't_branch'
    Left = 232
    Top = 48
  end
  object ATblspec: TADOTable
    Connection = dmRainbowMIS.adopos
    IndexFieldNames = 'cstyle'
    MasterFields = 'flh'
    MasterSource = DataSource4
    TableName = 't_spec'
    Left = 328
    Top = 48
  end
  object DataSource3: TDataSource
    DataSet = ATblspec
    Left = 296
    Top = 48
  end
  object DataSource4: TDataSource
    DataSet = AQryware
    Left = 368
    Top = 48
  end
  object AQryware: TADOQuery
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'vlabel'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'vspbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select t_ware.clabel,t_ware.spbh,t_ware.flh from t_ware'
      'where trim(clabel)=:vlabel and trim(spbh)=:vspbh')
    Left = 400
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'vbmh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT t_check.bmh, t_check.clabel, t_check.spbh, t_store.dqsl, ' +
        't_check.cnumber, [t_check].[cnumber]-([t_store].[dqsl]-iif([t_st' +
        'oindel].[sl] is null,0,[t_stoindel].[sl])+iif([t_stooutdel].[sl]' +
        ' is null,0,[t_stooutdel].[sl])+IIf([t_checkdel].[sl] Is Null,0,[' +
        't_checkdel].[sl])) AS cps'
      
        'FROM (((t_check LEFT JOIN t_store ON (t_check.spbh = t_store.spb' +
        'h) AND (t_check.clabel = t_store.clabel) AND (t_check.bmh = t_st' +
        'ore.bmh)) LEFT JOIN t_checkdel ON (t_store.spbh = t_checkdel.spb' +
        'h) AND (t_store.clabel = t_checkdel.clabel) AND (t_store.bmh = t' +
        '_checkdel.bmh)) LEFT JOIN t_stoindel ON (t_check.spbh = t_stoind' +
        'el.spbh) AND (t_check.clabel = t_stoindel.clabel) AND (t_check.b' +
        'mh = t_stoindel.cinceptbra)) LEFT JOIN t_stooutdel ON (t_check.s' +
        'pbh = t_stooutdel.spbh) AND (t_check.clabel = t_stooutdel.clabel' +
        ') AND (t_check.bmh = t_stooutdel.csendbra)'
      'where t_check.bmh=:vbmh')
    Left = 328
    Top = 88
  end
  object DataSource6: TDataSource
    DataSet = ADOQuery1
    Left = 296
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 200
    Top = 88
  end
  object ADOQuery2: TADOQuery
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select bmh, clabel, spbh, cnumber from t_check')
    Left = 232
    Top = 88
  end
  object ADOQuery4: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      
        'UPDATE t_store, v_stovche SET t_store.sqcb = [t_store]![kccb], t' +
        '_store.sqsl = [t_store]![dqsl], t_store.kccb =0, t_store.dqsl = ' +
        '0'
      
        'WHERE [t_store]![bmh]=[v_stovche]![bmh] And [t_store]![clabel]=[' +
        'v_stovche]![clabel] and [t_store]![spbh]=[v_stovche]![spbh]')
    Left = 344
    Top = 136
  end
  object ADOQuery5: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 200
    Top = 136
  end
  object ADOQuery6: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    Left = 232
    Top = 136
  end
  object ADOQuery7: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    Left = 200
    Top = 184
  end
  object ADOQuery3: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      
        'UPDATE t_store, t_check SET t_store.sqcb = [t_store]![kccb], t_s' +
        'tore.sqsl = [t_store]![dqsl], t_store.kccb = [t_check]![cnumber]' +
        ', t_store.dqsl = [t_check]![cnumber]'
      
        'WHERE (([t_store]![bmh]=[t_check]![bmh] And t_store.clabel=t_che' +
        'ck.clabel and [t_store]![spbh]=[t_check]![spbh]))')
    Left = 304
    Top = 136
  end
end