sales.pas

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

unit sales;

interface

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

type
  TOKBottomDlg4 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Label6: TLabel;
    Edit4: TEdit;
    Memo1: TMemo;
    Label7: TLabel;
    Edit5: TEdit;
    CheckBox1: TCheckBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label21: TLabel;
    Label8: TLabel;
    Label22: TLabel;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    BitBtn1: TBitBtn;
    Label9: TLabel;
    Panel1: TPanel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
    str,tmpp:string;
    ti:Tinifile;
  public
    { Public declarations }
  end;

var
  OKBottomDlg4: TOKBottomDlg4;

implementation

uses cgmain, indata, man_check;

{$R *.dfm}

procedure TOKBottomDlg4.Edit1KeyPress(Sender: TObject; var Key: Char);
var
ssfbz:string;
label tt;
begin
     if not(key=#13) then  exit;
     Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
     Edit3.Text:=Ti.ReadString('SYSTEM','cfje','');
     Ti.free;
     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);
       {edit2.ReadOnly:=true;
       edit3.ReadOnly:=true;
       edit4.ReadOnly:=true;
       edit5.ReadOnly:=true; }
       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.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('备注：          ');
       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('处罚金额：      '+inttostr(form1.tempquery['CFJE'])+'元');
     Memo1.Lines.Add('执法队员：      '+form1.tempquery1['ZXR']);
     Memo1.Lines.Add('执法部门：      '+form1.tempquery1['ZFBM']);
   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'])+'元');
 //    Memo1.Lines.Add('处罚方式：      ');
 //     Memo1.Lines.Add('实罚金额：      ');
     Memo1.Lines.Add('当事人：        '+form1.tempquery1['DSR']);
     Memo1.Lines.Add('审批领导：      '+form1.tempquery1['SPR']);
     if  form1.tempquery1['cfqr']='N' then
     Memo1.Lines.Add('处罚受理情况：  '+'未接受处罚')
     else
     Memo1.Lines.Add('处罚受理情况：  '+'已接受处罚');
   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='Y') then
     begin
     showMessage('此数据已经提交法院，不能再更改！');
     exit;
     end;
     if (str<>'N') then
     begin
     if application.MessageBox('此数据已经接受处罚是否再更改','提示',mb_YesNo)=6 then
     begin
       OKBottomDlg7.showmodal;
       if  form1.label1.caption<>'1' then
      exit;

      //goto  tt;
     end
     else
     begin
     edit1.SetFocus;
     edit1.Enabled:=true;
     edit2.Enabled:=false;
     edit3.Enabled:=false;
     edit4.Enabled:=false;
     edit5.Enabled:=false;
     combobox1.Enabled:=false;
     datetimepicker1.Enabled:=false;
     checkbox1.Enabled:=false;
     speedbutton1.Enabled:=false;
     exit;
     end;
     end;
    // tt:
     ////////////////////////////////////////////////////////////处罚更新
     str:= 'N';
     edit2.Text:=trim(form1.tempquery1['CFJDSBM']);
     edit3.Text:=trim(form1.tempquery1['SFJE']);
     edit4.Text:=trim(form1.tempquery1['SPR']);
     edit5.Text:=trim(form1.tempquery1['DSR']);
     if trim(form1.tempquery1['ZLBC'])='不全' then checkbox1.Checked:=true
     else checkbox1.Checked:=false;
     try
      datetimepicker1.Date:=strtodate(form1.tempquery1['CFSJ']);
     except
      datetimepicker1.Date:=date;
     end;

//     combobox1.Text:=form1.tempquery1['CFFS'];

     if  form1.tempquery1['cfqr']='Y' then
     begin
     combobox1.Text:=form1.tempquery1['CFFS'];
     if combobox1.Text='免处' then
     begin
     edit4.Enabled:=true ;
     edit3.Text:='0';
//     edit3.Enabled:=false;
     end;
     if combobox1.Text='警告' then
     begin
     edit4.Enabled:=false;
     edit3.Text:='0';
//     edit3.Enabled:=true;
     end;
     if  combobox1.Text='罚款' then
     begin
     edit4.Enabled:=false;
      edit3.Text:='100'
     end;
     end;

     if  form1.tempquery1['cfqr']='N' then
     begin
     combobox1.Text:='罚款';
     Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
     Edit3.Text:=Ti.ReadString('SYSTEM','cfje','');
     Ti.free;
     end;
     form1.tempquery.Close;
     form1.tempquery.RequestLive:=true;
     OKBottomDlg4.Edit2.Enabled:=true;   
     OKBottomDlg4.Edit5.Enabled:=true;
     okbottomdlg4.ComboBox1.Enabled:=true;
     okbottomdlg4.DateTimePicker1.Enabled:=true;;
     okbottomdlg4.CheckBox1.Enabled:=true;

//     edit2.Enabled:=true;
//     edit3.Enabled:=true;
//     edit4.Enabled:=true;
//     edit5.Enabled:=true;

//     combobox1.Enabled:=true;
//     datetimepicker1.Enabled:=true;
//     checkbox1.Enabled:=true;
//    speedbutton1.Enabled:=true;


     edit1.Enabled:=false;
     edit2.setfocus;
end;

procedure TOKBottomDlg4.FormShow(Sender: TObject);
begin
   edit5.Clear;
   edit4.Enabled:=false;
   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('处罚受理情况：');