indata.pas

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

    end;
    form1.tempquery.Close;
    if application.MessageBox(pchar('新增陈述通知书编号为： '+trim(edit2.Text)+' 的记录?'),'提示',mb_YESNO)=IDNO then begin edit2.SetFocus;exit;end;
   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 length(pchar(trim(edit1.Text)))<>5 then begin
   application.MessageBox('车牌号码位数不对!','提示',mb_ok);
   // edit1.Text:=tmpp;
    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.Close;
    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;
   i:= form1.tempquery.RecordCount;
   form1.tempquery.Close;
   if (i<=0) then
   begin
    form1.temptable.close;
    form1.temptable.TableName:='wf_zl_info';
    form1.temptable.open;
    form1.temptable.Edit;
    form1.temptable.append;
    form1.temptable['CPHM']:=trim(combobox2.Text)+'-'+(edit1.Text);
    form1.temptable['CLZL']:=tmp;
    form1.temptable['TZSHM']:=trim(edit2.Text);
    form1.temptable['WFSJ']:=form2.datetimepicker1.date;
    form1.temptable['WFDD']:=trim(edit3.Text);
    form1.temptable['WFSY']:=trim(edit4.Text);
    form1.temptable['ZXR']:=trim(edit6.Text)+' ';
    form1.temptable['ZFBM']:=trim(combobox3.Text);
    form1.temptable['ZCCFSJ']:=form2.datetimepicker2.Date;
    form1.temptable['CFJE']:=strtoint(trim(edit5.Text));
    form1.temptable['CFSJ']:=' ';
    form1.temptable['WRSJ']:=date;
    form1.temptable['CFJDSBM']:=' ';
    form1.temptable['DSR']:=' ';
    form1.temptable['SFJE']:=0;
    form1.temptable['SPR']:=' ';
    form1.temptable['CFFS']:= ' ';
    form1.temptable['CFQR']:='N';
    if checkbox1.Checked then  form1.temptable['ZLBC']:='不全'
    else  form1.temptable['ZLBC']:='完整' ;
    form1.temptable['SCBZ']:='N';
    form1.temptable['SFBZ']:='N';
    form1.temptable['DKBZ']:='N';
    form1.temptable['TPDZ']:=' ';
    form1.temptable['BZ']:=form2.Memo1.Text+' ';
    try
     form1.temptable.Post;
   //  application.MessageBox(pchar('添加陈述通知书编号为： '+trim(edit2.Text)+' 的记录成功!'),'提示',MB_ok);

      speedbutton7.Click;     //查询
      Form2.edit2.SetFocus;
      Form2.CTALLBUT_1;
      Form2.SpeedButton1.Enabled := false;
      Form2.SpeedButton2.Enabled := false;        //进入新增状态
      Form2.SpeedButton3.Enabled := false;
     edit1.Clear;
     edit2.Clear;
     memo1.Clear;
     checkbox1.Checked:=false;
    except
     application.MessageBox(pchar('新增陈述通知书编号为： '+trim(edit2.Text)+' 的记录不成功!'),'提示',MB_ok);
    end;
    form1.temptable.Close;
   end;
   edit2.SetFocus;

end;
procedure TForm2.CTALLBUT;
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit5.Clear;
  edit6.Clear;
  memo1.Clear;
  edit4.Text:='人行道占道违章停车';
  edit4.Enabled:=false;
  combobox1.ItemIndex:=1;
  combobox2.ItemIndex:=0;
  combobox3.ItemIndex:=0;
  combobox4.ItemIndex:=0;
  combobox3.Text:='';
  combobox4.Text:='罚款';
  edit5.Text:='100';
  checkbox1.Checked:=false;
  datetimepicker1.Date:=date;
  datetimepicker2.Date:=datetimepicker1.Date+5;
  

end;
procedure TForm2.CTALLBUT_1;

begin
  edit1.Clear;
  edit2.Clear;
//  edit3.Clear;
//  edit4.Clear;
//  edit5.Clear;
//  edit6.Clear;
  memo1.Clear;
  edit4.Text:='人行道占道违章停车';
  edit4.Enabled:=false;
  combobox1.ItemIndex:=1;
  combobox2.ItemIndex:=0;
//  combobox3.ItemIndex:=0;
  combobox4.ItemIndex:=0;
//  combobox3.Text:='';
  combobox4.Text:='罚款';
    Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
     form2.Edit5.Text:=Ti.ReadString('SYSTEM','cfje','');
     Ti.free;
  checkbox1.Checked:=false;
//  datetimepicker1.Date:=date;
//  datetimepicker2.Date:=datetimepicker1.Date+5;
  

end;

procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
var
i:integer;
begin
  if key<>#13 then
  begin
  i:=0;
   while i<10 do
   begin
     if key= inttostr(i) then break;
     inc(i);
   end;
   if (i=10)then
   begin

   application.MessageBox('输入的为非数字0~9','提示',mb_ok);
   edit5.Clear;
     Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
     form2.Edit5.Text:=Ti.ReadString('SYSTEM','cfje','');
     Ti.free;

   end;
   end;
     if key = #13 then { 判断是按执行键}
  Begin
    key:=#0;
   { form2.perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  //combobox3.SetFocus;
   end;
if   Form2.SpeedButton3.Enabled
  then   Form2.SpeedButton2.Enabled := true
  else   Form2.SpeedButton1.Enabled := true;
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
   if Form2.SpeedButton1.Enabled then          //新增状态
    if application.MessageBox(pchar('是否保存陈述通知书编号为： '+Edit2.Text +' 的记录?'),'提示',mb_yesno)=6 then
    begin
        ShowMessage('请执行[新增保存]操作！' );
        exit;
    end;
   if Form2.SpeedButton2.Enabled then          //新增状态
    if application.MessageBox(pchar('是否保存陈述通知书编号为： '+Edit2.Text +' 的记录?'),'提示',mb_yesno)=6 then
    begin
        ShowMessage('请执行[修改保存]操作！' );
        exit;
    end;
   Form2.SpeedButton1.Enabled :=false;
   Form2.SpeedButton2.Enabled :=false;
   Form2.SpeedButton3.Enabled :=false;

   form2.panel1.Visible:=false;
end;

procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
{   if Form2.SpeedButton1.Enabled then          //新增状态
    if application.MessageBox(pchar('是否保存陈述通知书编号为： '+Edit2.Text +' 的记录?'),'提示',mb_yesno)=6 then
    begin
        ShowMessage('请执行[新增保存]操作！' );
        exit;
    end;
   if Form2.SpeedButton2.Enabled then          //修改状态
    if application.MessageBox(pchar('是否保存陈述通知书编号为： '+Edit2.Text +' 的记录?'),'提示',mb_yesno)=6 then
    begin
        ShowMessage('请执行[修改保存]操作！' );
        exit;
    end;
//////////////////////////////////////////////////////
    memo1.Clear;
   // if form1.Query1.Eof=form1.Query1.Bof then exit;    //为空记录时
   if form1.Query1.Active=true then
    begin   
    if form1.Query1.RecordCount=0 then exit;
    form2.Edit1.Text:=copy(trim(form1.query1['CPHM']),pos('-',trim(form1.query1['CPHM']))+1,length(trim(form1.query1['CPHM']))-pos('-',trim(form1.query1['CPHM'])));
    form2.combobox2.Text:=copy(trim(form1.query1['CPHM']),0,pos('-',trim(form1.query1['CPHM']))-1);
    form2.combobox1.Text:=form1.query1['CLLX'];
    form2.Edit2.Text:=form1.query1['TZSHM'];
    form2.Edit3.Text:=form1.query1['WFDD'];
    form2.Edit4.Text:=form1.query1['WFSY'];
    form2.Edit5.Text:=inttostr(form1.query1['CFJE']);
    form2.Edit6.Text:=form1.query1['ZXR'];
   // temp:=form1.Query1['TZSHM'];
    form2.datetimepicker1.Date:=form1.query1['WFSJ'];
    form2.datetimepicker2.Date:=form1.query1['ZCCFSJ'];
    if form1.Query1['cffs']='' then
       form2.ComboBox4.Text:='罚款'
    else
       form2.ComboBox4.Text:=form1.query1['CFFS'];
    form2.ComboBox3.Text:=form1.query1['ZFBM'];
    if trim(form1.Query1['bz'])<>'' then form2.CheckBox2.Checked:=true
    else form2.CheckBox2.Checked:=false;
    form2.Memo1.Lines.Add(form1.Query1['bz']);
    if trim(form1.Query1['zlbc'])='不全' then
     form2.checkbox1.Checked:=true
     else
     form2.checkbox1.Checked:=false;
   end;
   }
end;

procedure TForm2.DBGrid1DblClick(Sender: TObject);
var
tmp:string;
begin
  
   if Form2.SpeedButton1.Enabled then          //新增状态进入修改状态
   begin
    if application.MessageBox(pchar('是否保存陈述通知书编号为： '+Edit2.Text +' 的记录?'),'提示',mb_yesno)=6 then
    begin
        ShowMessage('请执行[新增保存]操作！' );
        exit;
    end
    else
     form2.SpeedButton1.Enabled:=false;
   end
   else
   if Form2.SpeedButton2.Enabled then          //修改状态跳转修改新记录
   begin
    if application.MessageBox(pchar('是否修改陈述通知书编号为： '+Edit2.Text +' 的记录?'),'提示',mb_yesno)=6 then
    begin
        ShowMessage('请执行[修改保存]操作！' );
        exit;
    end
    else
    form2.SpeedButton2.Enabled:=false;
   end;

  Form2.SpeedButton2.Enabled := false;
  Form2.SpeedButton3.Enabled := true;
  
  /////////////////////////////////////
  memo1.Clear;
  if  form1.Query1.Active<>true then  exit;
  if (form1.Query1.RecordCount=0) then begin  Form2.SpeedButton3.Enabled := false;exit; end;
 // if form1.Query1.Eof=form1.Query1.Bof then exit;    //为空记录时
   if form1.Query1.Active=true then
    begin
    if form1.Query1.RecordCount=0 then exit;
    form2.Edit1.Text:=copy(trim(form1.query1['CPHM']),pos('-',trim(form1.query1['CPHM']))+1,length(trim(form1.query1['CPHM']))-pos('-',trim(form1.query1['CPHM'])));
    form2.combobox2.Text:=copy(trim(form1.query1['CPHM']),0,pos('-',trim(form1.query1['CPHM']))-1);
    form2.combobox1.Text:=form1.query1['CLLX'];
     form2.Edit2.Text:=form1.query1['TZSHM'];
    form2.Edit3.Text:=form1.query1['WFDD'];
    form2.Edit4.Text:=form1.query1['WFSY'];
    form2.Edit5.Text:=inttostr(form1.query1['CFJE']);
    form2.Edit6.Text:=form1.query1['ZXR'];
   // temp:=form1.Query1['TZSHM'];
    form2.datetimepicker1.Date:=form1.query1['WFSJ'];
    form2.datetimepicker2.Date:=form1.query1['ZCCFSJ'];
    form2.ComboBox4.Text:=form1.query1['CFFS'];
    form2.ComboBox3.Text:=form1.query1['ZFBM'];
    if trim(form1.Query1['bz'])<>'' then form2.CheckBox2.Checked:=true
    else form2.CheckBox2.Checked:=false;
    form2.Memo1.Lines.Add(form1.Query1['bz']);
     if trim(form1.Query1['zlbc'])='不全' then
     form2.checkbox1.Checked:=true
     else
     form2.checkbox1.Checked:=false;
   end;
   {
    if  trim(form1.query1['SCBZ'])<>'N' then
    begin
    application.MessageBox('数据库中已存在以通知书号码为索引的记录且已经上传，不能修改','提示',mb_ok);
     exit;
    end;  }
end;

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if Form1.query1.Active=true then begin
   if Form1.query1.FieldByName('scbz').AsString = 'N' then
     if  Form1.query1.FieldByName('CFQR').AsString = 'N' then
           Form2.DBGrid1.Canvas.Brush.Color:=clSilver
     else  Form2.DBGrid1.Canvas.Brush.Color:=clSkyblue;
   if Form1.query1.FieldByName('scbz').AsString = 'Y' then
     if  Form1.query1.FieldByName('CFQR').AsString = 'N' then
           Form2.DBGrid1.Canvas.Brush.Color:=clyellow
     else  Form2.DBGrid1.Canvas.Brush.Color:=clwhite;
    end;

    Form2.DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

procedure TForm2.DateTimePicker1Change(Sender: TObject);
begin
   form2.datetimepicker2.Date:=form2.datetimepicker1.Date+5;
    if   Form2.SpeedButton3.Enabled
  then   Form2.SpeedButton2.Enabled := true
  else   Form2.SpeedButton1.Enabled := true;
end;

procedure TForm2.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if   Form2.SpeedButton3.Enabled
  then   Form2.SpeedButton2.Enabled := true
  else   Form2.SpeedButton1.Enabled := true;