📄 minerelay_unt.pas
字号:
TimePara_Frm.Free;
TimePara_Frm:=nil;
FieldByName('Begin_Date').AsDateTime:=BeginDay;
FieldByName('End_Date').AsDateTime:=BeginDay+InsertTaskTime;
//－－－－－－－－－－－－－－－－－－－－－－－－－－－
end;
if Inf=mrno then //插入上一个方案的最后一个采煤队
begin
FieldByName('Project_Id').AsInteger:=CurrentPriorRelay.Project_Id;
//判断新插入的记录的采煤队在上个方案中（插入前的当前记录的前一条记录所在的方案）是否重复
for i:=1 to High(Relay) do
begin
if (Relay[i].Project_Id=CurrentPriorRelay.Project_Id)
and(Relay[i].WorkGroup=InsertWorkGroup)then
begin
Inf1:=messagedlg('方案 '+inttostr(CurrentPriorRelay.Project_Id)+' 中重复安排了 "'+InsertWorkGroupName+'" 采煤队，请重新指定采煤队！继续请按"yes"！',mtconfirmation,[mbyes,mbno],0);
if Inf1=mrno then
begin
Cancel; //取消插入操作
InsertMode:=false;
//还原对原表中从当前记录到以后的记录所做的临时修改
GotoBookmark(Mark);
j:=1;
while not Eof do
begin
Edit;
FieldByName('Sequence').AsInteger:=BehindRelay[j].Sequence;
Post; //更新后表的指针仍然指向当前记录,但是,当关闭再打开该表后,该当前记录的Sequence字段值若仍然为-1,则指针指向的记录将发生变化
Next;
j:=j+1;
end;
GotoBookmark(Mark);
DBGrid1.ReadOnly:=true;
DBGrid1.Enabled:=true;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=true;
BitBtn4.Enabled:=true;
BitBtn5.Enabled:=true;
BitBtn6.Enabled:=true;
BitBtn7.Enabled:=true;
BitBtn8.Enabled:=true;
BitBtn9.Enabled:=true;
BitBtn10.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn12.Enabled:=true;
DBLookUpComboBox2.Enabled:=false;
DBLookUpComboBox3.Enabled:=false;
DBLookUpListBox1.Enabled:=false;
Label5.Caption:='';
exit;
end;
DBLookUpComboBox2.SetFocus;
exit;
end;
end;
FieldByName('WorkGroup').AsInteger:=InsertWorkGroup;
FieldByName('Relay_Route').AsInteger:=CurrentPriorRelay.Relay_Route+1;
FieldByName('Relay_Id').AsInteger:=1;
//确定该回采面的开始时间
//通过界面输入该采煤队的第一个回采面的开始时间
TimePara_Frm:=TTimePara_Frm.Create(self);
TimePara_Frm.ShowModal;
BeginDay:=TimePara_Frm.BeginTime;
TimePara_Frm.Free;
TimePara_Frm:=nil;
FieldByName('Begin_Date').AsDateTime:=BeginDay;
FieldByName('End_Date').AsDateTime:=BeginDay+InsertTaskTime;
end;
if Inf=mrcancel then
begin
Cancel; //取消插入操作
InsertMode:=false;
//还原对原表中从当前记录到以后的记录所做的临时修改
GotoBookmark(Mark);
i:=1;
while not Eof do
begin
Edit;
FieldByName('Sequence').AsInteger:=BehindRelay[i].Sequence;
Post; //更新后表的指针仍然指向当前记录,但是,当关闭再打开该表后,该当前记录的Sequence字段值若仍然为-1,则指针指向的记录将发生变化
Next;
i:=i+1;
end;
GotoBookmark(Mark);
DBGrid1.ReadOnly:=true;
DBGrid1.Enabled:=true;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=true;
BitBtn4.Enabled:=true;
BitBtn5.Enabled:=true;
BitBtn6.Enabled:=true;
BitBtn7.Enabled:=true;
BitBtn8.Enabled:=true;
BitBtn9.Enabled:=true;
BitBtn10.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn12.Enabled:=true;
DBLookUpComboBox2.Enabled:=false;
DBLookUpComboBox3.Enabled:=false;
DBLookUpListBox1.Enabled:=false;
Label5.Caption:='';
exit;
end;
end;
end;
if (InsertWorkGroup<>Current.WorkGroup)and(Current.Relay_Id<>1) then
begin
if Worker_DataS.DataSet.Locate('WorkGroup_Id',Current.WorkGroup,[locaseinsensitive])
then
begin
Name1:=Worker_DataS.DataSet.fieldbyname('WorkGroup_Name').AsString;
end;
if Name1='' then
begin
showmessage('数据库有问题：接替表中的施工队与施工队表中的数据不对应！');
Cancel;
InsertMode:=false;
//还原对原表中从当前记录到以后的记录所做的临时修改
GotoBookmark(Mark);
i:=1;
while not Eof do
begin
Edit;
FieldByName('Sequence').AsInteger:=BehindRelay[i].Sequence;
Post; //更新后表的指针仍然指向当前记录,但是,当关闭再打开该表后,该当前记录的Sequence字段值若仍然为-1,则指针指向的记录将发生变化
Next;
i:=i+1;
end;
DBGrid1.ReadOnly:=true;
DBGrid1.Enabled:=true;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=true;
BitBtn4.Enabled:=true;
BitBtn5.Enabled:=true;
BitBtn6.Enabled:=true;
BitBtn7.Enabled:=true;
BitBtn8.Enabled:=true;
BitBtn9.Enabled:=true;
BitBtn10.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn12.Enabled:=true;
DBLookUpComboBox2.Enabled:=false;
DBLookUpComboBox3.Enabled:=false;
DBLookUpListBox1.Enabled:=false;
Label5.Caption:='';
exit;
end;
Inf1:=messagedlg('不允许在此处插入 "'+InsertWorkGroupName+'" 采煤队，只能指定 "'+Name1+'" 采煤队，请选择！继续请按"yes"！',mtconfirmation,[mbyes,mbno],0);
if Inf1=mrno then
begin
Cancel; //取消插入操作
InsertMode:=false;
//还原对原表中从当前记录到以后的记录所做的临时修改
GotoBookmark(Mark);
j:=1;
while not Eof do
begin
Edit;
FieldByName('Sequence').AsInteger:=BehindRelay[j].Sequence;
Post; //更新后表的指针仍然指向当前记录,但是,当关闭再打开该表后,该当前记录的Sequence字段值若仍然为-1,则指针指向的记录将发生变化
Next;
j:=j+1;
end;
GotoBookmark(Mark);
DBGrid1.ReadOnly:=true;
DBGrid1.Enabled:=true;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=true;
BitBtn4.Enabled:=true;
BitBtn5.Enabled:=true;
BitBtn6.Enabled:=true;
BitBtn7.Enabled:=true;
BitBtn8.Enabled:=true;
BitBtn9.Enabled:=true;
BitBtn10.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn12.Enabled:=true;
DBLookUpComboBox2.Enabled:=false;
DBLookUpComboBox3.Enabled:=false;
DBLookUpListBox1.Enabled:=false;
Label5.Caption:='';
exit;
end;
DBLookUpComboBox2.SetFocus;
exit;
end;
FieldByName('Face_Lane').AsInteger:=InsertFace;
FieldByName('TaskTime').AsInteger:=InsertTaskTime;
end;
try
//记录插入的回采面的开始时间和结束时间
InsertBeginT:=trunc(Base_DataS.DataSet.FieldByName('Begin_Date').AsDateTime);
InsertEndT:=trunc(Base_DataS.DataSet.FieldByName('End_Date').AsDateTime);
Base_DataS.DataSet.Post; //更新插入的记录
//记录指针返回到开始插入时的位置，对插入数据后的表进行修正，主要是修正“Sequence”、“Relay_Route”、“Relay_Id”、“Begin_Time”和“End_Time”字段
Base_DataS.DataSet.GotoBookmark(Mark);
with Base_DataS.DataSet do
begin
if InsertWorkGroup=Current.WorkGroup then
begin
m1:=Current.Project_Id;
m2:=Current.Relay_Route;
for i:=1 to High(BehindRelay) do
begin
if (BehindRelay[i].Project_Id=m1)and(BehindRelay[i].Relay_Route=m2)
then
begin
Edit;
FieldByName('Sequence').AsInteger:=BehindRelay[i].Sequence+1;
FieldByName('Relay_Id').AsInteger:=BehindRelay[i].Relay_Id+1;
if Current.Relay_Id=1 //是在某采煤队的第一个接替面上插入的记录，插入的记录成为首采面，指定该首采面的开始日期可能大于也可能小于或者等于原首采面的开始日期，因此之后的回采面的开始与结束时间均要有一个因插入的首采面开始日期推后或者提前的增量trunc(InsertBeginT-Current.B_Date)
then
begin //(InsertTaskTime+Interv+trunc(InsertBeginT-Current.B_Date)):插入第一个接替面增加的工期推后时间
FieldByName('Begin_Date').AsDateTime:=trunc(BehindRelay[i].B_Date)+(InsertTaskTime+Interv+trunc(InsertBeginT-Current.B_Date));
FieldByName('End_Date').AsDateTime:=trunc(BehindRelay[i].E_Date)+(InsertTaskTime+Interv+trunc(InsertBeginT-Current.B_Date));
end
else
begin
FieldByName('Begin_Date').AsDateTime:=trunc(BehindRelay[i].B_Date)+InsertTaskTime+Interv;
FieldByName('End_Date').AsDateTime:=trunc(BehindRelay[i].E_Date)+InsertTaskTime+Interv;
end;
Post;
end
else
begin
Edit;
FieldByName('Sequence').AsInteger:=BehindRelay[i].Sequence+1;
Post;
end;
next;
end;
end;
if (InsertWorkGroup<>Current.WorkGroup)and(Current.Relay_Id=1) then
begin
if InsertWorkGroup=CurrentPriorRelay.WorkGroup then //插入的是上一个采煤队的最后一个接替面，所以从插入的记录之后开始，不需要改变回采面起始时间
begin
for i:=1 to High(BehindRelay) do
begin
Edit;
FieldByName('Sequence').AsInteger:=BehindRelay[i].Sequence+1;
Post;
next;
end;
end;
if InsertWorkGroup<>CurrentPriorRelay.WorkGroup then
begin
if Inf=mryes then //插入的记录是原当前记录（插入之前，指针指向的记录）所在方案的第一个采煤队，插入的是一个新采煤队的首采面，后面的回采面的接替起始时间不变
begin
for i:=1 to High(BehindRelay) do
begin
Edit;
FieldByName('Sequence').AsInteger:=BehindRelay[i].Sequence+1;
if(BehindRelay[i].Project_Id=Current.Project_Id)then
begin
FieldByName('Relay_Route').AsInteger:=BehindRelay[i].Relay_Route+1;
end;
Post;
next;
end;
end;
if Inf=mrno then //插入的记录是原当前记录的前一条记录所在方案的最后一个采煤队，插入的是一个新采煤队的首采面，后面的回采面的接替起始时间不变
begin
for i:=1 to High(BehindRelay) do
begin
Edit;
FieldByName('Sequence').AsInteger:=BehindRelay[i].Sequence+1;
Post;
next;
end;
end;
end;
end;
end;
//把插入并更新后的接替表关闭后再打开，以显现出插入后的效果
Base_DataS.DataSet.Close;
Base_DataS.DataSet.Open;
Base_DataS.DataSet.GotoBookmark(Mark);
Base_DataS.DataSet.FreeBookmark(Mark);
except
Base_DataS.DataSet.Cancel; //取消表的插入状态
showmessage('插入操作更新没有成功!');
end;
//插入并更新成功后进行善后处理
InsertMode:=false;//更新成功或者更新没有成功都取消界面的插入状态
DBGrid1.ReadOnly:=true;
DBGrid1.Enabled:=true;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=true;
BitBtn4.Enabled:=true;
BitBtn5.Enabled:=true;
BitBtn6.Enabled:=true;
BitBtn7.Enabled:=true;
BitBtn8.Enabled:=true;
BitBtn9.Enabled:=true;
BitBtn10.Enabled:=true;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -