workers.dfm

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

          end
          object DBEdit1: TDBEdit
            Left = 66
            Top = 20
            Width = 108
            Height = 21
            CharCase = ecUpperCase
            DataField = 'cWorkerNo'
            DataSource = DataSource
            TabOrder = 0
            OnExit = DBEdit1Exit
          end
          object DBEdit2: TDBEdit
            Left = 235
            Top = 20
            Width = 108
            Height = 21
            DataField = 'cWorkerName'
            DataSource = DataSource
            TabOrder = 1
          end
          object DBEdit3: TDBEdit
            Left = 389
            Top = 20
            Width = 134
            Height = 21
            DataField = 'cCardNo'
            DataSource = DataSource
            TabOrder = 2
          end
          object DBEdit6: TDBEdit
            Left = 389
            Top = 47
            Width = 134
            Height = 21
            DataField = 'cNativePlace'
            DataSource = DataSource
            TabOrder = 5
          end
          object DBEdit7: TDBEdit
            Left = 66
            Top = 76
            Width = 456
            Height = 21
            DataField = 'cFamilyAddress'
            DataSource = DataSource
            TabOrder = 6
          end
          object DBRadioGroup1: TDBRadioGroup
            Left = 68
            Top = 41
            Width = 109
            Height = 33
            Columns = 2
            DataField = 'cSex'
            DataSource = DataSource
            Items.Strings = (
              #30007
              #22899)
            TabOrder = 3
          end
          object wwDBDateTimePicker1: TwwDBDateTimePicker
            Left = 235
            Top = 47
            Width = 121
            Height = 21
            CalendarAttributes.Font.Charset = DEFAULT_CHARSET
            CalendarAttributes.Font.Color = clWindowText
            CalendarAttributes.Font.Height = -11
            CalendarAttributes.Font.Name = 'MS Sans Serif'
            CalendarAttributes.Font.Style = []
            DataField = 'dBirthDay'
            DataSource = DataSource
            Date = 37537
            Epoch = 1950
            Time = 37537
            ShowButton = True
            TabOrder = 4
          end
          object wwDBDateTimePicker2: TwwDBDateTimePicker
            Left = 64
            Top = 156
            Width = 121
            Height = 21
            CalendarAttributes.Font.Charset = DEFAULT_CHARSET
            CalendarAttributes.Font.Color = clWindowText
            CalendarAttributes.Font.Height = -11
            CalendarAttributes.Font.Name = 'MS Sans Serif'
            CalendarAttributes.Font.Style = []
            DataField = 'dInDate'
            DataSource = DataSource
            Date = 37537
            Epoch = 1950
            Time = 37537
            ShowButton = True
            TabOrder = 11
          end
          object DBMemo1: TDBMemo
            Left = 66
            Top = 185
            Width = 457
            Height = 103
            DataField = 'txtResume'
            DataSource = DataSource
            TabOrder = 12
          end
          object DBEdit4: TDBEdit
            Left = 168
            Top = 127
            Width = 129
            Height = 21
            DataField = 'DepartName'
            DataSource = DataSource
            Enabled = False
            TabOrder = 9
          end
          object wwDBLookupCombo1: TwwDBLookupCombo
            Left = 66
            Top = 128
            Width = 99
            Height = 21
            DropDownAlignment = taLeftJustify
            Selected.Strings = (
              'cDepartMentNo'#9'10'#9#37096#38272#32232#34399#9'F'
              'cDepartMentName'#9'30'#9#37096#38272#21517#31281#9'F')
            DataField = 'cDepartmentNo'
            DataSource = DataSource
            LookupTable = ADOQuery3
            LookupField = 'cDepartMentNo'
            Options = [loColLines, loRowLines, loTitles, loSearchOnBackspace]
            Style = csDropDownList
            TabOrder = 8
            AutoDropDown = True
            ShowButton = True
            UseTFields = False
            AllowClearKey = False
            ShowMatchText = True
          end
          object DBEdit5: TDBEdit
            Left = 391
            Top = 126
            Width = 131
            Height = 21
            DataField = 'cPrincipalShip'
            DataSource = DataSource
            TabOrder = 10
          end
          object DBEdit8: TDBEdit
            Left = 66
            Top = 102
            Width = 230
            Height = 21
            DataField = 'cIDCardNO'
            DataSource = DataSource
            TabOrder = 7
          end
        end
        object DBImage1: TDBImage
          Left = 555
          Top = 21
          Width = 90
          Height = 140
          BorderStyle = bsNone
          Color = clGradientActiveCaption
          DataField = 'imgPhoto'
          DataSource = DataSource1
          Enabled = False
          Stretch = True
          TabOrder = 1
        end
        object BitBtn1: TBitBtn
          Left = 556
          Top = 170
          Width = 89
          Height = 25
          Caption = #36984#21462#29031#29255
          TabOrder = 2
          OnClick = BitBtn1Click
        end
        object BitBtn2: TBitBtn
          Left = 556
          Top = 196
          Width = 89
          Height = 25
          Caption = #28165#38500
          TabOrder = 3
          OnClick = BitBtn2Click
        end
      end
    end
    inherited tbsBrowser: TTabSheet
      inherited wwDBGrid: TwwDBGrid
        Width = 660
        Height = 342
        ControlType.Strings = (
          'lLeaved;CheckBox;true;false')
        Selected.Strings = (
          'cWorkerNo'#9'9'#9#24037#34399#9#9
          'cWorkerName'#9'8'#9#22995#21517#9#9
          'cCardNo'#9'6'#9#21345#34399#9#9
          'cSex'#9'4'#9#24615#21029#9#9
          'dBirthDay'#9'10'#9#20986#29983#26085#26399#9#9
          'cIDCardNO'#9'20'#9#36523#20221#35388#34399#9'F'
          'cNativePlace'#9'7'#9#31821#36011#9#9
          'cFamilyAddress'#9'42'#9#23478#24237#20303#22336#9#9
          'cDepartmentNo'#9'7'#9#37096#38272#34399#9#9
          'DepartName'#9'13'#9#37096#38272#21517#31281#9'F'
          'cPrincipalShip'#9'18'#9#32887#21209#9'F'
          'dInDate'#9'11'#9#20837#32887#26085#26399#9#9
          'lLeaved'#9'8'#9#26178#21542#38626#32887#9'F'
          'dLeaveDate'#9'11'#9#38626#32887#26085#26399#9'F'
          'tLeaveWhys'#9'14'#9#38626#32887#21407#22240#9'F'
          'cUser'#9'9'#9#29992#25142#9#9
          'tUpdateTime'#9'22'#9#26356#26032#26178#38291#9#9
          'cAction'#9'4'#9#21205#20316#9#9)
        UseTFields = False
      end
    end
  end
  inherited DataSource: TDataSource
    DataSet = ADOQuery1
    Top = 256
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    AfterInsert = ADOQuery1AfterInsert
    Parameters = <>
    SQL.Strings = (
      'Select * From Workers Order by cWorkerNo')
    Left = 440
    Top = 192
    object ADOQuery1cWorkerNo: TStringField
      FieldName = 'cWorkerNo'
      Size = 8
    end
    object ADOQuery1cWorkerName: TStringField
      FieldName = 'cWorkerName'
      Size = 8
    end
    object ADOQuery1cCardNo: TStringField
      FieldName = 'cCardNo'
      Size = 10
    end
    object ADOQuery1cSex: TStringField
      Alignment = taCenter
      FieldName = 'cSex'
      Size = 2
    end
    object ADOQuery1dBirthDay: TDateTimeField
      FieldName = 'dBirthDay'
    end
    object ADOQuery1cNativePlace: TStringField
      FieldName = 'cNativePlace'
      Size = 18
    end
    object ADOQuery1cFamilyAddress: TStringField
      FieldName = 'cFamilyAddress'
      Size = 50
    end
    object ADOQuery1cDepartmentNo: TStringField
      FieldName = 'cDepartmentNo'
      Size = 10
    end
    object ADOQuery1dInDate: TDateTimeField
      FieldName = 'dInDate'
    end
    object ADOQuery1cUser: TStringField
      Alignment = taCenter
      FieldName = 'cUser'
      Size = 8
    end
    object ADOQuery1tUpdateTime: TDateTimeField
      FieldName = 'tUpdateTime'
    end
    object ADOQuery1cAction: TStringField
      Alignment = taCenter
      FieldName = 'cAction'
      Size = 4
    end
    object ADOQuery1txtResume: TMemoField
      FieldName = 'txtResume'
      BlobType = ftMemo
    end
    object ADOQuery1DepartName: TStringField
      FieldKind = fkLookup
      FieldName = 'DepartName'
      LookupDataSet = ADOTable1
      LookupKeyFields = 'cDepartmentNo'
      LookupResultField = 'cDepartmentName'
      KeyFields = 'cDepartmentNo'
      Lookup = True
    end
    object ADOQuery1cPrincipalShip: TStringField
      FieldName = 'cPrincipalShip'
      Size = 18
    end
    object ADOQuery1cIDCardNO: TStringField
      FieldName = 'cIDCardNO'
    end
    object ADOQuery1dLeaveDate: TDateTimeField
      FieldName = 'dLeaveDate'
    end
    object ADOQuery1lLeaved: TBooleanField
      FieldName = 'lLeaved'
    end
    object ADOQuery1tLeaveWhys: TMemoField
      FieldName = 'tLeaveWhys'
      BlobType = ftMemo
    end
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    DataSource = DataSource
    Parameters = <
      item
        Name = 'cWorkerNo'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = 'DA0002'
      end>
    SQL.Strings = (
      ''
      
        'Select  cWorkerNo,imgPhoto From Workers Where cWorkerNo=:cWorker' +
        'No')
    Left = 488
    Top = 192
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    TableName = 'Department'
    Left = 488
    Top = 224
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select  cDepartMentNo,cDepartMentName From DepartMent  Order by ' +
        'cDepartmentNo')
    Left = 160
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 488
    Top = 256
  end
end