⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 car_change.pas

📁 软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    Edit25.Text:='';  Edit_ID.Text:='';
    Edit20.Text:=ForMatDateTime('yyyy''-''mm''-''dd',now);
    Edit22.Text:=Login_Name;
end;

procedure Tfrm_Car_Change.Cmd_SaveClick(Sender: TObject);
var
    tempstr:string;
begin
    inherited;
    if Trim(Edit1.Text)='' then
    begin
        Edit1.SetFocus;
        APPlication.MessageBox('操作失败【过户前车牌号码】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    with frm_data.Query_Car_Change do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [Car_Change] where C_ID='''+Trim(Edit15.Text)+'''');
        Try
            prepared;
            Open;
            if frm_data.Query_Car_Change.RecordCount>0 then
            begin
                APPlication.MessageBox('操作失败【该车辆该名称已经存在了】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Edit1.SetFocus;
                Exit;
            end
            else
            begin
                with frm_data.Query_Car_Change do
                begin
                    tempstr:='INSERT INTO [Car_Change](C_ID,Car_Man,C_NO,Drive_ID,Car_Telphone,Record_Date,Address,Recorder,';
                    tempstr:=tempstr+'MondName,Change_Date,Charager,B_NO,B_ID,B_Man,B_Drive_ID,B_Telphone,B_Address) values (:u1,:u2,:u3,:u4,';
                    tempstr:=tempstr+':u5,:u6,:u7,:u8,:u9,:u10,:u11,:u12,:u13,:u14,:u15,:u16,:u17)';
                    Close;
                    Sql.Clear;
                    Sql.Add(tempstr);
                    frm_data.Query_Car_Change.Parameters[0].Value:=Trim(Edit15.Text);
                    frm_data.Query_Car_Change.Parameters[1].Value:=Trim(Edit16.Text);
                    frm_data.Query_Car_Change.Parameters[2].Value:=Trim(Edit17.Text);
                    frm_data.Query_Car_Change.Parameters[3].Value:=Trim(Edit18.Text);
                    frm_data.Query_Car_Change.Parameters[4].Value:=Trim(Edit19.Text);
                    frm_data.Query_Car_Change.Parameters[5].Value:=Trim(Edit20.Text);
                    frm_data.Query_Car_Change.Parameters[6].Value:=Trim(Edit21.Text);
                    frm_data.Query_Car_Change.Parameters[7].Value:=Trim(Edit22.Text);
                    frm_data.Query_Car_Change.Parameters[8].Value:=Trim(Edit23.Text);
                    frm_data.Query_Car_Change.Parameters[9].Value:=Trim(Edit24.Text);
                    frm_data.Query_Car_Change.Parameters[10].Value:=Trim(Edit25.Text);

                    frm_data.Query_Car_Change.Parameters[11].Value:=Trim(Edit3.Text);
                    frm_data.Query_Car_Change.Parameters[12].Value:=Trim(Edit1.Text);
                    frm_data.Query_Car_Change.Parameters[13].Value:=Trim(Edit2.Text);
                    frm_data.Query_Car_Change.Parameters[14].Value:=Trim(Edit4.Text);
                    frm_data.Query_Car_Change.Parameters[15].Value:=Trim(Edit10.Text);
                    frm_data.Query_Car_Change.Parameters[16].Value:=Trim(Edit5.Text);
                    try
                        Prepared;
                        Execsql;
                        APPlication.MessageBox('保存数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        //------------------------//
                        //在车辆过户成功后 ，必须把车辆信息表的数据进行修改
                        //把他的一些基本信息修改为过户后的信息
                        Cmd_SaveUpdateClick(Sender);
                        //------------------------//
                        //************************//
                        //调用数据刷新过程
                        //注意：不能和上面的过程的执行顺序颠倒了，否则回
                        //出现其他的情况
                        Cmd_RushClick(Sender);
                        //************************//
                    Except
                        APPlication.MessageBox('系统错误！系统在保存数据表【Car_Change】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        Exit;
                    end;
                end;
            end;
        except
            APPlication.MessageBox('系统错误！系统在打开数据表【Car_Bad】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;

end;

procedure Tfrm_Car_Change.Cmd_SaveUpdateClick(Sender: TObject);
begin
    inherited;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('UpDate [Car] SET C_ID=:u1,Man=:u2,C_NO=:u3,Drive_ID=:u4,C_Telphon=:u5,Address=:u6,D_Date=:u7,F_Date=:u8 WhERE C_ID=:u9');
        frm_data.ADOQuery_Car.Parameters[0].Value:=Trim(Edit15.Text);
        frm_data.ADOQuery_Car.Parameters[1].Value:=Trim(Edit16.Text);
        frm_data.ADOQuery_Car.Parameters[2].Value:=Trim(Edit17.Text);
        frm_data.ADOQuery_Car.Parameters[3].Value:=Trim(Edit18.Text);
        frm_data.ADOQuery_Car.Parameters[4].Value:=Trim(Edit19.Text);
        frm_data.ADOQuery_Car.Parameters[5].Value:=Trim(Edit21.Text);
        frm_data.ADOQuery_Car.Parameters[6].Value:=Trim(Edit24.Text);
        frm_data.ADOQuery_Car.Parameters[7].Value:=Trim(Edit24.Text);
        frm_data.ADOQuery_Car.Parameters[8].Value:=Trim(Edit1.Text);
        Try
            Prepared;
            ExecSql;
        except
            APPlication.MessageBox('系统错误！系统在修改数据表【Car】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        End;
    end;
end;

procedure Tfrm_Car_Change.Cmd_DeleteUpdateClick(Sender: TObject);
begin
    inherited;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('UpDate [Car] SET C_ID=:u1,Man=:u2,C_NO=:u3,Drive_ID=:u4,C_Telphon=:u5,Address=:u6,D_Date=:u7,F_Date=:u8 WhERE C_ID=:u9');
        frm_data.ADOQuery_Car.Parameters[0].Value:=Trim(Edit15.Text);
        frm_data.ADOQuery_Car.Parameters[1].Value:=Trim(Edit16.Text);
        frm_data.ADOQuery_Car.Parameters[2].Value:=Trim(Edit17.Text);
        frm_data.ADOQuery_Car.Parameters[3].Value:=Trim(Edit18.Text);
        frm_data.ADOQuery_Car.Parameters[4].Value:=Trim(Edit19.Text);
        frm_data.ADOQuery_Car.Parameters[5].Value:=Trim(Edit21.Text);
        frm_data.ADOQuery_Car.Parameters[6].Value:=Trim(Edit24.Text);
        frm_data.ADOQuery_Car.Parameters[7].Value:=Trim(Edit24.Text);
        frm_data.ADOQuery_Car.Parameters[8].Value:=Trim(Edit1.Text);
        Try
            Prepared;
            ExecSql;
        except
            APPlication.MessageBox('系统错误！系统在修改数据表【Car】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        End;
    end;

end;

procedure Tfrm_Car_Change.Cmd_EditUpdateClick(Sender: TObject);
begin
    inherited;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('UpDate [Car] SET C_ID=:u1,Man=:u2,C_NO=:u3,Drive_ID=:u4,C_Telphon=:u5,Address=:u6 WhERE C_ID=:u7');
        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(Edit10.Text);
        frm_data.ADOQuery_Car.Parameters[5].Value:=Trim(Edit5.Text);
        frm_data.ADOQuery_Car.Parameters[6].Value:=Trim(Edit1.Text);
        Try
            Prepared;
            ExecSql;
        except
            APPlication.MessageBox('系统错误！系统在修改数据表【Car】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        End;
    end;

end;

procedure Tfrm_Car_Change.Cmd_EditClick(Sender: TObject);
begin
    inherited;
    if Application.MessageBox('确定需要修改该【车辆过户信息】吗？请确认',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_Car_Change do
        begin
            Close;
            Sql.Clear;
            Sql.Add('UpDate [Car_Change] SET C_ID=:u1,Car_Man=:u2,C_NO=:u3,Drive_ID=:u4,Car_Telphone=:u5,Address=:u6,MondName=:u7,Change_Date=:u8,Charager=:u9 where ID=:u10');
            frm_data.Query_Car_Change.Parameters[0].Value:=Trim(Edit15.Text);
            frm_data.Query_Car_Change.Parameters[1].Value:=Trim(Edit16.Text);
            frm_data.Query_Car_Change.Parameters[2].Value:=Trim(Edit17.Text);
            frm_data.Query_Car_Change.Parameters[3].Value:=Trim(Edit18.Text);
            frm_data.Query_Car_Change.Parameters[4].Value:=Trim(Edit19.Text);
            frm_data.Query_Car_Change.Parameters[5].Value:=Trim(Edit21.Text);
            frm_data.Query_Car_Change.Parameters[6].Value:=Trim(Edit23.Text);
            frm_data.Query_Car_Change.Parameters[7].Value:=Trim(Edit24.Text);
            frm_data.Query_Car_Change.Parameters[8].Value:=Trim(Edit25.Text);
            frm_data.Query_Car_Change.Parameters[9].Value:=Trim(Edit_ID.Text);
            Try
                prepared;
                ExecSql;
                //------------------------//
                //在车辆过户修改成功后 ，必须把车辆信息表的数据进行修改
                //把他的一些基本信息修改为现在修改的过户后的信息
                Cmd_EditUpdateClick(Sender);
                //------------------------//
                //************************//
                //调用数据刷新过程
                //注意：不能和上面的过程的执行顺序颠倒了，否则回
                //出现其他的情况
                Cmd_RushClick(Sender);
                //************************//
            except
                APPlication.MessageBox('系统错误！系统在修改数据表【Car_Bad】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;



    
end;

procedure Tfrm_Car_Change.Cmd_DeleteClick(Sender: TObject);
begin
    inherited;
    if Application.MessageBox('确定需要删除该【车辆过户信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_Car_Change do
        begin
            Close;
            Sql.Clear;
            Sql.Add('DELETE [Car_Change] where ID='''+Trim(Edit_ID.Text)+'''');
            Try
                prepared;
                ExecSql;
                //------------------------//
                //因为过户信息被删除后，必须把车辆信息表的数据进行还原
                //把他的一些基本信息修改为以前的过户前的后的信息
                Cmd_DeleteUpdateClick(Sender);
                //------------------------//
                //************************//
                //调用数据刷新过程
                //注意：不能和上面的过程的执行顺序颠倒了，否则回
                //出现其他的情况
                Cmd_RushClick(Sender);
                //************************//
            except
                APPlication.MessageBox('系统错误！系统在删除数据表【Car_Bad】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Car_Change.FormShow(Sender: TObject);
begin
  inherited;
    Cmd_RushClick(Sender);
end;

procedure Tfrm_Car_Change.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
    action:=cafree;
end;

procedure Tfrm_Car_Change.Cmd_MondClick(Sender: TObject);
begin
  inherited;
    func.Mond_Select:='';
    func.Mond_Select_Result:='';
    func.Mond_Select:='have';
    frm_Mond_Select:=Tfrm_Mond_Select.Create(self);
    frm_Mond_Select.ShowModal;
    Edit23.Text:=func.Mond_Select_Result;
    frm_Mond_Select.Free;
end;

procedure Tfrm_Car_Change.DateTimePicker1Change(Sender: TObject);
begin
  inherited;
    Edit24.Text:=ForMatDatetime('yyyy''-''mm''-''dd',DateTimePicker1.DateTime);
end;

procedure Tfrm_Car_Change.Cmd_ReportClick(Sender: TObject);
begin
    inherited;
    frm_Car_Change_Report:=Tfrm_Car_Change_Report.Create(self);
    frm_Car_Change_Report.ShowModal;
    frm_Car_Change_Report.Free;
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -