企业管理

开发平台：
Delphi

f_rsxt.dfm：源码内容
							object w_rsxt: Tw_rsxt
  Left = 229
  Top = 144
  BorderStyle = bsDialog
  Caption = #20154#20107#24405#20837#31995#32479
  ClientHeight = 300
  ClientWidth = 425
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 94
  TextHeight = 13
  object Label1: TLabel
    Left = 80
    Top = 8
    Width = 3
    Height = 13
  end
  object StaticText1: TStaticText
    Left = 120
    Top = 8
    Width = 149
    Height = 28
    BevelKind = bkSoft
    Caption = #20154#20107#24405#20837#31995#32479'     '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -18
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 48
    Width = 425
    Height = 209
    Caption = #25968#25454#24405#20837#20449#24687
    TabOrder = 1
    object Label2: TLabel
      Left = 32
      Top = 24
      Width = 74
      Height = 13
      Caption = #32844#24037#32534#21495'      '
      FocusControl = DBEdit1
    end
    object Label3: TLabel
      Left = 152
      Top = 24
      Width = 65
      Height = 13
      Caption = #32844#24037#22995#21517'   '
      FocusControl = DBEdit2
    end
    object Label4: TLabel
      Left = 296
      Top = 16
      Width = 74
      Height = 13
      Caption = #37096#38376#21517#31216'      '
    end
    object Label5: TLabel
      Left = 32
      Top = 72
      Width = 74
      Height = 13
      Caption = #21592#24037#32844#21153'      '
      FocusControl = DBEdit4
    end
    object Label6: TLabel
      Left = 160
      Top = 72
      Width = 68
      Height = 13
      Caption = #26368#39640#23398#21382'    '
    end
    object Label7: TLabel
      Left = 24
      Top = 136
      Width = 37
      Height = 13
      Caption = #24615#21035'   '
    end
    object Label8: TLabel
      Left = 128
      Top = 136
      Width = 49
      Height = 13
      Caption = #24180#40836'       '
      FocusControl = DBEdit7
    end
    object Label9: TLabel
      Left = 232
      Top = 136
      Width = 46
      Height = 13
      Caption = #24037#40836'      '
      FocusControl = DBEdit8
    end
    object Label11: TLabel
      Left = 288
      Top = 72
      Width = 37
      Height = 13
      Caption = #23130#23035'   '
    end
    object Label10: TLabel
      Left = 328
      Top = 136
      Width = 65
      Height = 13
      Caption = #25919#27835#38754#35980'   '
      FocusControl = DBEdit9
    end
    object DBEdit1: TDBEdit
      Left = 8
      Top = 40
      Width = 97
      Height = 21
      DataField = 'rs_id'
      DataSource = data_rsxt
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 144
      Top = 40
      Width = 108
      Height = 21
      DataField = 'rs_name'
      DataSource = data_rsxt
      TabOrder = 1
    end
    object DBEdit4: TDBEdit
      Left = 16
      Top = 96
      Width = 97
      Height = 21
      DataField = 'rs_job'
      DataSource = data_rsxt
      TabOrder = 2
    end
    object DBEdit7: TDBEdit
      Left = 120
      Top = 160
      Width = 81
      Height = 21
      DataField = 'rs_nl'
      DataSource = data_rsxt
      TabOrder = 3
    end
    object DBEdit8: TDBEdit
      Left = 232
      Top = 160
      Width = 65
      Height = 21
      DataField = 'rs_gl'
      DataSource = data_rsxt
      TabOrder = 4
    end
    object DBEdit9: TDBEdit
      Left = 320
      Top = 160
      Width = 89
      Height = 21
      DataField = 'rs_zzmm'
      DataSource = data_rsxt
      TabOrder = 5
    end
    object DBComboBox1: TDBComboBox
      Left = 280
      Top = 96
      Width = 121
      Height = 21
      DataField = 'rs_hf'
      DataSource = data_rsxt
      ItemHeight = 13
      Items.Strings = (
        #26159
        #21542)
      TabOrder = 6
    end
    object DBComboBox2: TDBComboBox
      Left = 144
      Top = 96
      Width = 105
      Height = 21
      DataField = 'rs_xueli'
      DataSource = data_rsxt
      ItemHeight = 13
      Items.Strings = (
        #21338#22763
        #30805#22763
        #26412#31185
        #19987#31185
        #20013#19987)
      TabOrder = 7
    end
    object DBComboBox3: TDBComboBox
      Left = 16
      Top = 160
      Width = 89
      Height = 21
      DataField = 'rs_xb'
      DataSource = data_rsxt
      ItemHeight = 13
      Items.Strings = (
        #26159
        #21542)
      TabOrder = 8
    end
    object DBComboBox4: TDBComboBox
      Left = 280
      Top = 40
      Width = 121
      Height = 21
      DataField = 'rs_depart'
      DataSource = data_rsxt
      ItemHeight = 13
      Items.Strings = (
        #36130#21153#37096
        #20154#20107#37096
        #30740#21457#37096
        #24037#31243#37096
        #37319#36141#37096)
      TabOrder = 9
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 264
    Width = 400
    Height = 33
    DataSource = data_rsxt
    TabOrder = 2
  end
  object data_rsxt: TDataSource
    DataSet = ado_rsxt
    Left = 312
  end
  object ado_rsxt: TADOQuery
    Active = True
    Connection = Data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from rsxt')
    Left = 368
    Top = 8
    object ado_rsxtrs_id: TStringField
      FieldName = 'rs_id'
      FixedChar = True
      Size = 5
    end
    object ado_rsxtrs_name: TStringField
      FieldName = 'rs_name'
      FixedChar = True
      Size = 8
    end
    object ado_rsxtrs_depart: TStringField
      FieldName = 'rs_depart'
      FixedChar = True
      Size = 10
    end
    object ado_rsxtrs_job: TStringField
      FieldName = 'rs_job'
      FixedChar = True
      Size = 8
    end
    object ado_rsxtrs_xueli: TStringField
      FieldName = 'rs_xueli'
      FixedChar = True
      Size = 8
    end
    object ado_rsxtrs_xb: TStringField
      FieldName = 'rs_xb'
      FixedChar = True
      Size = 4
    end
    object ado_rsxtrs_nl: TIntegerField
      FieldName = 'rs_nl'
    end
    object ado_rsxtrs_gl: TIntegerField
      FieldName = 'rs_gl'
    end
    object ado_rsxtrs_zzmm: TStringField
      FieldName = 'rs_zzmm'
      FixedChar = True
      Size = 10
    end
    object ado_rsxtrs_hf: TStringField
      FieldName = 'rs_hf'
      FixedChar = True
      Size = 4
    end
  end
end

						