indata.pas

一个信息查询系统,主要功能文件上传下载,信息浏览,打印等

unit indata;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label2: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Bevel1: TBevel;
    SpeedButton6: TSpeedButton;
    Label21: TLabel;
    Panel4: TPanel;
    Edit5: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    ComboBox2: TComboBox;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    Edit6: TEdit;
    Edit2: TEdit;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    DBGrid1: TDBGrid;
    Panel5: TPanel;
    Label15: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Memo1: TMemo;
    CheckBox2: TCheckBox;
    Bevel2: TBevel;
    SpeedButton7: TSpeedButton;
    Label22: TLabel;
    DateTimePicker2: TDateTimePicker;
    Panel2: TPanel;
    Panel6: TPanel;
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Memo1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton7Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure CheckBox1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    tmpp:string; //

   ti:Tinifile;
  public
    { Public declarations }
    function checkr(str:string):boolean;
    procedure  CTALLBUT;
    procedure  CTALLBUT_1;
  end;

var
  Form2: TForm2;

implementation

uses cgmain, man_check, mandd;

{$R *.dfm}

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
    speedbutton4.Click;
    OKBottomDlg10.showmodal;
   
    Form2.edit2.SetFocus;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
   {
    Form2.CTALLBUT;
    Form2.edit2.SetFocus; }
    if Form2.SpeedButton1.Enabled then      //新增状态
      if application.MessageBox(pchar('是否保存陈述通知书编号为： '+Edit2.Text +' 的记录?'),'提示',mb_okcancel)=1 then
      begin
        ShowMessage('请执行[新增保存]操作！' );
        exit;
      end;

    if Form2.SpeedButton2.Enabled then      //修改状态
      if application.MessageBox(pchar('是否修改陈述通知书编号为： '+Edit2.Text +' 的记录?'),'提示',mb_okcancel)=1 then
      begin
        ShowMessage('请执行[修改保存]操作！' );
        exit;
      end;
    Form2.edit2.SetFocus;

    Form2.CTALLBUT;
    Form2.SpeedButton1.Enabled := false;
    Form2.SpeedButton2.Enabled := false;          //进入新增状态
    Form2.SpeedButton3.Enabled := false;

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
var
i,j:integer;
tmp,ttt:string;
begin
 if form1.Query1.Active<> true then exit;
 // if form1.Query1.Eof=form1.Query1.Bof then exit;    //为空记录时
 if form1.Query1.RecordCount=0 then exit;
 tmp:=form1.Query1['TZSHM'];
   if form1.Query1['sfbz']='Y' then  begin application.MessageBox(pchar('陈述通知书编号为： '+tmp+' 的记录已提交到法院，不能在修改此记录!'),'提示',mb_ok); exit;end;

    ttt:=tmp;
if (trim(edit2.text)='') then begin application.MessageBox('陈述通知书编号为空','提示',MB_ok); exit;end
else
  if application.MessageBox(pchar('是否修改陈述通知书编号为： '+edit2.text+' 的记录'),'提示',mb_okcancel)=1 then
    begin
  //////////////////////////////////////////
    i:=0;
   while i<combobox2.Items.Count do
   begin
   if  combobox2.Text=combobox2.Items[i] then
   break;
   inc(i);
   end;
   if i>=combobox2.Items.Count then begin application.MessageBox('车牌区域不对，不能保存！','提示',mb_ok);combobox2.SetFocus;exit; end;
   //////////////////////////////////////////
   i:=0;
   while i<combobox1.Items.Count do
   begin
   if  combobox1.Text=combobox1.Items[i] then
   break;
   inc(i);
   end;
   if i>=combobox1.Items.Count then begin application.MessageBox('车牌类型不对，不能保存！','提示',mb_ok);combobox1.SetFocus;exit; end;
   ///////////////////////////////////////////////////////
   i:=0;
   while i<combobox3.Items.Count do
   begin
   if  combobox3.Text=combobox3.Items[i] then
   break;
   inc(i);
   end;
   if i>=combobox3.Items.Count then begin application.MessageBox('执法部门不对，不能保存！','提示',mb_ok);combobox3.SetFocus;exit; end;
   /////////////////////////////
{
   i:=0;
   while i<combobox4.Items.Count do
   begin
   if  combobox4.Text=combobox4.Items[i] then
   break;
   inc(i);
   end;
   if i>=combobox4.Items.Count then begin application.MessageBox('处罚方式不对，不能保存！','提示',mb_ok);combobox4.SetFocus;exit; end;

}
   ////////////////////////////////
   if (trim(edit2.Text)='')then begin application.MessageBox('陈述通知书号码为空，不能保存！','提示',mb_ok);edit2.SetFocus;   exit; end;
   if (trim(edit1.Text)='')then begin  application.MessageBox('车牌号码为空，不能保存！','提示',mb_ok);edit1.SetFocus;exit; end;
   if (trim(edit3.Text)='')then begin  application.MessageBox('违章地点为空，不能保存！','提示',mb_ok);edit3.SetFocus; exit; end;
   if (trim(edit4.Text)='')then begin  application.MessageBox('违章事由为空，不能保存！','提示',mb_ok);edit4.SetFocus; exit; end;
   if (trim(edit5.Text)='')then begin  application.MessageBox('罚款金额为空，不能保存！','提示',mb_ok);edit5.SetFocus;exit; end;
   if (trim(combobox1.Text)='')then begin  application.MessageBox('车辆类型为空，不能保存！','提示',mb_ok);combobox1.SetFocus;exit; end;
   if (trim(combobox3.Text)='')then begin  application.MessageBox('执法部门为空，不能保存！','提示',mb_ok);combobox3.SetFocus;exit; end;
   if (trim(combobox2.Text)='')then begin  application.MessageBox('车牌类型为空，不能保存！','提示',mb_ok);combobox2.SetFocus;exit; end;

//////////////////////////             获得编码
    form1.tempquery.Close;
    form1.tempquery.SQL.Clear;
    form1.tempquery.SQL.Add('select * from cl where CLLX=:p1');
    form1.tempquery.ParamByName('p1').AsString:=trim(combobox1.Text);
    form1.tempquery.open;
    tmp:=form1.tempquery['CLBM'];
    ///////////////////////////////////

    ///////////////////////////////////
    form1.tempquery.RequestLive:=true;
    form1.tempquery.Close;
    form1.tempquery.SQL.Clear;
    form1.tempquery.SQL.Add('select * from wf_zl_info where TZSHM=:p1');
    form1.tempquery.ParamByName('p1').AsString:=ttt;//trim(edit2.Text );//form1.Query1['TZSHM'];
   // form1.tempquery.ParamByName('p2').AsString:='N';
    form1.tempquery.open;
    i:=form1.tempquery.RecordCount;
    //showmessage(inttostr(i));
    form1.tempquery.Edit;
    form1.tempquery['CPHM']:=trim(combobox2.Text)+'-'+(edit1.Text);
    form1.tempquery['CLZL']:=tmp;
    form1.tempquery['TZSHM']:=trim(edit2.Text);
    form1.tempquery['WFSJ']:=form2.datetimepicker1.date;
    form1.tempquery['WFDD']:=trim(edit3.Text);
    form1.tempquery['WFSY']:=trim(edit4.Text);
    form1.tempquery['ZXR']:=trim(edit6.Text)+' ';
    form1.tempquery['ZFBM']:=trim(combobox3.Text);
    form1.tempquery['ZCCFSJ']:=form2.datetimepicker2.Date;
    form1.tempquery['CFJE']:=strtoint(trim(edit5.Text));
    form1.tempquery['CFSJ']:=trim(form1.Query1['CFSJ'])+' ';
    form1.tempquery['WRSJ']:=date;
    form1.tempquery['CFJDSBM']:=trim(form1.Query1['CFJDSBM'])+' ';
    form1.tempquery['DSR']:=trim(form1.Query1['DSR'])+' ';
    form1.tempquery['SFJE']:=strtoint(form1.Query1['SFJE']);
    form1.tempquery['SPR']:=trim(form1.Query1['SPR'])+' ';
    form1.tempquery['CFFS']:= trim(trim(combobox4.Text))+' ';
    form1.tempquery['CFQR']:=form1.Query1['CFQR'];
    form1.tempquery['ZLBC']:=form1.Query1['ZLBC'];
    form1.tempquery['SCBZ']:='N';
    form1.tempquery['SFBZ']:=form1.Query1['SFBZ'];
    form1.tempquery['DKBZ']:=form1.Query1['DKBZ'];
    form1.tempquery['TPDZ']:=trim(form1.Query1['TPDZ'])+' ';
    form1.tempquery['bz']:=trim(form2.Memo1.Text)+' '; 
    try
    form1.tempquery.Post;
//     application.MessageBox(pchar('修改记录成功!'),'提示',MB_ok);
      form2.SpeedButton2.Enabled := false;                 //修改成功则等待重新激活
    except
     application.MessageBox(pchar('修改记录不成功!'),'提示',MB_ok);
    end;
     form1.tempquery.RequestLive:=false;
     form1.tempquery.close;

     tmp:=trim(edit2.Text);
     form1.Query1.Active:=false;
     form1.Query1.Active:=true;
     form1.Query1.First;
     while not form1.Query1.Eof do
     begin
     if form1.Query1['TZSHM']=tmp then break;
     form1.Query1.Next;
     end;
    end;
     form2.Edit1.SetFocus;

end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
var
tmp:string;
begin
  OKBottomDlg7.showmodal;
 if  form1.label1.caption<>'1' then
 begin
     
     exit;
 end;
 form1.label1.caption:='2';
tmp:=trim(form2.Edit2.Text);
if tmp='' then begin application.MessageBox('陈述通知编号为空','提示',MB_ok); exit;end
else
  if application.MessageBox(pchar('是否删除陈述通知书编号为： '+tmp+' 的记录'),'提示',mb_yesno)=6 then
    begin
    if form1.Query1['scbz']='Y' then begin application.MessageBox(pchar('陈述通知编号为 '+tmp+' 已上传，删除不能进行!!!!!'),'警告',MB_ok); exit; end;
    if form1.Query1['sfbz']='Y' then begin application.MessageBox(pchar('陈述通知编号为 '+tmp+' 已司法标记，删除不能进行!!!!!'),'警告',MB_ok); exit; end;
    if form1.Query1['cfqr']='Y' then begin application.MessageBox(pchar('陈述通知编号为 '+tmp+' 已处罚，删除不能进行!!!!!'),'警告',MB_ok); exit; end;
    form1.tempquery.Close;
    form1.tempquery.SQL.Clear;
    form1.tempquery.SQL.Add('select * from wf_zl_info where TZSHM=:p1');
    form1.tempquery.ParamByName('p1').AsString:=trim(edit2.Text);
    form1.tempquery.open;
    if form1.tempquery.RecordCount<=0 then begin application.MessageBox(pchar('陈述通知编号 '+tmp+' 不存在，删除不成功'),'提示',MB_ok);form1.tempquery.Close; exit; end;
    try
    form1.tempquery.Close;
    form1.tempquery.SQL.Clear;
    form1.tempquery.SQL.Add('delete from wf_zl_info where TZSHM=:p1');
    form1.tempquery.ParamByName('p1').AsString:=trim(edit2.Text);
    form1.tempquery.ExecSQL;
    application.MessageBox(pchar('删除陈述通知书编号为： '+tmp+' 的记录成功!'),'提示',MB_ok);
    except
     application.MessageBox(pchar('删除陈述通知书编号为： '+tmp+' 的记录不成功!'),'提示',MB_ok);
    end;
    form1.Query1.Active:=false;
    form1.Query1.Active:=true;     //查询
    speedbutton4.Click;     //清页面
   end;
     edit2.SetFocus;
    form1.tempquery.Close;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
var
i:integer;
tmp,sqltext:string;
begin
   if (trim(edit2.Text)='') then
   begin
    showMessage('陈述通知书编号为空，不能保存！');
    edit2.SetFocus;
    exit;
   end;

//////////////////////////////
    form1.tempquery.Close;
    form1.tempquery.SQL.Clear;
    form1.tempquery.SQL.Add('select * from wf_zl_info where TZSHM=:p1');
    form1.tempquery.ParamByName('p1').AsString:=trim(edit2.Text);
    form1.tempquery.Open;
    if  form1.tempquery.RecordCount>0  then
    begin

      application.MessageBox('数据库中已存在以通知书号码为索引的记录,不能新增保存,只能用修改来保存!','提示');
      edit2.SetFocus;
      form1.tempquery.Close;
      exit;