中国有名的度假村:用VB写,过档,异动后部门,职称过到基本资料资料里面去,两个表的ID相同

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 02:59:50
Employee 员工基本资料档
No FieldName Label DataType IsNull Memo
EmpID 员工ID号 Dec(12) No PK(1)
01 EmpNo 工号 Varchar(10) Unicode
02 EmpName 姓名 Varchar(20)
03 Sex 性别 Char(2)
04 Birthday 出生年月 Smalldatetime
05 StartDate 入职日期 smalldatetime
06 Deptcode 部门 Char(4)
07 educationid 学历 Char(2)
08 Titleid 职称 Char(2)
09 CancelDate 离职日期 smalldatetime
10 CancelYN 离职否 Char(1) ‘Y’代表离职
11 TrsUser 异动人 Varchar(12) No
12 TrsDate 异动日期 Smalldate No

Emp_trs 员工异动资料档
No FieldName Label DataType IsNull Memo
01 EmpID ID Dec(12) PK
02 EffeDate 生效日期 smalldatetime PK
03 Deptcode1 原部门 Char(2)
04 Titleid1 原职称 Char(2)
05 Deptcode2 部门 Char(4)
06 Titleid2 现职称 Char(2)
07 Status 过档否 Int No 0->未过档
08 TrsUser 异动人 Varchar(12) No
09 TrsDate 异动日期 Smalldate No
10 TrsCode 异动原因 Char(2)

这是两个表

直接select into就可以了,或者先读出原来的,一个字段一个字段的写进入也不麻烦。
当然,我说的是在vb中用ado等先打开数据库。