procedure Tfrmmainyuan.BitBtn1Click(Sender: TObject);
var
temp1,i:integer;
temp2,temp3,temp:string;
dates1,dates2:string;
myinifile:TINIFile;
gongzi:Single;
begin
ADOTable1.Open;
ADOTable2.Open;
ADOTable1.First;
ADOTable2.First;
while not ADOTable1.Eof do
begin
ADOTable1.Delete;
end;
while not ADOTable2.Eof do
begin
ADOTable2.Delete;
end; ADOTable3.Open;
ADOTable4.Open;
ADOTable5.Open;
dates1:=DateToStr(DateTimePicker1.Date);
dates2:=DateToStr(DateTimePicker2.Date);
while not ADOTable3.Eof do
begin
ADOTable1.Append;
ADOTable1.FieldValues['ID']:=ADOTable3.FieldValues['ID'];
ADOTable1.FieldValues['NAME']:=ADOTable3.FieldValues['NAME'];
ADOTable1.Post;
while not ADOTable5.Eof do
begin
if ((StrToDate(ADOTable4.FieldValues['DATE'])>=StrToDate(dates1)) and (StrToDate(ADOTable4.FieldValues['DATE'])<=StrToDate(dates2))) then
begin
ADOTable2.Filtered:=False;
temp1:=ADOTable3.FieldValues['ID'];
temp2:=ADOTable4.FieldValues['KUAN_ID'];
temp3:=ADOTable5.FieldValues['GONG_ID'];
ADOTable2.Filter:='ID='''+IntToStr(temp1)+''' AND KUAN_ID='''+temp2+ ''' AND GONG_ID='''+temp3+'''';
ADOTable2.Filtered:=True;
if ADOTable2.RecordCount<>0 then
begin
ADOTable2.Edit;
ADOTable2.FieldValues['JIAN_ID']:=ADOTable2.FieldValues['JIAN_ID']+ADOTable5.FieldValues['JIAN_ID'];
ADOTable2.Post;
end
else begin
ADOTable2.Append;
ADOTable2.FieldValues['ID']:=ADOTable3.FieldValues['ID'];
ADOTable2.FieldValues['KUAN_ID']:=ADOTable4.FieldValues['KUAN_ID'];
ADOTable2.FieldValues['GONG_ID']:=ADOTable5.FieldValues['GONG_ID'];
ADOTable2.FieldValues['JIAN_ID']:=ADOTable5.FieldValues['JIAN_ID'];
ADOTable2.Post;
end;
end;
ADOTable5.Next;
end;
ADOTable3.Next;
end;
ADOTable1.Close;
ADOTable2.Close;
ADOTable3.Close;
ADOTable4.Close;
ADOTable5.Close; ADOTable8.Open;
ADOTable9.Open; myinifile:=TINIFile.Create(ExtractFilePath(paramstr(0))+'myini.ini');
temp:=myinifile.ReadString('default','pay','2003-1-1');
myinifile.Destroy;
ADOTable8.Filter:='NAME='''+temp+'''';
ADOTable8.Filtered:=True;
ADOTable10.Open;
while not ADOTable10.Eof do
begin
ADOTable9.First;
while not ADOTable9.Eof do
begin
if (ADOTable9.FieldValues['KUAN_ID']=ADOTable10.FieldValues['KUAN_ID']) and (ADOTable9.FieldValues['GONG_ID']=ADOTable10.FieldValues['GONG_ID']) then
begin
ADOTable10.Edit;
ADOTable10.FieldValues['DANGJIA']:=ADOTable9.FieldValues['DANGJIA'];
ADOTable10.FieldValues['XIAOJIE']:=ADOTable9.FieldValues['DANGJIA']*ADOTable10.FieldValues['JIAN_ID'];
ADOTable10.Post;
end;
ADOTable9.Next;
end;
ADOTable10.Next;
end;
ADOTable8.Close;
ADOTable9.Close;
ADOTable10.Close;
ADOTable6.Open;
ADOTable7.Open;
gongzi:=0;
while not ADOTable6.Eof do
begin
while not ADOTable7.Eof do
begin
gongzi:=gongzi+ ADOTable7.FieldValues['XIAOJIE'];
Edit1.Text:=IntToStr(ADOTable7.FieldValues['XIAOJIE']);
ADOTable7.Next;
end;
ADOTable6.Edit;
ADOTable6.FieldValues['GONGZI']:=gongzi;
ADOTable6.Post;
gongzi:=0;
ADOTable6.Next;
end;
ADOTable6.Close;
ADOTable7.Close;
form1.ADOTable1.Open;
form1.ADOTable2.Open;
form1.QuickRep1.PreviewModal;
end;
var
temp1,i:integer;
temp2,temp3,temp:string;
dates1,dates2:string;
myinifile:TINIFile;
gongzi:Single;
begin
ADOTable1.Open;
ADOTable2.Open;
ADOTable1.First;
ADOTable2.First;
while not ADOTable1.Eof do
begin
ADOTable1.Delete;
end;
while not ADOTable2.Eof do
begin
ADOTable2.Delete;
end; ADOTable3.Open;
ADOTable4.Open;
ADOTable5.Open;
dates1:=DateToStr(DateTimePicker1.Date);
dates2:=DateToStr(DateTimePicker2.Date);
while not ADOTable3.Eof do
begin
ADOTable1.Append;
ADOTable1.FieldValues['ID']:=ADOTable3.FieldValues['ID'];
ADOTable1.FieldValues['NAME']:=ADOTable3.FieldValues['NAME'];
ADOTable1.Post;
while not ADOTable5.Eof do
begin
if ((StrToDate(ADOTable4.FieldValues['DATE'])>=StrToDate(dates1)) and (StrToDate(ADOTable4.FieldValues['DATE'])<=StrToDate(dates2))) then
begin
ADOTable2.Filtered:=False;
temp1:=ADOTable3.FieldValues['ID'];
temp2:=ADOTable4.FieldValues['KUAN_ID'];
temp3:=ADOTable5.FieldValues['GONG_ID'];
ADOTable2.Filter:='ID='''+IntToStr(temp1)+''' AND KUAN_ID='''+temp2+ ''' AND GONG_ID='''+temp3+'''';
ADOTable2.Filtered:=True;
if ADOTable2.RecordCount<>0 then
begin
ADOTable2.Edit;
ADOTable2.FieldValues['JIAN_ID']:=ADOTable2.FieldValues['JIAN_ID']+ADOTable5.FieldValues['JIAN_ID'];
ADOTable2.Post;
end
else begin
ADOTable2.Append;
ADOTable2.FieldValues['ID']:=ADOTable3.FieldValues['ID'];
ADOTable2.FieldValues['KUAN_ID']:=ADOTable4.FieldValues['KUAN_ID'];
ADOTable2.FieldValues['GONG_ID']:=ADOTable5.FieldValues['GONG_ID'];
ADOTable2.FieldValues['JIAN_ID']:=ADOTable5.FieldValues['JIAN_ID'];
ADOTable2.Post;
end;
end;
ADOTable5.Next;
end;
ADOTable3.Next;
end;
ADOTable1.Close;
ADOTable2.Close;
ADOTable3.Close;
ADOTable4.Close;
ADOTable5.Close; ADOTable8.Open;
ADOTable9.Open; myinifile:=TINIFile.Create(ExtractFilePath(paramstr(0))+'myini.ini');
temp:=myinifile.ReadString('default','pay','2003-1-1');
myinifile.Destroy;
ADOTable8.Filter:='NAME='''+temp+'''';
ADOTable8.Filtered:=True;
ADOTable10.Open;
while not ADOTable10.Eof do
begin
ADOTable9.First;
while not ADOTable9.Eof do
begin
if (ADOTable9.FieldValues['KUAN_ID']=ADOTable10.FieldValues['KUAN_ID']) and (ADOTable9.FieldValues['GONG_ID']=ADOTable10.FieldValues['GONG_ID']) then
begin
ADOTable10.Edit;
ADOTable10.FieldValues['DANGJIA']:=ADOTable9.FieldValues['DANGJIA'];
ADOTable10.FieldValues['XIAOJIE']:=ADOTable9.FieldValues['DANGJIA']*ADOTable10.FieldValues['JIAN_ID'];
ADOTable10.Post;
end;
ADOTable9.Next;
end;
ADOTable10.Next;
end;
ADOTable8.Close;
ADOTable9.Close;
ADOTable10.Close;
ADOTable6.Open;
ADOTable7.Open;
gongzi:=0;
while not ADOTable6.Eof do
begin
while not ADOTable7.Eof do
begin
gongzi:=gongzi+ ADOTable7.FieldValues['XIAOJIE'];
Edit1.Text:=IntToStr(ADOTable7.FieldValues['XIAOJIE']);
ADOTable7.Next;
end;
ADOTable6.Edit;
ADOTable6.FieldValues['GONGZI']:=gongzi;
ADOTable6.Post;
gongzi:=0;
ADOTable6.Next;
end;
ADOTable6.Close;
ADOTable7.Close;
form1.ADOTable1.Open;
form1.ADOTable2.Open;
form1.QuickRep1.PreviewModal;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货