car~1.~pa

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

            frm_data.ADOQuery_Photo.open;
            if frm_data.ADOQuery_Photo.RecordCount>0 then
            try
                tempstream:=TStringStream.Create('');

                TBlobField(frm_data.ADOQuery_Photo.FieldByName('photo')).SaveToStream(tempstream);
                tempstream.Position:=0;
                tempjpeg:=TJPEGImage.Create;
                tempjpeg.LoadFromStream(tempstream);
                Image1.Picture.Bitmap.Assign(tempjpeg);
            finally
                tempstream.Free;
                tempjpeg.Free;
            end
            else
            begin
                Image1.Picture:=Nil;
            end;
        end;
    end;
    if Cmd_Rush.Caption='刷新' then
    begin
        with frm_data.ADOQuery_Car do
        begin
            Close;
            sql.Clear;
            Sql.Add('Select * from [Car]');
            Prepared;
            Open;
            if frm_data.ADOQuery_Car.RecordCount>0 then
            begin
                Last;
                Edit1.Text:=frm_data.ADOQuery_Car.FieldByName('C_NO').AsString;
                Edit2.Text:=frm_data.ADOQuery_Car.FieldByName('C_ID').AsString;
                Edit3.Text:=frm_data.ADOQuery_Car.FieldByName('C_Telphon').AsString;
                Edit4.Text:=frm_data.ADOQuery_Car.FieldByName('Man').AsString;
                Edit5.Text:=frm_data.ADOQuery_Car.FieldByName('Address').AsString;
                Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('Type').AsString;
                Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Facaty_type').AsString;
                Edit8.Text:=frm_data.ADOQuery_Car.FieldByName('Fdjh').AsString;
                Edit9.Text:=frm_data.ADOQuery_Car.FieldByName('Cjh').AsString;
                Edit10.Text:=frm_data.ADOQuery_Car.FieldByName('Total_mm').AsString;
                Edit11.Text:=frm_data.ADOQuery_Car.FieldByName('H_mm').AsString;
                Edit12.Text:=frm_data.ADOQuery_Car.FieldByName('H_Man').AsString;
                Edit13.Text:=frm_data.ADOQuery_Car.FieldByName('Q_Man').AsString;
                Edit14.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ADOQuery_Car.FieldByName('D_Date').AsDateTime);
                Edit15.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ADOQuery_Car.FieldByName('F_Date').AsDateTime);
                Edit16.Text:=frm_data.ADOQuery_Car.FieldByName('Drive_ID').AsString;
                Edit_ID.Text:=frm_data.ADOQuery_Car.FieldByName('ID').AsString;
            end
            else
            begin
                Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:='';Edit4.Text:='';
                Edit5.Text:=''; Edit6.Text:=''; Edit7.Text:='';Edit8.Text:='';
                Edit9.Text:=''; Edit10.Text:='';Edit11.Text:='';Edit12.Text:='';
                Edit13.Text:=''; Edit14.Text:='';Edit15.Text:=''; Edit16.Text:='';
                Edit_ID.Text:='';
                Image1.Picture:=Nil;
            end;
        end;
        with frm_data.ADOQuery_Photo do
        begin
            Close;
            SQL.Clear;
            SQL.Add('select photo from [photo] where C_no=:C_no');
            frm_data.ADOQuery_Photo.Parameters[0].Value:=trim(edit1.Text);
            frm_data.ADOQuery_Photo.open;
            if frm_data.ADOQuery_Photo.RecordCount>0 then
            try
                tempstream:=TStringStream.Create('');

                TBlobField(frm_data.ADOQuery_Photo.FieldByName('photo')).SaveToStream(tempstream);
                tempstream.Position:=0;
                tempjpeg:=TJPEGImage.Create;
                tempjpeg.LoadFromStream(tempstream);
                Image1.Picture.Bitmap.Assign(tempjpeg);
            finally
                tempstream.Free;
                tempjpeg.Free;
            end
            else
            begin
                Image1.Picture:=Nil;
            end;
        end;
    end;
end;

procedure Tfrm_Car.Cmd_SaveClick(Sender: TObject);
begin
    if Trim(Edit1.Text)='' then
    begin
        Application.MessageBox('操作错误，【车辆编号】不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit1.SetFocus;
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作错误，【车牌号】不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit2.SetFocus;
        Exit;
    end;
    if Trim(Edit3.Text)='' then
    begin
        Application.MessageBox('操作错误，【定位电话】不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit3.SetFocus;
        Exit;
    end;
    if Trim(Edit4.Text)='' then
    begin
        Application.MessageBox('操作错误，【车主】不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit4.SetFocus;
        Exit;
    end;
    if Trim(Edit13.Text)='-  -' then
    begin
        Application.MessageBox('操作错误，【登记日期】不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit13.SetFocus;
        Exit;
    end;
    if Trim(Edit14.Text)='-  -' then
    begin
        Application.MessageBox('操作错误，【发证日期】不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit14.SetFocus;
        Exit;
    end;
    if Trim(Edit10.Text)='-  -' then
    begin
        Application.MessageBox('操作错误，【总质量】不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit10.SetFocus;
        Exit;
    end;
    with frm_data.ADOQuery1 do
    begin
        Close;
        Sql.Clear;
        Sql.Add('select * from [Car] where C_ID=:u1 ');
        frm_data.ADOQuery1.Parameters[0].Value:=Trim(Edit2.Text);
        Prepared;
        Open;
        if frm_data.ADOQuery1.RecordCount>0 then
        begin
            Application.MessageBox('操作错误，该车辆［车牌号］已经存在了，请确认！','［GPS定位车辆管理系统］,'mb_ok);
            Exit;
        end
    end;
    with frm_data.ADOQuery1 do
    begin
        Close;
        Sql.Clear;
        Sql.Add('select * from [Car] where C_NO=:u1 ');
        frm_data.ADOQuery1.Parameters[0].Value:=Trim(Edit1.Text);
        Prepared;
        Open;
        if frm_data.ADOQuery1.RecordCount>0 then
        begin
            Application.MessageBox('操作错误，该车辆［车辆编号］已经存在了，请确认！','［GPS定位车辆管理系统］,'mb_ok);
            Exit;
        end
    end;
    with frm_data.ADOQuery1 do
    begin
        Close;
        Sql.Clear;
        Sql.Add('select * from [Car] where ');
        Sql.Add('C_NO=:u1 and C_ID=:u2 and C_Telphon=:u3 and Man=:u4 and Address=:u5 and Type=:u6 and Facaty_type=:u7 and Fdjh=:u8 and Cjh=:u9 and Total_mm=:u10 and H_mm=:u11 and H_Man=:u12 and Q_Man=:u13 and D_Date=:u14 and F_Date=:u15');
        frm_data.ADOQuery1.Parameters[0].Value:=Trim(Edit1.Text);
        frm_data.ADOQuery1.Parameters[1].Value:=Trim(Edit2.Text);
        frm_data.ADOQuery1.Parameters[2].Value:=Trim(Edit3.Text);
        frm_data.ADOQuery1.Parameters[3].Value:=Trim(Edit4.Text);
        frm_data.ADOQuery1.Parameters[4].Value:=Trim(Edit5.Text);
        frm_data.ADOQuery1.Parameters[5].Value:=Trim(Edit6.Text);
        frm_data.ADOQuery1.Parameters[6].Value:=Trim(Edit7.Text);
        frm_data.ADOQuery1.Parameters[7].Value:=Trim(Edit8.Text);
        frm_data.ADOQuery1.Parameters[8].Value:=Trim(Edit9.Text);
        frm_data.ADOQuery1.Parameters[9].Value:=Trim(Edit10.Text);
        frm_data.ADOQuery1.Parameters[10].Value:=Trim(Edit11.Text);
        frm_data.ADOQuery1.Parameters[11].Value:=Trim(Edit12.Text);
        frm_data.ADOQuery1.Parameters[12].Value:=Trim(Edit13.Text);
        frm_data.ADOQuery1.Parameters[13].Value:=Trim(Edit14.Text);
        frm_data.ADOQuery1.Parameters[14].Value:=Trim(Edit15.Text);
        Prepared;
        Open;
        if frm_data.ADOQuery1.RecordCount>0 then
        begin
            Application.MessageBox('操作错误，该车辆信息已经登记了，请确认！',PChar(Application.Title),MB_ICONWARNing);
            Exit;
        end
        else
        begin 
            with frm_data.ADOQuery_Car do
            begin
                Close;
                Sql.Clear;
                Sql.Add('insert into [Car](C_NO,C_ID,C_Telphon,Man,Address,Type,Facaty_type,Fdjh,Cjh,Total_mm,H_mm,H_Man,Q_Man,D_Date,F_Date,Drive_ID)');
                Sql.Add(' values (:C_NO,:C_ID,:C_Telphon,:Man,:Address,:Type,:Facaty_type,:Fdjh,:Cjh,:Total_mm,:H_mm,:H_Man,:Q_Man,:D_Date,:F_Date,:Drive_ID)');
                frm_data.ADOQuery_Car.Parameters[0].Value:=Trim(Edit1.Text);
                frm_data.ADOQuery_Car.Parameters[1].Value:=Trim(Edit2.Text);
                frm_data.ADOQuery_Car.Parameters[2].Value:=Trim(Edit3.Text);
                frm_data.ADOQuery_Car.Parameters[3].Value:=Trim(Edit4.Text);
                frm_data.ADOQuery_Car.Parameters[4].Value:=Trim(Edit5.Text);
                frm_data.ADOQuery_Car.Parameters[5].Value:=Trim(Edit6.Text);
                frm_data.ADOQuery_Car.Parameters[6].Value:=Trim(Edit7.Text);
                frm_data.ADOQuery_Car.Parameters[7].Value:=Trim(Edit8.Text);
                frm_data.ADOQuery_Car.Parameters[8].Value:=Trim(Edit9.Text);
                frm_data.ADOQuery_Car.Parameters[9].Value:=Trim(Edit10.Text);
                frm_data.ADOQuery_Car.Parameters[10].Value:=Trim(Edit11.Text);
                frm_data.ADOQuery_Car.Parameters[11].Value:=Trim(Edit12.Text);
                frm_data.ADOQuery_Car.Parameters[12].Value:=Trim(Edit13.Text);
                frm_data.ADOQuery_Car.Parameters[13].Value:=Trim(Edit14.Text);
                frm_data.ADOQuery_Car.Parameters[14].Value:=Trim(Edit15.Text);
                frm_data.ADOQuery_Car.Parameters[15].Value:=Trim(Edit16.Text);
                Prepared;
                ExecSql;
                Application.MessageBox('车辆信息录入［增加］操作成功，请确认！','［GPS定位车辆管理系统］,'mb_ok);
                Cmd_RushClick(Sender);
                Cmd_CJClick(Sender);
            end;
        end;
    end;
end;

procedure Tfrm_Car.Cmd_DeleteClick(Sender: TObject);
begin
    if Trim(Edit1.Text)='' then
    begin
        Application.MessageBox('操作错误，［车辆编号］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit1.SetFocus;
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作错误，［车牌号］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit2.SetFocus;
        Exit;
    end;
    if Application.MessageBox('确定需要删除该车辆的信息吗？请确认！','［GPS定位车辆管理系统］,'mb_okcancel)=idok then
    begin
        with frm_data.ADOQuery_Car do
        begin
            Close;
            Sql.Clear;
            Sql.Add('delete [car] where C_ID='''+Trim(Edit2.Text)+'''');
            Prepared;
            ExeCsql;
            Application.MessageBox('车辆信息［删除］操作成功，请确认！','［GPS定位车辆管理系统］,'mb_ok);
            Cmd_RushClick(Sender);
            Cmd_CJClick(Sender);
        end;
    end;
end;

procedure Tfrm_Car.Cmd_EditClick(Sender: TObject);
begin
    if Trim(Edit1.Text)='' then
    begin
        Application.MessageBox('操作错误，［车辆编号］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit1.SetFocus;
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作错误，［车牌号］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit2.SetFocus;
        Exit;
    end;
    if Trim(Edit3.Text)='' then
    begin
        Application.MessageBox('操作错误，［定位电话］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit3.SetFocus;
        Exit;
    end;
    if Trim(Edit4.Text)='' then
    begin
        Application.MessageBox('操作错误，［车主］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
        Edit4.SetFocus;
        Exit;
    end;