unit_query_kc.dfm

DELPHI 编写的绣花厂管理软件

inherited form_query_kc: Tform_query_kc
  Left = 203
  Top = 154
  Caption = #24211#23384#26597#35810
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 786
    Height = 41
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object Label2: TLabel
      Left = 17
      Top = 13
      Width = 78
      Height = 13
      Caption = #21333#25454#26085#26399#20174#65306
    end
    object Label1: TLabel
      Left = 212
      Top = 11
      Width = 65
      Height = 13
      Caption = #36135#21697#21517#31216#65306
    end
    object Label3: TLabel
      Left = 452
      Top = 11
      Width = 39
      Height = 13
      Caption = #39068#33394#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 397
      Top = 7
      Width = 23
      Height = 22
      Caption = '...'
      OnClick = SpeedButton1Click
    end
    object DateEdit1: TDateEdit
      Left = 93
      Top = 8
      Width = 106
      Height = 21
      Color = 16572566
      DefaultToday = True
      NumGlyphs = 2
      TabOrder = 0
    end
    object Edit_hp: TEdit
      Left = 272
      Top = 8
      Width = 121
      Height = 21
      Color = 16572566
      TabOrder = 1
    end
    object Button1: TButton
      Left = 632
      Top = 8
      Width = 52
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 696
      Top = 8
      Width = 52
      Height = 25
      Caption = #36864#20986
      TabOrder = 3
      OnClick = Button2Click
    end
    object Edit_ys: TEdit
      Left = 490
      Top = 7
      Width = 121
      Height = 21
      Color = 16572566
      TabOrder = 4
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 786
    Height = 416
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 784
      Height = 414
      Align = alClient
      Color = 16382446
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 't0701'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 't0702'
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#21517#31216
          Width = 196
          Visible = True
        end
        item
          Expanded = False
          FieldName = 't0703'
          Title.Alignment = taCenter
          Title.Caption = #35268#26684
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 't0704'
          Title.Alignment = taCenter
          Title.Caption = #39068#33394
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 't0707'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 't0705'
          Title.Alignment = taCenter
          Title.Caption = #20215#26684
          Width = 61
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'scrk1'
          Title.Alignment = taCenter
          Title.Caption = #29983#20135#25968
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xssl1'
          Title.Alignment = taCenter
          Title.Caption = #38144#21806#25968#37327
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'thsl1'
          Title.Alignment = taCenter
          Title.Caption = #36864#36135#25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'kc'
          Title.Alignment = taCenter
          Title.Caption = #24211#23384#25968
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = 't0706'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 80
          Visible = True
        end>
    end
  end
  object ADOQuery1: TADOQuery
    Connection = Form_main.ADOCn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT t0700,t0701,t0702,t0703,t0704,t0705,t0706,t0707,iif(isnul' +
        'l(scrk),0,scrk) as scrk1,'
      
        'iif(isnull(xssl),0,xssl) as xssl1,iif(isnull(thsl),0,thsl) as th' +
        'sl1,'
      
        '((iif(isnull(scrk),0,scrk))-(iif(isnull(xssl),0,xssl))+(iif(isnu' +
        'll(thsl),0,thsl)))  AS kc'
      'FROM'
      '(select *,'
      
        '(select sum(iif(isnull(t0406),0,t0406))  from t04 where t0402=t0' +
        '700 ) AS xssl,'
      
        '(select sum(iif(isnull(t0603),0,t0603))  from t06 where t0602=t0' +
        '700 ) AS thsl, '
      
        '(select sum(iif(isnull(t1102),0,t1102))  from t11 where t1101=t0' +
        '700) AS scrk'
      'from  t07'
      ')')
    Left = 280
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 160
    Top = 120
  end
end