unit_query_xs.dfm

为某绣花厂做的管理系统源码

inherited form_query_xs: Tform_query_xs
  Left = 191
  Top = 165
  Caption = #38144#21806#25910#27454#26597#35810
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 786
    Height = 97
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object Label2: TLabel
      Left = 17
      Top = 13
      Width = 78
      Height = 13
      Caption = #21333#25454#26085#26399#20174#65306
    end
    object Label3: TLabel
      Left = 548
      Top = 13
      Width = 39
      Height = 13
      Caption = #23458#25143#65306
    end
    object Label6: TLabel
      Left = 233
      Top = 39
      Width = 52
      Height = 13
      Caption = #19994#21153#21592#65306
    end
    object Label5: TLabel
      Left = 28
      Top = 39
      Width = 65
      Height = 13
      Caption = #20184#27454#26041#24335#65306
    end
    object Label7: TLabel
      Left = 425
      Top = 39
      Width = 52
      Height = 13
      Caption = #25805#20316#21592#65306
    end
    object Label1: TLabel
      Left = 361
      Top = 13
      Width = 65
      Height = 13
      Caption = #38144#21806#21333#21495#65306
    end
    object Label8: TLabel
      Left = 210
      Top = 11
      Width = 13
      Height = 13
      Caption = #33267
    end
    object Label10: TLabel
      Left = 28
      Top = 70
      Width = 65
      Height = 13
      Caption = #37329#39069#21512#35745#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 756
      Top = 7
      Width = 23
      Height = 22
      Caption = '...'
      OnClick = SpeedButton1Click
    end
    object BitBtn_find: TBitBtn
      Left = 323
      Top = 65
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 8
      OnClick = BitBtn_findClick
    end
    object BitBtn_quit: TBitBtn
      Left = 545
      Top = 65
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 10
      OnClick = BitBtn_quitClick
    end
    object DateEdit_begin: TDateEdit
      Left = 93
      Top = 8
      Width = 106
      Height = 21
      Color = 16572566
      DefaultToday = True
      NumGlyphs = 2
      TabOrder = 0
    end
    object DateEdit_end: TDateEdit
      Left = 234
      Top = 8
      Width = 106
      Height = 21
      Color = 16572566
      DefaultToday = True
      NumGlyphs = 2
      TabOrder = 1
    end
    object Edit_jhdh: TEdit
      Left = 424
      Top = 8
      Width = 105
      Height = 21
      Color = 16572566
      TabOrder = 2
    end
    object Edit_gys: TEdit
      Left = 584
      Top = 8
      Width = 169
      Height = 21
      Color = 16572566
      TabOrder = 3
    end
    object Edit_ywy: TEdit
      Left = 283
      Top = 35
      Width = 106
      Height = 21
      Color = 16572566
      TabOrder = 5
    end
    object Edit_czy: TEdit
      Left = 475
      Top = 35
      Width = 106
      Height = 21
      Color = 16572566
      TabOrder = 6
    end
    object ComboBox_fkfs: TComboBox
      Left = 93
      Top = 35
      Width = 106
      Height = 21
      Color = 16572566
      ItemHeight = 13
      TabOrder = 4
    end
    object BitBtn_print: TBitBtn
      Left = 434
      Top = 65
      Width = 75
      Height = 25
      Caption = #25171#21360
      TabOrder = 9
      OnClick = BitBtn_printClick
    end
    object Edit_je: TEdit
      Left = 92
      Top = 65
      Width = 106
      Height = 21
      Color = 16572566
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 7
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 97
    Width = 786
    Height = 360
    Align = alClient
    Color = 16382446
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 't0301'
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#21333#21495
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 't0302'
        Title.Alignment = taCenter
        Title.Caption = #21333#25454#26085#26399
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23458#25143#21517#31216
        Title.Alignment = taCenter
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 't0305'
        Title.Alignment = taCenter
        Title.Caption = #20184#27454#26041#24335
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 't0303'
        Title.Alignment = taCenter
        Title.Caption = #19994#21153#21592
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 't0307'
        Title.Alignment = taCenter
        Title.Caption = #25805#20316#21592
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21830#21697#21517#31216
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#21517#31216
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35268#26684
        Title.Alignment = taCenter
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301
        Title.Alignment = taCenter
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = #39068#33394
        Title.Alignment = taCenter
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 't0406'
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 't0403'
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 't0404'
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 't0308'
        Title.Alignment = taCenter
        Title.Caption = #24050#25910#27454
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23578#27424#27454
        Title.Alignment = taCenter
        Width = 80
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 160
    Top = 224
  end
  object ADOQuery1: TADOQuery
    Connection = Form_main.ADOCn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *,'
      '(select t0202 from t02 where t0200=t03.t0304) as '#23458#25143#21517#31216','
      '(select t0707 from t07 where t0700=t04.t0402) as '#21333#20301','
      '(select t0702 from t07 where t0700=t04.t0402) as '#21830#21697#21517#31216','
      '(select t0704 from t07 where t0700=t04.t0402)  as '#39068#33394','
      '(select t0703 from t07 where t0700=t04.t0402)  as '#35268#26684','
      '(select sum(t0308) from t03 where t0300=t03.t0300) as '#24050#25910#27454#21512#35745','
      
        '(select sum(t0306-t0308) from t03 where t0300=t03.t0300) as  '#23578#27424#27454 +
        #21512#35745','
      '(t03.t0306-t03.t0308) as '#23578#27424#27454
      'from t04 , t03'
      'where t04.t0401=t03.t0300')
    Left = 128
    Top = 224
  end
  object ADOQuery2: TADOQuery
    Connection = Form_main.ADOCn
    Parameters = <>
    Left = 640
    Top = 216
  end
  object RMDBDataSet1: TRMDBDataSet
    DataSet = ADOQuery1
    Left = 336
    Top = 200
  end
  object RMReport1: TRMReport
    Dataset = RMDBDataSet1
    InitialZoom = pzPageWidth
    ModifyPrepared = True
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit]
    Left = 304
    Top = 200
    ReportForm = {28000000}
  end
end