xstj.dfm

药品进销存管理系统(Delphi版),适合中小企业管理

    Width = 201
    Height = 241
    Caption = '统计条件'
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 93
      Width = 42
      Height = 12
      Caption = '仓   库'
    end
    object SpeedButton1: TSpeedButton
      Left = 170
      Top = 119
      Width = 23
      Height = 22
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
        33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
        FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
        FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
        FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
        FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
        FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
        3333333773FFFF77333333333FBFBF3333333333377777333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object Label2: TLabel
      Left = 8
      Top = 125
      Width = 48
      Height = 12
      Caption = '客户名称'
    end
    object Label5: TLabel
      Left = 8
      Top = 27
      Width = 48
      Height = 12
      Caption = '部门名称'
    end
    object Label6: TLabel
      Left = 8
      Top = 61
      Width = 36
      Height = 12
      Caption = '业务员'
    end
    object Gauge1: TGauge
      Left = 6
      Top = 154
      Width = 187
      Height = 23
      Progress = 0
    end
    object ComboBox_bm: TComboBox
      Left = 63
      Top = 24
      Width = 130
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      OnExit = ComboBox_bmExit
    end
    object ComboBox_ywy: TComboBox
      Left = 63
      Top = 56
      Width = 130
      Height = 20
      ItemHeight = 12
      TabOrder = 1
    end
    object Edit_khmc: TEdit
      Left = 63
      Top = 120
      Width = 106
      Height = 20
      TabOrder = 2
    end
    object BitBtn3: TBitBtn
      Left = 56
      Top = 198
      Width = 105
      Height = 25
      Caption = '商品.毛利汇总'
      TabOrder = 3
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
        3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
        B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
        33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
        000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
        033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
        BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
        33B33733333773333373B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object ComboBox_ck: TComboBox
      Left = 64
      Top = 88
      Width = 129
      Height = 20
      ItemHeight = 12
      TabOrder = 4
    end
  end
  object Query_ckxx: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    SQL.Strings = (
      'select * from ckxxb')
    Left = 248
    Top = 144
  end
  object Query_xs: TQuery
    OnCalcFields = Query_xsCalcFields
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 288
    Top = 144
    object Query_xsxs_bh: TStringField
      FieldName = 'xs_bh'
      Origin = 'YYGL.xsxxb.xs_bh'
      Size = 22
    end
    object Query_xswp_bm: TStringField
      FieldName = 'wp_bm'
      Origin = 'YYGL.xsxxb.wp_bm'
      Size = 5
    end
    object Query_xskh_mc: TStringField
      FieldName = 'kh_mc'
      Origin = 'YYGL.xsxxb.kh_mc'
    end
    object Query_xspm: TStringField
      FieldName = 'pm'
      Origin = 'YYGL.xsxxb.pm'
    end
    object Query_xsdw: TStringField
      FieldName = 'dw'
      Origin = 'YYGL.xsxxb.dw'
      Size = 4
    end
    object Query_xsgg: TStringField
      FieldName = 'gg'
      Origin = 'YYGL.xsxxb.gg'
      Size = 10
    end
    object Query_xsjj: TFloatField
      FieldName = 'jj'
      Origin = 'YYGL.xsxxb.jj'
    end
    object Query_xsdj: TFloatField
      FieldName = 'dj'
      Origin = 'YYGL.xsxxb.dj'
    end
    object Query_xssl: TFloatField
      FieldName = 'sl'
      Origin = 'YYGL.xsxxb.sl'
    end
    object Query_xsje: TFloatField
      FieldName = 'je'
      Origin = 'YYGL.xsxxb.je'
    end
    object Query_xsfp_ph: TStringField
      FieldName = 'fp_ph'
      Origin = 'YYGL.xsxxb.fp_ph'
      Size = 14
    end
    object Query_xscb: TFloatField
      FieldKind = fkCalculated
      FieldName = 'cb'
      DisplayFormat = '0.0000'
      Calculated = True
    end
    object Query_xssj: TFloatField
      FieldKind = fkCalculated
      FieldName = 'sj'
      DisplayFormat = '0.0000'
      Calculated = True
    end
    object Query_xsml: TFloatField
      FieldKind = fkCalculated
      FieldName = 'ml'
      Calculated = True
    end
    object Query_xslr: TFloatField
      FieldKind = fkCalculated
      FieldName = 'lr'
      DisplayFormat = '0.0000'
      Calculated = True
    end
    object Query_xsph: TStringField
      FieldName = 'ph'
      Origin = 'YYGL.xsxxb.ph'
    end
    object Query_xsxsrq: TDateTimeField
      FieldName = 'xsrq'
      Origin = 'YYGL.xsxxb.xsrq'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object Query_xsck_bh: TStringField
      FieldName = 'ck_bh'
      Origin = 'YYGL.xsxxb.ck_bh'
      Size = 1
    end
    object Query_xsck_mc: TStringField
      FieldKind = fkLookup
      FieldName = 'ck_mc'
      LookupDataSet = Query_ckxx
      LookupKeyFields = 'ck_bh'
      LookupResultField = 'ck_mc'
      KeyFields = 'ck_bh'
      Size = 10
      Lookup = True
    end
    object Query_xsbm_mc: TStringField
      FieldName = 'bm_mc'
      Origin = 'YYGL.xsxxb.bm_mc'
      Size = 10
    end
    object Query_xsywy_xm: TStringField
      FieldName = 'ywy_xm'
      Origin = 'YYGL.xsxxb.ywy_xm'
      Size = 8
    end
    object Query_xscd: TStringField
      FieldName = 'cd'
      Origin = 'YYGL.xsxxb.cd'
    end
    object Query_xssb: TStringField
      FieldName = 'sb'
      Origin = 'YYGL.xsxxb.sb'
      Size = 10
    end
    object Query_xspzwh: TStringField
      FieldName = 'pzwh'
      Origin = 'YYGL.xsxxb.pzwh'
      Size = 30
    end
  end
  object DataSource_xs: TDataSource
    DataSet = Query_xs
    Left = 288
    Top = 184
  end
  object Query_ywy: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 360
    Top = 144
    object Query_ywyywy_bh: TStringField
      FieldName = 'ywy_bh'
      Origin = 'YYGL.ywyb.ywy_bh'
      Size = 3
    end
    object Query_ywyywy_xm: TStringField
      FieldName = 'ywy_xm'
      Origin = 'YYGL.ywyb.ywy_xm'
      Size = 8
    end
    object Query_ywyxb: TStringField
      FieldName = 'xb'
      Origin = 'YYGL.ywyb.xb'
      Size = 2
    end
    object Query_ywynl: TStringField
      FieldName = 'nl'
      Origin = 'YYGL.ywyb.nl'
      Size = 2
    end
    object Query_ywybm_bh: TStringField
      FieldName = 'bm_bh'
      Origin = 'YYGL.ywyb.bm_bh'
      Size = 2
    end
    object Query_ywybm_mc: TStringField
      FieldKind = fkLookup
      FieldName = 'bm_mc'
      LookupDataSet = Query_bm
      LookupKeyFields = 'bm_bh'
      LookupResultField = 'bm_mc'
      KeyFields = 'bm_bh'
      Size = 10
      Lookup = True
    end
  end
  object Query_bm: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 320
    Top = 144
  end
  object Database: TDatabase
    AliasName = 'yygl'
    DatabaseName = 'yygl'
    LoginPrompt = False
    Params.Strings = (
      'user name='#39#39
      'password='#39#39)
    SessionName = 'Default'
    TransIsolation = tiRepeatableRead
    Left = 288
    Top = 104
  end
end