ywry.dfm

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

object YWRYFrm: TYWRYFrm
  Left = 142
  Top = 166
  Width = 544
  Height = 375
  Caption = #21307#21153#20154#21592#30331#35760
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #28155#21152'/'#20462#25913
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 24
        Top = 32
        Width = 33
        Height = 13
        Caption = #22995#21517'   '
      end
      object Label2: TLabel
        Left = 152
        Top = 32
        Width = 60
        Height = 13
        Caption = #24615'         '#21035'   '
      end
      object Label3: TLabel
        Left = 312
        Top = 32
        Width = 57
        Height = 13
        Caption = #25152#23646#37096#38376'   '
      end
      object Label4: TLabel
        Left = 152
        Top = 72
        Width = 60
        Height = 13
        Caption = #32852#31995#30005#35805'    '
      end
      object Label5: TLabel
        Left = 24
        Top = 72
        Width = 33
        Height = 13
        Caption = #32844#21153'   '
      end
      object DBNavigator1: TDBNavigator
        Left = 52
        Top = 112
        Width = 216
        Height = 25
        DataSource = DataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 0
      end
      object DBEdit1: TDBEdit
        Left = 64
        Top = 24
        Width = 73
        Height = 21
        DataField = 'RYXM'
        DataSource = DataSource1
        TabOrder = 1
      end
      object Button1: TButton
        Left = 400
        Top = 112
        Width = 83
        Height = 25
        Caption = #36820#22238
        TabOrder = 2
        OnClick = Button1Click
      end
      object DBComboBox1: TDBComboBox
        Left = 224
        Top = 24
        Width = 73
        Height = 21
        DataField = 'RYXB'
        DataSource = DataSource1
        ItemHeight = 13
        TabOrder = 3
      end
      object DBComboBox2: TDBComboBox
        Left = 376
        Top = 24
        Width = 73
        Height = 21
        DataField = 'RYBM'
        DataSource = DataSource1
        ItemHeight = 13
        TabOrder = 4
      end
      object GroupBox3: TGroupBox
        Left = 24
        Top = 144
        Width = 481
        Height = 169
        Caption = #21307#21153#20154#21592#20449#24687#21015#34920
        TabOrder = 5
        object DBGrid1: TDBGrid
          Left = 24
          Top = 24
          Width = 441
          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 = 288
        Top = 112
        Width = 97
        Height = 25
        Caption = #25171#21360#20449#24687#21015#34920
        TabOrder = 6
        OnClick = Button3Click
      end
      object DBEdit2: TDBEdit
        Left = 224
        Top = 64
        Width = 73
        Height = 21
        DataField = 'LXDH'
        DataSource = DataSource1
        TabOrder = 7
      end
      object DBComboBox3: TDBComboBox
        Left = 64
        Top = 64
        Width = 73
        Height = 21
        DataField = 'RYZW'
        DataSource = DataSource1
        ItemHeight = 13
        TabOrder = 8
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20154#21592#26597#35810
      ImageIndex = 1
      OnShow = TabSheet2Show
      object GroupBox1: TGroupBox
        Left = 16
        Top = 16
        Width = 497
        Height = 97
        Caption = #26597#35810#26465#20214
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 24
          Top = 24
          Width = 113
          Height = 17
          Caption = #20154#21592#32534#21495
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton2: TRadioButton
          Left = 192
          Top = 24
          Width = 113
          Height = 17
          Caption = #22995#21517
          TabOrder = 1
        end
        object Button2: TButton
          Left = 368
          Top = 24
          Width = 49
          Height = 25
          Caption = #26597#35810
          TabOrder = 2
          OnClick = Button2Click
        end
        object Edit1: TEdit
          Left = 96
          Top = 24
          Width = 81
          Height = 21
          TabOrder = 3
        end
        object Edit2: TEdit
          Left = 248
          Top = 24
          Width = 81
          Height = 21
          TabOrder = 4
        end
        object Button4: TButton
          Left = 368
          Top = 56
          Width = 49
          Height = 25
          Caption = #36820#22238
          TabOrder = 5
          OnClick = Button4Click
        end
        object RadioButton3: TRadioButton
          Left = 24
          Top = 64
          Width = 113
          Height = 17
          Caption = #25152#23646#37096#38376
          TabOrder = 6
        end
        object RadioButton4: TRadioButton
          Left = 192
          Top = 64
          Width = 113
          Height = 17
          Caption = #32844#21153
          TabOrder = 7
        end
        object Edit3: TEdit
          Left = 96
          Top = 64
          Width = 81
          Height = 21
          TabOrder = 8
        end
        object Edit4: TEdit
          Left = 248
          Top = 64
          Width = 81
          Height = 21
          TabOrder = 9
        end
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 168
        Width = 497
        Height = 137
        Caption = #26597#35810#32467#26524
        TabOrder = 1
        object DBGrid2: TDBGrid
          Left = 24
          Top = 24
          Width = 449
          Height = 105
          DataSource = DataSource2
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              Visible = True
            end
            item
              Expanded = False
              Visible = True
            end
            item
              Expanded = False
              Visible = True
            end
            item
              Expanded = False
              Visible = True
            end
            item
              Expanded = False
              Visible = True
            end
            item
              Expanded = False
              Visible = True
            end>
        end
      end
      object DBNavigator2: TDBNavigator
        Left = 88
        Top = 128
        Width = 344
        Height = 25
        DataSource = DataSource2
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 2
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 144
    Top = 8
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'YWRY'
    Left = 176
    Top = 8
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'BMXX'
    Left = 212
    Top = 8
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'ZWXX'
    Left = 244
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    Left = 280
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 312
    Top = 8
  end
end