⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 kc_unit.dfm

📁 这是我照着书做的一个销售管理系统,内容不难,很简单,但是对于我这个菜鸟来说已经很不错了
💻 DFM
📖 第 1 页 / 共 3 页
字号:
object kc_form: Tkc_form
  Left = -9
  Top = 128
  Width = 790
  Height = 437
  BorderIcons = [biSystemMenu, biMaximize, biHelp]
  Caption = #24211#23384
  Color = 13031127
  Ctl3D = False
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlue
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 782
    Height = 410
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #24211#23384#32479#35745
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 774
        Height = 41
        Align = alTop
        TabOrder = 0
        object SpeedButton1: TSpeedButton
          Left = 536
          Top = 10
          Width = 87
          Height = 25
          Caption = #23548#20837#24211#23384#20449#24687
          Flat = True
          OnClick = SpeedButton1Click
        end
        object SpeedButton3: TSpeedButton
          Left = 626
          Top = 10
          Width = 66
          Height = 25
          Caption = #25171#21360#39044#35272
          Flat = True
          OnClick = SpeedButton3Click
        end
        object SpeedButton5: TSpeedButton
          Left = 695
          Top = 10
          Width = 66
          Height = 25
          Caption = #20851#38381
          Flat = True
          OnClick = SpeedButton5Click
        end
        object RadioButton1: TRadioButton
          Left = 18
          Top = 16
          Width = 113
          Height = 17
          Caption = #25353#21830#21697#31867#21035
          TabOrder = 0
          OnClick = RadioButton1Click
        end
        object RadioButton2: TRadioButton
          Left = 138
          Top = 16
          Width = 113
          Height = 17
          Caption = #25353#21830#21697#32534#30721
          TabOrder = 1
          OnClick = RadioButton2Click
        end
        object RadioButton3: TRadioButton
          Left = 278
          Top = 16
          Width = 113
          Height = 17
          Caption = #25353#21830#21697#21517#31216
          TabOrder = 2
          OnClick = RadioButton3Click
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 41
        Width = 774
        Height = 319
        Align = alClient
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clBlue
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object StatusBar1: TStatusBar
        Left = 0
        Top = 360
        Width = 774
        Height = 23
        Panels = <
          item
            Alignment = taRightJustify
            Text = #24635#35760#24405#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 Edit3: TEdit
        Left = 408
        Top = 72
        Width = 121
        Height = 18
        TabOrder = 3
        Visible = False
      end
      object Edit4: TEdit
        Left = 280
        Top = 72
        Width = 121
        Height = 18
        TabOrder = 4
        Visible = False
      end
      object Edit2: TEdit
        Left = 160
        Top = 72
        Width = 121
        Height = 18
        TabOrder = 5
        Visible = False
      end
      object rep1: TQuickRep
        Left = 0
        Top = 40
        Width = 794
        Height = 1123
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        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 = (
          50
          2970
          50
          2100
          50
          50
          0)
        PrinterSettings.Copies = 1
        PrinterSettings.Duplex = False
        PrinterSettings.FirstPage = 0
        PrinterSettings.LastPage = 0
        PrinterSettings.OutputBin = Auto
        PrintIfEmpty = True
        SnapToGrid = True
        Units = MM
        Zoom = 100
        object ColumnHeaderBand1: TQRBand
          Left = 19
          Top = 50
          Width = 756
          Height = 26
          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 = (
            68.7916666666667
            2000.25)
          BandType = rbColumnHeader
          object QRLabel2: TQRLabel
            Left = 50
            Top = 7
            Width = 65
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              132.291666666667
              18.5208333333333
              171.979166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel2'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 11
          end
          object QRLabel3: TQRLabel
            Left = 122
            Top = 7
            Width = 65
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              322.791666666667
              18.5208333333333
              171.979166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel3'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 11
          end
          object QRLabel4: TQRLabel
            Left = 194
            Top = 7
            Width = 65
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              513.291666666667
              18.5208333333333
              171.979166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel4'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 11
          end
          object QRLabel5: TQRLabel
            Left = 266
            Top = 7
            Width = 65
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              703.791666666667
              18.5208333333333
              171.979166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel5'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 11
          end
          object QRLabel6: TQRLabel
            Left = 338
            Top = 7
            Width = 65
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              894.291666666667
              18.5208333333333
              171.979166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel6'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = False
            WordWrap = True
            FontSize = 11
          end
          object QRLabel7: TQRLabel
            Left = 410
            Top = 7
            Width = 65
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              1084.79166666667
              18.5208333333333
              171.979166666667)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Caption = 'QRLabel7'
            Color = clWhite
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = False
            WordWrap = True

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -