📄 minestatistic_unt.pas
字号:
var Key: Word; Shift: TShiftState);
begin
if key=VK_RETURN then DBLookUpComboBox2.SetFocus;
end;
procedure TMineStatistic_Frm.DBLookupComboBox2KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key=VK_RETURN then DateTimePicker1.SetFocus;
end;
procedure TMineStatistic_Frm.DateTimePicker1KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key=VK_RETURN then DateTimePicker2.SetFocus;
end;
procedure TMineStatistic_Frm.DateTimePicker2KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key=VK_RETURN then DBEdit1.SetFocus;
end;
procedure TMineStatistic_Frm.DBEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RETURN then DBEdit2.SetFocus;
end;
procedure TMineStatistic_Frm.DBEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RETURN then DBEdit3.SetFocus;
end;
procedure TMineStatistic_Frm.Taxis; //排序
var
m,n,i,j,k:integer;
SumOutput,Remain:integer;
WorkGroupId,ItemId:integer;
TempStat:array of TMineStatData; //辅助排序之用
WorkGroupExist,FaceExist:boolean;
BK:TBookMark;
begin
WorkGroupExist:=false;
FaceExist:=false;
//判断添加的记录的采煤队是否已经存在
//MineStat的读取是在点击“添加”按钮执行添加记录之前进行的
for i:=1 to High(MineStat) do
begin
if AddStat.WorkGroup_Id=MineStat[i].WorkGroup_Id then
begin
WorkGroupExist:=true;
break;
end;
end;
//判断添加的记录的回采面是否已经存在，在“采煤统计”表中，不同采煤队的回采面是不会相同的
for i:=1 to High(MineStat) do
begin
if AddStat.Item_Id=MineStat[i].Item_Id then
begin
if not WorkGroupExist then
begin
showmessage('有问题，出现了多个采煤队被安排同一个回采面的情况！');
exit;
end;
FaceExist:=true;
break;
end;
end;
//如果添加的记录是原表中已经存在的采煤队，而且也记录过添加记录的回采面的统计情况，则进行相关排序
k:=0; m:=0; n:=0; SumOutput:=0; Remain:=0;
if (WorkGroupExist)and(FaceExist)then
begin
for i:=1 to High(MineStat) do
begin
if (AddStat.WorkGroup_Id=MineStat[i].WorkGroup_Id)
and(AddStat.Item_Id=MineStat[i].Item_Id)
then
begin
k:=i;
break;
end;
end;
if k>0 then
begin
m:=k;
while(m<High(MineStat))and((AddStat.WorkGroup_Id=MineStat[m].WorkGroup_Id)
and(AddStat.Item_Id=MineStat[m].Item_Id))do
begin
m:=m+1;
end;
n:=m; //m记录了新添加的记录应该插入的位置
if n=High(MineStat)
then //如果原表中的最后一条记录与新添加的记录是同一个采煤队且是同一个回采面，则新添加的记录不需要变化
begin
if (AddStat.WorkGroup_Id=MineStat[m].WorkGroup_Id)
and(AddStat.Item_Id=MineStat[m].Item_Id)
then
begin
SumOutput:=MineStat[n].Finished_Sum+AddStat.Finished;
Remain:=MineStat[n].Remain-AddStat.Finished;
with Base_DataS.DataSet do
begin
last;
edit;
FieldByName('Finished_Sum').AsInteger:=SumOutput;
FieldByName('Remain').AsInteger:=Remain;
post;
end;
end
else
begin //互换最后一条记录和倒数第二条记录
SumOutput:=MineStat[n-1].Finished_Sum+AddStat.Finished;
Remain:=MineStat[n-1].Remain-AddStat.Finished;
j:=High(MineStat);
With Base_DataS.DataSet do
begin
last;
edit;
FieldByName('WorkGroup_Id').AsInteger:=MineStat[j].WorkGroup_Id;
FieldByName('Item_Id').AsInteger:=MineStat[j].Item_Id;
FieldByName('Begin_Date').AsDateTime:=MineStat[j].Begin_Date;
FieldByName('End_Date').AsDateTime:=MineStat[j].End_Date;
FieldByName('Finished').AsInteger:=MineStat[j].Finished;
FieldByName('Remain').AsInteger:=MineStat[j].Remain;
FieldByName('Finished_Sum').AsInteger:=MineStat[j].Finished_Sum;
FieldByName('Relay_Id').AsInteger:=MineStat[j].Relay_Id;
post;
prior;
edit;
FieldByName('WorkGroup_Id').AsInteger:=AddStat.WorkGroup_Id;
FieldByName('Item_Id').AsInteger:=AddStat.Item_Id;
FieldByName('Begin_Date').AsDateTime:=AddStat.Begin_Date;
FieldByName('End_Date').AsDateTime:=AddStat.End_Date;
FieldByName('Finished').AsInteger:=AddStat.Finished;
FieldByName('Remain').AsInteger:=AddStat.Remain;
FieldByName('Finished_Sum').AsInteger:=SumOutput;
FieldByName('Remain').AsInteger:=Remain;
FieldByName('Relay_Id').AsInteger:=AddStat.Relay_Id;
post;
end;
end;
exit;
end
else //n<High(MineStat)时，添加的记录需要向前插入
begin
//把需要插入位置及其以后的记录保存在TempStat数组中，以便把记录后移
setlength(TempStat,((High(MineStat)-n)+1)+1);
for i:=1 to High(TempStat) do
begin
TempStat[i].WorkGroup_Id:=MineStat[n].WorkGroup_Id;
TempStat[i].Item_Id:=MineStat[n].Item_Id;
TempStat[i].Begin_Date:=MineStat[n].Begin_Date;
TempStat[i].End_Date:=MineStat[n].End_Date;
TempStat[i].Finished:=MineStat[n].Finished;
TempStat[i].Finished_Sum:=MineStat[n].Finished_Sum;
TempStat[i].Remain:=MineStat[n].Remain;
TempStat[i].Relay_Id:=MineStat[n].Relay_Id;
n:=n+1;
end;
//从表中第m条记录开始，插入新添加的记录，同时后面的记录相应后移一个位置
n:=m;
SumOutput:=MineStat[m-1].Finished_Sum+AddStat.Finished;
Remain:=MineStat[m-1].Remain-AddStat.Finished;
MineStat[n].WorkGroup_Id:=AddStat.WorkGroup_Id;
MineStat[n].Item_Id:=AddStat.Item_Id;
MineStat[n].Begin_Date:=AddStat.Begin_Date;
MineStat[n].End_Date:=AddStat.End_Date;
MineStat[n].Finished:=AddStat.Finished;
MineStat[n].Remain:=Remain;
MineStat[n].Finished_Sum:=SumOutput;
MineStat[n].Relay_Id:=AddStat.Relay_Id;
j:=0;
for i:=n+1 to High(MineStat) do
begin
j:=j+1;
MineStat[i].WorkGroup_Id:=TempStat[j].WorkGroup_Id;
MineStat[i].Item_Id:=TempStat[j].Item_Id;
MineStat[i].Begin_Date:=TempStat[j].Begin_Date;
MineStat[i].End_Date:=TempStat[j].End_Date;
MineStat[i].Finished:=TempStat[j].Finished;
MineStat[i].Remain:=TempStat[j].Remain;
MineStat[i].Finished_Sum:=TempStat[j].Finished_Sum;
MineStat[i].Relay_Id:=TempStat[j].Relay_Id;
end;
j:=j+1;
AddStat.WorkGroup_Id:=TempStat[j].WorkGroup_Id;
AddStat.Item_Id:=TempStat[j].Item_Id;
AddStat.Begin_Date:=TempStat[j].Begin_Date;
AddStat.End_Date:=TempStat[j].End_Date;
AddStat.Finished:=TempStat[j].Finished;
AddStat.Remain:=TempStat[j].Remain;
AddStat.Finished_Sum:=TempStat[j].Finished_Sum;
AddStat.Relay_Id:=TempStat[j].Relay_Id;
end;
//更新数据库
//首先更新最后一条记录
With Base_DataS.DataSet do
begin
last;
edit;
FieldByName('WorkGroup_Id').AsInteger:=AddStat.WorkGroup_Id;
FieldByName('Item_Id').AsInteger:=AddStat.Item_Id;
FieldByName('Begin_Date').AsDateTime:=AddStat.Begin_Date;
FieldByName('End_Date').AsDateTime:=AddStat.End_Date;
FieldByName('Finished').AsInteger:=AddStat.Finished;
FieldByName('Remain').AsInteger:=AddStat.Remain;
FieldByName('Finished_Sum').AsInteger:=AddStat.Finished_Sum;
FieldByName('Relay_Id').AsInteger:=AddStat.Relay_Id;
post;
end;
WorkGroupId:=MineStat[m-1].WorkGroup_Id;
ItemId:=MineStat[m-1].Item_Id;
//找到需要更新的位置
//首先找到首次出现相同采煤队且相同回采面（与新添加的记录相同）的记录
with Base_DataS.DataSet do
begin
first;
while (not eof) do
begin
if(FieldByName('WorkGroup_Id').AsInteger=WorkGroupId)and(FieldByName('Item_Id').AsInteger=ItemId)then
begin
break;
end;
next;
end;
//向后移动记录指针，找到出现相同采煤队和相同回采面的记录（与新添加的记录相同）后的第一个不同采煤队的记录，该位置就是要插入的位置
with Base_DataS.DataSet do
begin
while (FieldByName('WorkGroup_Id').AsInteger=WorkGroupId)
and(FieldByName('Item_Id').AsInteger=ItemId)do
begin
next;
end;
end;
end; //end: with Base_DataS.DataSet do
//记录插入的位置，以便操作完成后再把指针移至此处，以方便用户查看添加和排序后的效果
BK:=Base_DataS.DataSet.GetBookmark;
With Base_DataS.DataSet do
begin
i:=m;
while i<=High(MineStat) do
begin
edit;
FieldByName('WorkGroup_Id').AsInteger:=MineStat[i].WorkGroup_Id;
FieldByName('Item_Id').AsInteger:=MineStat[i].Item_Id;
FieldByName('Begin_Date').AsDateTime:=MineStat[i].Begin_Date;
FieldByName('End_Date').AsDateTime:=MineStat[i].End_Date;
FieldByName('Finished').AsInteger:=MineStat[i].Finished;
if i=m
then
begin
FieldByName('Finished_Sum').AsInteger:=SumOutput;
FieldByName('Remain').AsInteger:=Remain;
end
else
begin
FieldByName('Finished_Sum').AsInteger:=MineStat[i].Finished_Sum;
FieldByName('Remain').AsInteger:=MineStat[i].Remain;
end;
FieldByName('Relay_Id').AsInteger:=MineStat[i].Relay_Id;
post;
next;
i:=i+1;
end;
end; //end: With Base_DataS.DataSet do
end; // end: if k>0 then
Base_DataS.DataSet.GotoBookmark(BK);
Base_DataS.DataSet.FreeBookmark(BK);
exit;
end; //end: if (WorkGroupExist)and(FaceExist)then
//如果添加的记录是原表中已经存在的采煤队，但是没有记录过添加记录的回采面的统计情况，进行相关排序
k:=0; m:=0; n:=0;
if (WorkGroupExist)and(not FaceExist) then
begin
for i:=1 to High(MineStat) do
begin
if MineStat[i].WorkGroup_Id=AddStat.WorkGroup_Id then
begin
k:=i;
break;
end;
end;
if k>0 then
begin
m:=k;
while(m<High(MineStat))and(MineStat[m].WorkGroup_Id=AddStat.WorkGroup_Id) do
begin
m:=m+1;
end;
n:=m; //m记录了新添加的记录应该插入的位置
if n=High(MineStat) //若应该插入的位置是表中倒数第二条记录，则不需要处理
then
begin
if (AddStat.WorkGroup_Id<>MineStat[m].WorkGroup_Id)
then
begin //互换最后一条记录和倒数第二条记录
j:=High(MineStat);
With Base_DataS.DataSet do
begin
last;
edit;
FieldByName('WorkGroup_Id').AsInteger:=MineStat[j].WorkGroup_Id;
FieldByName('Item_Id').AsInteger:=MineStat[j].Item_Id;
FieldByName('Begin_Date').AsDateTime:=MineStat[j].Begin_Date;
FieldByName('End_Date').AsDateTime:=MineStat[j].End_Date;
FieldByName('Finished').AsInteger:=MineStat[j].Finished;
FieldByName('Remain').AsInteger:=MineStat[j].Remain;
FieldByName('Finished_Sum').AsInteger:=MineStat[j].Finished_Sum;
FieldByName('Relay_Id').AsInteger:=MineStat[j].Relay_Id;
post;
prior;
edit;
FieldByName('WorkGroup_Id').AsInteger:=AddStat.WorkGroup_Id;
FieldByName('Item_Id').AsInteger:=AddStat.Item_Id;
FieldByName('Begin_Date').AsDateTime:=AddStat.Begin_Date;
FieldByName('End_Date').AsDateTime:=AddStat.End_Date;
FieldByName('Finished').AsInteger:=AddStat.Finished;
FieldByName('Remain').AsInteger:=AddStat.Remain;
FieldByName('Finished_Sum').AsInteger:=AddStat.Finished_Sum;
FieldByName('Relay_Id').AsInteger:=AddStat.Relay_Id;
post;
end;
end;
exit;
end
else
begin
//把需要插入位置及其以后的记录保存在TempStat数组中，以便把记录后移
setlength(TempStat,((High(MineStat)-n)+1)+1);
for i:=1 to High(TempStat) do
begin
TempStat[i].WorkGroup_Id:=MineStat[n].WorkGroup_Id;
TempStat[i].Item_Id:=MineStat[n].Item_Id;
TempStat[i].Begin_Date:=MineStat[n].Begin_Date;
TempStat[i].End_Date:=MineStat[n].End_Date;
TempStat[i].Finished:=MineStat[n].Finished;
TempStat[i].Finished_Sum:=MineStat[n].Finished_Sum;
TempStat[i].Remain:=MineStat[n].Remain;
TempStat[i].Relay_Id:=MineStat[n].Relay_Id;
n:=n+1;
end;
//从表中第m条记录开始，插入新添加的记录，同时后面的记录相应后移一个位置
n:=m;
MineStat[n].WorkGroup_Id:=AddStat.WorkGroup_Id;
MineStat[n].Item_Id:=AddStat.Item_Id;
MineStat[n].Begin_Date:=AddStat.Begin_Date;
MineStat[n].End_Date:=AddStat.End_Date;
MineStat[n].Finished:=AddStat.Finished;
MineStat[n].Remain:=AddStat.Remain;
MineStat[n].Finished_Sum:=AddStat.Finished_Sum;
MineStat[n].Relay_Id:=AddStat.Relay_Id;
j:=0;
for i:=n+1 to High(MineStat) do
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -