professionalfrm.dfm

来自「delphi 编制的服务器程序」· DFM 代码 · 共 106 行

inherited professionalForm: TprofessionalForm
  Left = 131
  Top = 102
  Caption = #24576#21307#19987#19994#30446#24405
  ClientHeight = 220
  ClientWidth = 556
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Top = 179
    Width = 556
    inherited sbquery: TSpeedButton
      Left = 536
      Visible = False
    end
    inherited sbimport: TSpeedButton
      Visible = False
    end
    inherited sbexit: TSpeedButton
      Left = 384
    end
  end
  inherited PageControl1: TPageControl
    Width = 556
    Height = 179
    inherited TabSheet1: TTabSheet
      inherited DBGrid1: TDBGrid
        Width = 548
        Height = 139
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProfessionalCode'
            Title.Alignment = taCenter
            Width = 131
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'professionalName'
            Title.Alignment = taCenter
            Width = 229
            Visible = True
          end>
      end
    end
    inherited TabSheet2: TTabSheet
      inherited Panel2: TPanel
        Width = 548
        Height = 139
        object Label1: TLabel
          Left = 24
          Top = 16
          Width = 60
          Height = 15
          Caption = #19987#19994#20195#30721
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 24
          Top = 64
          Width = 60
          Height = 15
          Caption = #19987#19994#21517#31216
          FocusControl = DBEdit2
        end
        object DBEdit1: TDBEdit
          Left = 24
          Top = 32
          Width = 154
          Height = 23
          DataField = 'ProfessionalCode'
          DataSource = DataSource1
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 24
          Top = 80
          Width = 386
          Height = 23
          DataField = 'professionalName'
          DataSource = DataSource1
          TabOrder = 1
        end
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    Connection = DmMain.ADOConnection1
    SQL.Strings = (
      'select * from professional')
    object ADOQuery1ProfessionalCode: TWideStringField
      DisplayLabel = #19987#19994#20195#30721'(2'#20301#25968#23383')'
      FieldName = 'ProfessionalCode'
      Size = 2
    end
    object ADOQuery1professionalName: TWideStringField
      DisplayLabel = #19987#19994#21517#31216
      FieldName = 'professionalName'
      Size = 50
    end
  end
end