📄 sfmanage.pas
字号:
form1.Query5.Active:=false;
form1.Query5.Active:=true;
if form1.query5.RecordCount=0 then speedbutton2.Enabled := false ;
form1.tempquery1.SQL.Clear;
form1.tempquery1.SQL.Add('delete from out_temp where bb='''+'N'+'''');
form1.tempquery1.ExecSQL;
end;
procedure TOKBottomDlg9.SpeedButton5Click(Sender: TObject);
var
i:integer;
begin
form1.tempquery2.close;
form1.tempquery2.SQL.Clear;
form1.tempquery2.SQL.Add('select tzshm,wfsj,cphm,zlbc,wfdd,sfbz from sf_temp where tzshm='''+trim(edit1.Text)+'''');
form1.tempquery2.open;
i:= form1.tempquery2.RecordCount;
////////////
form1.tempquery2.close;
form1.tempquery2.SQL.Clear;
form1.tempquery2.SQL.Add('select tzshm,wfsj,cphm,zlbc,wfdd,sfbz from wf_zl_info where tzshm='''+trim(edit1.Text)+'''');
form1.tempquery2.open;
if form1.tempquery2.RecordCount=0 then begin application.MessageBox('此陈述通知书号码不存在!','提示',MB_oK); exit; end;
if form1.tempquery2['SFBZ']='N' then begin application.MessageBox('此陈述通知书还没有司法标志!','提示',MB_oK); exit; end;
////////////////////////////
form1.Query6.Edit;
if i>0 then
begin
if application.MessageBox('此陈述通知书号码已在核查中,是否继续进行？','提示',MB_YesNo)=7 then exit ;
form1.tempquery1.RequestLive:=true;
form1.tempquery1.close;
form1.tempquery1.SQL.Clear;
form1.tempquery1.SQL.Add('select tzshm,wfsj,cphm,zlbc,sfbz,wfdd from sf_temp where tzshm='''+trim(edit1.Text)+'''');
form1.tempquery1.open;
form1.tempquery1.Edit;
form1.tempquery1['tzshm']:=trim(edit1.Text);
form1.tempquery1['SFBZ']:='N';
//////////////////////////////////
form1.tempquery1['cphm']:=form1.tempquery2['cphm'];
form1.tempquery1['wfsj']:=form1.tempquery2['wfsj'];
form1.tempquery1['wfdd']:=form1.tempquery2['wfdd'];
form1.tempquery1['zlbc']:=form1.tempquery2['zlbc'];
form1.tempquery1.Post;
form1.Query6.Active:=false;
form1.Query6.Active:=true;
exit;
end;
//////////////////////////////////////
form1.Query6.Append;
form1.Query6['tzshm']:=trim(edit1.Text);
form1.Query6['sfbz']:='N';
form1.Query6['zlbc']:=form1.tempquery2['zlbc'];
form1.Query6['cphm']:=form1.tempquery2['cphm'];
form1.Query6['wfsj']:=form1.tempquery2['wfsj'];
form1.Query6['wfdd']:=form1.tempquery2['wfdd'];
form1.Query6.Post;
form1.Query6.Active:=false;
form1.Query6.Active:=true;
if form1.Query6.RecordCount>0 then
speedbutton3.Enabled:=true
else
speedbutton3.Enabled:=false;
edit1.SetFocus;
edit1.Clear;
end;
procedure TOKBottomDlg9.FormShow(Sender: TObject);
begin
panel1.Enabled:=false;
panel2.Enabled:=false;
OKBottomDlg9.Panel1.Visible:=false;
OKBottomDlg9.Panel2.Visible:=false;
OKBottomDlg9.AutoSize:=true;
speedbutton3.Enabled:=false;
datetimepicker1.Date:=date;
datetimepicker2.Date:=date;
edit1.Clear;
form1.Query6.RequestLive:=true;
speedbutton2.Enabled:=false;
speedbutton3.Enabled:=false;
end;
procedure TOKBottomDlg9.SpeedButton3Click(Sender: TObject);
begin
if (form1.Query6.Active=true)and (form1.Query6.RecordCount>0) then
if application.MessageBox('是否把刚添加的这些记录提交到数据库中？','提示',MB_YesNo)=7 then begin form1.Query6.Close;exit;end;
while not form1.Query6.Eof do
begin
form1.Query6.First;
//////////////////////////////update sf_temp
form1.tempquery2.close;
form1.tempquery2.SQL.Clear;
form1.tempquery2.SQL.Add('update wf_zl_info set sfbz='''+form1.Query6['sfbz']+''''+',scbz='''+'N'+''''+'where tzshm='''+form1.Query6['tzshm']+'''');
form1.tempquery2.ExecSQL; //司法标志修改后上传标志为NO
//////////////////////////////delete sf_temp
form1.tempquery2.close;
form1.tempquery2.SQL.Clear;
form1.tempquery2.SQL.Add('delete from sf_temp where tzshm='''+form1.Query6['tzshm']+'''');
form1.tempquery2.ExecSQL;
form1.Query6.Active:=false;
form1.Query6.Active:=true;
end;
if form1.Query6.RecordCount>0 then speedbutton3.Enabled:=true
else speedbutton3.Enabled:=false;
end;
procedure TOKBottomDlg9.DBGrid2DblClick(Sender: TObject);
var
tmp:string;
begin
if form1.Query6.RecordCount = 0 then exit;
tmp:=form1.Query6['tzshm'];
if application.MessageBox(pchar('是否删除此陈述通知书号为：'+tmp+'的记录？'),'提示',mb_YesNo)=6 then
begin
form1.tempquery2.close;
form1.tempquery2.SQL.Clear;
form1.tempquery2.SQL.Add('delete from sf_temp where tzshm='''+form1.Query6['tzshm']+'''');
form1.tempquery2.ExecSQL;
form1.Query6.Active:=false;
form1.Query6.Active:=true;
edit1.Clear;
end;
end;
procedure TOKBottomDlg9.SpeedButton6Click(Sender: TObject);
begin
if speedbutton3.Enabled=true then
if application.MessageBox('是否将司法取消临时表中的数据写入正式表中？，如果是请执行[批提交到正式表]！','提示',MB_YesNo)=6 then exit;
panel1.Enabled:=true;
panel2.Enabled:=false;
panel1.Visible:=true;
panel2.Visible:=false;
OKBottomDlg9.SpeedButton2.enabled:=false;
///////////////////////////////
form1.tempquery1.Close;
form1.tempquery1.SQL.Clear;
form1.tempquery1.SQL.Add('delete from sf_temp');
form1.tempquery1.ExecSQL;
///////////////delete out_temp
form1.tempquery1.Close;
form1.tempquery1.SQL.Clear;
form1.tempquery1.SQL.Add('delete from out_temp');
form1.tempquery1.ExecSQL;
form1.Query5.Close;
speedbutton2.Enabled:=false;
speedbutton3.Enabled:=false;
label6.Caption:= '0 条记录';
end;
procedure TOKBottomDlg9.SpeedButton4Click(Sender: TObject);
begin
if speedbutton2.Enabled=true then
if application.MessageBox('提交到法院的数据是否写入正式表中，如果是请执行[输出到Excel和正式表]中','提示',MB_YesNo)=6 then exit;
///////////////delete out_temp
form1.tempquery1.Close;
form1.tempquery1.SQL.Clear;
form1.tempquery1.SQL.Add('delete from out_temp');
form1.tempquery1.ExecSQL;
///////////////////////
form1.tempquery1.Close;
form1.tempquery1.SQL.Clear;
form1.tempquery1.SQL.Add('delete from sf_temp');
form1.tempquery1.ExecSQL;
form1.Query6.Close;
form1.Query6.SQL.Clear;
form1.Query6.SQL.Add('select * from sf_temp');
form1.Query6.Open;
panel2.Enabled:=true;
panel1.Enabled:=false;
panel2.Visible:=true;
panel1.Visible:=false;
// if application.MessageBox('是否进行取消司法标志的操作，如果继续请确定','提示',mb_okcancel)=1 then
begin
OKBottomDlg7.showmodal;
if form1.label1.caption<>'1' then
begin
panel2.Visible:=false;
panel1.Visible:=false;
speedbutton2.Enabled:=false;
speedbutton3.Enabled:=false;
exit;
end;
end ;
speedbutton2.Enabled:=false;
speedbutton3.Enabled:=false;
edit1.SetFocus;
edit1.Clear ;
end;
procedure TOKBottomDlg9.SpeedButton7Click(Sender: TObject);
begin
if speedbutton3.Enabled=true then
if application.MessageBox('是否将司法取消临时表中的数据写入正式表中？如果是请执行[批提交到正式表]。','提示',MB_YesNo)=6 then exit;
if speedbutton2.Enabled=true then
if application.MessageBox('是否将司法提交临时表中的数据写入正式表中？如果是请执行[输出到Execl和正式表]。','提示',MB_YesNo)=6 then exit;
form1.Query6.Close;
form1.tempquery1.close;
form1.tempquery2.close;
form1.Query6.RequestLive:=false;
close;
end;
procedure TOKBottomDlg9.DBGrid1DblClick(Sender: TObject);
var
tmp:string;
begin
if form1.Query5.RecordCount = 0 then exit;
tmp:=form1.Query5['tzshm'];
if (form1.Query5['bb']='N')and(application.MessageBox(pchar('是否将此记录修改为不输出到法院？ 陈述通知书号为：'+tmp+''),'提示',mb_YesNo)=6) then
begin
form1.tempquery1.close;
form1.tempquery1.SQL.Clear;
form1.tempquery1.SQL.Add('update out_temp set bb='''+'Y'+''''+'where tzshm='''+form1.Query5['tzshm']+'''');
form1.tempquery1.ExecSQL;
form1.Query5.Active:=false;
form1.Query5.Active:=true;
form1.tempquery1.Close;
exit;
end;
if (form1.Query5['bb']='Y')and(application.MessageBox(pchar('是否将此记录修改为输出到法院？ 陈述通知书号为：'+tmp+''),'提示',mb_YesNo)=6) then
begin
form1.tempquery1.close;
form1.tempquery1.SQL.Clear;
form1.tempquery1.SQL.Add('update out_temp set bb='''+'N'+''''+'where tzshm='''+form1.Query5['tzshm']+'''');
form1.tempquery1.ExecSQL;
form1.Query5.Active:=false;
form1.Query5.Active:=true;
form1.tempquery1.Close;
exit;
end;
end;
procedure TOKBottomDlg9.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Form1.query5.Active=true then begin
if Form1.query5.FieldByName('bb').AsString = 'Y' then
OKBottomDlg9.DBGrid1.Canvas.Brush.Color:=clbackground ;
end;
OKBottomDlg9.DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
procedure TOKBottomDlg9.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then speedbutton5.Click;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -