car_bad.~pas

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

                    frm_data.Query_Car_Bad.Parameters[5].Value:=Trim(Edit14.Text);
                    frm_data.Query_Car_Bad.Parameters[6].Value:=Trim(Edit15.Text);
                    try
                        Prepared;
                        Execsql;
                        APPlication.MessageBox('保存数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        //------------------------
                        //调用修改已经报废的车辆的过程
                        Cmd_UpdateClick(Sender);
                        //------------------------
                        Cmd_RushClick(Sender);
                    Except
                        APPlication.MessageBox('系统错误！系统在保存数据表【Car_Bad】时出现服务器连接错误！请确认！',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_Bad.Cmd_UpdateClick(Sender: TObject);
begin
    inherited;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('UpDate [Car] set B_Flag=''已报废'' where C_ID='''+Trim(Edit1.Text)+''' ');
        Try
            prepared;
            ExecSql;
        except
            APPlication.MessageBox('系统错误！系统在修改数据表【Car】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Car_Bad.Cmd_BeforeupdateClick(Sender: TObject);
begin
    inherited;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('UpDate [Car] set B_Flag=''未报废'' where C_ID='''+Trim(Edit1.Text)+''' ');
        Try
            prepared;
            ExecSql;
        except
            APPlication.MessageBox('系统错误！系统在修改数据表【Car】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Car_Bad.Cmd_EditClick(Sender: TObject);
begin
    inherited;
    if APPlication.MessageBox('确定需要修改该【车辆报废信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_Car_Bad do
        begin
            Close;
            Sql.Clear;
            Sql.Add('UPDATE [Car_Bad] SET C_ID=:u1,MondName=:u2,Bad_Date=:u3,Charager=:u4,Recorder=:u5,Recorder_date=:u6,Reasone=:u7 WHERE ID=:u8');
            frm_data.Query_Car_Bad.Parameters[0].Value:=Trim(Edit1.Text);
            frm_data.Query_Car_Bad.Parameters[1].Value:=Trim(Edit10.Text);
            frm_data.Query_Car_Bad.Parameters[2].Value:=Trim(Edit11.Text);
            frm_data.Query_Car_Bad.Parameters[3].Value:=Trim(Edit12.Text);
            frm_data.Query_Car_Bad.Parameters[4].Value:=Trim(Edit13.Text);
            frm_data.Query_Car_Bad.Parameters[5].Value:=Trim(Edit14.Text);
            frm_data.Query_Car_Bad.Parameters[6].Value:=Trim(Edit15.Text);
            frm_data.Query_Car_Bad.Parameters[7].Value:=Trim(Edit_ID.Text);
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('修改数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);

                //------------------------
                //调用修改已经报废的车辆的过程
                Cmd_UpdateClick(Sender);
                //------------------------
                Cmd_RushClick(Sender);
            Except
                APPlication.MessageBox('系统错误！系统在修改数据表【Car_Bad】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Car_Bad.Cmd_DeleteClick(Sender: TObject);
begin
    inherited;
    if APPlication.MessageBox('确定需要删除该【车辆报废信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        Cmd_BeforeupdateClick(Sender);
        with frm_data.Query_Car_Bad do
        begin
            Close;
            Sql.Clear;
            Sql.Add('DELETE [Car_Bad] WHERE ID='''+Trim(Edit_ID.Text)+''' ');
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('删除数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Cmd_RushClick(Sender);
            Except
                APPlication.MessageBox('系统错误！系统在删除数据表【Car_Bad】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Car_Bad.Cmd_Select_CardClick(Sender: TObject);
begin
    inherited;
    func.Car_Select:='';
    func.Car_Select_Result:='';
    func.Car_Select:='Car_ID'; //表示选择车辆编号
    frm_Car_Select:=Tfrm_Car_Select.Create(self);
    frm_Car_Select.ShowModal;
    frm_Car_Select.Free;
    //
    //把选择的结果传递给Edit1
    Edit1.Text:=func.Car_Select_Result;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Car] where C_ID='''+Trim(Edit1.Text)+'''');
        try
            Prepared;
            Open;
            Edit2.Text:=frm_data.ADOQuery_Car.FieldByName('Man').AsString;
            Edit3.Text:=frm_data.ADOQuery_Car.FieldByName('Drive_ID').AsString;
            Edit4.Text:=frm_data.ADOQuery_Car.FieldByName('Type').AsString;
            Edit5.Text:=frm_data.ADOQuery_Car.FieldByName('Facaty_type').AsString;
            Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('Fdjh').AsString;
            Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Cjh').AsString;
            Edit8.Text:=frm_data.ADOQuery_Car.FieldByName('C_Telphon').AsString;
            Edit9.Text:=frm_data.ADOQuery_Car.FieldByName('Address').AsString;
        Except
            Application.MessageBox('系统错误！系统在打开数据表【Car】时出错！与远程服务器连接失败！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        End;
    end;
end;

procedure Tfrm_Car_Bad.Cmd_Select_DriverClick(Sender: TObject);
begin
    inherited;
    func.Car_Select:='';
    func.Car_Select_Result:='';
    func.Car_Select:='Car_Man'; //表示选择车辆编号
    frm_Car_Select:=Tfrm_Car_Select.Create(self);
    frm_Car_Select.ShowModal;
    frm_Car_Select.Free;
    //
    //把选择的结果传递给Edit1
    Edit2.Text:=func.Car_Select_Result;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Car] where Man='''+Trim(Edit2.Text)+'''');
        try
            Prepared;
            Open;
            Edit1.Text:=frm_data.ADOQuery_Car.FieldByName('C_ID').AsString;
            Edit3.Text:=frm_data.ADOQuery_Car.FieldByName('Drive_ID').AsString;
            Edit4.Text:=frm_data.ADOQuery_Car.FieldByName('Type').AsString;
            Edit5.Text:=frm_data.ADOQuery_Car.FieldByName('Facaty_type').AsString;
            Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('Fdjh').AsString;
            Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Cjh').AsString;
            Edit8.Text:=frm_data.ADOQuery_Car.FieldByName('C_Telphon').AsString;
            Edit9.Text:=frm_data.ADOQuery_Car.FieldByName('Address').AsString;
        Except
            Application.MessageBox('系统错误！系统在打开数据表【Car】时出错！与远程服务器连接失败！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        End;
    end;
end;

procedure Tfrm_Car_Bad.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;
    Edit10.Text:=func.Mond_Select_Result;
    frm_Mond_Select.Free;
end;

procedure Tfrm_Car_Bad.DateTimePicker1Change(Sender: TObject);
begin
    Edit11.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DateTimePicker1.DateTime);
end;

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

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

procedure Tfrm_Car_Bad.Cmd_ReportClick(Sender: TObject);
begin
  inherited;
    frm_Car_Bad_Report:=Tfrm_Car_Bad_Report.Create(self);
    frm_Car_Bad_Report.ShowModal;
    frm_Car_Bad_Report.Free;
end;

end.