kc_unit.dfm

这是我照着书做的一个销售管理系统,内容不难,很简单,但是对于我这个菜鸟来说已经很不错了

            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              1314.97916666667
              34.3958333333333
              142.875)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = #25171#21360#26102#38388
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 9
          end
        end
        object PageFooterBand1: TQRBand
          Left = 19
          Top = 134
          Width = 756
          Height = 27
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          AlignToBottom = False
          Color = clWhite
          ForceNewColumn = False
          ForceNewPage = False
          Size.Values = (
            71.4375
            2000.25)
          BandType = rbPageFooter
          object QRSysData2: TQRSysData
            Left = 280
            Top = 6
            Width = 51
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              740.833333333333
              15.875
              134.9375)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            Color = clWhite
            Data = qrsPageNumber
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            Transparent = False
            FontSize = 9
          end
        end
        object SummaryBand1: TQRBand
          Left = 19
          Top = 99
          Width = 756
          Height = 35
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          AlignToBottom = False
          Color = clWhite
          ForceNewColumn = False
          ForceNewPage = False
          Size.Values = (
            92.6041666666667
            2000.25)
          BandType = rbSummary
          object QRLabel10: TQRLabel
            Left = 385
            Top = 16
            Width = 83
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              1018.64583333333
              42.3333333333333
              219.604166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel10'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 11
          end
          object QRLabel11: TQRLabel
            Left = 459
            Top = 16
            Width = 83
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              1214.4375
              42.3333333333333
              219.604166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel11'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 11
          end
          object QRLabel12: TQRLabel
            Left = 534
            Top = 16
            Width = 83
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              1412.875
              42.3333333333333
              219.604166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel12'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 11
          end
          object QRLabel13: TQRLabel
            Left = 609
            Top = 16
            Width = 83
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              1611.3125
              42.3333333333333
              219.604166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel13'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 11
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #24211#23384#26597#35810
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 41
        Width = 774
        Height = 321
        Align = alClient
        BorderStyle = bsNone
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clBlue
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object StatusBar2: TStatusBar
        Left = 0
        Top = 362
        Width = 774
        Height = 21
        Panels = <
          item
            Alignment = taRightJustify
            Text = #35760#24405#24635#25968
            Width = 100
          end
          item
            Width = 150
          end
          item
            Alignment = taRightJustify
            Text = #24635#25968#37327
            Width = 100
          end
          item
            Width = 150
          end
          item
            Alignment = taRightJustify
            Text = #24635#37329#39069
            Width = 100
          end
          item
            Width = 150
          end>
        SimplePanel = False
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 774
        Height = 41
        Align = alTop
        TabOrder = 2
        object SpeedButton2: TSpeedButton
          Left = 557
          Top = 10
          Width = 63
          Height = 22
          Caption = #26597#35810
          Flat = True
          OnClick = SpeedButton2Click
        end
        object SpeedButton4: TSpeedButton
          Left = 626
          Top = 10
          Width = 63
          Height = 22
          Caption = #25171#21360#39044#35272
          Flat = True
        end
        object SpeedButton6: TSpeedButton
          Left = 694
          Top = 10
          Width = 63
          Height = 22
          Caption = #20851#38381
          Flat = True
          OnClick = SpeedButton5Click
        end
        object Label5: TLabel
          Left = 13
          Top = 16
          Width = 24
          Height = 12
          Caption = #26465#20214
        end
        object Label6: TLabel
          Left = 158
          Top = 15
          Width = 36
          Height = 12
          Caption = #36816#31639#31526
        end
        object Label7: TLabel
          Left = 310
          Top = 15
          Width = 12
          Height = 12
          Caption = #20540
        end
        object SpeedButton7: TSpeedButton
          Left = 489
          Top = 10
          Width = 63
          Height = 22
          Caption = #23548#20837#25968#25454
          Flat = True
          OnClick = SpeedButton7Click
        end
        object ComboBox3: TComboBox
          Left = 39
          Top = 12
          Width = 110
          Height = 18
          BevelKind = bkFlat
          Style = csOwnerDrawFixed
          Ctl3D = False
          ItemHeight = 12
          ParentCtl3D = False
          TabOrder = 0
          Items.Strings = (
            #21830#21697#32534#30721
            #21830#21697#21517#31216
            #21830#21697#35268#26684
            #21830#21697#22411#21495
            #21830#21697#21333#20301
            #21830#21697#31867#21035)
        end
        object ComboBox4: TComboBox
          Left = 196
          Top = 12
          Width = 110
          Height = 18
          BevelKind = bkFlat
          Style = csOwnerDrawFixed
          Ctl3D = False
          ItemHeight = 12
          ParentCtl3D = False
          TabOrder = 1
          Items.Strings = (
            #31561#20110
            #22823#20110
            #23567#20110
            #31867#20284#20110)
        end
        object Edit1: TEdit
          Left = 325
          Top = 12
          Width = 154
          Height = 18
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 2
          OnKeyDown = Edit1KeyDown
        end
      end
      object Edit5: TEdit
        Left = 288
        Top = 80
        Width = 121
        Height = 18
        TabOrder = 3
        Visible = False
      end
      object Edit6: TEdit
        Left = 416
        Top = 80
        Width = 121
        Height = 18
        TabOrder = 4
        Visible = False
      end
      object Edit7: TEdit
        Left = 440
        Top = 120
        Width = 121
        Height = 18
        TabOrder = 5
        Visible = False
      end
    end
  end
end