?? 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 + -