accident.pas

信息管理系统

unit accident;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, ComCtrls, ExtCtrls,accident_info_unit,
  Grids, DBGrids, DBClient;

type
  Taccidentfrm = class(TForm)
    Label18: TLabel;
    Bevel1: TBevel;
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit3: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit5: TEdit;
    Label10: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label11: TLabel;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    DBGrid1: TDBGrid;
    Label12: TLabel;
    procedure edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
  accident_info:Taccident_info ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  accidentfrm: Taccidentfrm;

implementation
 uses mainfrmunit2;
{$R *.dfm}

procedure Taccidentfrm.edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if (not (key in ['0'..'9'])) and (key <>#8)then
    key:=#0;
end;

procedure Taccidentfrm.Button4Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit6.Text:='';
  edit5.Text:='';
  edit6.Text:='';
  edit7.Text:='';
  edit8.Text:='';
  memo1.Text:='';
end;

procedure Taccidentfrm.Button1Click(Sender: TObject);
var sql:string;
begin
  //实例化类
  accident_info:=Taccident_info.create ;
  if accident_info.CheckRec(edit6.text)  then      //如果找到对应的记录,提示用户出错
  begin
    showmessage('对不起，该车辆事故记录已存在！');
    exit;
  end;
  //赋值SQL语句更改插入记录的内容
  sql:='insert into accident_info(ARCHIVES_ID,DRIVER_ID,VEHICLE_NO,VEHICLE_ID,'
  +'Accident_TYPE, BAOXIAN,MONEY,Accident_CONTENT,ACCIDENT_DAY,REMARK) '
  +'values('''+edit6.Text+''','''+edit8.Text+''','''+edit7.Text+''','''+edit5.Text+''','
  +''''+edit1.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit2.Text+''', '
  +''''+datetostr(datetimepicker1.Date)+''','''+memo1.Text+''' )';
  accident_info.recinsert(sql);
  application.MessageBox('新建成功！','提示：',mb_ok);
  //释放类的实例
  accident_info.Free;
end;

procedure Taccidentfrm.Button2Click(Sender: TObject);
begin
  if  application.MessageBox('确实要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then    //删除信息的警告
  begin
    //实例化类
    accident_info:=Taccident_info.create ;
    if accident_info.CheckRec(edit6.text)=false  then      //如果找不到对应的记录,提示用户出错
    begin
      showmessage('对不起，该车辆维修记录不存在！');
       exit;
    end;
    accident_info.RecDel(edit6.text) ;
    //释放类的实例
    accident_info.Free;
    showmessage('该事故记录基本信息已成功删除！');
  end;
end;

procedure Taccidentfrm.Button3Click(Sender: TObject);
var sql:string;
begin
  if  application.MessageBox('确实要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then  //更改信息的警告
  begin
    //实例化类
    accident_info:=Taccident_info.create ;
    if accident_info.CheckRec(edit6.text)=false  then      //如果找不到对应的记录,提示用户出错
    begin
      showmessage('对不起，该车辆事故记录不存在！');
      exit;
    end;
    //赋值SQL语句更改插入记录的内容
    sql:='update accident_info set DRIVER_ID='''+edit8.Text+''','
    +'VEHICLE_NO='''+edit7.Text+''',Vehicle_Id='''+edit5.Text+''','
    +'ACCIDENT_TYPE='''+edit1.Text+''',BAOXIAN='''+edit3.Text+''','
    +'ACCIDENT_CONTENT='''+edit2.Text+''','
    +'MONEY='''+edit4.Text+''',ACCIDENT_DAY='''+datetostr(datetimepicker1.Date)+''' '
    +' where ARCHIVES_ID='''+edit6.Text+'''';
    accident_info.RecUpdate(sql);
    application.MessageBox('修改成功！','提示：',mb_ok);
    //释放类的实例
    accident_info.Free;
  end;
end;

procedure Taccidentfrm.Button5Click(Sender: TObject);
begin
  //实例化类
  accident_info:=Taccident_info.create ;
  if accident_info.CheckRec(edit6.text)=false  then      //如果找不到对应的记录,提示用户出错
  begin
    showmessage('对不起，该事故记录不存在！');
    exit;
  end;
  edit1.Text :=accident_info.GetACCIDENTType(edit6.Text);
  edit5.Text :=accident_info.GetVehicleId(edit6.Text);
  edit2.Text :=accident_info.GetACCIDENTCONTENT(edit6.Text);
  edit3.Text :=accident_info.GetBAOXIAN(edit6.Text) ;
  edit4.Text :=accident_info.GetMoney(edit6.Text);
  edit8.Text :=accident_info.GetDRIVERID(edit6.Text) ;
  edit7.Text :=accident_info.GetVEHICLENO(edit6.Text) ;
  datetimepicker1.DateTime:=strtodate(accident_info.GetAccidentTime(edit6.Text) ) ;
  memo1.Text:=accident_info.GetRemark(edit6.Text);
  //释放类的实例
  accident_info.Free;
end;

end.