⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sfhd.pas

📁 一个信息查询系统,主要功能文件上传下载,信息浏览,打印等
💻 PAS
字号:
🔍 
unit sfhd;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons,Dialogs, ExtCtrls, Messages, ComCtrls;

type
  TOKBottomDlg11 = class(TForm)
    Label9: TLabel;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label8: TLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    SpeedButton1: TSpeedButton;
    Panel2: TPanel;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg11: TOKBottomDlg11;

implementation

uses cgmain, man_check;

{$R *.dfm}

procedure TOKBottomDlg11.BitBtn1Click(Sender: TObject);
begin
   close;
end;

procedure TOKBottomDlg11.FormShow(Sender: TObject);
begin
   edit1.Clear;
   speedbutton1.Enabled:=false;
   radiobutton1.Enabled:=false;
   radiobutton2.Enabled:=false;
end;

procedure TOKBottomDlg11.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if trim(edit1.Text)='' then
  begin
   speedbutton1.Enabled:=false;
   radiobutton1.Enabled:=false;
   radiobutton2.Enabled:=false;
  end;    
end;

procedure TOKBottomDlg11.Edit1KeyPress(Sender: TObject; var Key: Char);
var
str,ssfbz:string;
begin
    if not(key=#13) then  exit;
     edit2.Clear;
     edit3.Text:='0';
     form1.tempquery1.requestlive:=false;
     form1.tempquery1.Close;
     form1.tempquery1.SQL.Clear;
     form1.tempquery1.SQL.Add('select * from "wf_zl_info" a,"cl" b where a.clzl=b.clbm  and TZSHM=:p1');
     form1.tempquery1.ParamByName('p1').Value:=trim(edit1.Text);
     form1.tempquery1.open;
     if form1.tempquery1.RecordCount<=0 then
     begin
      application.MessageBox('陈述通知书号码不存在！！！！','警告',MB_ok);
      speedbutton1.Enabled:=false;
      radiobutton1.Enabled:=false;
      radiobutton2.Enabled:=false;
      form1.tempquery1.Close;
       form1.tempquery1.requestlive:=true;
       Memo1.Clear;
   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
       Memo1.Lines.Add('陈述通知书号码：');
       Memo1.Lines.Add('车牌号码：');
       Memo1.Lines.Add('车辆类型：');
       Memo1.Lines.Add('违章时间：');
       Memo1.Lines.Add('违章地点：');
       Memo1.Lines.Add('违章事由：');
       Memo1.Lines.Add('最迟处罚日期：');
   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
//       Memo1.Lines.Add('处罚金额：');
       
       Memo1.Lines.Add('处罚决定书：');
       Memo1.Lines.Add('处罚时间：');
       Memo1.Lines.Add('处罚方式：');
       Memo1.Lines.Add('实罚金额：');
       Memo1.Lines.Add('处罚受理情况：' );
   Memo1.Lines.Add('－－－－－－－－－ －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
       Memo1.Lines.Add('执法队员：');
       Memo1.Lines.Add('执法部门：');
       Memo1.Lines.Add('当事人：');
       Memo1.Lines.Add('审批领导：');
     
   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
       Memo1.Lines.Add('司法提交：');
       Memo1.Lines.Add('资料不全：');
       Memo1.Lines.Add('图片地址：      ');
       Memo1.Lines.Add('备注：          ');
       edit1.Clear;
       exit;
     end;
     ////////////////////还没有接受处罚的数据
     Memo1.Clear;
   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
     Memo1.Lines.Add('陈述通知书号码：'+form1.tempquery1['TZSHM']);
     Memo1.Lines.Add('车牌号码：      '+form1.tempquery1['CPHM']);
     Memo1.Lines.Add('车辆类型：      '+form1.tempquery1['CLLX']);
     Memo1.Lines.Add('违章时间：      '+datetostr(form1.tempquery1['WFSJ']));
     Memo1.Lines.Add('违章地点：      '+form1.tempquery1['WFDD']);
     Memo1.Lines.Add('违章事由：      '+form1.tempquery1['WFSY']);
     Memo1.Lines.Add('最迟处罚日期：  '+datetostr(form1.tempquery1['ZCCFSJ']));
   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');

     Memo1.Lines.Add('处罚决定书：    '+form1.tempquery1['CFJDSBM']);
     Memo1.Lines.Add('处罚时间：      '+form1.tempquery1['CFSJ']);
     Memo1.Lines.Add('处罚方式：      '+form1.tempquery1['CFFS']);
     Memo1.Lines.Add('实罚金额：      '+inttostr(form1.tempquery1['SFJE'])+'元');
      if  form1.tempquery1['cfqr']='N' then
     Memo1.Lines.Add('处罚受理情况：  '+'未接受处罚')
     else
     Memo1.Lines.Add('处罚受理情况：  '+'已接受处罚');
   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
     Memo1.Lines.Add('执法队员：      '+form1.tempquery1['ZXR']);
     Memo1.Lines.Add('执法部门：      '+form1.tempquery1['ZFBM']);
     Memo1.Lines.Add('当事人：        '+form1.tempquery1['DSR']);
     Memo1.Lines.Add('审批领导：      '+form1.tempquery1['SPR']);

   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');

     if  form1.tempquery1['SFBZ']='N' then
     Memo1.Lines.Add('司法提交：      '+'否')
     else
     Memo1.Lines.Add('司法提交：      '+'是');
     Memo1.Lines.Add('资料不全：      '+form1.tempquery1['ZLBC']);
     Memo1.Lines.Add('图片地址：      '+form1.tempquery1['TPDZ']);
     Memo1.Lines.Add('备注：          '+form1.tempquery1['BZ']);

     str:=form1.tempquery1['CFQR'];
     try
     ssfbz:=form1.tempquery1['sfbz'];       //获取司法标志
     except
     ;
     end;
     /////////////////////////////////////////////////////////////////////
     if (ssfbz='N') then
     begin
     showMessage('未进行司法标记！');
      speedbutton1.Enabled:=false;
      radiobutton1.Enabled:=false;
      radiobutton2.Enabled:=false;
      exit;
     end;
     if (str='Y')and(ssfbz='Y') then
     begin
     if application.MessageBox('已经接受处罚是否再更改?','提示',mb_YesNo)=6 then
     begin
       form1.label1.caption:='2' ;
       OKBottomDlg7.showmodal;
       if  form1.label1.caption<>'1' then
       begin
       speedbutton1.Enabled:=false;
       radiobutton1.Enabled:=false;
       radiobutton2.Enabled:=false;
       exit;
       end;
     end
     else
       exit;
     end;
     speedbutton1.Enabled:=true;
     radiobutton1.Enabled:=true;
     radiobutton2.Enabled:=true;
end;

procedure TOKBottomDlg11.SpeedButton1Click(Sender: TObject);
var
ss,mm:string;
i:string;
begin
   if form1.tempquery1.Active=false then begin
   application.MessageBox('未进行查询，不能更新','提示',MB_OK);
   exit;
   end;
   if trim(edit3.Text)='' then i:='0'
   else i:= trim(edit3.Text);
   if application.MessageBox('是否更新？','提示',mb_YesNo)=7 then begin  speedbutton1.Enabled:=false;exit;end;
   if (radiobutton1.Checked=false)and(radiobutton2.Checked=false) then  begin application.MessageBox('改变方式为空','提示',mb_ok);exit; end;
    if (radiobutton1.Checked=true) then
     ss:='update  wf_zl_info set cfqr='''+'Y'+''''+',CFJDSBM='''+trim(edit2.Text)+' '+''''+',sfje='''+i+''''+',CFSJ='''+datetostr(datetimepicker1.Date)+''''+', scbz='''+'N'+''''+' where tzshm='''+trim(form1.tempquery1['TZSHM'])+''''
    else
      ss:='update  wf_zl_info set cfqr='''+'N'+''''+',CFJDSBM='''+' '+''''+',sfje='''+'0'+''''+',CFSJ='''+' '+''''+', scbz='''+'N'+''''+' where tzshm='''+trim(form1.tempquery1['TZSHM'])+'''';
      mm:=form1.tempquery1['TZSHM'];
      try
     form1.tempquery2.Close;
     form1.tempquery2.SQL.Clear;
     form1.tempquery2.SQL.Add(ss);
     form1.tempquery2.ExecSQL;
     except
     application.MessageBox('修改不成功!','提示',MB_OK);
     end;
     form1.tempquery1.Close;
     form1.tempquery1.SQL.Clear;
     form1.tempquery1.SQL.Add('select * from "wf_zl_info" a,"cl" b where a.clzl=b.clbm  and TZSHM=:p1');
     form1.tempquery1.ParamByName('p1').Value:=trim(mm);
     form1.tempquery1.open;
     Memo1.Clear;
   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
     Memo1.Lines.Add('陈述通知书号码：'+form1.tempquery1['TZSHM']);
     Memo1.Lines.Add('车牌号码：      '+form1.tempquery1['CPHM']);
     Memo1.Lines.Add('车辆类型：      '+form1.tempquery1['CLLX']);
     Memo1.Lines.Add('违章时间：      '+datetostr(form1.tempquery1['WFSJ']));
     Memo1.Lines.Add('违章地点：      '+form1.tempquery1['WFDD']);
     Memo1.Lines.Add('违章事由：      '+form1.tempquery1['WFSY']);
     Memo1.Lines.Add('最迟处罚日期：  '+datetostr(form1.tempquery1['ZCCFSJ']));
     Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
//     Memo1.Lines.Add('处罚金额：      '+inttostr(form1.tempquery['CFJE'])+'元');
     
     Memo1.Lines.Add('处罚决定书：    '+form1.tempquery1['CFJDSBM']);
     Memo1.Lines.Add('处罚时间：      '+form1.tempquery1['CFSJ']);
     if (form1.tempquery1['cfqr']='Y')and(form1.tempquery1['SFBZ']='Y') then
     Memo1.Lines.Add('处罚方式：      '+'已通过法院处理')
     else if (form1.tempquery1['cfqr']='N')and(form1.tempquery1['SFBZ']='Y') then
     Memo1.Lines.Add('处罚方式：      '+'未通过法院处理')
     else
     Memo1.Lines.Add('处罚方式：      '+form1.tempquery1['CFFS']);
     Memo1.Lines.Add('实罚金额：      '+inttostr(form1.tempquery1['SFJE'])+'元');
     if  form1.tempquery1['cfqr']='N' then
     Memo1.Lines.Add('处罚受理情况：  '+'未接受处罚')
     else
     Memo1.Lines.Add('处罚受理情况：  '+'已接受处罚');
     Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
      Memo1.Lines.Add('执法队员：      '+form1.tempquery1['ZXR']);
     Memo1.Lines.Add('执法部门：      '+form1.tempquery1['ZFBM']);
      Memo1.Lines.Add('当事人：        '+form1.tempquery1['DSR']);
      Memo1.Lines.Add('审批领导：      '+form1.tempquery1['SPR']);
    Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');

     if  form1.tempquery1['SFBZ']='N' then
     Memo1.Lines.Add('司法提交：      '+'否')
     else
     Memo1.Lines.Add('司法提交：      '+'是');
     Memo1.Lines.Add('资料不全：      '+form1.tempquery1['ZLBC']);
     Memo1.Lines.Add('图片地址：      '+form1.tempquery1['TPDZ']);
     Memo1.Lines.Add('备注：          '+form1.tempquery1['BZ']);

     speedbutton1.Enabled:=false;
     radiobutton1.Enabled:=true;
     radiobutton2.Enabled:=true;
end;

procedure TOKBottomDlg11.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   form1.tempquery2.Close;
   form1.tempquery1.Close;
end;

procedure TOKBottomDlg11.RadioButton1Click(Sender: TObject);
begin
edit2.Clear;
edit3.Text:='0';
datetimepicker1.date:=date-1;
  if radiobutton1.Enabled=true then panel2.Visible:=true
  else  panel2.Visible:=false;
end;

procedure TOKBottomDlg11.RadioButton2Click(Sender: TObject);
begin
   edit2.Clear;
   edit3.Text:='0';
   datetimepicker1.date:=date-1;
   if radiobutton2.Enabled=true then panel2.Visible:=false
  else  panel2.Visible:=true;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -