done.pas

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

                Exit;
            end
            else
            begin
                with frm_data.Query_Back_Role do
                begin
                    Close;
                    Sql.Clear;
                    Sql.Add('INSERT INTO [Back_Role](C_ID,C_Man,Drive_Man,Drive_ID,Back_Date,Done_Date,Back_Reasone,Done_Result,Done_Mond,Done_Man,Record_Man,Record_Date) values (:u1,:u2,:u3,:u4,:u5,:u6,:u7,:u8,:u9,:u10,:u11,:u12)');
                    frm_data.Query_Back_Role.Parameters[0].Value:=Trim(Edit1.Text);
                    frm_data.Query_Back_Role.Parameters[1].Value:=Trim(Edit2.Text);
                    frm_data.Query_Back_Role.Parameters[2].Value:=Trim(Edit3.Text);
                    frm_data.Query_Back_Role.Parameters[3].Value:=Trim(Edit4.Text);
                    frm_data.Query_Back_Role.Parameters[4].Value:=Trim(Edit5.Text);
                    frm_data.Query_Back_Role.Parameters[5].Value:=Trim(Edit6.Text);
                    frm_data.Query_Back_Role.Parameters[6].Value:=Trim(Edit7.Text);
                    frm_data.Query_Back_Role.Parameters[7].Value:=Trim(Edit8.Text);
                    frm_data.Query_Back_Role.Parameters[8].Value:=Trim(Edit9.Text);
                    frm_data.Query_Back_Role.Parameters[9].Value:=Trim(Edit10.Text);
                    frm_data.Query_Back_Role.Parameters[10].Value:=Trim(Edit11.Text);
                    frm_data.Query_Back_Role.Parameters[11].Value:=Trim(Edit12.Text);
                    try
                        Prepared;
                        Execsql;
                        APPlication.MessageBox('保存数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        Cmd_RushClick(Sender);
                    Except
                        APPlication.MessageBox('系统错误！系统在保存数据表【Car_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        Exit;
                    end;
                end;
            end;
        except
            APPlication.MessageBox('系统错误！系统在打开数据表【Car_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

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

end;

procedure Tfrm_Done.Cmd_EditClick(Sender: TObject);
begin
  inherited;
    if APPlication.MessageBox('确定需要修改该【车辆违章信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_Back_Role do
        begin
            Close;
            Sql.Clear;
            Sql.Add('UPDATE [Back_Role] SET C_ID=:u1,C_Man=:u2,Drive_Man=:u3,Drive_ID=:u4,Back_Date=:u5,Done_Date=:u6,Back_Reasone=:u7,Done_Result=:u8,Done_Mond=:u9,Done_Man=:u10,Record_Man=:u11,Record_Date=:u12 WHERE ID=:u13');
            frm_data.Query_Back_Role.Parameters[0].Value:=Trim(Edit1.Text);
            frm_data.Query_Back_Role.Parameters[1].Value:=Trim(Edit2.Text);
            frm_data.Query_Back_Role.Parameters[2].Value:=Trim(Edit3.Text);
            frm_data.Query_Back_Role.Parameters[3].Value:=Trim(Edit4.Text);
            frm_data.Query_Back_Role.Parameters[4].Value:=Trim(Edit5.Text);
            frm_data.Query_Back_Role.Parameters[5].Value:=Trim(Edit6.Text);
            frm_data.Query_Back_Role.Parameters[6].Value:=Trim(Edit7.Text);
            frm_data.Query_Back_Role.Parameters[7].Value:=Trim(Edit8.Text);
            frm_data.Query_Back_Role.Parameters[8].Value:=Trim(Edit9.Text);
            frm_data.Query_Back_Role.Parameters[9].Value:=Trim(Edit10.Text);
            frm_data.Query_Back_Role.Parameters[10].Value:=Trim(Edit11.Text);
            frm_data.Query_Back_Role.Parameters[11].Value:=Trim(Edit12.Text);
            frm_data.Query_Back_Role.Parameters[12].Value:=Trim(Edit_ID.Text);
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('修改数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Cmd_RushClick(Sender);
            Except
                APPlication.MessageBox('系统错误！系统在修改数据表【Car_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

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

procedure Tfrm_Done.Cmd_Get_DriveClick(Sender: TObject);
begin
  inherited;
    func.Drive_Card_Select:='';
    func.Drive_Card_Select:='Drive_ID';
    func.Drive_Card_Select_Result:='';
    frm_Drive_Card_Select:=Tfrm_Drive_Card_Select.Create(self);
    frm_Drive_Card_Select.ShowModal;
    frm_Drive_Card_Select.Free;
    Edit4.Text:=func.Drive_Card_Select_Result;
    with frm_data.Query_Drive_Card do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Drive_Card] WHERE Drive_ID='''+Trim(Edit4.Text)+'''');
        try
            Prepared;
            Open;
            Edit3.Text:=frm_data.Query_Drive_Card.FieldByName('Drive_Man').AsString;
        Except
            APPlication.MessageBox('系统错误！系统在修改数据表【Drive_Card】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        End;
    end;
end;

procedure Tfrm_Done.Cmd_Get_NOClick(Sender: TObject);
begin
  inherited;
    func.Car_Select:='Car_ID';
    func.Car_Select_Result:='';
    frm_Car_Select:=Tfrm_Car_Select.Create(self);
    frm_Car_Select.ShowModal;
    frm_Car_Select.Free;
    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;
        Except
            APPlication.MessageBox('系统错误！系统在修改数据表【Car】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        End;
    end;
end;

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

procedure Tfrm_Done.DateTimePicker2Change(Sender: TObject);
begin
  inherited;
    Edit6.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DateTimePicker2.DateTime);
end;

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

procedure Tfrm_Done.Cmd_ReportClick(Sender: TObject);
begin
  inherited;
    frm_Done_Report:=Tfrm_Done_Report.Create(self);
    frm_Done_Report.ShowModal;
    frm_Done_Report.Free;
end;

procedure Tfrm_Done.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
    Edit1.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('C_ID').AsString;
    Edit2.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Man').AsString;
    Edit3.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Drive_Man').AsString;
    Edit4.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Drive_ID').AsString;
    Edit5.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Back_Role.FieldByName('Back_Date').AsDateTime);
    Edit6.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Back_Role.FieldByName('Done_Date').AsDateTime);
    Edit7.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Back_Reasone').AsString;
    Edit8.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Done_Result').AsString;
    Edit9.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Done_Mond').AsString;
    Edit10.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Done_Man').AsString;
    Edit11.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Record_Man').AsString;
    Edit12.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Back_Role.FieldByName('Record_Date').AsDateTime);
    Edit_ID.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('ID').AsString;
end;

end.