dkpxcg.dfm

希望大家能多多指教这是我给我们同学编的系统

object dkpxcgform: Tdkpxcgform
  Left = 265
  Top = 233
  Width = 519
  Height = 382
  Caption = #20826#35838#22521#35757#26597#35810#19982#20462#25913
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 511
    Height = 355
    ActivePage = TabSheet3
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabIndex = 2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #24635#34920#27983#35272
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 503
        Height = 320
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21333#20010#26597#35810#19982#20462#25913
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      object GroupBox1: TGroupBox
        Left = 72
        Top = 32
        Width = 193
        Height = 273
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 16
          Width = 126
          Height = 13
          Caption = #35831#36755#20837#35201#26597#25214#30340#22995#21517#65306'  '
        end
        object Label2: TLabel
          Left = 24
          Top = 80
          Width = 42
          Height = 13
          Caption = #26399#25968#65306'  '
        end
        object Label3: TLabel
          Left = 24
          Top = 152
          Width = 42
          Height = 13
          Caption = #22995#21517#65306'  '
        end
        object Label4: TLabel
          Left = 24
          Top = 208
          Width = 42
          Height = 13
          Caption = #29677#32423#65306'  '
        end
        object Edit1: TEdit
          Left = 40
          Top = 40
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 40
          Top = 120
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object Edit3: TEdit
          Left = 40
          Top = 176
          Width = 121
          Height = 21
          TabOrder = 2
        end
        object Edit4: TEdit
          Left = 40
          Top = 232
          Width = 121
          Height = 21
          TabOrder = 3
        end
      end
      object Button1: TButton
        Left = 336
        Top = 48
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 1
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 336
        Top = 112
        Width = 75
        Height = 25
        Caption = #20462#25913
        TabOrder = 2
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 336
        Top = 176
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 3
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 336
        Top = 240
        Width = 75
        Height = 25
        Caption = #36864#20986
        TabOrder = 4
        OnClick = Button4Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26465#20214#26597#35810#19982#25171#21360
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      object GroupBox2: TGroupBox
        Left = 8
        Top = 8
        Width = 481
        Height = 97
        TabOrder = 0
        object CheckBox1: TCheckBox
          Left = 24
          Top = 16
          Width = 49
          Height = 17
          Caption = ' '#26399#25968
          TabOrder = 0
          OnClick = CheckBox1Click
        end
        object CheckBox2: TCheckBox
          Left = 248
          Top = 16
          Width = 97
          Height = 17
          Caption = #29677#32423
          TabOrder = 1
          OnClick = CheckBox2Click
        end
        object ComboBox1: TComboBox
          Left = 16
          Top = 48
          Width = 145
          Height = 21
          Color = clBtnFace
          Enabled = False
          ItemHeight = 13
          TabOrder = 2
        end
        object ComboBox2: TComboBox
          Left = 248
          Top = 48
          Width = 145
          Height = 21
          Color = clBtnFace
          Enabled = False
          ItemHeight = 13
          TabOrder = 3
          Items.Strings = (
            '')
        end
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 104
        Width = 481
        Height = 57
        TabOrder = 1
        object Button5: TButton
          Left = 64
          Top = 16
          Width = 75
          Height = 25
          Caption = #26597#35810
          TabOrder = 0
          OnClick = Button5Click
        end
        object Button6: TButton
          Left = 264
          Top = 16
          Width = 75
          Height = 25
          Caption = #25171#21360#27983#35272
          TabOrder = 1
          OnClick = Button6Click
        end
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 168
        Width = 625
        Height = 177
        DataSource = DataSource2
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object QuickRep1: TQuickRep
        Left = 8
        Top = 456
        Width = 794
        Height = 1123
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        DataSet = Query1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Functions.Strings = (
          'PAGENUMBER'
          'COLUMNNUMBER'
          'REPORTTITLE')
        Functions.DATA = (
          '0'
          '0'
          #39#39)
        Options = [FirstPageHeader, LastPageFooter]
        Page.Columns = 1
        Page.Orientation = poPortrait
        Page.PaperSize = A4
        Page.Values = (
          100
          2970
          100
          2100