mainunit.dfm

《delphi 7.0_8.0课程设计与系统开发案例》随书代码

object Form2: TForm2
  Left = 42
  Top = 78
  Width = 716
  Height = 486
  Caption = '职工档案管理操作窗体'
  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 Label1: TLabel
    Left = 220
    Top = 15
    Width = 217
    Height = 37
    Caption = '职工档案管理'
    Font.Charset = GB2312_CHARSET
    Font.Color = clLime
    Font.Height = -35
    Font.Name = '华文行楷'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 222
    Top = 15
    Width = 217
    Height = 37
    Caption = '职工档案管理'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -35
    Font.Name = '华文行楷'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object SpeedButton1: TSpeedButton
    Left = 568
    Top = 424
    Width = 81
    Height = 22
    Caption = '退出系统'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object PageControl1: TPageControl
    Left = 16
    Top = 67
    Width = 681
    Height = 346
    ActivePage = TabSheet1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '个人档案记录'
      object Label3: TLabel
        Left = 40
        Top = 88
        Width = 56
        Height = 14
        Caption = '所在部门'
      end
      object Label4: TLabel
        Left = 176
        Top = 88
        Width = 56
        Height = 14
        Caption = '所在岗位'
      end
      object Label5: TLabel
        Left = 40
        Top = 136
        Width = 56
        Height = 14
        Caption = '职工编号'
      end
      object Label6: TLabel
        Left = 176
        Top = 136
        Width = 56
        Height = 14
        Caption = '职工姓名'
      end
      object Label7: TLabel
        Left = 352
        Top = 139
        Width = 28
        Height = 14
        Caption = '职务'
      end
      object Label8: TLabel
        Left = 496
        Top = 139
        Width = 28
        Height = 14
        Caption = '职称'
      end
      object Label9: TLabel
        Left = 40
        Top = 184
        Width = 28
        Height = 14
        Caption = '性别'
      end
      object Label10: TLabel
        Left = 176
        Top = 184
        Width = 56
        Height = 14
        Caption = '出生日期'
      end
      object Label11: TLabel
        Left = 352
        Top = 187
        Width = 56
        Height = 14
        Caption = '政治派别'
      end
      object Label12: TLabel
        Left = 496
        Top = 191
        Width = 56
        Height = 14
        Caption = '学术兼职'
      end
      object Label13: TLabel
        Left = 40
        Top = 232
        Width = 28
        Height = 14
        Caption = '婚否'
      end
      object Label14: TLabel
        Left = 176
        Top = 232
        Width = 56
        Height = 14
        Caption = '最后学历'
      end
      object Label15: TLabel
        Left = 352
        Top = 232
        Width = 56
        Height = 14
        Caption = '身体状况'
      end
      object Label16: TLabel
        Left = 224
        Top = 24
        Width = 192
        Height = 24
        Caption = '职工个人档案编辑'
        Font.Charset = GB2312_CHARSET
        Font.Color = clLime
        Font.Height = -24
        Font.Name = '华文彩云'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton2: TSpeedButton
        Left = 128
        Top = 280
        Width = 85
        Height = 22
        Caption = '增加'
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 240
        Top = 280
        Width = 89
        Height = 22
        Caption = '确认'
        OnClick = SpeedButton3Click
      end
      object SpeedButton5: TSpeedButton
        Left = 352
        Top = 280
        Width = 97
        Height = 22
        Caption = '删除'
        OnClick = SpeedButton5Click
      end
      object DBEdit1: TDBEdit
        Left = 101
        Top = 85
        Width = 70
        Height = 22
        DataField = '所在部门'
        DataSource = DataSource1
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 235
        Top = 86
        Width = 101
        Height = 22
        DataField = '所在岗位'
        DataSource = DataSource1
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 99
        Top = 133
        Width = 70
        Height = 22
        DataField = '职工编号'
        DataSource = DataSource1
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 236
        Top = 135
        Width = 101
        Height = 22
        DataField = '职工姓名'
        DataSource = DataSource1
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 413
        Top = 136
        Width = 78
        Height = 22
        DataField = '职务'
        DataSource = DataSource1
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 556
        Top = 136
        Width = 90
        Height = 22
        DataField = '职称'
        DataSource = DataSource1
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 99
        Top = 181
        Width = 70
        Height = 22
        DataField = '职工性别'
        DataSource = DataSource1
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 236
        Top = 181
        Width = 101
        Height = 22
        DataField = '出生日期'
        DataSource = DataSource1
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 414
        Top = 182
        Width = 77
        Height = 22
        DataField = '政治派别'
        DataSource = DataSource1
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 557
        Top = 185
        Width = 88
        Height = 22
        DataField = '学术兼职'
        DataSource = DataSource1
        TabOrder = 9
      end
      object DBEdit11: TDBEdit
        Left = 98
        Top = 227
        Width = 71
        Height = 22
        DataField = '婚否'
        DataSource = DataSource1
        TabOrder = 10
      end
      object DBEdit12: TDBEdit
        Left = 235
        Top = 229
        Width = 104
        Height = 22
        DataField = '学历'
        DataSource = DataSource1
        TabOrder = 11
      end
      object DBEdit13: TDBEdit
        Left = 413
        Top = 229
        Width = 78
        Height = 22
        DataField = '身体状况'
        DataSource = DataSource1
        TabOrder = 12
      end
    end
    object TabSheet2: TTabSheet
      Caption = '个人简历'
      ImageIndex = 1
      object Label17: TLabel
        Left = 272
        Top = 24
        Width = 96
        Height = 24
        Caption = '个人简历'
        Font.Charset = GB2312_CHARSET
        Font.Color = clLime
        Font.Height = -24
        Font.Name = '华文彩云'
        Font.Style = []
        ParentFont = False
      end
      object DBMemo1: TDBMemo
        Left = 16
        Top = 64
        Width = 633
        Height = 225
        DataField = '简历'
        DataSource = DataSource1
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = '全部档案浏览查询'
      ImageIndex = 2
      object Label18: TLabel
        Left = 224
        Top = 24
        Width = 232
        Height = 30
        Caption = '职工档案浏览查询'
        Font.Charset = GB2312_CHARSET
        Font.Color = clLime
        Font.Height = -29
        Font.Name = '华文彩云'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 64
        Top = 272
        Width = 98
        Height = 14
        Caption = '请输入职工姓名'
      end
      object SpeedButton4: TSpeedButton
        Left = 328
        Top = 272
        Width = 81
        Height = 22
        Caption = '执行查询'
        OnClick = SpeedButton4Click
      end
      object DBNavigator1: TDBNavigator
        Left = 232
        Top = 216
        Width = 240
        Height = 25
        DataSource = DataSource1
        TabOrder = 0
      end
      object DBGrid1: TDBGrid
        Left = 16
        Top = 72
        Width = 633
        Height = 137
        DataSource = DataSource1
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
      object Edit1: TEdit
        Left = 175
        Top = 270
        Width = 121
        Height = 22
        TabOrder = 2
        Text = 'Edit1'
      end
    end
    object TabSheet4: TTabSheet
      Caption = '档案打印'
      ImageIndex = 3
      object RadioButton1: TRadioButton
        Left = 152
        Top = 96
        Width = 113
        Height = 17
        Caption = '打印个人档案'
        TabOrder = 0
      end
      object RadioButton2: TRadioButton
        Left = 344
        Top = 96
        Width = 113
        Height = 17
        Caption = '打印全部档案'
        TabOrder = 1
      end
    end
  end
  object Table1: TTable
    Active = True
    TableName = '职工档案.db'
    Left = 560
    Top = 48
    object Table1BDEDesigner: TStringField
      FieldName = '职工编号'
      Size = 10
    end
    object Table1BDEDesigner2: TStringField
      FieldName = '职工姓名'
      Size = 10
    end
    object Table1BDEDesigner3: TStringField
      FieldName = '职工性别'
      Size = 2
    end
    object Table1BDEDesigner4: TDateField
      FieldName = '出生日期'
    end
    object Table1BDEDesigner5: TStringField
      FieldName = '所在部门'
    end
    object Table1BDEDesigner6: TStringField
      FieldName = '所在岗位'
    end
    object Table1BDEDesigner7: TStringField
      FieldName = '职务'
      Size = 18
    end
    object Table1BDEDesigner8: TStringField
      FieldName = '职称'
      Size = 18
    end
    object Table1BDEDesigner9: TStringField
      FieldName = '政治派别'
      Size = 18
    end
    object Table1BDEDesigner10: TStringField
      FieldName = '学术兼职'
      Size = 10
    end
    object Table1BDEDesigner11: TMemoField
      FieldName = '简历'
      BlobType = ftMemo
      Size = 240
    end
    object Table1BDEDesigner12: TStringField
      FieldName = '学历'
      Size = 18
    end
    object Table1BDEDesigner13: TStringField
      FieldName = '身体状况'
      Size = 8
    end
    object Table1BDEDesigner14: TStringField
      FieldName = '婚否'
      Size = 4
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 608
    Top = 48
  end
end