unit1.dfm

新旧人事软件数据结转程序 从sqlserver转至VF数据

              OnMouseMove = DBGrid3MouseMove
              Columns = <
                item
                  Expanded = False
                  FieldName = 'no'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'dz'
                  Title.Caption = #21333#20301
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'lb'
                  Title.Caption = #26426#26500#31867#21035
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ls'
                  Title.Caption = #26426#26500#38582#23646
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'jb'
                  Title.Caption = #26426#26500#32423#21035
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'xz'
                  Title.Caption = #26426#26500#24615#36136
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'hy'
                  Title.Caption = #26426#26500#34892#19994
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'g1'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'g2'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'g3'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'g4'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'px'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'bz'
                  Visible = True
                end>
            end
          end
          object GroupBox2: TGroupBox
            Left = 1
            Top = 321
            Width = 708
            Height = 153
            Align = alClient
            Caption = #24050#26356#26032#35760#24405#21015#34920
            TabOrder = 1
            object Memo1: TMemo
              Left = 2
              Top = 15
              Width = 704
              Height = 136
              Align = alClient
              Lines.Strings = (
                '')
              TabOrder = 0
              OnMouseMove = Memo1MouseMove
            end
          end
        end
      end
      object TabSheet4: TTabSheet
        Caption = #32500#25252#26087#21333#20301#34920
        ImageIndex = 3
        OnMouseMove = TabSheet4MouseMove
        object Panel16: TPanel
          Left = 0
          Top = 0
          Width = 1007
          Height = 41
          Align = alTop
          TabOrder = 0
          OnMouseMove = Panel16MouseMove
          object Label8: TLabel
            Left = 384
            Top = 8
            Width = 437
            Height = 13
            Caption = #26412#31243#24207#30001#26032#30086#20234#23425#24066#26361#20975#29256#26435#25152#26377' '#22914#26377#38382#39064#35831#19982#20316#32773#32852#31995'  '#32852#31995#26041#24335#65306'oicq 3020616 '
            Color = clInactiveCaption
            ParentColor = False
          end
          object Label11: TLabel
            Left = 384
            Top = 8
            Width = 449
            Height = 25
            AutoSize = False
            Transparent = True
            OnMouseMove = Label11MouseMove
          end
          object DBNavigator2: TDBNavigator
            Left = 8
            Top = 8
            Width = 370
            Height = 25
            DataSource = DataSource5
            TabOrder = 0
          end
        end
        object DBGrid5: TDBGrid
          Left = 0
          Top = 41
          Width = 1007
          Height = 475
          Align = alClient
          DataSource = DataSource5
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnMouseDown = DBGrid5MouseDown
          Columns = <
            item
              Expanded = False
              FieldName = 'no'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'dz'
              Title.Caption = #22320#22336
              Width = 172
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'lb'
              Title.Caption = #26426#26500#31867#21035
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ls'
              Title.Caption = #26426#26500#38582#23646
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'jb'
              Title.Caption = #26426#26500#32423#21035
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'xz'
              Title.Caption = #26426#26500#24615#36136
              Width = 83
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'hy'
              Title.Caption = #26426#26500#34892#19994
              Width = 68
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'g1'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'g2'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'g3'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'g4'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'px'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'bz'
              Visible = True
            end>
        end
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 1017
    Height = 41
    Align = alTop
    TabOrder = 1
    OnMouseDown = Panel4MouseDown
    object Edit1: TEdit
      Left = 840
      Top = 16
      Width = 169
      Height = 21
      TabOrder = 2
      Text = 'Edit1'
      Visible = False
    end
    object Button1: TButton
      Left = 16
      Top = 8
      Width = 75
      Height = 25
      Caption = #29983#25104
      TabOrder = 0
      OnClick = Button1Click
      OnMouseMove = Button1MouseMove
    end
    object CheckBox1: TCheckBox
      Left = 144
      Top = 16
      Width = 97
      Height = 17
      Caption = #22312#32844#20154#21592
      TabOrder = 1
      Visible = False
    end
    object Button4: TButton
      Left = 558
      Top = 15
      Width = 177
      Height = 25
      Caption = #21019#24314'OrganizationToDwk'#25968#25454
      TabOrder = 3
      OnClick = Button4Click
      OnMouseMove = Button4MouseMove
    end
  end
  object Query1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 277
    Top = 8
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 213
    Top = 8
  end
  object Query2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 341
  end
  object Query3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 309
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = Query1
    Left = 336
    Top = 24
  end
  object ADOConnection2: TADOConnection
    LoginPrompt = False
    Provider = 'VFPOLEDB.1'
    Left = 384
    Top = 32
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 424
    Top = 33
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 456
    Top = 32
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 512
    Top = 33
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    Left = 112
    Top = 9
  end
  object DataSource3: TDataSource
    DataSet = ADOTable1
    Left = 240
    Top = 41
  end
  object ADOConnection3: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'VFPOLEDB.1'
    Left = 640
    Top = 24
  end
  object DataSource4: TDataSource
    DataSet = ADOTable2
    Left = 688
    Top = 16
  end
  object ADOTable2: TADOTable
    Connection = ADOConnection3
    CursorType = ctStatic
    IndexFieldNames = 'no'
    TableName = 'DWK'
    Left = 592
    Top = 33
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection3
    Parameters = <>
    Left = 720
    Top = 17
  end
  object Query4: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 752
    Top = 16
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection3
    Parameters = <>
    Left = 792
    Top = 16
  end
  object ADOConnection4: TADOConnection
    Left = 832
    Top = 16
  end
  object DataSource5: TDataSource
    DataSet = ADOTable3
    Left = 413
    Top = 74
  end
  object ADOTable3: TADOTable
    Connection = ADOConnection4
    IndexFieldNames = 'no'
    TableName = 'DWK'
    Left = 525
    Top = 74
  end
  object Query5: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 248
    Top = 8
  end
  object Query6: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 784
    Top = 48
  end
end