ypxx.dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· DFM 代码 · 共 246 行

object YPXXFrm: TYPXXFrm
  Left = 174
  Top = 110
  Width = 492
  Height = 340
  Caption = #33647#21697#20449#24687#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 484
    Height = 313
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #28155#21152'/'#20462#25913
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 16
        Top = 32
        Width = 57
        Height = 13
        Caption = #33647#21697#21517#31216'   '
      end
      object Label2: TLabel
        Left = 160
        Top = 32
        Width = 60
        Height = 13
        Caption = #35745#37327#21333#20301'    '
      end
      object Label3: TLabel
        Left = 312
        Top = 32
        Width = 57
        Height = 13
        Caption = #33647#21697#31867#21035'   '
      end
      object DBNavigator1: TDBNavigator
        Left = 36
        Top = 64
        Width = 216
        Height = 25
        DataSource = DataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 0
      end
      object DBEdit1: TDBEdit
        Left = 80
        Top = 24
        Width = 73
        Height = 21
        DataField = 'YPMC'
        DataSource = DataSource1
        TabOrder = 1
      end
      object Button1: TButton
        Left = 368
        Top = 64
        Width = 83
        Height = 25
        Caption = #36820#22238
        TabOrder = 2
        OnClick = Button1Click
      end
      object DBComboBox1: TDBComboBox
        Left = 224
        Top = 24
        Width = 73
        Height = 21
        DataField = 'JLDW'
        DataSource = DataSource1
        ItemHeight = 13
        TabOrder = 3
      end
      object DBComboBox2: TDBComboBox
        Left = 376
        Top = 24
        Width = 73
        Height = 21
        DataField = 'YPLB'
        DataSource = DataSource1
        ItemHeight = 13
        TabOrder = 4
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 96
        Width = 449
        Height = 169
        Caption = #33647#21697#20449#24687#21015#34920
        TabOrder = 5
        object DBGrid1: TDBGrid
          Left = 35
          Top = 24
          Width = 382
          Height = 129
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
      end
      object Button3: TButton
        Left = 264
        Top = 64
        Width = 97
        Height = 25
        Caption = #25171#21360#20449#24687#21015#34920
        TabOrder = 6
        OnClick = Button3Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #33647#21697#26597#35810
      ImageIndex = 1
      OnShow = TabSheet2Show
      object GroupBox1: TGroupBox
        Left = 16
        Top = 16
        Width = 441
        Height = 57
        Caption = #26597#35810#26465#20214
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 24
          Top = 24
          Width = 113
          Height = 17
          Caption = #33647#21697#32534#21495
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton2: TRadioButton
          Left = 176
          Top = 24
          Width = 113
          Height = 17
          Caption = #33647#21697#21517#31216
          TabOrder = 1
        end
        object Button2: TButton
          Left = 328
          Top = 24
          Width = 49
          Height = 25
          Caption = #26597#35810
          TabOrder = 2
          OnClick = Button2Click
        end
        object Edit1: TEdit
          Left = 96
          Top = 24
          Width = 65
          Height = 21
          TabOrder = 3
        end
        object Edit2: TEdit
          Left = 256
          Top = 24
          Width = 65
          Height = 21
          TabOrder = 4
        end
        object Button4: TButton
          Left = 384
          Top = 24
          Width = 49
          Height = 25
          Caption = #36820#22238
          TabOrder = 5
          OnClick = Button4Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 88
        Width = 441
        Height = 177
        Caption = #26597#35810#32467#26524
        TabOrder = 1
        object StringGrid1: TStringGrid
          Left = 40
          Top = 32
          Width = 369
          Height = 120
          ColCount = 4
          RowCount = 3
          TabOrder = 0
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 144
    Top = 8
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'YPXX'
    Left = 176
    Top = 8
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'JLDW'
    Left = 212
    Top = 8
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'YPZL'
    Left = 244
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    Left = 280
    Top = 8
  end
end