unit1.dfm

打卡数据导入SQL Delphi 简单示例

object Form1: TForm1
  Left = 242
  Top = 195
  Width = 444
  Height = 373
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25968#25454#23548#20837
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 16
    Top = 16
    Width = 401
    Height = 305
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25968#25454#23548#20837
      object BitBtn1: TBitBtn
        Left = 308
        Top = 14
        Width = 75
        Height = 25
        Caption = #30830#23450
        Default = True
        TabOrder = 0
        OnClick = BitBtn1Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object RadioGroup1: TRadioGroup
        Left = 8
        Top = 120
        Width = 281
        Height = 145
        ItemIndex = 2
        Items.Strings = (
          #26089#19978#19978#29677
          #20013#21320#19979#29677
          #19979#21320#19978#29677
          #19979#21320#19979#29677)
        TabOrder = 1
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 281
        Height = 105
        Caption = #21345#21495#19982#26085#26399
        TabOrder = 2
        object Label2: TLabel
          Left = 8
          Top = 60
          Width = 54
          Height = 12
          Caption = #26085#26399#26102#38388':'
        end
        object Label1: TLabel
          Left = 8
          Top = 24
          Width = 54
          Height = 12
          Caption = 'ID  '#21345#21495':'
        end
        object DateTimePicker1: TDateTimePicker
          Left = 64
          Top = 56
          Width = 97
          Height = 20
          Date = 39609.581765046300000000
          Time = 39609.581765046300000000
          TabOrder = 0
        end
        object Edit1: TEdit
          Left = 64
          Top = 20
          Width = 161
          Height = 20
          MaxLength = 10
          TabOrder = 1
          Text = '0003464378'
        end
        object Edit2: TEdit
          Left = 232
          Top = 20
          Width = 17
          Height = 20
          TabOrder = 2
          Text = '2'
        end
        object UpDown1: TUpDown
          Left = 249
          Top = 20
          Width = 16
          Height = 20
          Associate = Edit2
          Min = 1
          Max = 5
          Position = 2
          TabOrder = 3
        end
        object Time1: TMaskEdit
          Left = 184
          Top = 56
          Width = 41
          Height = 20
          EditMask = '!99:99;0; '
          MaxLength = 5
          TabOrder = 4
        end
      end
      object CheckBox1: TCheckBox
        Left = 16
        Top = 117
        Width = 97
        Height = 17
        Caption = #21551#29992#38543#26426#26102#38388
        Checked = True
        State = cbChecked
        TabOrder = 3
      end
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=scmsdb;Data Source=kdpc-1076;Use Procedure for Prepar' +
      'e=1;Auto Translate=True;Packet Size=4096;Workstation ID=KDPC-108' +
      '0;Use Encryption for Data=False;Tag with column collation when p' +
      'ossible=False'
    KeepConnection = False
    Provider = 'SQLOLEDB.1'
    Left = 332
    Top = 176
  end
  object XPManifest1: TXPManifest
    Left = 292
    Top = 279
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 328
    Top = 279
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from employee')
    Left = 340
    Top = 215
  end
end