unit6.dfm

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

object Form6: TForm6
  Left = 223
  Top = 36
  Width = 759
  Height = 518
  Caption = #31616#21333#32844#24037#20449#24687#32500#25252
  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 Label1: TLabel
    Left = 32
    Top = 64
    Width = 60
    Height = 13
    Caption = #32844#24037#32534#21495'    '
  end
  object Label2: TLabel
    Left = 240
    Top = 64
    Width = 63
    Height = 13
    Caption = #32844#24037#22995#21517'     '
  end
  object Label3: TLabel
    Left = 456
    Top = 64
    Width = 63
    Height = 13
    Caption = #32844#24037#24615#21035'     '
  end
  object Label4: TLabel
    Left = 32
    Top = 112
    Width = 60
    Height = 13
    Caption = #32844#24037#23398#21382'    '
  end
  object Label5: TLabel
    Left = 240
    Top = 104
    Width = 36
    Height = 13
    Caption = #32844#31216'    '
  end
  object Label6: TLabel
    Left = 456
    Top = 104
    Width = 39
    Height = 13
    Caption = #23130#21542'     '
  end
  object Button1: TButton
    Left = 32
    Top = 16
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 152
    Top = 16
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 280
    Top = 16
    Width = 75
    Height = 25
    Caption = #21047#26032
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 576
    Top = 16
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 3
    OnClick = Button4Click
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 176
    Width = 665
    Height = 217
    DataSource = DataSource1
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'jnum'
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jname'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jsex'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jxue'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jzhic'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jma'
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 104
    Top = 64
    Width = 121
    Height = 21
    TabOrder = 5
  end
  object Edit2: TEdit
    Left = 320
    Top = 64
    Width = 121
    Height = 21
    TabOrder = 6
  end
  object ComboBox1: TComboBox
    Left = 544
    Top = 56
    Width = 81
    Height = 21
    ItemHeight = 13
    TabOrder = 7
    Items.Strings = (
      #30007
      #22899)
  end
  object ComboBox2: TComboBox
    Left = 104
    Top = 104
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 8
    Items.Strings = (
      #23567#23398
      #21021#20013
      #39640#20013
      #19987#31185
      #26412#31185
      #30805#22763
      #21338#22763
      #21338#22763#21518)
  end
  object ComboBox3: TComboBox
    Left = 320
    Top = 104
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 9
    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
  object ComboBox4: TComboBox
    Left = 544
    Top = 104
    Width = 81
    Height = 21
    ItemHeight = 13
    TabOrder = 10
    Items.Strings = (
      #24050#23130
      #26410#23130)
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 465
    Width = 751
    Height = 19
    Panels = <
      item
        Text = #24403#21069#25805#20316#32773#20026#65306
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Text = #21335#20140#37038#30005#22823#23398
        Width = 50
      end>
  end
  object Button5: TButton
    Left = 432
    Top = 16
    Width = 75
    Height = 25
    Caption = #26597#25214
    TabOrder = 12
    OnClick = Button5Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 560
    Top = 408
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=jiangm;Data Source=06B9545CC399440;Use ' +
      'Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Wor' +
      'kstation ID=06B9545CC399440;Use Encryption for Data=False;Tag wi' +
      'th column collation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 456
    Top = 408
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterCancel = ADOQuery1AfterScroll
    AfterScroll = ADOQuery1AfterScroll
    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 = 504
    Top = 408
    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
end