sfsj.dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· DFM 代码 · 共 702 行 · 第 1/2 页

          DataSource = DataSource1
          TabOrder = 10
          OnChange = DBEdit15Change
        end
        object DBEdit16: TDBEdit
          Left = 72
          Top = 288
          Width = 105
          Height = 21
          DataField = 'HY'
          DataSource = DataSource1
          TabOrder = 11
          OnChange = DBEdit16Change
        end
        object DBEdit17: TDBEdit
          Left = 72
          Top = 312
          Width = 105
          Height = 21
          DataField = 'QT'
          DataSource = DataSource1
          TabOrder = 12
          OnChange = DBEdit17Change
        end
        object DBEdit18: TDBEdit
          Left = 72
          Top = 344
          Width = 105
          Height = 21
          Color = clScrollBar
          DataField = 'Total'
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 13
        end
      end
      object Button3: TButton
        Left = 16
        Top = 80
        Width = 75
        Height = 25
        Caption = #20445#23384#26412#25910#25454
        TabOrder = 4
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 16
        Top = 160
        Width = 75
        Height = 25
        Caption = #36820'      '#22238
        TabOrder = 5
        OnClick = Button4Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25910#25454#26597#35810
      ImageIndex = 1
      OnShow = TabSheet2Show
      object GroupBox3: TGroupBox
        Left = 16
        Top = 32
        Width = 497
        Height = 89
        Caption = #26597#35810#26465#20214
        TabOrder = 0
        object Button6: TButton
          Left = 408
          Top = 56
          Width = 75
          Height = 25
          Caption = #36820'  '#22238
          TabOrder = 0
          OnClick = Button6Click
        end
        object RadioButton1: TRadioButton
          Left = 24
          Top = 24
          Width = 113
          Height = 17
          Caption = #25910#25454#21333#21495
          Checked = True
          TabOrder = 1
          TabStop = True
        end
        object RadioButton2: TRadioButton
          Left = 224
          Top = 24
          Width = 113
          Height = 17
          Caption = #30149#20154#22995#21517
          TabOrder = 2
        end
        object RadioButton3: TRadioButton
          Left = 24
          Top = 56
          Width = 113
          Height = 17
          Caption = #25910#25454#26085#26399
          TabOrder = 3
        end
        object RadioButton4: TRadioButton
          Left = 224
          Top = 56
          Width = 113
          Height = 17
          Caption = #25910'  '#36153'  '#20154
          TabOrder = 4
        end
        object Edit1: TEdit
          Left = 96
          Top = 24
          Width = 113
          Height = 21
          TabOrder = 5
        end
        object Edit2: TEdit
          Left = 296
          Top = 24
          Width = 105
          Height = 21
          TabOrder = 6
        end
        object Edit3: TEdit
          Left = 96
          Top = 56
          Width = 113
          Height = 21
          TabOrder = 7
        end
        object Edit4: TEdit
          Left = 296
          Top = 56
          Width = 105
          Height = 21
          TabOrder = 8
        end
      end
      object GroupBox4: TGroupBox
        Left = 16
        Top = 160
        Width = 497
        Height = 289
        TabOrder = 1
        object DBGrid1: TDBGrid
          Left = 24
          Top = 40
          Width = 457
          Height = 233
          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
              FieldName = 'SJDH'
              Title.Alignment = taCenter
              Title.Caption = #25910#25454#21333#21495
              Width = 103
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'BRXM'
              Title.Caption = #30149#20154#22995#21517
              Width = 58
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'BMMC'
              Title.Caption = #31185#21035
              Width = 63
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Date'
              Title.Caption = #26085#26399
              Width = 81
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JSR'
              Title.Caption = #25910#36153#20154
              Width = 50
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'XY'
              Title.Caption = #35199#33647
              Width = 51
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ZCN'
              Title.Caption = #20013#25104#33647
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ZCY'
              Title.Caption = #20013#33609#33647
              Width = 51
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CGJC'
              Title.Caption = #24120#35268#26816#26597
              Width = 52
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CT'
              Width = 50
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MRI'
              Title.Caption = #26680#30913
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'XRAY'
              Title.Caption = 'X'#20809
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SY'
              Title.Caption = #36755#27687
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SX'
              Title.Caption = #36755#34880
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SH'
              Title.Caption = #25163#26415
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ZL'
              Title.Caption = #27835#30103
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'HY'
              Title.Caption = #21270#39564
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'QT'
              Title.Caption = #20854#23427#36153#29992
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Total'
              Title.Caption = #24635#36153#29992
              Visible = True
            end>
        end
      end
      object Button5: TButton
        Left = 424
        Top = 56
        Width = 75
        Height = 25
        Caption = #26597'  '#35810
        TabOrder = 2
        OnClick = Button5Click
      end
      object Button7: TButton
        Left = 360
        Top = 128
        Width = 97
        Height = 25
        Caption = #25171#21360#26597#35810#32467#26524
        TabOrder = 3
        OnClick = Button7Click
      end
      object DBNavigator1: TDBNavigator
        Left = 32
        Top = 128
        Width = 300
        Height = 25
        DataSource = DataSource2
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbPost, nbCancel]
        TabOrder = 4
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 160
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'BMXX'
    Left = 264
  end
  object ADOQuery1: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from SFSJ')
    Left = 232
  end
  object ADOQuery2: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from SFSJ')
    Left = 192
  end
  object ADOQuery3: TADOQuery
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from SFSJ')
    Left = 352
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery3
    Left = 320
  end
end