📄 unit2.pas
字号:
sql.Clear;
sql.Add('insert into atorinfo(会员编号,剩余部数,剩余天数,未归还部数,押金,说明,类型,姓名,家庭地址,联系电话,开户时间,会员首拼) values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l)');
dbtrans.tosqlserver.ParamByName('a').asstring:=dbtrans.fromaccessquery_1.FieldValues['code']; //关键字
dbtrans.tosqlserver.ParamByName('b').AsInteger:=dbtrans.fromaccessquery_1.FieldValues['number'];
dbtrans.tosqlserver.ParamByName('c').AsInteger:=0;/////////////// 剩余天数
dbtrans.tosqlserver.ParamByName('d').AsInteger:=0;/////// 未归还部数
dbtrans.tosqlserver.ParamByName('e').ascurrency:=dbtrans.fromaccessquery_1.FieldValues['deposit'];
dbtrans.tosqlserver.ParamByName('f').asstring:=dbtrans.fromaccessquery_1.FieldValues['memo'];
dbtrans.tosqlserver.ParamByName('g').asstring:=dbtrans.fromaccessquery_2.FieldValues['name'];
dbtrans.tosqlserver.ParamByName('h').asstring:=dbtrans.fromaccessquery_1.FieldValues['name'];
if dbtrans.fromaccessquery_1.FieldValues['address']=null then
dbtrans.tosqlserver.ParamByName('i').asstring:='/'
else
dbtrans.tosqlserver.ParamByName('i').asstring:=dbtrans.fromaccessquery_1.FieldValues['address'];
if dbtrans.fromaccessquery_1.FieldValues['telephone']=null then
dbtrans.tosqlserver.ParamByName('j').asstring:='/'
else
dbtrans.tosqlserver.ParamByName('j').asstring:=dbtrans.fromaccessquery_1.FieldValues['telephone'];
dbtrans.tosqlserver.ParamByName('k').asdatetime:=dbtrans.fromaccessquery_1.FieldValues['lastday'];
dbtrans.tosqlserver.ParamByName('l').asstring:=dbtrans.fromaccessquery_1.FieldValues['spell'];
execsql;
dbtrans.fromaccessquery_1.next;
dbtrans.fromaccessquery_2.next;
end;
end;
with dbtrans.fromaccessquery_1 do // 从ACCESS_bFtransaction+TbAssociator---->>SQLSERVER_ATORCHARGE(会员信息)
begin
close;
sql.Clear;
sql.add('select * from tbrentcd');
open;
first;
end;
with dbtrans.fromaccessquery_2 do //ACCESS_TbOperator+TbFtransaction----->>SQLSERVER_ATORCHARGE(会员信息)
begin
close;
sql.Clear;
sql.add('select tbcdcategory.*,tbrentcd.cid from tbrentcd,tbcdcategory where tbcdcategory.id=tbrentcd.cid');
open;
first;
end;
with dbtrans.fromaccessquery_3 do //ACCESS_TbCategory+TbFtransaction-------->>SQLSERVER_ATORCHARGE(会员信息)
begin
close;
sql.Clear;
sql.add('select tbfee.*,tbrentcd.fid from tbrentcd,tbfee where tbfee.id=tbrentcd.fid');
open;
first;
end;
dbtrans.bsskingauge1.ProgressText:='正在导入到影片信息表';
for i:=1 to dbtrans.fromaccessquery_1.RecordCount do
begin
dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_1.RecordCount;//进度条1
dbtrans.bsskingauge1.value:=i;//进度条1
if i=dbtrans.fromaccessquery_1.RecordCount then break;
with dbtrans.tosqlserver do
begin
close;
sql.Clear;
sql.Add('insert into rent_cd(影片编号,入库日期,影片名称,影片首拼,导演,主要演员,影片数量,影片价格,租金,影片类别,计费部数,收费标准,状态,集数,供应商,影片说明) values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p)');
dbtrans.tosqlserver.ParamByName('a').asstring:=dbtrans.fromaccessquery_1.FieldValues['code']; //关键字
dbtrans.tosqlserver.ParamByName('b').asdatetime:=dbtrans.fromaccessquery_1.FieldValues['day'];
dbtrans.tosqlserver.ParamByName('c').asstring:=dbtrans.fromaccessquery_1.FieldValues['name'];
dbtrans.tosqlserver.ParamByName('d').asstring:=dbtrans.fromaccessquery_1.FieldValues['spell'];
if dbtrans.fromaccessquery_1.FieldValues['director']=null then
dbtrans.tosqlserver.ParamByName('e').asstring:='/'
else
dbtrans.tosqlserver.ParamByName('e').asstring:=dbtrans.fromaccessquery_1.FieldValues['director'];
if dbtrans.fromaccessquery_1.FieldValues['player']=null then
dbtrans.tosqlserver.ParamByName('f').asstring:='/'
else
dbtrans.tosqlserver.ParamByName('f').asstring:=dbtrans.fromaccessquery_1.FieldValues['player'];
dbtrans.tosqlserver.ParamByName('g').asinteger:=dbtrans.fromaccessquery_1.FieldValues['number'];
dbtrans.tosqlserver.ParamByName('h').asinteger:=dbtrans.fromaccessquery_1.FieldValues['price'];
dbtrans.tosqlserver.ParamByName('i').asinteger:=dbtrans.fromaccessquery_3.FieldValues['rent1'];
dbtrans.tosqlserver.ParamByName('j').asstring:=dbtrans.fromaccessquery_2.FieldValues['memo'];
dbtrans.tosqlserver.ParamByName('k').asstring:=dbtrans.fromaccessquery_1.FieldValues['number'];
dbtrans.tosqlserver.ParamByName('l').asstring:=dbtrans.fromaccessquery_1.FieldValues['name'];
dbtrans.tosqlserver.ParamByName('m').asstring:=dbtrans.fromaccessquery_1.FieldValues['status'];
dbtrans.tosqlserver.ParamByName('n').asstring:=dbtrans.fromaccessquery_1.FieldValues['number'];
dbtrans.tosqlserver.ParamByName('o').asstring:='/';
dbtrans.tosqlserver.ParamByName('p').asstring:=dbtrans.fromaccessquery_1.FieldValues['memo'];
execsql;
dbtrans.fromaccessquery_1.next;
dbtrans.fromaccessquery_2.next;
dbtrans.fromaccessquery_3.next;
end;
end;
with dbtrans.fromaccessquery_1 do // 从ACCESS_tbrtransaction+tbassociator---->>SQLSERVER_rttransaction(会员信息)
begin
close;
sql.Clear;
sql.add('select tbrtransaction.*,tbassociator.* from tbrtransaction,tbassociator where tbrtransaction.aid=tbassociator.id and cid2=1 ');
open;
first;
end;
with dbtrans.fromaccessquery_2 do //ACCESS_tbrtransaction+tbrentcd----->>SQLSERVER_rttransaction(会员信息)
begin
close;
sql.Clear;
sql.add('select tbrtransaction.*,tbrentcd.*,tbassociator.* from tbrtransaction,tbrentcd,tbassociator where tbrtransaction.cid1=tbrentcd.id and tbrtransaction.aid=tbassociator.id and cid2=1');
open;
first;
end;
dbtrans.bsskingauge1.ProgressText:='正在导入到会员出租事件表';
for i:=1 to dbtrans.fromaccessquery_1.RecordCount do
begin
dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_1.RecordCount;//进度条1
dbtrans.bsskingauge1.value:=i;//进度条1
if i=dbtrans.fromaccessquery_1.RecordCount then break;
with dbtrans.tosqlserver do
begin
close;
sql.Clear;
sql.Add('insert into rttransaction(出租日期,返还日期,会员编号,影片编号,押金,租金) values(:a,:b,:c,:d,:e,:f)');
dbtrans.tosqlserver.ParamByName('a').asdatetime:=dbtrans.fromaccessquery_1.FieldValues['day1'];
dbtrans.tosqlserver.ParamByName('b').asdatetime:=dbtrans.fromaccessquery_1.FieldValues['day2'];
dbtrans.tosqlserver.ParamByName('c').asstring:=dbtrans.fromaccessquery_1.FieldValues['code'];
dbtrans.tosqlserver.ParamByName('d').asstring:=dbtrans.fromaccessquery_2.FieldValues['code'];
dbtrans.tosqlserver.ParamByName('e').ascurrency:=dbtrans.fromaccessquery_1.FieldValues['deposit'];
dbtrans.tosqlserver.ParamByName('f').ascurrency:=dbtrans.fromaccessquery_1.FieldValues['rent'];
execsql;
dbtrans.fromaccessquery_1.next;
dbtrans.fromaccessquery_2.next;
end;
end;
//--------------------------------与上同,对应零租用户---------------------------------//
with dbtrans.fromaccessquery_1 do // 从ACCESS_tbrtransaction+tbassociator---->>SQLSERVER_rttransaction(零租用户)
begin
close;
sql.Clear;
sql.add('select tbrtransaction.*,tbassociator.* from tbrtransaction,tbassociator where tbrtransaction.aid=tbassociator.id and cid2=1 ');
open;
first;
end;
with dbtrans.fromaccessquery_2 do //ACCESS_tbrtransaction+tbrentcd----->>SQLSERVER_rttransaction(零租用户)
begin
close;
sql.Clear;
sql.add('select tbrentcd.code from tbrtransaction,tbrentcd where tbrtransaction.cid1=tbrentcd.id and tbrtransaction.aid=0 and cid2=1');
open;
first;
end;
dbtrans.bsskingauge1.ProgressText:='正在导入到零租用户出租事件表';
for i:=1 to dbtrans.fromaccessquery_1.RecordCount do
begin
dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_1.RecordCount;//进度条1
dbtrans.bsskingauge1.value:=i;//进度条1
if i=dbtrans.fromaccessquery_1.RecordCount then break;
with dbtrans.tosqlserver do
begin
close;
sql.Clear;
sql.Add('insert into rttransaction(出租日期,返还日期,会员编号,影片编号,押金,租金) values(:a,:b,:c,:d,:e,:f)');
dbtrans.tosqlserver.ParamByName('a').asdatetime:=dbtrans.fromaccessquery_1.FieldValues['day1'];
dbtrans.tosqlserver.ParamByName('b').asdatetime:=dbtrans.fromaccessquery_1.FieldValues['day2'];
dbtrans.tosqlserver.ParamByName('c').asstring:='零租用户';
dbtrans.tosqlserver.ParamByName('d').asstring:=dbtrans.fromaccessquery_2.FieldValues['code'];
dbtrans.tosqlserver.ParamByName('e').ascurrency:=dbtrans.fromaccessquery_1.FieldValues['deposit'];
dbtrans.tosqlserver.ParamByName('f').ascurrency:=dbtrans.fromaccessquery_1.FieldValues['rent'];
execsql;
dbtrans.fromaccessquery_1.next;
dbtrans.fromaccessquery_2.next;
end;
end;
//--------------------------逾期会员表同上-----------------------------//
with dbtrans.fromaccessquery_1 do // 从ACCESS_tbrtransaction+tbassociator---->>SQLSERVER_rttransaction(会员信息)
begin
close;
sql.Clear;
sql.add('select tbrtransaction.*,tbassociator.* from tbrtransaction,tbassociator where tbrtransaction.aid=tbassociator.id and cid2=2 ');
open;
first;
end;
with dbtrans.fromaccessquery_2 do //ACCESS_tbrtransaction+tbrentcd----->>SQLSERVER_rttransaction(会员信息)
begin
close;
sql.Clear;
sql.add('select tbrtransaction.*,tbrentcd.*,tbassociator.* from tbrtransaction,tbrentcd,tbassociator where tbrtransaction.cid1=tbrentcd.id and tbrtransaction.aid=tbassociator.id and cid2=2');
open;
first;
end;
dbtrans.bsskingauge1.ProgressText:='正在导入到逾期会员出租事件表';
for i:=1 to dbtrans.fromaccessquery_1.RecordCount do
begin
dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_1.RecordCount;//进度条1
dbtrans.bsskingauge1.value:=i;//进度条1
if i=dbtrans.fromaccessquery_1.RecordCount then break;
with dbtrans.tosqlserver do
begin
close;
sql.Clear;
sql.Add('insert into rttransaction(出租日期,会员编号,影片编号,押金,租金) values(:a,:b,:c,:d,:e)'); //逾期用户归还日期不导入
dbtrans.tosqlserver.ParamByName('a').asdatetime:=dbtrans.fromaccessquery_1.FieldValues['day1'];
// dbtrans.tosqlserver.ParamByName('b').asdatetime:=dbtrans.fromaccessquery_1.FieldValues['day2'];
dbtrans.tosqlserver.ParamByName('b').asstring:=dbtrans.fromaccessquery_1.FieldValues['code'];
dbtrans.tosqlserver.ParamByName('c').asstring:=dbtrans.fromaccessquery_2.FieldValues['code'];
dbtrans.tosqlserver.ParamByName('d').ascurrency:=dbtrans.fromaccessquery_1.FieldValues['deposit'];
dbtrans.tosqlserver.ParamByName('e').ascurrency:=dbtrans.fromaccessquery_1.FieldValues['rent'];
execsql;
dbtrans.fromaccessquery_1.next;
dbtrans.fromaccessquery_2.next;
end;
end;
with dbtrans.fromaccessquery_1 do // 从ACCESS_tbrtransaction+tbassociator---->>SQLSERVER_rttransaction(零租用户逾期)
begin
close;
sql.Clear;
sql.add('select tbrtransaction.* from tbrtransaction where aid=0 and cid2=2 ');
open;
first;
end;
with dbtrans.fromaccessquery_2 do //ACCESS_tbrtransaction+tbrentcd----->>SQLSERVER_rttransaction(零租用户逾期)
begin
close;
sql.Clear;
sql.add('select tbrentcd.code from tbrtransaction,tbrentcd where tbrtransaction.cid1=tbrentcd.id and tbrtransaction.aid=0 and cid2=2');
open;
first;
end;
dbtrans.bsskingauge1.ProgressText:='正在导入到逾期零租事件表';
for i:=1 to dbtrans.fromaccessquery_1.RecordCount do
begin
dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_1.RecordCount;//进度条1
dbtrans.bsskingauge1.value:=i;//进度条1
if i=dbtrans.fromaccessquery_1.RecordCount then break;
with dbtrans.tosqlserver do
begin
close;
sql.Clear;
sql.Add('insert into rttransaction(出租日期,会员编号,影片编号,押金,租金) values(:a,:b,:c,:d,:e)'); //逾期用户归还日期不导入
dbtrans.tosqlserver.ParamByName('a').asdatetime:=dbtrans.fromaccessquery_1.FieldValues['day1'];
dbtrans.tosqlserver.ParamByName('b').asstring:='零租用户';
dbtrans.tosqlserver.ParamByName('c').asstring:=dbtrans.fromaccessquery_2.FieldValues['code'];
dbtrans.tosqlserver.ParamByName('d').ascurrency:=dbtrans.fromaccessquery_1.FieldValues['deposit'];
dbtrans.tosqlserver.ParamByName('e').ascurrency:=dbtrans.fromaccessquery_1.FieldValues['rent'];
execsql;
dbtrans.fromaccessquery_1.next;
dbtrans.fromaccessquery_2.next;
end;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -