dfm_tcheck.dfm

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

object dfmtcheck: Tdfmtcheck
  Left = 243
  Top = 163
  Width = 456
  Height = 355
  Caption = #30424#28857#24635#34920
  Color = 13422259
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 309
    Width = 448
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 276
    Width = 448
    Height = 33
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 24
      Top = 12
      Width = 48
      Height = 12
      Caption = #20197#32534#30721#21069
    end
    object Label2: TLabel
      Left = 128
      Top = 12
      Width = 24
      Height = 12
      Caption = #27719#24635
    end
    object postbtn: TBitBtn
      Left = 224
      Top = 4
      Width = 75
      Height = 25
      Caption = #30830#23450
      Default = True
      ModalResult = 1
      TabOrder = 0
      OnClick = postbtnClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object MaskEdit1: TMaskEdit
      Left = 80
      Top = 8
      Width = 41
      Height = 20
      TabOrder = 1
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 448
    Height = 276
    Align = alClient
    DataSource = dstmanrec
    FooterColor = clYellow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    ReadOnly = True
    SumList.Active = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'cdate'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Caption = #26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'bmh'
        Footers = <>
        Title.Caption = #37096#38376#21495
      end
      item
        EditButtons = <>
        FieldName = 'clabel'
        Footers = <>
        Title.Caption = #21697#29260
      end
      item
        EditButtons = <>
        FieldName = 'spbh'
        Footers = <>
        Title.Caption = #32534#30721
        Width = 92
      end
      item
        EditButtons = <>
        FieldName = 'cnumber'
        Footer.FieldName = 'cnumber'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Caption = #25968#37327
      end>
  end
  object dstmanrec: TDataSource
    DataSet = ADOQuery3
    Left = 200
    Top = 56
  end
  object ADOQuery1: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'delete * from t_check')
    Left = 40
    Top = 64
  end
  object ADOQuery2: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'insert into t_check'
      'select bmh,clabel,spbh,sum(cnumber) as cnumber,cdate'
      'from t_checkin'
      'group by cdate,bmh,clabel,spbh')
    Left = 72
    Top = 64
  end
  object ADOQuery3: TADOQuery
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from t_check')
    Left = 232
    Top = 56
  end
end