delrec.dfm

来自「好多上载非界面和非WEB源码」· DFM 代码 · 共 272 行

object delfrm: Tdelfrm
  Left = 207
  Top = 209
  Width = 796
  Height = 443
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #22270#20070#25972#29702
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object page1: TPageControl
    Left = 8
    Top = 8
    Width = 769
    Height = 361
    ActivePage = ts1
    TabOrder = 0
    object ts1: TTabSheet
      Caption = #22270#20070#21024#38500
      OnShow = ts1Show
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 761
        Height = 321
        Align = alTop
        BevelInner = bvLowered
        TabOrder = 0
        object Panel2: TPanel
          Left = 2
          Top = 2
          Width = 757
          Height = 79
          Align = alTop
          BevelInner = bvLowered
          Color = clSkyBlue
          TabOrder = 0
          object Label1: TLabel
            Left = 32
            Top = 40
            Width = 81
            Height = 33
            AutoSize = False
            Caption = #22270#20070#32534#21495#65306
          end
          object r1: TRadioButton
            Left = 16
            Top = 8
            Width = 105
            Height = 25
            Caption = #23450#20301#21024#38500
            Checked = True
            TabOrder = 0
            TabStop = True
            OnClick = r1Click
          end
          object Edit1: TEdit
            Left = 104
            Top = 40
            Width = 617
            Height = 21
            TabOrder = 1
          end
        end
        object Panel3: TPanel
          Left = 2
          Top = 81
          Width = 757
          Height = 240
          Align = alTop
          BevelInner = bvLowered
          Color = clSkyBlue
          TabOrder = 1
          object Label2: TLabel
            Left = 24
            Top = 184
            Width = 121
            Height = 33
            AutoSize = False
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = #26999#20307'_GB2312'
            Font.Style = []
            ParentFont = False
          end
          object r2: TRadioButton
            Left = 16
            Top = 8
            Width = 97
            Height = 25
            Caption = #36873#25321#21024#38500
            TabOrder = 0
            OnClick = r2Click
          end
          object ListView1: TListView
            Left = 32
            Top = 32
            Width = 697
            Height = 145
            Color = clInfoBk
            Columns = <
              item
                AutoSize = True
                Caption = #22270#20070#32534#21495
              end
              item
                AutoSize = True
                Caption = #20070#21517
              end
              item
                AutoSize = True
                Caption = #20316#32773
              end
              item
                AutoSize = True
                Caption = #20986#29256#31038
              end
              item
                AutoSize = True
                Caption = #20986#29256#26102#38388
              end
              item
                AutoSize = True
                Caption = #31867#21035
              end
              item
                AutoSize = True
                Caption = #26159#21542#20511#20986
              end>
            Enabled = False
            GridLines = True
            RowSelect = True
            TabOrder = 1
            ViewStyle = vsReport
          end
        end
        object BitBtn1: TBitBtn
          Left = 664
          Top = 272
          Width = 65
          Height = 33
          Caption = #21024#38500
          TabOrder = 2
          OnClick = BitBtn1Click
          Kind = bkCancel
        end
      end
    end
    object ts2: TTabSheet
      Caption = #22270#20070#20511#38405#24773#20917#32479#35745
      ImageIndex = 1
      OnShow = ts2Show
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 761
        Height = 273
        Align = alTop
        BevelInner = bvLowered
        Color = clSkyBlue
        TabOrder = 0
        object Label3: TLabel
          Left = 40
          Top = 32
          Width = 97
          Height = 33
          AutoSize = False
          Caption = #26412#39302#20849#22270#20070#65306
        end
        object Label4: TLabel
          Left = 40
          Top = 104
          Width = 105
          Height = 41
          AutoSize = False
          Caption = #20511#20986#22270#20070#65306
        end
        object Label5: TLabel
          Left = 40
          Top = 176
          Width = 97
          Height = 41
          AutoSize = False
          Caption = #26410#20511#20986#22270#20070#65306
        end
        object Label6: TLabel
          Left = 256
          Top = 32
          Width = 25
          Height = 25
          AutoSize = False
          Caption = #20876
        end
        object Label7: TLabel
          Left = 256
          Top = 104
          Width = 25
          Height = 25
          AutoSize = False
          Caption = #20876
        end
        object Label8: TLabel
          Left = 256
          Top = 176
          Width = 25
          Height = 25
          AutoSize = False
          Caption = #20876
        end
        object Edit2: TEdit
          Left = 120
          Top = 24
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object Edit3: TEdit
          Left = 120
          Top = 96
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object Edit4: TEdit
          Left = 120
          Top = 168
          Width = 121
          Height = 21
          TabOrder = 2
        end
        object ListView2: TListView
          Left = 312
          Top = 16
          Width = 385
          Height = 225
          Color = clInfoBk
          Columns = <
            item
              AutoSize = True
              Caption = #22270#20070#31867#21035
            end
            item
              AutoSize = True
              Caption = #34255#20070#24635#25968
            end>
          GridLines = True
          RowSelect = True
          TabOrder = 3
          ViewStyle = vsReport
        end
      end
    end
  end
  object BitBtn2: TBitBtn
    Left = 360
    Top = 376
    Width = 73
    Height = 33
    Caption = #20851#38381
    TabOrder = 1
    OnClick = BitBtn2Click
    Kind = bkClose
  end
end