unit7.dfm

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

object Form7: TForm7
  Left = 393
  Top = 139
  Width = 581
  Height = 501
  Caption = #20840#37096#20449#24687#26174#31034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -8
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 8
    Width = 248
    Height = 20
    Caption = #22522#26412#20449#24687#35814#32454#20449#24687#26174#31034#12288#12288#12288
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 24
    Top = 368
    Width = 96
    Height = 13
    Caption = #25968#25454#24211#20013#20849#26377#65306'    '
  end
  object Label3: TLabel
    Left = 144
    Top = 368
    Width = 3
    Height = 13
  end
  object Label4: TLabel
    Left = 208
    Top = 368
    Width = 114
    Height = 13
    Caption = #26465#32844#24037#20449#24687#35760#24405'          '
  end
  object DBGrid1: TDBGrid
    Left = 40
    Top = 88
    Width = 481
    Height = 209
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -20
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Edit1: TEdit
    Left = 128
    Top = 368
    Width = 65
    Height = 21
    Color = clMenuBar
    Enabled = False
    TabOrder = 1
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 448
    Width = 573
    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 DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 296
    Top = 48
  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 = 240
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Active = True
    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 = 360
    Top = 48
    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