unit1.dfm

ceshi de bu yao xiazai

object Form1: TForm1
  Left = 84
  Top = 103
  Width = 894
  Height = 494
  Caption = #28155#21152#32771#21220'TIPTOP'#36039#26009
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 886
    Height = 1
    Align = alTop
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 1
    Width = 886
    Height = 136
    Align = alTop
    Caption = #26410#23566#20837'TIP'#30340#32771#21220#25976#25818
    TabOrder = 0
    object Panel2: TPanel
      Left = 2
      Top = 15
      Width = 882
      Height = 114
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object BitBtn1: TBitBtn
        Left = 24
        Top = 24
        Width = 161
        Height = 57
        Caption = #32771#21220#20449#24687#23566#20837'TIPTOP'#36039#26009#24235
        TabOrder = 0
        OnClick = BitBtn1Click
      end
      object BitBtn3: TBitBtn
        Left = 224
        Top = 24
        Width = 129
        Height = 57
        Caption = #36319'TIP'#26680#23565#21729#24037#36039#26009
        TabOrder = 1
        OnClick = BitBtn3Click
      end
      object BitBtn4: TBitBtn
        Left = 384
        Top = 24
        Width = 105
        Height = 57
        Caption = #26680#23565'TIP'#29677#21029
        TabOrder = 2
        OnClick = BitBtn4Click
      end
    end
  end
  object pb1: TProgressBar
    Left = 0
    Top = 438
    Width = 886
    Height = 10
    Align = alBottom
    Min = 0
    Max = 100
    TabOrder = 1
    Visible = False
  end
  object ListBox1: TListBox
    Left = 0
    Top = 137
    Width = 886
    Height = 301
    Align = alClient
    ItemHeight = 13
    TabOrder = 2
  end
  object Database1: TDatabase
    AliasName = 'sfis'
    DatabaseName = 'DB1'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sfis1'
      'PASSWORD=s1t5h6k9')
    SessionName = 'Default'
    Left = 208
    Top = 144
  end
  object sfcqy: TQuery
    DatabaseName = 'DB1'
    SQL.Strings = (
      '')
    Left = 168
    Top = 144
  end
  object MainMenu1: TMainMenu
    Left = 160
    object DB1: TMenuItem
      Caption = #31649#29702#35373#23450
      object DB2: TMenuItem
        Caption = 'DB'#35373#23450
        OnClick = DB2Click
      end
      object N4: TMenuItem
        Caption = #33258#21205#22519#34892#35373#23450
        OnClick = N4Click
      end
    end
    object N1: TMenuItem
      Caption = #38364#26044
      object N2: TMenuItem
        Caption = #24171#21161
      end
      object N3: TMenuItem
        Caption = #36864#20986
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = sfctiptable
    Left = 200
  end
  object Database2: TDatabase
    AliasName = 'timebook'
    DatabaseName = 'tip'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME='
      'PASSWORD=')
    SessionName = 'Default'
    Left = 168
    Top = 280
  end
  object BatchMove1: TBatchMove
    Destination = tiptable
    Mappings.Strings = (
      'HRD01=HRD01'
      'HRD02=HRD02'
      'HRD03=HRD03'
      'HRD04=HRD04'
      'HRD04SS=HRD04SS'
      'HRD04SX=HRD04SX'
      'HRD05=HRD05'
      'HRD05XS=HRD05XS'
      'HRD05XX=HRD05XX'
      'HRD06=HRD06'
      'HRD07=HRD07'
      'HRD08=HRD08'
      'HRDACTI=HRDACTI'
      'HRDUSER=HRDUSER'
      'HRDGRUP=HRDGRUP'
      'HRDMODU=HRDMODU'
      'HRDDATE=HRDDATE')
    Source = sfctiptable
    Left = 112
    Top = 200
  end
  object tiptable: TTable
    DatabaseName = 'tip'
    TableName = 'itp3586.hrb_file'
    Left = 144
    Top = 200
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 232
  end
  object tipqy: TQuery
    DatabaseName = 'tip'
    SQL.Strings = (
      'Insert into hrb_file'
      '(HRB01, HRB03, HRB04, HRB05, HRB06, HRB08, HRB10, HRBACTI)'
      'Values'
      '(:H01,:H03,:H04,:H05,:H06,:H08,:H10,:HR)')
    Left = 208
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'H01'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'H03'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'H04'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'H05'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'H06'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'H08'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'H10'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'HR'
        ParamType = ptUnknown
      end>
  end
  object sfcexeqy: TQuery
    DatabaseName = 'DB1'
    SQL.Strings = (
      'insert into sfchr.c_emp_desc_t'
      '(emp_no,emp_name,department_no,line_name,emp_rank)'
      'values(:no,:name,:depart,:line,:rank)')
    Left = 128
    Top = 144
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'no'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depart'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'line'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'rank'
        ParamType = ptUnknown
      end>
  end
  object BatchMove2: TBatchMove
    Destination = sfctable
    Source = tipsfctable
    Left = 344
    Top = 200
  end
  object sfctable: TTable
    DatabaseName = 'DB1'
    SessionName = 'Default'
    TableName = 'SFCHR.HRD_FILE'
    Left = 376
    Top = 200
  end
  object sfctiptable: TTable
    DatabaseName = 'DB1'
    TableName = 'SFCHR.HRB_FILE'
    Left = 72
    Top = 200
  end
  object tipsfctable: TTable
    DatabaseName = 'tip'
    TableName = 'itp3586.hrd_file'
    Left = 312
    Top = 200
  end
  object sfcupqy: TQuery
    DatabaseName = 'DB1'
    SQL.Strings = (
      'update sfchr.c_emp_desc_t '
      'set department_no = :dp,line_name = :line,emp_rank = :rank'
      'where emp_no = :emp')
    Left = 248
    Top = 144
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'dp'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'line'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'rank'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'emp'
        ParamType = ptUnknown
      end>
  end
end