?? ghsxscx1.dfm

?? 思微POS連鎖超市管理系統 (商業代碼),幾年前的東西了
?? DFM
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
        Value = 36892d
      end
      item
        Name = 'rq2'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 37621d
      end
      item
        Name = 'ghs'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 5
        Value = '%'
      end>
    SQL.Strings = (
      'select ghscode,ghsname,sum(je) as je,'
      
        'sum(zkje) as zkje,sum(jhje) as jhje,sum(mlje) as mlje from ghsxs' +
        'cx_v'
      'where xsrq>=:rq1 and xsrq<=:rq2 and ghscode like :ghs'
      'group by ghscode,ghsname')
    Left = 248
    Top = 136
    object ADOQuery1ghscode: TStringField
      DisplayLabel = '供貨商編碼'
      FieldName = 'ghscode'
      Size = 5
    end
    object ADOQuery1ghaname: TStringField
      DisplayLabel = '供貨商名稱'
      FieldName = 'ghsname'
      Size = 200
    end
    object ADOQuery1je: TBCDField
      DisplayLabel = '銷售金額'
      FieldName = 'je'
      Precision = 32
      Size = 2
    end
    object ADOQuery1zkje: TBCDField
      DisplayLabel = '折扣金額'
      FieldName = 'zkje'
      Precision = 19
    end
    object ADOQuery1jhje: TBCDField
      DisplayLabel = '進貨金額'
      FieldName = 'jhje'
      Precision = 32
      Size = 6
    end
    object ADOQuery1mlje: TBCDField
      DisplayLabel = '毛利金額'
      FieldName = 'mlje'
      Precision = 32
      Size = 6
    end
  end
  object dxComponentPrinter1: TdxComponentPrinter
    CurrentLink = dxComponentPrinter1Link1
    PreviewOptions.Caption = '供貨商銷售匯總表'
    PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
    PrintTitle = '供貨商銷售匯總表'
    Left = 275
    Top = 168
    object dxComponentPrinter1Link1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid1
      DateTime = 37714.6185487269
      DesignerHelpContext = 0
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageSize.X = 215900
      PrinterPage.PageSize.Y = 279400
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportTitle.Font.Charset = DEFAULT_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = 'Times New Roman'
      ReportTitle.Font.Style = [fsBold]
      ReportTitle.Text = '供貨商銷售匯總表'
      BandFont.Charset = DEFAULT_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -11
      BandFont.Name = 'Times New Roman'
      BandFont.Style = []
      EvenFont.Charset = DEFAULT_CHARSET
      EvenFont.Color = clWindowText
      EvenFont.Height = -11
      EvenFont.Name = 'Times New Roman'
      EvenFont.Style = []
      FixedTransparent = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Times New Roman'
      FooterFont.Style = []
      GroupNodeFont.Charset = DEFAULT_CHARSET
      GroupNodeFont.Color = clWindowText
      GroupNodeFont.Height = -11
      GroupNodeFont.Name = 'Times New Roman'
      GroupNodeFont.Style = []
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 136
    Top = 176
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 208
    Top = 232
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'rq1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 36892d
      end
      item
        Name = 'rq2'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 37621d
      end
      item
        Name = 'ghs'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 5
        Value = '%'
      end>
    SQL.Strings = (
      'select spcode,spname,sum(sl) as sl,dj,sum(je) as je,'
      
        'sum(zkje) as zkje,jhj,sum(jhje) as jhje,sum(mlje) as mlje from g' +
        'hsxscx_v'
      'where xsrq>=:rq1 and xsrq<=:rq2 and ghscode = :ghs'
      'group by spcode,spname,dj,jhj')
    Left = 248
    Top = 232
    object StringField3: TStringField
      DisplayLabel = '商品編碼'
      FieldName = 'spcode'
      Size = 15
    end
    object StringField4: TStringField
      DisplayLabel = '商品名稱'
      FieldName = 'spname'
      Size = 100
    end
    object BCDField1: TBCDField
      DisplayLabel = '數量'
      FieldName = 'sl'
      Precision = 32
      Size = 2
    end
    object BCDField2: TBCDField
      DisplayLabel = '單價'
      FieldName = 'dj'
      Precision = 18
      Size = 2
    end
    object BCDField3: TBCDField
      DisplayLabel = '銷售金額'
      FieldName = 'je'
      Precision = 32
      Size = 2
    end
    object BCDField4: TBCDField
      DisplayLabel = '折扣金額'
      FieldName = 'zkje'
      Precision = 19
    end
    object BCDField5: TBCDField
      DisplayLabel = '進貨價'
      FieldName = 'jhj'
      Precision = 18
      Size = 2
    end
    object BCDField6: TBCDField
      DisplayLabel = '進貨金額'
      FieldName = 'jhje'
      Precision = 32
      Size = 6
    end
    object BCDField7: TBCDField
      DisplayLabel = '毛利金額'
      FieldName = 'mlje'
      Precision = 32
      Size = 6
    end
  end
  object dxComponentPrinter2: TdxComponentPrinter
    CurrentLink = dxDBGridReportLink1
    PreviewOptions.Caption = '供貨商銷售明細表'
    PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
    PrintTitle = '供貨商銷售明細表'
    Left = 275
    Top = 200
    object dxDBGridReportLink1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid2
      DateTime = 37714.6188983796
      DesignerHelpContext = 0
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageSize.X = 215900
      PrinterPage.PageSize.Y = 279400
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportTitle.Font.Charset = DEFAULT_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = 'Times New Roman'
      ReportTitle.Font.Style = [fsBold]
      ReportTitle.Text = '供貨商銷售明細表'
      BandFont.Charset = DEFAULT_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -11
      BandFont.Name = 'Times New Roman'
      BandFont.Style = []
      EvenFont.Charset = DEFAULT_CHARSET
      EvenFont.Color = clWindowText
      EvenFont.Height = -11
      EvenFont.Name = 'Times New Roman'
      EvenFont.Style = []
      FixedTransparent = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Times New Roman'
      FooterFont.Style = []
      GroupNodeFont.Charset = DEFAULT_CHARSET
      GroupNodeFont.Color = clWindowText
      GroupNodeFont.Height = -11
      GroupNodeFont.Name = 'Times New Roman'
      GroupNodeFont.Style = []
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
end
上一頁 12
?? 文件大小 13936 K
?? 上傳用戶 afaslgo
?? 所屬分類百貨/超市行業
??? 相關標簽

#POS #連鎖 #超市管理系統 #商
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ghsxscx1.dfm

?? 快捷鍵說明
