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

📄 zlmanage.pas

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

interface

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

type
  TOKBottomDlg8 = class(TForm)
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Memo1: TMemo;
    Bevel1: TBevel;
    Bevel2: TBevel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Memo2: TMemo;
    procedure SpeedButton3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg8: TOKBottomDlg8;

implementation

uses cgmain;

{$R *.dfm}

procedure TOKBottomDlg8.SpeedButton3Click(Sender: TObject);
begin
//     OKBottomDlg8.Close;
    if  speedbutton2.Enabled=true then
    if application.MessageBox('临时表中的数据还未写入正式表中，是否提交正式表?','提示',MB_YesNo)=6  then
    begin
    ShowMessage('请执行[提交正式表]！');
    exit;
    end;
    form1.Query6.Close;
    form1.Query6.RequestLive:=false ;
    form1.Query6.Close;
    form1.Query6.SQL.Clear;
    form1.Query6.SQL.Add('delete from zl_temp');
    form1.Query6.ExecSQL;
    form1.Query6.Close;
    form1.tempquery.Close;
    form1.tempquery1.Close;
    OKBottomDlg8.Close;

end;

procedure TOKBottomDlg8.CheckBox1Click(Sender: TObject);
begin
{     if checkbox1.Checked=true  then checkbox3.Checked:=true;
     if checkbox1.Checked=true then
         checkbox2.Checked:=false
     else
       if checkbox2.Checked=false then
        checkbox1.Checked:=true;
}
 if checkbox1.Checked then
 begin
 radiobutton2.Enabled := true;
 radiobutton3.Enabled := true;
 radiobutton4.Enabled := true;
 radiobutton2.checked := true;
 memo1.text := '照片不存在';

 end
 else
 begin
  radiobutton2.Enabled := false;
  radiobutton3.Enabled := false;
  radiobutton4.Enabled := false;
  radiobutton2.checked := false;
  radiobutton3.checked := false;
  radiobutton4.checked := false;
  memo1.Enabled := false;
  memo1.clear;
 end;
end;

procedure TOKBottomDlg8.CheckBox3Click(Sender: TObject);
begin
    if trim(memo1.Text)<>'' then begin checkbox1.Checked:=true;  exit;end;
   if checkbox3.Checked=true then
   begin
     memo1.Clear;
     memo1.Visible:=true;
   end
   else
   begin
     memo1.Clear;
     memo1.Visible:=false;
   end;
end;

procedure TOKBottomDlg8.CheckBox2Click(Sender: TObject);
begin
     if checkbox2.Checked=true then
         checkbox1.Checked:=false
     else
       if checkbox1.Checked=false then
        checkbox2.Checked:=true;
end;

procedure TOKBottomDlg8.FormShow(Sender: TObject);
begin

   edit1.Clear;
   checkbox1.Checked:=false;
   form1.Query6.Close;
   form1.Query6.SQL.Clear;
   form1.Query6.SQL.Add('delete from zl_temp');
   form1.Query6.ExecSQL;
   form1.Query6.RequestLive:=true;
   form1.Query6.Close;
   form1.Query6.SQL.Clear;
   form1.Query6.SQL.Add('select * from zl_temp');
   form1.Query6.Open;
    speedbutton2.Enabled:=false;
end;

procedure TOKBottomDlg8.SpeedButton1Click(Sender: TObject);
var
 i:integer;
begin
  form1.tempquery.close;
  form1.tempquery.SQL.Clear;
  form1.tempquery.SQL.Add('select tzshm,wfsj,cphm  from zl_temp where tzshm='''+trim(edit1.Text)+'''');
  form1.tempquery.open;
  i:= form1.tempquery.RecordCount;
  ////////////
  form1.tempquery.close;
  form1.tempquery.SQL.Clear;
  form1.tempquery.SQL.Add('select tzshm,wfsj,cphm from wf_zl_info where tzshm='''+trim(edit1.Text)+'''');
  form1.tempquery.open;
  if form1.tempquery.RecordCount=0 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,bz from zl_temp where tzshm='''+trim(edit1.Text)+'''');
  form1.tempquery1.open;
  form1.tempquery1.Edit;
  form1.tempquery1['tzshm']:=trim(edit1.Text);
  if checkbox1.Checked=true then
  form1.tempquery1['zlbc']:='不全'
  else
  form1.tempquery1['zlbc']:='完整';
//////////////////////////////////

  form1.tempquery1['bz']:=memo1.Text+'';
  form1.tempquery1['cphm']:=form1.tempquery['cphm'];
  form1.tempquery1['wfsj']:=form1.tempquery['wfsj'];
  form1.tempquery1.Post;
  form1.Query6.Active:=false;
  form1.Query6.Active:=true;
  exit;
  end;

  //////////////////////////////////////
  form1.Query6.Append;
  form1.Query6['tzshm']:=trim(edit1.Text);

  if checkbox1.Checked=true then
  form1.Query6['zlbc']:='不全'
  else
  form1.Query6['zlbc']:='完整';
  form1.Query6['bz']:=memo1.Text+'';
  form1.Query6['cphm']:=form1.tempquery['cphm'];
  form1.Query6['wfsj']:=form1.tempquery['wfsj'];
  form1.Query6.Post;
  form1.Query6.Active:=false;
  form1.Query6.Active:=true;
  if form1.Query6.RecordCount>0 then speedbutton2.Enabled:=true
  else  speedbutton2.Enabled:=false;
end;

procedure TOKBottomDlg8.DBGrid1CellClick(Column: TColumn);
begin
   if form1.Query6.Active=true then 
    if form1.Query6.RecordCount=0 then exit;
    edit1.Text:=form1.Query6['tzshm'];
    if form1.Query6['zlbc']='完整' then
     checkbox2.Checked:=true
     else
     checkbox1.Checked:=true;
     if form1.Query6['bz']<>'' then
      begin
      checkbox3.Checked:=true ;
      memo1.Text:=form1.Query6['bz'];
      end
      else
      begin
      memo1.Clear;
      checkbox3.Checked:=false;
      end;

end;

procedure TOKBottomDlg8.DBGrid1DblClick(Sender: TObject);
var
tmp:string;
begin
  if form1.Query6.Active=true then
    if form1.Query6.RecordCount=0 then exit;
     edit1.Text:=form1.Query6['tzshm'];
     if form1.Query6['zlbc']='完整' then
     checkbox2.Checked:=true
     else
     checkbox1.Checked:=true;
     if form1.Query6['bz']<>'' then
      begin
      checkbox3.Checked:=true ;
      memo1.Text:=form1.Query6['bz'];
      end
      else
      begin
      memo1.Clear;
      checkbox3.Checked:=false;
      end;
      tmp:=form1.Query6['tzshm'];
       if application.MessageBox(pchar('是否删除此记录通知书号为：'+tmp+''),'提示',mb_YesNo)=6 then
        begin
        form1.tempquery.close;
        form1.tempquery.SQL.Clear;
        form1.tempquery.SQL.Add('delete from zl_temp where tzshm='''+form1.Query6['tzshm']+'''');
        form1.tempquery.ExecSQL;
        form1.Query6.Active:=false;
        form1.Query6.Active:=true;
        edit1.Clear;
        memo1.Clear;
        checkbox3.Checked:=false;
        end;
        if form1.Query6['bz']='照片不存在' then radiobutton2.Checked:=true
        else if form1.Query6['bz']='照片不清晰' then radiobutton3.Checked:=true
        else radiobutton4.Checked:=true
end;

procedure TOKBottomDlg8.SpeedButton2Click(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 zl_temp
        form1.tempquery.close;
        form1.tempquery.SQL.Clear;
        form1.tempquery.SQL.Add('update wf_zl_info set zlbc='''+form1.Query6['zlbc']+''''+',bz='''+form1.Query6['bz']+''''+',scbz='''+'N'+''''+'where tzshm='''+form1.Query6['tzshm']+'''');
        form1.tempquery.ExecSQL;
        //////////////////////////////delete zl_temp
        form1.tempquery.close;
        form1.tempquery.SQL.Clear;
        form1.tempquery.SQL.Add('delete from zl_temp where tzshm='''+form1.Query6['tzshm']+'''');
        form1.tempquery.ExecSQL;
        form1.Query6.Active:=false;
        form1.Query6.Active:=true;
    end;
       if form1.Query6.RecordCount>0 then speedbutton2.Enabled:=true
       else  speedbutton2.Enabled:=false;
end;

procedure TOKBottomDlg8.RadioButton4Click(Sender: TObject);
begin
        memo1.Enabled := true;
        memo1.Text :='';
        memo1.SetFocus ; 
end;

procedure TOKBottomDlg8.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 checkbox1.Checked := true;
 Radiobutton2.Checked := true;
 if not(key=#13) then  exit;
// if checkbox2.Checked then begin memo1.Clear ;exit;end;

 if Radiobutton2.Checked then
 begin
// memo1.Clear ;
 memo1.Text := '照片不存在' ;
 memo1.Enabled := false;
 end;
 if Radiobutton3.Checked then
 begin
// memo1.Clear ;
 memo1.Text := '照片不清晰';
 memo1.Enabled := false;
 end;
 if Radiobutton4.Checked then
 begin
// memo1.Clear ;
 memo1.Text := '';
 memo1.Enabled := true;
 end;

end;

procedure TOKBottomDlg8.RadioButton2Click(Sender: TObject);
begin
 memo1.Text := '照片不存在' ;
 memo1.Enabled := false;

end;

procedure TOKBottomDlg8.RadioButton3Click(Sender: TObject);
begin
 memo1.Text := '照片不清晰' ;
 memo1.Enabled := false;

end;

end.

⌨️ 快捷键说明

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