unit8.~dfm

一个小型的职工管理系统希望大家多多指教!基本功能已经实现

object Form8: TForm8
  Left = 229
  Top = 142
  Width = 685
  Height = 464
  Caption = #32844#24037#20449#24687#31616#21333#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 16
    Top = 160
    Width = 633
    Height = 153
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 225
    Height = 121
    Caption = #31934#30830#26597#35810
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 66
      Height = 13
      Caption = #32844#24037#32534#21495'      '
    end
    object Edit1: TEdit
      Left = 88
      Top = 32
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Button1: TButton
      Left = 128
      Top = 88
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 272
    Top = 8
    Width = 377
    Height = 121
    Caption = #27169#31946
    TabOrder = 2
    object Label2: TLabel
      Left = 184
      Top = 16
      Width = 42
      Height = 13
      Caption = #22995#21517'      '
    end
    object Label3: TLabel
      Left = 8
      Top = 56
      Width = 63
      Height = 13
      Caption = #20986#29983#26085#26399'     '
    end
    object Label4: TLabel
      Left = 16
      Top = 96
      Width = 36
      Height = 13
      Caption = #32844#31216'    '
    end
    object Label5: TLabel
      Left = 184
      Top = 56
      Width = 69
      Height = 13
      Caption = #26159#21542#24050#23130'       '
    end
    object Label6: TLabel
      Left = 16
      Top = 24
      Width = 39
      Height = 13
      Caption = #32534#21495'     '
    end
    object Edit2: TEdit
      Left = 256
      Top = 16
      Width = 105
      Height = 21
      TabOrder = 0
    end
    object Edit3: TEdit
      Left = 72
      Top = 56
      Width = 97
      Height = 21
      TabOrder = 1
    end
    object Button2: TButton
      Left = 272
      Top = 88
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = Button2Click
    end
    object Edit6: TEdit
      Left = 72
      Top = 16
      Width = 97
      Height = 21
      TabOrder = 3
    end
    object ComboBox1: TComboBox
      Left = 256
      Top = 48
      Width = 105
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Items.Strings = (
        #24050#23130
        #26410#23130)
    end
    object ComboBox2: TComboBox
      Left = 72
      Top = 88
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Items.Strings = (
        #21150#20107#21592
        #23567#32452#38271
        #21103#31185#38271
        #31185#38271
        #21103#32463#29702
        #32463#29702
        #24635#32463#29702
        #33891#20107#38271)
    end
  end
  object Button3: TButton
    Left = 568
    Top = 336
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 424
    Top = 336
    Width = 73
    Height = 25
    Caption = #28165#31354
    TabOrder = 4
    OnClick = Button4Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 411
    Width = 677
    Height = 19
    Panels = <
      item
        Text = #24403#21069#29992#25143#20026
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Text = #21335#20140#37038#30005#22823#23398
        Width = 50
      end>
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=jiangm;Data Source=06B9545CC399440'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 352
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select t_jiben.jnum,jname,jsex,jxue,jzhic,jma from t_jiben,t_xue' +
        'li,t_zhigong,t_home where t_jiben.jnum=t_home.jnum and t_jiben.j' +
        'num=t_xueli.jnum and t_jiben.jnum=t_zhigong.jnum;')
    Left = 96
    Top = 352
    object ADOQuery1jnum: TStringField
      DisplayLabel = #32844#24037#32534#21495
      FieldName = 'jnum'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1jname: TStringField
      DisplayLabel = #32844#24037#22995#21517
      FieldName = 'jname'
      FixedChar = True
    end
    object ADOQuery1jsex: TStringField
      DisplayLabel = #32844#24037#24615#21035
      FieldName = 'jsex'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1jxue: TStringField
      DisplayLabel = #32844#24037#23398#21382
      FieldName = 'jxue'
      FixedChar = True
    end
    object ADOQuery1jzhic: TStringField
      DisplayLabel = #32844#24037#32844#31216
      FieldName = 'jzhic'
      FixedChar = True
    end
    object ADOQuery1jma: TStringField
      DisplayLabel = #23130#21542
      FieldName = 'jma'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 168
    Top = 352
  end
end