sales.pas

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

   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
   Memo1.Lines.Add('司法确认：');
   Memo1.Lines.Add('资料不全：');
   Memo1.Lines.Add('图片地址：');
   Memo1.Lines.Add('备注：');
 //  combobox1.Items.LoadFromFile(extractfilepath(paramstr(0))+'\cffs.ini');
   str:='';
   edit1.SetFocus;
end;

procedure TOKBottomDlg4.ComboBox1Change(Sender: TObject);
var
i:integer;
begin
  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.Text:=tmpp;combobox1.SetFocus;exit; end;
   if (combobox1.Text='免处')or (combobox1.Text='') then
   begin
   edit4.Enabled:=true ;
   edit3.Text:='0';
   edit3.Enabled:=false;
   end ;

   if combobox1.text='罚款' then
   begin
   edit4.Enabled:=false ;
   Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
     Edit3.Text:=Ti.ReadString('SYSTEM','cfje','');
     Ti.free;
   edit3.Enabled:=false;
   edit4.Clear;
   end;
   if combobox1.text='警告' then
   begin
   edit4.Enabled:=false ;
   edit3.Text:='0';
   edit3.Enabled:=false;
   edit4.Clear;
   end;
   
   speedbutton1.enabled := true;


end;

procedure TOKBottomDlg4.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  tmpp:=combobox1.Text;
end;

procedure TOKBottomDlg4.SpeedButton2Click(Sender: TObject);
begin
{
   if OKBottomDlg4.SpeedButton1.Enabled then          //处罚状态
    if application.MessageBox(pchar('是否更新陈述通知书编号为： '+Edit1.Text +' 的记录?'),'提示',mb_okcancel)=1 then
    begin
        ShowMessage('请执行[更新]操作！' );
        exit;
    end;
    OKBottomDlg4.Close;
}
end;

procedure TOKBottomDlg4.SpeedButton1Click(Sender: TObject);
var
tpp:string;
begin
if application.MessageBox('是否更新数据库中的内容？','提示',mb_YesNo)=7 then exit;
   if trim(combobox1.Text)='' then  begin application.MessageBox('处罚方式为空','提示',mb_ok);combobox1.SetFocus;exit; end;
   if str<>'N' then begin application.MessageBox('此数据已经接受处罚不能再更改！','提示',mb_ok);edit1.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').Value:=trim(edit1.Text);
     form1.tempquery.open;
     form1.tempquery.Edit;
     form1.tempquery['CFJDSBM']:=trim(edit2.Text)+' ';
     form1.tempquery['CFSJ']:=datetostr(datetimepicker1.Date);
     form1.tempquery['CFFS']:= trim(combobox1.Text);
     form1.tempquery['SPR']:=trim(edit4.Text)+' ';
     form1.tempquery['DSR']:=trim(edit5.Text)+' ';
     form1.tempquery['SFJE']:=strtoint(trim(edit3.Text));

     if checkbox1.Checked=true then
     form1.tempquery['ZLBC']:='不全'
     else
     form1.tempquery['ZLBC']:='完整' ;

     form1.tempquery['CFQR']:='Y';
     form1.tempquery['SFBZ']:='N';
     form1.tempquery['ScBZ']:='N';         //更新后，上传标志为NO

     form1.tempquery.Post;
     form1.tempquery.Close;
     form1.tempquery.requestlive:=false;
     form1.tempquery.Close;
     form1.tempquery.SQL.Clear;
     form1.tempquery.SQL.Add('select * from "wf_zl_info" a,"cl" b where a.clzl=b.clbm  and TZSHM=:p1');
     form1.tempquery.ParamByName('p1').Value:=trim(edit1.Text);
     form1.tempquery.open;
     if form1.tempquery.RecordCount<=0 then
     begin
      application.MessageBox('陈述通知书号码不存在！！！！','警告',MB_ok);
      speedbutton1.Enabled:=false;
      edit1.Enabled:=true;
      edit1.Clear;
      form1.tempquery.requestlive:=true;  exit;
     end;
     Memo1.Clear;
   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
     Memo1.Lines.Add('陈述通知书号码：'+form1.tempquery['TZSHM']);
     Memo1.Lines.Add('车牌号码：      '+form1.tempquery['CPHM']);
     Memo1.Lines.Add('车辆类型：      '+form1.tempquery['CLLX']);
     Memo1.Lines.Add('违章时间：      '+datetostr(form1.tempquery['WFSJ']));
     Memo1.Lines.Add('违章地点：      '+form1.tempquery['WFDD']);
     Memo1.Lines.Add('违章事由：      '+form1.tempquery['WFSY']);
     Memo1.Lines.Add('最迟处罚日期：  '+datetostr(form1.tempquery['ZCCFSJ']));
   Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
//     Memo1.Lines.Add('处罚金额：      '+inttostr(form1.tempquery['CFJE'])+'元');
     Memo1.Lines.Add('执法队员：      '+form1.tempquery['ZXR']);
     Memo1.Lines.Add('执法部门：      '+form1.tempquery['ZFBM']);
     Memo1.Lines.Add('－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－');
   Memo1.Lines.Add('处罚决定书：    '+form1.tempquery['CFJDSBM']);
     Memo1.Lines.Add('处罚时间：      '+form1.tempquery['CFSJ']);
     Memo1.Lines.Add('处罚方式：      '+form1.tempquery['CFFS']);
     Memo1.Lines.Add('实罚金额：      '+inttostr(form1.tempquery['SFJE'])+'元');
     Memo1.Lines.Add('当事人：        '+form1.tempquery['DSR']);
     Memo1.Lines.Add('审批领导：      '+form1.tempquery['SPR']);
     if  form1.tempquery['cfqr']='N' then
     Memo1.Lines.Add('处罚受理情况：  '+'未接受处罚')
     else
     Memo1.Lines.Add('处罚受理情况：  '+'已接受处罚');

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

     if  form1.tempquery['SFBZ']='N' then
     Memo1.Lines.Add('司法确认：      '+'否')
     else
     Memo1.Lines.Add('司法确认：      '+'是');
     Memo1.Lines.Add('资料不全：      '+form1.tempquery['ZLBC']);
     Memo1.Lines.Add('图片地址：      '+form1.tempquery['TPDZ']);
     Memo1.Lines.Add('备注：          '+form1.tempquery['BZ']);
//     str:=form1.tempquery['CFQR'];
     form1.tempquery.Close;
     form1.tempquery.RequestLive:=true;
///////////////////////////////
//   edit1.Enabled:=true;
{
   edit1.Clear;
   edit2.SetFocus;
   edit2.Enabled:=false;
   edit3.Enabled:=false;
   edit4.Enabled:=false;
   edit5.Enabled:=false;
   combobox1.Enabled:=false;
   datetimepicker1.Enabled:=false;
   checkbox1.Enabled:=false;
}
///////////////////////////
   speedbutton1.Enabled:=false;
     form1.Query1.Active:=false;
     form1.Query1.Active:=true;
    { form1.Query1.First;
     while not form1.Query1.Eof do
     begin
     if form1.Query1['TZSHM']=tpp then break;
     form1.Query1.Next;
     end;  }
     speedbutton3.Click;
end;

procedure TOKBottomDlg4.Edit3KeyPress(Sender: TObject; var Key: Char);
var
i:integer;
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);
  edit3.Clear;
      Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
     Edit3.Text:=Ti.ReadString('SYSTEM','cfje','');
     Ti.free;

   end;
    if key=#13 then speedbutton1.Click;
end;

procedure TOKBottomDlg4.SpeedButton3Click(Sender: TObject);
begin
   edit1.Enabled:=true;
   edit1.Clear;
   edit1.SetFocus;
   edit2.Enabled:=false;
   edit2.Clear;
   edit3.Enabled:=false;
   edit4.Enabled:=false;
   edit5.Enabled:=false;

   combobox1.Enabled:=false;
   datetimepicker1.Enabled:=false;
   checkbox1.Enabled:=false;
   speedbutton1.Enabled:=false;

end;

procedure TOKBottomDlg4.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
        speedbutton1.enabled := true;
        if key=#13 then DateTimePicker1.setfocus;
end;

procedure TOKBottomDlg4.DateTimePicker1Change(Sender: TObject);
begin
        speedbutton1.enabled := true;


end;

procedure TOKBottomDlg4.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
        speedbutton1.enabled := true;
          if key=#13 then edit5.setfocus;

end;

procedure TOKBottomDlg4.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
        speedbutton1.enabled := true;
        if key=#13 then
        begin
         if edit3.Enabled=false then speedbutton1.Click
         else
         edit3.SetFocus;
      end;
end;

procedure TOKBottomDlg4.DateTimePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
    if key=#13 then combobox1.setfocus;
end;

procedure TOKBottomDlg4.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     if edit4.Enabled=false then edit5.setfocus
     else
     edit4.SetFocus;
end;

procedure TOKBottomDlg4.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if not form2.checkr(edit2.Text) then
    begin
    application.MessageBox('处罚决定书号中存在非数字的符号!','提示',MB_OK);
    edit2.SetFocus;
    end;

end;

procedure TOKBottomDlg4.BitBtn1Click(Sender: TObject);
begin
   if OKBottomDlg4.SpeedButton1.Enabled then          //处罚状态
    if application.MessageBox(pchar('是否更新陈述通知书编号为： '+Edit1.Text +' 的记录?'),'提示',mb_YesNo)=6 then
    begin
        ShowMessage('请执行[更新]操作！' );
        exit;
    end;
    OKBottomDlg4.Close;
end;

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

procedure TOKBottomDlg4.CheckBox1Click(Sender: TObject);
begin
        speedbutton1.enabled := true;

end;

end.