fmqrymonthdatau.dfm

小型库存管理,希望有帮助,小型库存管理,希望有帮助

inherited FMQryMonthData: TFMQryMonthData
  Left = 230
  Top = 140
  Width = 684
  Height = 422
  Caption = 'FMQryMonthData'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel2: TPanel
    Width = 676
    Height = 351
    object Notebook: TNotebook
      Left = 0
      Top = 65
      Width = 676
      Height = 286
      Align = alClient
      TabOrder = 0
      object TPage
        Left = 0
        Top = 0
        Caption = 'WelCome'
        object GridMonth: TDBGrid
          Left = 0
          Top = 0
          Width = 676
          Height = 286
          Hint = #21452#20987#26174#31034#26126#32454#36164#26009#12290
          Align = alClient
          DataSource = dsMonth
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnDblClick = GridMonthDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'fId'
              Title.Caption = #24207#21495
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fBegDate'
              Title.Caption = #24320#22987#26085#26399
              Width = 82
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fEndDate'
              Title.Caption = #32467#26463#26085#26399
              Width = 82
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fusername'
              Title.Caption = #21046#21333#20154
              Width = 69
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fdictname'
              Title.Caption = #29366#24577
              Width = 69
              Visible = True
            end>
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'Data'
        object PageControl: TPageControl
          Left = 0
          Top = 0
          Width = 676
          Height = 286
          ActivePage = TabSheet1
          Align = alClient
          TabIndex = 0
          TabOrder = 0
          object TabSheet1: TTabSheet
            Caption = #25968#37327#24080
            object GridQty: TDBGrid
              Left = 0
              Top = 0
              Width = 668
              Height = 259
              Hint = #21452#20987#26174#31034#37329#39069#24080
              Align = alClient
              DataSource = dsTotal
              ParentShowHint = False
              ReadOnly = True
              ShowHint = True
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'fproductno'
                  Title.Caption = #20135#21697#32534#21495
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fProductName'
                  Title.Caption = #20135#21697#21517#31216
                  Width = 110
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fSaleUnit'
                  Title.Caption = #21333#20301
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fSpec'
                  Title.Caption = #35268#26684
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fQty'
                  Title.Caption = #26399#21021#25968#37327
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fSHQty'
                  Title.Caption = #39564#25910#25968#37327
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fTHQty'
                  Title.Caption = #36864#36135#25968#37327
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fLLQty'
                  Title.Caption = #39046#26009#25968#37327
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fTLQty'
                  Title.Caption = #36864#26009#25968#37327
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fDZQty'
                  Title.Caption = #35843#25972#25968#37327
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fEndQty'
                  Title.Caption = #26399#26411#25968#37327
                  Visible = True
                end>
            end
          end
          object TabSheet2: TTabSheet
            Caption = #37329#39069#24080
            ImageIndex = 1
            object GridAmt: TDBGrid
              Left = 0
              Top = 0
              Width = 668
              Height = 259
              Hint = #21452#20987#26174#31034#25968#37327#24080
              Align = alClient
              DataSource = dsTotal
              ParentShowHint = False
              ShowHint = False
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'fproductno'
                  Title.Caption = #20135#21697#32534#21495
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fProductName'
                  Title.Caption = #20135#21697#21517#31216
                  Width = 110
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fSaleUnit'
                  Title.Caption = #21333#20301
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fSpec'
                  Title.Caption = #35268#26684
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fAmt'
                  Title.Caption = #26399#21021#37329#39069
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fSHAmt'
                  Title.Caption = #39564#25910#37329#39069
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fTHAmt'
                  Title.Caption = #36864#36135#37329#39069
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fLLAmt'
                  Title.Caption = #39046#26009#37329#39069
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fTLAmt'
                  Title.Caption = #36864#26009#37329#39069
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fDZAmt'
                  Title.Caption = #35843#25972#37329#39069
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'fEndAmt'
                  Title.Caption = #26399#26411#37329#39069
                  Visible = True
                end>
            end
          end
        end
      end
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 676
      Height = 65
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Label1: TLabel
        Left = 24
        Top = 24
        Width = 186
        Height = 12
        Caption = #20027#35201#26159#35753#24744#26597#30475#20197#24448#26376#32467#21382#21490#25968#25454'.'
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 676
    ButtonWidth = 37
    inherited btnClear: TToolButton
      Left = 37
    end
    inherited btnPrint: TToolButton
      Left = 74
    end
    inherited btnExcle: TToolButton
      Left = 111
      OnClick = btnExcleClick
    end
    inherited btnExit: TToolButton
      Left = 148
    end
    inherited btnExp: TToolButton
      Left = 185
      Caption = #36820#22238
      Visible = True
      OnClick = btnExpClick
    end
  end
  inherited QrySQL: TADOQuery
    Left = 80
  end
  object adoTotal: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      
        'select a.*,b.fproductno,b.fProductName,b.fSpec,b.fSaleUnit from ' +
        'tb_bizTotal a,ts_item b where a.fproductid=b.fproductid')
    Left = 184
    Top = 208
    object adoTotalfProductId: TSmallintField
      FieldName = 'fProductId'
    end
    object adoTotalfSHQty: TFloatField
      FieldName = 'fSHQty'
    end
    object adoTotalfTHQty: TFloatField
      FieldName = 'fTHQty'
    end
    object adoTotalfLLQty: TFloatField
      FieldName = 'fLLQty'
    end
    object adoTotalfTLQty: TFloatField
      FieldName = 'fTLQty'
    end
    object adoTotalfDZQty: TFloatField
      FieldName = 'fDZQty'
    end
    object adoTotalfSHAmt: TFloatField
      FieldName = 'fSHAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfTHAmt: TFloatField
      FieldName = 'fTHAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfLLAmt: TFloatField
      FieldName = 'fLLAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfTLAmt: TFloatField
      FieldName = 'fTLAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfDZAmt: TFloatField
      FieldName = 'fDZAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfQty: TFloatField
      FieldName = 'fQty'
    end
    object adoTotalfAmt: TFloatField
      FieldName = 'fAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfEndQty: TFloatField
      FieldName = 'fEndQty'
    end
    object adoTotalfEndAmt: TFloatField
      FieldName = 'fEndAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfproductno: TWideStringField
      FieldName = 'fproductno'
    end
    object adoTotalfProductName: TWideStringField
      FieldName = 'fProductName'
      Size = 48
    end
    object adoTotalfSpec: TWideStringField
      FieldName = 'fSpec'
      Size = 15
    end
    object adoTotalfSaleUnit: TWideStringField
      FieldName = 'fSaleUnit'
      Size = 4
    end
  end
  object dsTotal: TDataSource
    DataSet = adoTotal
    Left = 264
    Top = 208
  end
  object dsMonth: TDataSource
    DataSet = adoMonth
    Left = 264
    Top = 144
  end
  object adoMonth: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      'select a.*,b.fusername,c.fdictname'
      ' from tb_month a,ts_user b,ts_dict c '
      
        'where a.fcreuser=b.fuserno and c.fdicttype=1008 and c.fdictno=a.' +
        'fstate'
      'order by a.fid')
    Left = 184
    Top = 144
  end
end